This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-11-20 12:50:17 -07:00
25 changed files with 1977 additions and 346 deletions

View File

@@ -330,8 +330,8 @@ Partial Class AC_RepEstadoActividades
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))

View File

@@ -639,9 +639,10 @@ Partial Class AC_SituacionFinanciera
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString))
params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
@@ -652,6 +653,7 @@ Partial Class AC_SituacionFinanciera
params.Add(New ReportParameter("pFirma1", ""))
params.Add(New ReportParameter("pFirma2", ""))
End If
params.Add(New ReportParameter("pFechaFin", FechaF))
params.Add(New ReportParameter("Level2", If(ChkNivel.Checked, "SI", "NO")))
ImprimirPDF(reportpath, lrds, params, fileName, Formato)

View File

@@ -1008,18 +1008,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>C.P Vera Guadalupe Tarazon Moreno</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Director Administrativo</Value>
<Value>=Parameters!pFirma1.Value</Value>
<Style />
</TextRun>
</TextRuns>

View File

@@ -2942,18 +2942,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>C.P Vera Guadalupe Tarazon Moreno</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Director Administrativo</Value>
<Value>=Parameters!pFirma1.Value</Value>
<Style />
</TextRun>
</TextRuns>

View File

@@ -2955,7 +2955,9 @@ Public Class ClsGenerales
.Add("@FechaIngFin", SqlDbType.VarChar).Value = FechaIngFin
.Add("@Filtro", SqlDbType.Int).Value = Filtro
.Add("@CveUsuarioEntrega", SqlDbType.Int).Value = CveUsuarioEntrega
.Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna
.Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna
End With
Try
SqlAdapter.Fill(Data)
@@ -2965,8 +2967,8 @@ Public Class ClsGenerales
End Try
Return Retorno
End Function
End Function
Public Function UpdatePaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CveSubProyecto As Integer, CvePaqueteria As Integer, CveEstatus As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, Peso As Double,
Dimensiones As String, FechaEstimada As String, Observaciones As String, Optional ImplicaCosto As Boolean = True) As Boolean
Dim Retorno As Boolean = False
@@ -3029,7 +3031,8 @@ Public Class ClsGenerales
DataAdapter("PA_Gral_EntregasPorRealizarGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
.Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
End With
Try
SqlAdapter.Fill(Data)
@@ -3041,15 +3044,14 @@ Public Class ClsGenerales
Return Retorno
End Function
Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1, Optional Orden As Integer = 0) As Boolean
Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
.Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
.Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
.Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
.Add("@Orden", SqlDbType.Int).Value = Orden
.Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
End With
Try
SqlAdapter.Fill(Data)
@@ -3611,8 +3613,9 @@ Public Class ClsGenerales
#Region "GRAL TIMBRES"
Public Function AddGralTimbre(TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CvePaqueteriaGuia As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
Estatus As Integer, CvePAC As Integer, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date) As Integer
Public Function AddGralTimbre(TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer,
Estatus As Integer, CvePAC As Integer, AplicaCP As Boolean, CveEntregaAlmacen As Integer, CveSubProyectoOrigen As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Gral_TimbreAdd")
@@ -3623,19 +3626,13 @@ Public Class ClsGenerales
.Add("@Folio", SqlDbType.Int).Value = Folio
.Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
.Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
.Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CvePAC", SqlDbType.Int).Value = CvePAC
.Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP
.Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
.Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
.Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
.Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
.Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
.Add("@CveTimbre", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@FolioInsertado", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -3657,7 +3654,7 @@ Public Class ClsGenerales
Return Retorno
End Function
Public Function GetGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FechaI As Date, FechaF As Date, Estatus As Integer, CveEmpresa As Integer, CveMovimiento As Integer, CvePaqueteriaGuia As Integer) As Boolean
Public Function GetGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FechaI As Date, FechaF As Date, Estatus As Integer, CveEmpresa As Integer, CveMovimiento As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_TimbreGet")
@@ -3671,10 +3668,7 @@ Public Class ClsGenerales
.Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
.Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
End With
Try
@@ -3687,9 +3681,9 @@ Public Class ClsGenerales
Return Retorno
End Function
Public Function UpdateGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CvePaqueteriaGuia As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
Estatus As Integer, CvePAC As Integer, CvePACCancelacion As Integer, FechaCancelacion As Date, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer,
CveChofer As Integer, CveCamion As Integer) As Boolean
Public Function UpdateGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer,
Estatus As Integer, CvePAC As Integer, CvePACCancelacion As Integer, FechaCancelacion As Date, AplicaCP As Boolean, SelloCancelacion As String
) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_TimbreUpdate")
@@ -3701,21 +3695,16 @@ Public Class ClsGenerales
.Add("@Folio", SqlDbType.Int).Value = Folio
.Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
.Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
.Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
.Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CvePAC", SqlDbType.Int).Value = CvePAC
.Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion
.Add("@FechaCancelacion", SqlDbType.DateTime).Value = FechaCancelacion
.Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP
.Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
.Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
.Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
.Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion
End With
Try
@@ -3769,8 +3758,114 @@ Public Class ClsGenerales
End Function
Public Function AddInvEntregaAlmacenRuta(CveSubProyectoOrigen As Integer, CveMovimientoAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, Tipo As String, Orden As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Inv_EntregaAlmacenRutaAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
.Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
.Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
.Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
.Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
.Add("@Orden", SqlDbType.Int).Value = Orden
.Add("@Tipo", SqlDbType.VarChar).Value = Tipo
.Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
Retorno = SqlAdapter.SelectCommand.Parameters("@CveEntregaAlmacen").Value.ToString.ToEntero
Catch ex As Exception
OnError("Ocurrió un error al agregar la entrega almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
.Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
.Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
.Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar la entrega almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetInvEntregaAlmacenRuta(CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Opcion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_EntregaAlmacenRutaGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
End Class

View File

@@ -4870,6 +4870,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892)
PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
PaginaDict.Add("/Inventarios/EntregasPorRealizar.aspx".ToUpper(), 728)
PaginaDict.Add("/Inventarios/CatAlmacenClasificacionSecciones.aspx".ToUpper(), 764)
PaginaDict.Add("/Inventarios/ReconstruirCostos.aspx".ToUpper(), 764)
PaginaDict.Add("/Inventarios/RecepcionDevolucion.aspx".ToUpper(), 696)
@@ -4879,6 +4880,14 @@ Public Class ClsPaginas
'PaginaDict.Add("/Inventarios/EntregasPorRealizarRuta.aspx".ToUpper(), -1)
'PaginaDict.Add("/General/RepPaqueteriasGuiasRuta.aspx".ToUpper(), -1)
PaginaDict.Add("/Inventarios/EntregaAlmacenRuta.aspx".ToUpper(), 1320)
PaginaDict.Add("/General/RepEntregaAlmacenRuta.aspx".ToUpper(), 1319)
#End Region
#Region "MF"
PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)
@@ -8492,7 +8501,8 @@ Public Class ClsPaginas
Dim PathXML As String = $"{Ruta}XML\Pag\{Serie}-{Folio}.xml"
Dim PathPDF As String = $"{Ruta}PDF\Pag\{Serie}-{Folio}.pdf"
SerieFolio = $"{Serie}-{Folio}"
Dim ImagenCBB As String = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, $"{Serie}-{Folio}.jpg")
Dim ImagenCBB As String = $"file://{Ruta}CBB\{Serie}-{Folio}.jpg"
If File.Exists(PathXML) Then
Dim XmlDoc As New System.Xml.XmlDocument

View File

@@ -3313,6 +3313,18 @@ Public Class Timbrado
comprobante.MetodoPagoSpecified = If(ObjCFDITimbre.Comprobante.MetodoPago <> "", True, False)
comprobante.LugarExpedicion = ObjCFDITimbre.Comprobante.LugarExpedicion
If ObjCFDITimbre.CFDIRelacionados.TipoRelacion <> "" Then
Dim CfdiRelacionados As New Profact.TimbraCFDI33.ComprobanteCfdiRelacionados
CfdiRelacionados.CfdiRelacionado = New Profact.TimbraCFDI33.ComprobanteCfdiRelacionadosCfdiRelacionado(ObjCFDITimbre.CFDIRelacionados.UUID.Count - 1) {}
Dim i As Integer = 0
For Each uid As String In ObjCFDITimbre.CFDIRelacionados.UUID
CfdiRelacionados.CfdiRelacionado(i) = New Profact.TimbraCFDI33.ComprobanteCfdiRelacionadosCfdiRelacionado With {.UUID = uid}
i += 1
Next
CfdiRelacionados.TipoRelacion = ObjCFDITimbre.CFDIRelacionados.TipoRelacion
comprobante.CfdiRelacionados = CfdiRelacionados
End If
#Region "Emisor"
comprobante.Emisor = New Profact.TimbraCFDI33.ComprobanteEmisor()
comprobante.Emisor.Rfc = EmisorRFC

View File

@@ -2860,7 +2860,9 @@ Partial Class Bancos_IE
'Agregamos el IVA
If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
Dim CveConIVA As Integer = 61
If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If
End If
@@ -4502,16 +4504,18 @@ Partial Class Bancos_IE
If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
ErrorCancelar = True
MensajeError = "Error al desbloquear prepoliza."
Else
'CANCELA IE MES ACTUAL
CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
If CvePrePolizaCancelacion <= 0 Then
ErrorCancelar = True
MensajeError = "Error al cancelar IE MES ACTUAL"
End If
End If
'CANCELA IE MES ACTUAL
CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
If CvePrePolizaCancelacion <= 0 Then
ErrorCancelar = True
MensajeError = "Error al cancelar IE MES ACTUAL"
End If
End If
If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaCancelacion, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IDPoliza > 0, IDPoliza, -1), ObjConta:=ObjAC) Then
ErrorCancelar = True
@@ -4577,7 +4581,7 @@ Partial Class Bancos_IE
End If
If Not ErrorCancelarComplemento Then
If Not ErrorCancelarComplemento AndAlso Not ErrorCancelar Then
If ObjAC IsNot Nothing Then ObjAC.Commit()
Banc.Commit()
@@ -5698,24 +5702,30 @@ Partial Class Bancos_IE
DVGenerarComplementoModal.Visible = False
If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then
If Tipo = "Abono" Then
GvComplementoPagos.DataSource = ObjBancos.DtResultados
If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then
DVGenerarComplementoModal.Visible = True
GvComplementoPagos.DataSource = ObjBancos.DtResultados
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then
DVGenerarComplementoModal.Visible = True
End If
Else
GvComplementoPagos.DataSource = Nothing
End If
Else
GvComplementoPagos.DataSource = Nothing
End If
If CveIE > 0 Then
If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
End If
End If
End If
ObjBancos.Dispose()
GvComplementoPagos.DataBind()
UpComplementoPagos.Update()
'If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
'End If
'ObjBancos.Dispose()
'GvComplementoPagos.DataBind()
@@ -5727,7 +5737,7 @@ Partial Class Bancos_IE
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("Tipo") = "Ing" Then
e.Row.Cells(3).Text = String.Format("<a class="" texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class="" fa fa-ad-excel""></i></a>", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
e.Row.Cells(3).Text = String.Format("<a class="" texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class="" fa fa-file-code-o""></i></a>", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
e.Row.Cells(4).Text = String.Format("<a class="" texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class="" fa fa-ad-pdf""></i></a>", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
If e.Row.DataKey("Estatus").Contiene("1", "3") Then
@@ -5738,7 +5748,7 @@ Partial Class Bancos_IE
ElseIf e.Row.DataKey("Tipo") = "Egs" Then
e.Row.Cells(3).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-ad-excel""></i></a>", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
e.Row.Cells(3).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-file-code-o""></i></a>", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
e.Row.Cells(4).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-ad-pdf""></i></a>", Encripta(String.Format("OP=Fact&EXT=pdf&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCde").ToString.Replace("&", "%26%"))))
GvComplementoPagos.Columns(6).Visible = False

View File

@@ -596,14 +596,11 @@ Partial Class Bancos_PopIEVentas
End If
CargaTipoTransaccion(TipoTransaccion)
CargaCuentas()
Dim ObjCompras As New ClsCompras
If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
RBLContado.Items(4).Enabled = True
End If
ObjCompras.Dispose()
CargaCuentas()
Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
@@ -726,7 +723,7 @@ Partial Class Bancos_PopIEVentas
CveMoneda = dr("CveMoneda").ToString.ToEntero
CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
NombreCliente = dr("ClienteNombre").ToString '' GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
SerieFolio = dr("SerieFolio").ToString
TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
@@ -785,6 +782,14 @@ Partial Class Bancos_PopIEVentas
'Cortes de Caja
If UsuarioActual.TienePermisoProceso(160) Then
CargaCorteCaja()
End If
If RFCCliente.ToUpper <> "XAXX010101000" Then
Dim ObjCompras As New ClsCompras
If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
RBLContado.Items(4).Enabled = True
End If
ObjCompras.Dispose()
End If
If Not Validada Then

View File

@@ -946,7 +946,7 @@ Partial Class PopUpVerFactura
Dim ObjInv As New ClsGenerales
If ObjInv.GetGralTimbre(CveTimbre, "-1", "-1", -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1, -1) Then
If ObjInv.GetGralTimbre(CveTimbre, "-1", "-1", -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
If ObjInv.DtResultados.Rows.Count > 0 Then
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
If Dr IsNot Nothing Then

View File

@@ -262,7 +262,7 @@
</div>
<label id="lblCultivo" runat="server" class="col-md-1 truncate">Cultivo </label>
<div class="col-md-2" id="DivCultivo" runat="server">
<asp:ListBox ID="DdlCultivo" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Cuadro" DataValueField="CveCultivoCuadroDetalle" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
<asp:ListBox ID="DdlCultivo" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="TemporadaCultivoVariedadCuadro" DataValueField="CveCultivoCuadroDetalle" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
</div>
</div>

View File

@@ -1188,10 +1188,12 @@ Partial Class ContabilidadC_RegPrePoliza
Dim TipoMovtoOld As Boolean = (row.DataKey("TipoMovto").ToString = "True")
Dim ImporteMN As Decimal = If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal())
Dim CveTipoGastonew As Integer = If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero())
Dim ttSubProyecto As Integer = row.DataKey("CveSubProyecto").ToEntero()
If ttSubProyecto = 0 Then ttSubProyecto = -1
If row.DataKey("CvePrePolizaDetalle").ToEntero() > 0 Then
Dim actualizar As Boolean
actualizar = (Concepto <> row.DataKey("Concepto") OrElse CveSubProyecto <> row.DataKey("CveSubProyecto").ToEntero() OrElse CtaContable <> row.DataKey("IdCtaContable").ToEntero() OrElse
actualizar = (Concepto <> row.DataKey("Concepto") OrElse CveSubProyecto <> ttSubProyecto OrElse CtaContable <> row.DataKey("IdCtaContable").ToEntero() OrElse
TipoMovto <> TipoMovtoOld OrElse ImporteMN <> row.DataKey("ImporteMN").ToDecimal() OrElse CveTipoGastonew <> row.DataKey("CveTipoGasto").ToEntero())
'diferencia = $"{diferencia}\r\n /*{actualizar}*/actualizar = '{Concepto}' <> '{row.DataKey("Concepto")}' || '{CveSubProyecto}' <> '{row.DataKey("CveSubProyecto").ToEntero()}' || '{CtaContable}' <> '{row.DataKey("IdCtaContable").ToEntero()}' ||"
'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'"

View File

@@ -1350,7 +1350,9 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCtaContable") = IdCtaContable
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
dr("CveCuenta") = DdlCuentaContableE.SelectedValue
'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
dr("Concepto") = TxtConceptoE.Text

View File

@@ -0,0 +1,223 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepEntregaAlmacenRuta.aspx.cs" Inherits="General_RepEntregaAlmacenRuta" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
<style>
.MultiLineTextBox {
resize: none;
}
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Reporte Entrega Almacen Ruta
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div id="PFiltros" class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row" style="margin-left: 10px;">
<asp:label class="col-md-1 " id="LblDdlSucursal" runat="server" style="width: 90px; margin-top: 5px;">Sucursal:</asp:label>
<div class="col-md-2" id="DivDdlSucursal" runat="server">
<asp:DropDownList ID="DdlSucursales" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me">
</asp:DropDownList>
</div>
<label class="col-md-1 " style="width: 80px; margin-top: 5px;">Estatus:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEstatus" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="EntregaForaneaEstatus" DataValueField="CveEntregaForaneaEstatus" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
</div>
<label class="col-md-1 " style="width: 90px;">Fecha Inicial:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="TxtFechaI" PopupButtonID="ImgCalendarioI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<label class="col-md-1 " style="width: 80px;">Fecha Final:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="TxtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none;">
<div class="row">
<label class="col-md-1 " id="Label1" runat="server" style="width: 90px; margin-top: 5px;">Chofer:</label>
<div class="col-md-2" >
<asp:DropDownList ID="DdlChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" CssClass="form-control input-sm select2me" Width="100%" CausesValidation="true"></asp:DropDownList>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:GridView ID="GVDatos" runat="server"
DataKeyNames="CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen"
AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
<Columns>
<asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="SerieFolio" HeaderText="Folio" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Nombre" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Chofer" HeaderText="Operador" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="EstatusStr" HeaderText="Estatus" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" />
<asp:LinkButton ID="LnkCancelaTimbre" runat="server" OnClick="LnkCancelaTimbre_Click" AlternateText="Cancelar timbre" ToolTip="Cancelar timbre" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivEditarEntrega" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpModalEditarentrega" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" id="H3" runat="server">Editar Entrega</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlModalDireccionOrigen" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="DireccionEnvio" DataValueField="CveDireccionEnvio" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<label for="<%= DdlModalDireccionOrigen.ClientID.ToString()%>">Dirección Origen:</label>
</div>
<asp:RequiredFieldValidator ID="RfvDdlModalDireccionOrigen" runat="server" ControlToValidate="DdlModalDireccionOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dirección Origen''</b> es necesario." InitialValue="-1" ValidationGroup="GrpModalEditarentrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlModalDireccionOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalDireccionOrigen" Width="250px" PopupPosition="BottomLeft"></ajax:ValidatorCalloutExtender>
</div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlModalDireccionDestino" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="DireccionEnvio" DataValueField="CveDireccionEnvio" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<label for="<%= DdlModalDireccionDestino.ClientID.ToString()%>">Dirección Destino:</label>
</div>
<asp:RequiredFieldValidator ID="RfvDdlModalDireccionDestino" runat="server" ControlToValidate="DdlModalDireccionDestino" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dirección Destino''</b> es necesario." InitialValue="-1" ValidationGroup="GrpModalEditarentrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlModalDireccionDestino" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalDireccionDestino" Width="250px" PopupPosition="BottomLeft"></ajax:ValidatorCalloutExtender>
</div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlModalChofer" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Chofer" DataValueField="CveChofer" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<label for="<%= DdlModalChofer.ClientID.ToString()%>">Chofer:</label>
</div>
<asp:RequiredFieldValidator ID="RfvDdlModalChofer" runat="server" ControlToValidate="DdlModalChofer" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario." InitialValue="-1" ValidationGroup="GrpModalEditarentrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlModalChofer" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalChofer" Width="250px" PopupPosition="BottomLeft"></ajax:ValidatorCalloutExtender>
</div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlModalCamion" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Placa" DataValueField="CveCamion" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<label for="<%= DdlModalCamion.ClientID.ToString()%>">Unidad:</label>
</div>
<asp:RequiredFieldValidator ID="RfvDdlModalCamion" runat="server" ControlToValidate="DdlModalCamion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario." InitialValue="-1" ValidationGroup="GrpModalEditarentrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlModalCamion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalCamion" Width="250px" PopupPosition="BottomLeft"></ajax:ValidatorCalloutExtender>
</div>
<div class="row" >
<div style="margin-left:16px!important">
<label for="<%= TxtmodalFechaEntrega.ClientID.ToString()%>">Fecha Entrega:</label>
<br />
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtmodalFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkModalTxtmodalFechaEntrega" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="METxtmodalFechaEntrega" runat="server" TargetControlID="TxtmodalFechaEntrega" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CeTxtmodalFechaEntrega" TargetControlID="TxtmodalFechaEntrega" PopupButtonID="LnkModalTxtmodalFechaEntrega" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RfvTxtmodalFechaEntrega" runat="server" ControlToValidate="TxtmodalFechaEntrega" Display="None" ErrorMessage="El campo <b>''Fecha de Entrega''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpModalEditarentrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceTxtmodalFechaEntrega" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtmodalFechaEntrega" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnModalEditarentrega" runat="server" OnClick="BtnModalEditarentrega_Click" CssClass="btn btn-success" Text="Actualizar" ValidationGroup="GrpModalEditarentrega" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -0,0 +1,435 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using System.Data;
using Microsoft.Reporting.WebForms;
using System.IO;
using System.Text;
public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{
#region PROPIEDADES
private DataTable DTDatos
{
get
{
return (DataTable)ViewState["DTDatos"];
}
set
{
ViewState["DTDatos"] = value;
}
}
private int CveEntregaAlmacen
{
get
{
return ViewState["CveEntregaAlmacen"].ToString().ToEntero();
}
set
{
ViewState["CveEntregaAlmacen"] = value;
}
}
private int CveVenta
{
get
{
return ViewState["CveVenta"].ToString().ToEntero();
}
set
{
ViewState["CveVenta"] = value;
}
}
private int CveMovimiento
{
get
{
return ViewState["CveMovimiento"].ToString().ToEntero();
}
set
{
ViewState["CveMovimiento"] = value;
}
}
private String SerieFolio
{
get
{
return ViewState["SerieFolio"].ToString();
}
set
{
ViewState["SerieFolio"] = value;
}
}
private String NombreCliente
{
get
{
return ViewState["NombreCliente"].ToString();
}
set
{
ViewState["NombreCliente"] = value;
}
}
private String Destinatario
{
get
{
return ViewState["Destinatario"].ToString();
}
set
{
ViewState["Destinatario"] = value;
}
}
private String Paqueteria
{
get
{
return ViewState["Paqueteria"].ToString();
}
set
{
ViewState["Paqueteria"] = value;
}
}
private String Guia
{
get
{
return ViewState["Guia"].ToString();
}
set
{
ViewState["Guia"] = value;
}
}
private String Rastreo
{
get
{
return ViewState["Rastreo"].ToString();
}
set
{
ViewState["Rastreo"] = value;
}
}
private DataTable DTMovimientos
{
get
{
return (DataTable)ViewState["DTMovimientos"];
}
set
{
ViewState["DTMovimientos"] = value;
}
}
private int CvePaqueteriaGuiaReasignar
{
get
{
return ViewState["CvePaqueteriaGuiaReasignar"].ToString().ToEntero();
}
set
{
ViewState["CvePaqueteriaGuiaReasignar"] = value;
}
}
private String Folio
{
get
{
return ViewState["Folio"].ToString();
}
set
{
ViewState["Folio"] = value;
}
}
#endregion
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
CargaEstatus();
CargaCombosModalEntrega();
InicializaFechas();
CargaChoferes();
UPFiltros.Update();
CargarCentrosDeCosto(null, DdlSucursales, null, LblDdlSucursal);
CargaDatos();
}
}
#region CARGA DDL
protected void CargaCombosModalEntrega()
{
ClsInventarios ObjInventarios = new ClsInventarios();
if (ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) && ObjInventarios.DtResultados.Rows.Count > 0)
{
DdlModalCamion.DataSource = ObjInventarios.DtResultados;
}
ObjInventarios.Dispose();
DdlModalCamion.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlModalCamion.DataBind();
ClsAcarreos ObjAcar = new ClsAcarreos();
if (ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1))
{
DdlModalChofer.DataSource = ObjAcar.DtResultados;
DdlModalChofer.DataBind();
}
ObjAcar.Dispose();
DdlModalChofer.Items.Insert(0, new ListItem("Seleccione", "-1"));
}
protected void CargaChoferes()
{
ClsAcarreos ObjAcar = new ClsAcarreos();
if (ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1))
{
DdlChofer.DataSource = ObjAcar.DtResultados;
}
ObjAcar.Dispose();
DdlChofer.DataBind();
DdlChofer.Items.Insert(0, new ListItem("Todos", "-1"));
}
protected void CargaEstatus()
{
DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1"));
DdlEstatus.Items.Insert(1, new ListItem("Registrado", "0"));
DdlEstatus.Items.Insert(2, new ListItem("Timbrado", "1"));
DdlEstatus.Items.Insert(3, new ListItem("Cancelado ", "2"));
}
protected void InicializaFechas()
{
TxtFechaI.Text = DateTime.Now.AddDays(-1).ToString("dd/MM/yyyy");
TxtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy");
}
#endregion
#region CARGA DATOS
protected void CargaDatos()
{
ClsGenerales ObjGeneral = new ClsGenerales();
if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero()))
{
DTDatos = ObjGeneral.DtResultados;
GVDatos.DataSource = DTDatos;
}
ObjGeneral.Dispose();
GVDatos.DataBind();
UPDatos.Update();
}
#endregion
#region BOTONES
protected void BtnConsultar_Click(object sender, EventArgs e)
{
CargaDatos();
}
protected void imgEditar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero();
int CveCliente = GvRow.DataKey("CveCliente").ToEntero();
int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
int CveAlmacen = GvRow.DataKey("CveAlmacen").ToEntero();
CargaModalCombosDirecciones(CveCliente, CveDireccionOrigen, CveAlmacen);
DdlModalDireccionOrigen.SelectedValueExist(GvRow.DataKey("CveDireccionOrigen"));
DdlModalDireccionDestino.SelectedValueExist(GvRow.DataKey("CveDireccionDestino"));
DdlModalCamion.SelectedValueExist(GvRow.DataKey("CveCamion"));
DdlModalChofer.SelectedValueExist(GvRow.DataKey("CveChofer"));
TxtmodalFechaEntrega.Text = GvRow.DataKey("FechaEntrega").ToDate().ToString("dd/MM/yyyy");
UpModalEditarentrega.Update();
this.RegistraScript("$('#DivEditarEntrega').modal('show');");
}
private void CargaModalCombosDirecciones(int CveCliente, int CveDireccionOrigen, int CveAlmacen )
{
DdlModalDireccionOrigen.Items.Clear();
DdlModalDireccionDestino.Items.Clear();
DataTable DTDireccionesCliente = new DataTable();
ClsClientes ObjClientes = new ClsClientes();
if (ObjClientes.DireccionEnvioGet(-1, -1, -1))
{
DTDireccionesCliente = ObjClientes.DtResultados ;
}
ObjClientes.Dispose();
DdlModalDireccionDestino.DataSource = DTDireccionesCliente.FiltraParametros($"CveCliente = {CveCliente}");
DdlModalDireccionDestino.DataBind();
DdlModalDireccionDestino.Items.Insert(0,new ListItem("Seleccione Una", "-1"));
string Almacen = get_GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen: CveAlmacen).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacen}");
if (CveDireccionOrigen > 0)
{
DdlModalDireccionOrigen.DataSource = DTDireccionesCliente.FiltraParametros($"CveDireccionEnvio = {CveDireccionOrigen}");
DdlModalDireccionOrigen.DataBind();
DdlModalDireccionOrigen.Items.Insert(0, new ListItem($"Almacen: {Almacen}", "-2"));
}else
{
DdlModalDireccionOrigen.Items.Insert(0, new ListItem($"Almacen: {Almacen}", "-2"));
}
}
protected void LnkTimbrar_Click(object sender, EventArgs e)
{
}
protected void LnkCancelaTimbre_Click(object sender, EventArgs e)
{
}
protected void BtnModalEditarentrega_Click(object sender, EventArgs e)
{
bool ProcesoOK = true ;
ClsGenerales ObjGral = new ClsGenerales();
if(!ObjGral.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen,DdlModalDireccionOrigen.SelectedValue.ToEntero(), DdlModalDireccionDestino.SelectedValue.ToEntero(), DdlModalChofer.SelectedValue.ToEntero(), DdlModalCamion.SelectedValue.ToEntero(), TxtmodalFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa))
{
ProcesoOK = false;
}
ObjGral.Dispose();
if (ProcesoOK)
{
this.RegistraScript("$('#DivEditarEntrega').modal('hide');");
Alert("Entrega Actualizada correctamente.");
CargaDatos();
}
}
protected void BtnEliminarGuia_Click(object sender, EventArgs e)
{
//EliminaGuia();
//this.RegistraScript("$('#DivEditarGuia').modal('hide');");
//CargaDatos();
}
protected void GVDatos_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar");
LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar");
LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre");
LnkEditar.Visible = false;
LnkTimbrar.Visible = false;
LnkCancelaTimbre.Visible = false;
if (e.Row.DataKey("Estatus").ToEntero() == 0)
{
LnkEditar.Visible = true;
LnkTimbrar.Visible = true;
}
if (e.Row.DataKey("Estatus").ToEntero() == 1)
{
LnkCancelaTimbre.Visible = true;
}
if (e.Row.DataKey("Estatus").ToEntero() == 2)
{
}
LnkCancelaTimbre.Visible = true;
}
}
#endregion
}

View File

@@ -390,6 +390,7 @@ Partial Class General_SaldosIniciales
End If
End If
ElseIf RblFormato.SelectedValue = "7" Then
If Not dt.Columns(0).ColumnName = "Código" Then
Alert("El nombre de la primera columna debe ser 'Código'. Favor de corregirlo", TipoMensaje.MsgError)
@@ -1726,7 +1727,7 @@ Partial Class General_SaldosIniciales
Exit For
End If
Dim SubP As String = Row("SubProyecto").ToString
Dim SubP As String = Row("SubProyecto").ToString.Trim
If SubP <> "" OrElse SubP <> "-" Then
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
@@ -1771,6 +1772,7 @@ Partial Class General_SaldosIniciales
Catch ex As Exception
Alert(ex.Message)
ObjConta.RollBack()
End Try

View File

@@ -5064,7 +5064,7 @@ Partial Class Inventarios_EntradasSalidas
If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(tOrigen > 0, 2, 3), 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="ES/GV")
CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(tOrigen > 0, 36, 37), 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="ES/GV")
FolioVirtual = ObjInventario.Folio
For Each RowUsado As DataRow In DtPSVirtual.Rows

View File

@@ -0,0 +1,326 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="EntregaAlmacenRuta.aspx.cs" Inherits="Inventarios_EntregaAlmacenRuta" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
<style>
.MultiLineTextBox {
resize: none;
}
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.posicionvalidation {
left: 530px !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Entrega Almacen Ruta
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltro" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" OnClick="BtnConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" Visible="true" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<div class="col-sm-1"><asp:Label runat="server" id="LblSubProyecto"></asp:Label></div>
<div class="col-sm-2">
<asp:DropDownList runat="server" Id="DdlSubProyecto" CssClass="select2me" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
</div>
<label class="col-md-1 " style="width: 90px;">Fecha Inicial:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="TxtFechaI" PopupButtonID="ImgCalendarioI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<label class="col-md-1 " style="width: 80px;">Fecha Final:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="TxtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpDatosEntrga">
<ContentTemplate>
<div class="row" >
<div class="col-md-1" runat="server" id="DVDatosEntrega1" visible="false">
Chofer:
</div>
<div class="col-md-1" runat="server" id="DVDatosEntrega2" visible="false">
<asp:DropDownList ID="DdlChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" CssClass="form-control input-sm select2me" Width="100%" CausesValidation="true"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlChofer" runat="server" Enabled="false" ControlToValidate="DdlChofer" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlChofer" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlChofer" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1" runat="server" id="DVDatosEntrega3" visible="false">
Unidad:
</div>
<div class="col-md-1" runat="server" id="DVDatosEntrega4" visible="false">
<asp:DropDownList runat="server" ID="DdlUnidadCamion" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa" CausesValidation="true"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlUnidadCamion" runat="server" Enabled="false" ControlToValidate="DdlUnidadCamion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlUnidadCamion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlUnidadCamion" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1" runat="server" id="DVDatosEntrega5" visible="false">
Fecha de Entrega:
</div>
<div class="col-md-1" runat="server" id="DVDatosEntrega6" visible="false">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 125px !important;">
<asp:TextBox ID="TxtFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px" ClientIDMode="Static"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton runat="server" ID="ImgFechaEntrega" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtFechaEntrega" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaEntrega" PopupButtonID="ImgFechaEntrega" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFechaEntrega" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Entrega''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1" runat="server" id="DvCartaPorte1" visible="false">
Carta Porte:
</div>
<div class="col-md-1" runat="server" id="DvCartaPorte2" visible="false">
<asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" Text="Carta Porte" CssClass="chksino" />
</div>
<div class="col-md-9" runat="server" id="DVDatosEntrega7" >
</div>
<div class="col-md-2" style="text-align:center!important">
<asp:LinkButton runat="server" CssClass="btn btn-primary" ID="LnkGenerarDocumentos" OnClick="LnkGenerarDocumentos_Click">Preselección de Entregas</asp:LinkButton>
</div>
<div class="col-md-1" style="text-align:center!important">
<asp:LinkButton ID="BtnAsignar" OnClick="BtnAsignar_Click" runat="server" Text="Asignar" class="btn btn-primary" ValidationGroup="GrpGuardar" CausesValidation="true" Visible="false" />
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="BtnAsignar" />
</Triggers>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel runat="server" ID="portletTarea" class="portlet light smmallpadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">ASIGNACIÓN DE ENTREGAS</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body rowpadding">
<div class="row" runat="server" id="DVGvPaqueteriasGuias" >
<div class="col-md-12">
<asp:GridView ID="GvPaqueteriasGuias" runat="server" AutoGenerateColumns="False"
DataKeyNames="SerieFolio,FechaIng,Nombre,CveVenta,OrdenCompra,NombreComercial,TipoDocto,CorreoNotificacion,CveVendedor,Orden,CveMovimiento,CveDireccionEnvio,CveSubProyectoOrigen"
EmptyDataText="No se encontraron registros" ToolTip="Listado de entregas"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true"
data-freezerows="1"
GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="3%" HeaderStyle-Width="3%">
<ItemTemplate>
&nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
<ItemTemplate>
&nbsp;<asp:HyperLink ID="LblFolio" runat="server" NavigateUrl='<%# Eval("CveVenta","/Ventas/Ventas.aspx?CveVenta={0}") %>' Text='<%# Eval("SerieFolio") %>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField HeaderText="Estatus" DataField="Estatus" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />--%>
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:dd/MM/yyyy}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cliente" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Contacto" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblContacto" runat="server" Text='<%# Eval("Contacto") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Dirección" DataField="Direccion" ItemStyle-HorizontalAlign="Left" />
</Columns>
</asp:GridView>
</div>
</div>
<div class="row" runat="server" id="DVGvGenerarDocumentos" visible="false">
<div class="col-md-12">
<asp:GridView ID="GvGenerarDocumentos" runat="server" AutoGenerateColumns="False" Width="100%"
DataKeyNames="SerieFolio,FechaIng,Nombre,CveVenta,OrdenCompra,NombreComercial,TipoDocto,CorreoNotificacion,CveVendedor,Orden,CveMovimiento,CveDireccionEnvio,CveSubProyectoOrigen"
EmptyDataText="No se encontraron registros" ToolTip="Listado de entregas"
CssClass="GvGenerarDocumentos"
data-sort="true"
data-freezerows="1"
GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="3%" HeaderStyle-Width="3%">
<ItemTemplate>
&nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" Visible="false" />
<a class="blue"><i class="fa fa-arrows-v green" aria-hidden="true"></i></a>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />--%>
<asp:TemplateField HeaderText="Cons" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25px">
<ItemTemplate>
<asp:Label ID="LblNum" runat="server" Text='<%# Eval("Num") %>' CssClass="RowOrdenamiento" ></asp:Label>
<input type="hidden" name="OrdenMovimientos" value='<%# Eval("CveMovimiento") %>' />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField HeaderText="Estatus" DataField="Estatus" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />--%>
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:dd/MM/yyyy}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cliente" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Contacto" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblContacto" runat="server" Text='<%# Eval("Contacto") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Dirección" DataField="Direccion" ItemStyle-HorizontalAlign="Left" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
</asp:Panel>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script>
function InitOrdenamientoGvGenerarDocumentos() {
$(".GvGenerarDocumentos").sortable({
items: 'tr:not(tr:first-child)',
cursor: 'pointer',
axis: 'y',
dropOnEmpty: false,
start: function (e, ui) {
ui.item.addClass("selected");
let asd = ui.item.children('a');
},
stop: function (e, ui) {
//Ordenar el numero de la columna *Cons*
$(".RowOrdenamiento").each(function (index) {
let nRow = (index + 1);
$(this).text(nRow);
});
},
});
}
</script>
</asp:Content>

View File

@@ -0,0 +1,420 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data;
using Extensiones;
using Microsoft.Reporting.WebForms;
using System.Text;
public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
{
DataTable DTGenrarDocumentos
{
get {
if(ViewState["DTGenrarDocumentos"] == null){
ViewState["DTGenrarDocumentos"] = new DataTable();
}
return (DataTable)ViewState["DTGenrarDocumentos"];
}
set {
ViewState["DTGenrarDocumentos"] = (DataTable)value;
}
}
DataTable DTDatosConsulta
{
get
{
if (ViewState["DTDatosConsulta"] == null)
{
ViewState["DTDatosConsulta"] = new DataTable();
}
return (DataTable)ViewState["DTDatosConsulta"];
}
set
{
ViewState["DTDatosConsulta"] = (DataTable)value;
}
}
bool SelecionEntrega
{
get
{
if (ViewState["SelecionEntrega"] == null)
{
ViewState["SelecionEntrega"] = false;
}
return (bool) ViewState["SelecionEntrega"];
}
set
{
ViewState["SelecionEntrega"] = (bool)value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
SelecionEntrega = true;
CargaCombos();
CargaDatos();
}
}
protected void BtnAsignar_Click(object sender, EventArgs e)
{
if(DdlChofer.SelectedValue.ToEntero() <= 0)
{
Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia);
return;
}
if(DdlUnidadCamion.SelectedValue.ToEntero() <= 0)
{
Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia);
return;
}
StringBuilder SBError = new StringBuilder();
ActualizaOrdenDTGenrarDocumentos();
bool TieneError = false;
ClsGenerales ObjGeneral = new ClsGenerales();
ObjGeneral.IniciaTransacSQL();
GridViewRowCollection Grid = GvGenerarDocumentos.Rows;
string Usuario = DdlChofer.SelectedItem.Text;
int CveDireccionOrigen = -1;
foreach (GridViewRow row in Grid)
{
//int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
int Orden = row.DataKey("Orden").ToEntero();
//if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal: -1, CveAsignacionEntrega: CveAsignacionEntrega, Orden: Orden))
//{
int CveDireccionDestino = row.DataKey("CveDireccionEnvio").ToEntero();
if (CveDireccionDestino <= 0)
{
SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} el cliente {row.DataKey("Nombre")} no tiene una dirección de envio. ");
TieneError = true;
break;
}
int CveEntregaAlmacen = ObjGeneral.AddInvEntregaAlmacenRuta(row.DataKey("CveSubProyectoOrigen").ToEntero(), row.DataKey("CveMovimiento").ToEntero(), CveDireccionOrigen, CveDireccionDestino, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), "E",Orden);
CveDireccionOrigen = row.DataKey("CveDireccionEnvio").ToEntero();
if (CveEntregaAlmacen > 0)
{
DateTime MinFecha = new DateTime(1900, 01, 01);
int CveTimbre = ObjGeneral.AddGralTimbre("Tra", "-1", -1, "", MinFecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, row.DataKey("CveSubProyectoOrigen").ToEntero());
if (CveTimbre <= 0)
{
SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar timbre. ");
TieneError = true;
break;
}
}
else
{
SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar entrega alamcen. ");
TieneError = true;
break;
}
}
if (!TieneError)
{
foreach (GridViewRow row in Grid)
{
try
{
//MandarNotificacionCorreo(row);
}
catch (Exception ex)
{
TieneError = true;
ModExtensiones.GuardaLog(ex.Message);
}
}
if (!TieneError)
{
ObjGeneral.Commit();
Alert("Entregas asignadas correctamente");
DdlChofer.SelectedValueExist("-1");
DdlUnidadCamion.SelectedValueExist("-1");
ChkEmitirCartaPorte.Checked = false;
SelecionEntrega = false;
SeleccioanrGenrar();
CargaDatos();
UpDatos.Update();
}
else
{
ObjGeneral.RollBack();
}
ObjGeneral.Dispose();
}else
{
Alert(SBError.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia);
}
}
private void CargaDatos()
{
ClsGenerales ObjGeneral = new ClsGenerales();
if (ObjGeneral.GetInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 1))
{
GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados;
DTDatosConsulta = ObjGeneral.DtResultados;
DTGenrarDocumentos = ObjGeneral.DtResultados.Clone();
}
ObjGeneral.Dispose();
GvPaqueteriasGuias.DataBind();
UpDatos.Update();
}
private void CargaCombos()
{
ClsInventarios ObjInventarios = new ClsInventarios();
if(ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) && ObjInventarios.DtResultados.Rows.Count > 0){
DdlUnidadCamion.DataSource = ObjInventarios.DtResultados;
}
ObjInventarios.Dispose();
DdlUnidadCamion.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlUnidadCamion.DataBind();
TxtFechaI.Text = DateTime.Now.AddDays(-1).ToShortDateString();
TxtFechaF.Text = DateTime.Now.ToShortDateString();
ClsAcarreos ObjAcar = new ClsAcarreos();
if(ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) ){
DdlChofer.DataSource = ObjAcar.DtResultados;
DdlChofer.DataBind();
}
ObjAcar.Dispose();
DdlChofer.Items.Insert(0, new ListItem("Seleccione", "-1"));
TxtFechaEntrega.Text = DateTime.Now.ToShortDateString();
CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto);
}
protected void LnkGenerarDocumentos_Click(object sender, EventArgs e)
{
SeleccioanrGenrar();
}
private void SeleccioanrGenrar() {
if (SelecionEntrega)
{
DTGenrarDocumentos.Rows.Clear();
int CountRows = 0;
foreach (GridViewRow GvRow in GvPaqueteriasGuias.Rows)
{
CheckBox ChkAsigna = GvRow.FCCheckBox("ChkAsigna");
if (ChkAsigna.Checked)
{
int CveMovimiento = GvRow.DataKey("CveMovimiento").ToEntero();
DataRow dRow = DTGenrarDocumentos.NewRow();
DataRow dRowOrigen = DTDatosConsulta.FiltraParametros($"CveMovimiento = {CveMovimiento}").Rows[0];
int IndexColun = 0;
foreach (DataColumn dColumn in DTDatosConsulta.Columns)
{
dRow[IndexColun] = dRowOrigen[IndexColun];
IndexColun++;
}
dRow["Num"] = CountRows + 1;
DTGenrarDocumentos.Rows.Add(dRow);
CountRows++;
}
}
DTGenrarDocumentos.AcceptChanges();
SelecionEntrega = false;
LnkGenerarDocumentos.Text = "Regresar a Preselección";
LnkGenerarDocumentos.CssClass = "btn btn-default";
DVDatosEntrega1.Visible = true;
DVDatosEntrega2.Visible = true;
DVDatosEntrega3.Visible = true;
DVDatosEntrega4.Visible = true;
DVDatosEntrega5.Visible = true;
DVDatosEntrega6.Visible = true;
DVDatosEntrega7.Attributes.Add("class", "col-md-1");
if (UsuarioActual.Empresa.Funcionalidad(161).ToEntero() == 1)
{
DvCartaPorte1.Visible = true;
DvCartaPorte2.Visible = true;
}
BtnConsultar.Visible = false;
UpDatos.Update();
UpFiltro.Update();
if (CountRows > 0)
{
GvGenerarDocumentos.DataSource = DTGenrarDocumentos;
GvGenerarDocumentos.DataBind();
DVGvGenerarDocumentos.Visible = true;
BtnAsignar.Visible = true;
DVGvPaqueteriasGuias.Visible = false;
RegistraScript("InitOrdenamientoGvGenerarDocumentos();");
}
else
{
Alert("No hay entregas seleccionadas", ModExtensiones.TipoMensaje.MsgAdvertencia);
return;
}
}
else
{
BtnConsultar.Visible = true;
SelecionEntrega = true;
LnkGenerarDocumentos.Text = "Preselección de Entregas";
LnkGenerarDocumentos.CssClass = "btn btn-primary";
DVDatosEntrega7.Attributes.Add("class", "col-md-9");
DVDatosEntrega1.Visible = false;
DVDatosEntrega2.Visible = false;
DVDatosEntrega3.Visible = false;
DVDatosEntrega4.Visible = false;
DVDatosEntrega5.Visible = false;
DVDatosEntrega6.Visible = false;
if (UsuarioActual.Empresa.Funcionalidad(161).ToEntero() == 1)
{
DvCartaPorte1.Visible = false;
DvCartaPorte2.Visible = false;
}
BtnAsignar.Visible = false;
DVGvGenerarDocumentos.Visible = false;
DVGvPaqueteriasGuias.Visible = true;
UpDatos.Update();
UpFiltro.Update();
}
}
private void ActualizaOrdenDTGenrarDocumentos()
{
string[] OrdenMovimientos = Request.Form.GetValues("OrdenMovimientos");
int NumOrden = 1;
foreach (string CveMovimiento in OrdenMovimientos)
{
foreach(DataRow dRow in DTGenrarDocumentos.Rows)
{
if (CveMovimiento.ToEntero() == dRow["CveMovimiento"].ToString().ToEntero() )
{
dRow["Orden"] = NumOrden;
}
}
DTGenrarDocumentos.AcceptChanges();
NumOrden++;
}
DataView DTview = new DataView(DTGenrarDocumentos);
// Sort by State and ZipCode column in descending order
DTview.Sort = "Orden ASC";
GvGenerarDocumentos.DataSource = DTview;
GvGenerarDocumentos.DataBind();
UpDatos.Update();
}
protected void BtnConsultar_Click(object sender, EventArgs e)
{
CargaDatos();
}
}

View File

@@ -130,18 +130,18 @@
<div class="titlefiltros caption">
<div class="row">
<div class="col-md-1 truncate">Ver por:</div>
<div class="col-md-1">
<div class="col-md-2">
<asp:DropDownList ID="DdlGPO" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%">
<asp:ListItem Text="Detalle" Value="1"></asp:ListItem>
<asp:ListItem Text="Cantidad" Value="2"></asp:ListItem>
<asp:ListItem Text="Detallado Serie/Lote/Cad" Value="1"></asp:ListItem>
<asp:ListItem Text="Cantidad" Value="2" Selected="True"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate">Vista de Resultados:</div>
<div class="col-md-2 truncate">Vista de Resultados:</div>
<div class="col-md-1">
<asp:DropDownList ID="DdlVista" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%">
<asp:ListItem Text="Ver por Detalle" Value="1"></asp:ListItem>
<asp:ListItem Text="Ver por Grupos" Value="2"></asp:ListItem>
<asp:ListItem Text="Detallado" Value="1"></asp:ListItem>
<asp:ListItem Text="Agrupado" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
@@ -234,203 +234,227 @@
<asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Conditional">
<ContentTemplate>
<div runat="server" id="DVNormal">
<asp:UpdatePanel ID="UPAnomalias" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<label style="font-size: 16px"><b>Productos que Faltan</b></label>
<div class="row">
<div class="col-md-4" align="left" id="divRegistradosFaltan" runat="server">
<asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlTotalRegistrosFaltan" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-8" align="right" id="DivBuscadorFaltan" runat="server">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvF.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvF.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
<asp:GridView ID="GvF" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;"
GridLines="None" DataKeyNames="CvePS">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
<asp:CheckBox ID="ChkAllFaltante" runat="server"/>
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="ChkPSFaltante" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="#">
<ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen"/>
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UpdateGvS" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<label style="font-size: 16px"><b>Productos que Sobran</b></label>
<div class="row">
<div class="col-md-4" align="left" id="divRegistradosSobran" runat="server">
<asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlTotalRegistrosSobran" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-8" align="right" id="DivBuscadorSobran" runat="server">
<input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvS.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
<asp:GridView ID="GvS" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None" DataKeyNames="CvePS">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
<asp:CheckBox ID="ChkAllSobrante" runat="server"/>
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="ChkPSSobrante" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="#">
<ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen"/>
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
<div class="row">
<div class="col-md-12">
<label style="font-size: 16px"><b>Productos Coincidentes</b></label>
<div class="row">
<div class="col-md-4" align="left" id="div1" runat="server">
<asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlCoincidentes" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-8" align="right" id="divRegistradosCoinciden" runat="server">
<input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
<asp:GridView ID="GvC" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None" DataKeyNames="CvePS">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
</HeaderTemplate>
<ItemTemplate>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="#">
<ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen"/>
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<div id="ModalGuardar" class="modal ADS fade" role="dialog">
<div class="modal-dialog modal-sm">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Guardar Nuevo Inventario Físico</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpFecha" UpdateMode="Conditional">
<ContentTemplate>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTitulo" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTitulos" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTitulo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Titulo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
<label for="<%= TxtTitulo.ClientID.ToString()%>">Titulo:</label>
<div runat="server" id="DVNormal">
<asp:UpdatePanel ID="UPAnomalias" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<label style="font-size: 16px"><b>Productos que Faltan</b></label>
<div class="row">
<div class="col-md-4" align="left" id="divRegistradosFaltan" runat="server">
<asp:Label runat="server">Número de registros: <b>
<asp:Literal ID="LtlTotalRegistrosFaltan" runat="server"></asp:Literal></b></asp:Label>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="col-md-8" align="right" id="DivBuscadorFaltan" runat="server">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvF.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvF.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnCrear" runat="server" ClientIDMode="Static" Text="Crear" CssClass="btn btn-primary" ValidationGroup="Actualiza" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
<asp:GridView ID="GvF" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;"
GridLines="None" DataKeyNames="CvePS">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
<asp:CheckBox ID="ChkAllFaltante" runat="server" />
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="ChkPSFaltante" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="#">
<ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
</ContentTemplate>
</asp:UpdatePanel>
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UpdateGvS" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<label style="font-size: 16px"><b>Productos que Sobran</b></label>
<div class="row">
<div class="col-md-4" align="left" id="divRegistradosSobran" runat="server">
<asp:Label runat="server">Número de registros: <b>
<asp:Literal ID="LtlTotalRegistrosSobran" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-8" align="right" id="DivBuscadorSobran" runat="server">
<input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvS.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
<asp:GridView ID="GvS" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None" DataKeyNames="CvePS">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
<asp:CheckBox ID="ChkAllSobrante" runat="server" />
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="ChkPSSobrante" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="#">
<ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
<div class="row">
<div class="col-md-12">
<label style="font-size: 16px"><b>Productos Coincidentes</b></label>
<div class="row">
<div class="col-md-4" align="left" id="div1" runat="server">
<asp:Label runat="server">Número de registros: <b>
<asp:Literal ID="LtlCoincidentes" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-8" align="right" id="divRegistradosCoinciden" runat="server">
<input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
<asp:GridView ID="GvC" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None" DataKeyNames="CvePS">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
</HeaderTemplate>
<ItemTemplate>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="#">
<ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<div id="ModalGuardar" class="modal ADS fade" role="dialog">
<div class="modal-dialog modal-sm">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Guardar Nuevo Inventario Físico</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpFecha" UpdateMode="Conditional">
<ContentTemplate>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTitulo" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTitulos" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTitulo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Titulo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
<label for="<%= TxtTitulo.ClientID.ToString()%>">Titulo:</label>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnCrear" runat="server" ClientIDMode="Static" Text="Crear" CssClass="btn btn-primary" ValidationGroup="Actualiza" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</div>
</div>
<div runat="server" id="DVGrupos" visible="false" >
<div runat="server" id="DVGrupos" visible="false">
<div class="col-md-12">
<div class="col-md-12">
<div class="row">
<div class="col-md-2" align="left" id="div2" runat="server">
<asp:Label runat="server">Registros Productos que Faltan: <b><asp:Literal ID="LtlGrupos1" runat="server"></asp:Literal></b></asp:Label>
<div class="col-md-2" align="left" id="DV1" runat="server">
<asp:Label runat="server" ID="LblGrupos1">Registros Productos que Faltan: <b>
<asp:Literal ID="LtlGrupos1" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-2" align="left" id="div4" runat="server">
<asp:Label runat="server">Registros Productos que Sobran: <b><asp:Literal ID="LtlGrupos2" runat="server"></asp:Literal></b></asp:Label>
<div class="col-md-2" align="left" id="DV2" runat="server">
<asp:Label runat="server" ID="LblGrupos2">Registros Productos que Sobran: <b>
<asp:Literal ID="LtlGrupos2" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-2" align="left" id="div5" runat="server">
<asp:Label runat="server">Registros Productos Coincidentes: <b><asp:Literal ID="LtlGrupos3" runat="server"></asp:Literal></b></asp:Label>
<div class="col-md-2" align="left" id="DV3" runat="server">
<asp:Label runat="server" ID="LblGrupos3">Registros Productos Coincidentes: <b>
<asp:Literal ID="LtlGrupos3" runat="server"></asp:Literal></b></asp:Label>
</div>
<div class="col-md-6" align="right" id="div3" runat="server">
<div class="col-md-6" align="right" id="DV4" runat="server">
<input type="text" id="TxtBusqueda4" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GvGrupos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GvGrupos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
@@ -438,36 +462,42 @@
</div>
<asp:GridView ID="GvGrupos" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;"
GridLines="None" DataKeyNames="CvePS,PS,Grupo,Orden">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
<asp:CheckBox ID="ChkAllFaltante" runat="server"/>
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="ChkPSFaltante" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen"/>
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
<asp:GridView ID="GvGrupos" data-sort="true" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False"
CssClass="table table-striped table-hover Widthall ScrollAD" Style="text-align: center;"
GridLines="None" DataKeyNames="CvePS,PS,Grupo,Orden">
<Columns>
<asp:TemplateField Visible="false">
<HeaderTemplate>
<asp:CheckBox ID="ChkAllFaltante" runat="server" />
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="ChkPSFaltante" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
<asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>

View File

@@ -83,6 +83,18 @@ Partial Class Inventarios_RepAnomalias
Dim Inventario As New ClsInventarios
Dim dt As DataTable = Nothing
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
GvF.Columns(2).Visible = True 'proveedor
GvS.Columns(2).Visible = True 'proveedor
GvC.Columns(2).Visible = True 'proveedor
GvF.Columns(16).Visible = False 'costo
GvS.Columns(16).Visible = False 'costo
GvC.Columns(16).Visible = False 'costo
GvGrupos.Columns(1).Visible = True 'proveedor
GvGrupos.Columns(15).Visible = False 'costo
End If
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
lbTitulo.Text = Inventario.InventarioFisico
lbObservaciones.Text = Inventario.Observaciones
@@ -190,12 +202,10 @@ Partial Class Inventarios_RepAnomalias
End If
End If
Inventario.Dispose()
If DdlVista.SelectedValue.ToEntero = 1 Then
DVNormal.Visible = True
@@ -207,26 +217,24 @@ Partial Class Inventarios_RepAnomalias
ImgExcelProdcutosCoinciden.Visible = True
LnkDescarExcelGrupos.Visible = False
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
GvS.DataBind()
BanderaSerieLoteCad(GvS, DtS)
GvS.DataBind()
GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
GvF.DataBind()
BanderaSerieLoteCad(GvF, DtF)
GvF.DataBind()
Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
GvC.DataSource = DtC
GvC.DataBind()
BanderaSerieLoteCad(GvC, DtC)
GvC.DataBind()
If (GvF.Rows.Count > 0) Then
GvF.UseAccessibleHeader = True
@@ -263,6 +271,40 @@ Partial Class Inventarios_RepAnomalias
DVNormal.Visible = False
DVGrupos.Visible = True
If DdlGPO.SelectedValue.ToEntero = 2 Then
GvGrupos.Columns(4).Visible = False
GvGrupos.Columns(5).Visible = False
GvGrupos.Columns(6).Visible = False
GvGrupos.Columns(7).Visible = False
Else
GvGrupos.Columns(4).Visible = True
GvGrupos.Columns(5).Visible = True
GvGrupos.Columns(6).Visible = True
GvGrupos.Columns(7).Visible = True
End If
If DdlGPO.SelectedValue.ToEntero = 2 Then
LtlGrupos1.Visible = False
LtlGrupos2.Visible = False
LtlGrupos3.Visible = False
LblGrupos1.Visible = False
LblGrupos2.Visible = False
LblGrupos3.Visible = False
Else
LtlGrupos1.Visible = True
LtlGrupos2.Visible = True
LtlGrupos3.Visible = True
LblGrupos1.Visible = True
LblGrupos2.Visible = True
LblGrupos3.Visible = True
End If
UpGeneral.Update()
LnkPDF.Visible = False
ImgExcel.Visible = False
@@ -270,18 +312,17 @@ Partial Class Inventarios_RepAnomalias
ImgExcelProdcutosCoinciden.Visible = False
LnkDescarExcelGrupos.Visible = True
GvGrupos.DataSource = dt
GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0")
GvGrupos.DataBind()
LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString
LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString
LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString
PSIguales()
If DdlGPO.SelectedValue.ToEntero = 1 Then
PSIguales()
End If
End If
UpGeneral.Update()
UPAcciones.Update()
@@ -419,22 +460,47 @@ Partial Class Inventarios_RepAnomalias
End Function
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
Dim GvTemp As GridView = GvF
For Each GvRow As GridViewRow In GvTemp.Rows
GvRow.BackColor = Drawing.ColorTranslator.FromHtml("#white")
Next
'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
End Sub
Private Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
GvS.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
Dim GvTemp As GridView = GvS
For Each GvRow As GridViewRow In GvTemp.Rows
GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
Next
'GvS.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
End Sub
Private Sub ImgExcelProdcutosCoinciden_Click(sender As Object, e As EventArgs) Handles ImgExcelProdcutosCoinciden.Click
GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
Dim GvTemp As GridView = GvC
For Each GvRow As GridViewRow In GvTemp.Rows
GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
Next
'GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
End Sub
Private Sub LnkDescarExcelGrupos_Click(sender As Object, e As EventArgs) Handles LnkDescarExcelGrupos.Click
GvGrupos.ExportToExcel("Reporte de Inventario Fisico" & Now.ToShortDateString)
GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "", "", "Inventario:" & lbTitulo.Text, "", 1)
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
#End Region

View File

@@ -1178,25 +1178,28 @@ Partial Class Inventarios_TraspasoAlmacen
If Not ErrorMovInv Then
If ChkEmitirTimbrado.Checked Then
Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL)
Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
CveTimbre = ObjGral.AddGralTimbre("Tra", "-1", -1, "", MinFecha, -1, CveMovimientoSalida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveSubProyectoTimbre, -1, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDateTime)
Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, CveMovimientoSalida, -1, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, "T", -1)
If CveTimbre > 0 Then
SerieInsertadaTimbre = ObjGral.SerieInsertada
FolioInsertadoTimbre = ObjGral.FolioInsertado
If CveEntregaAlmacen > 0 Then
CveTimbre = ObjGral.AddGralTimbre("Tra", "-1", -1, "", MinFecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, CveSubProyectoTimbre)
If CveTimbre > 0 Then
SerieInsertadaTimbre = ObjGral.SerieInsertada
FolioInsertadoTimbre = ObjGral.FolioInsertado
Else
ErrorMovInv = True
End If
Else
ErrorMovInv = True
End If
End If
End If
If Not ErrorMovInv Then
DtTraslado = DtMovimientos.Copy
@@ -1218,7 +1221,7 @@ Partial Class Inventarios_TraspasoAlmacen
If ChkEmitirTimbrado.Checked Then
CveMovimientoTimbrado = CveMovimientoSalida
Timbrar(CveTimbre, CveMovimientoTimbrado)
'Timbrar(CveTimbre, CveMovimientoTimbrado)
End If
Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")
@@ -2150,7 +2153,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim FolioVirtualEntrada As Integer = 0
If RealizarMovimientoVirtual Then
Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenRecepcion.SelectedValue.ToEntero).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenEntrada).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
If CveAlmacenVirtual > 0 Then
@@ -3499,7 +3502,7 @@ Partial Class Timbres
Public Property MsgError As StringBuilder
Public Property MensajeAlert As StringBuilder
Private Property CvePaqueteriaGuia As Integer
Private Property CveMovimiento As Integer
Private Property UsuarioActual As Usuario
Private Property AplicaCP As Boolean
@@ -3996,7 +3999,7 @@ Partial Class Timbres
Respuesta = True
Dim objGrales As New ClsGenerales
If Not objGrales.UpdateGralTimbre(CveTimbre, "-1", "-1", -1, ObjTimbrado.UUID, Now, CvePaqueteriaGuia, CveMovimiento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, UsuarioActual.Empresa.CvePAC, -1, New Date(1900, 1, 1), AplicaCP, -1, -1, -1, -1, -1) Then
If Not objGrales.UpdateGralTimbre(CveTimbre, "-1", "-1", -1, ObjTimbrado.UUID, Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, UsuarioActual.Empresa.CvePAC, -1, New Date(1900, 1, 1), AplicaCP, "-1") Then
GuardaLogAD($"Error no se actualizo registro de timbre {CveTimbre} ")
End If
objGrales.Dispose()
@@ -4068,15 +4071,13 @@ Partial Class Timbres
If CveTimbre > 0 Then
If ObjGrales.GetGralTimbre(CveTimbre, "-1", "-1", -1, FI, FF, 0, UsuarioActual.CveEmpresa, -1, -1) Then
If ObjGrales.GetGralTimbre(CveTimbre, "-1", "-1", -1, FI, FF, 0, UsuarioActual.CveEmpresa, -1) Then
If ObjGrales.DtResultados.Rows.Count = 1 Then
CveMovimiento = ObjGrales.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero
CvePaqueteriaGuia = ObjGrales.DtResultados.Rows(0)("Folio").ToString.ToEntero
FechaEntrega = ObjGrales.DtResultados.Rows(0)("FechaEntrega").ToString.ToDate
Serie = ObjGrales.DtResultados.Rows(0)("Serie").ToString

View File

@@ -155,6 +155,7 @@
<asp:ListItem Value="5" Text="Impuesto Local Traslado"></asp:ListItem>
<asp:ListItem Value="3" Text="Deducciones"></asp:ListItem>
<asp:ListItem Value="4" Text="Fondo de Garantía"></asp:ListItem>
<asp:ListItem Value="5" Text="Devoluciones"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlCuentasContables.ClientID.ToString()%>">Tipo Impuesto:</label>
</div>

View File

@@ -5040,7 +5040,7 @@
</div>
</div>
<div class="row ">
<div class="row " runat="server" id="DVDireccionCliente1" visible="false" >
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
@@ -5063,7 +5063,7 @@
<div class="row ">
<div class="col-md-6">
<div class="col-md-6" runat="server" id="DVDireccionCliente2" visible="false">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEnvioColonia" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
@@ -5071,8 +5071,7 @@
</div>
</div>
<div class="col-md-6">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEnvioCP" runat="server" Width="100%" CssClass="form-control" CausesValidation="true" TextMode="Number" onblur="DirclienteValidaCodigoPostal()" onkeypress="if(event.key === 'Enter'){return false;}"></asp:TextBox>

View File

@@ -911,6 +911,8 @@ Partial Class Clientes
End If
LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
MostrarTxtDireccionesClienteEnvio()
End If
'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -921,6 +923,16 @@ Partial Class Clientes
End Sub
#Region " PERMISOS PAGINAS "
Private Sub MostrarTxtDireccionesClienteEnvio()
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
DVDireccionCliente1.Visible = True
DVDireccionCliente2.Visible = True
End If
End Sub
Private Function PermiteGuardar() As Boolean
Return UsuarioActual.TienePermisoProceso(192)
End Function