diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 22febac8e..6294e3a8a 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -248,11 +248,11 @@ End Class Public Class CFDIComplementos - Public Property ComercioExterior11 As CFDIComercioExterior11 + Public Property ComercioExterior As CFDIComercioExterior Public Property CartaPorte As CFDICartaPorte Sub New() - ComercioExterior11 = New CFDIComercioExterior11 + ComercioExterior = New CFDIComercioExterior End Sub End Class @@ -732,7 +732,7 @@ End Class -Public Class CFDIComercioExterior11 +Public Class CFDIComercioExterior Public Property MotivoTraslado As String Public Property TipoOperacion As String = "" Public Property ClavedePedimento As String = "" diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 22263859e..03a863762 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -292,12 +292,11 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, Optional TipoCambio As Decimal = -1) As Boolean - + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, + Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleUpdate") - With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle .Add("@Concepto", SqlDbType.VarChar).Value = Concepto @@ -318,13 +317,12 @@ Public Class ClsContabilidad .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveIE", SqlDbType.Int).Value = CveIE - + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try SqlAdapter.Fill(Data) Retorno = True - Catch ex As Exception If ex.Message.Contains("CuentasResultados_SubProyectos") Then OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 5ae2e572e..ff9a10c2a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9331,7 +9331,7 @@ Public Class ClsPaginas If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos Then ' N O T A D E C R E D I T O Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia) Dim Ret As New ConceptosRetenciones - Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 2) + Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, Pago.CveMonedaPago, True, 2) If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index cf9ba7c1b..cafaeaf55 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1419,7 +1419,7 @@ Public Class ClsVentas Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1, Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0, Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, - Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0) As Boolean + Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasDetalleAdd") @@ -1453,6 +1453,7 @@ Public Class ClsVentas .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen + .Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion End With Try @@ -4052,6 +4053,7 @@ Public Class ClsVentas .Add("@TipoSaldo", SqlDbType.Int).Value = TipoSaldo .Add("@EsquemaNuevo", SqlDbType.Bit).Value = EsquemaNuevo End With + SqlAdapter.SelectCommand.CommandTimeout = 0 Try SqlAdapter.Fill(Data) Retorno = True diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index ebd40bcc6..32bb6cb46 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1788,7 +1788,7 @@ Namespace Modelos Dim AplicaComercioExteriorSubProyecto As Boolean = True - Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False + Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False Me.FemsaFactura = New Modelos.FemsaFactura Me.Timbre = Timbre diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index d93e09b99..37405a912 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1361,127 +1361,127 @@ Public Class Timbrado #End Region #Region " Comercio Exterior" - If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then - If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then 'DATOS GENERALES Dim ComExt As New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExterior() ComExt.Version = "1.1" ComExt.MotivoTrasladoSpecified = True - ComExt.MotivoTraslado = ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado - ComExt.TipoOperacion = ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion + ComExt.MotivoTraslado = ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado + ComExt.TipoOperacion = ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion ComExt.ClaveDePedimentoSpecified = True - ComExt.ClaveDePedimento = ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento + ComExt.ClaveDePedimento = ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento ComExt.CertificadoOrigenSpecified = True - ComExt.CertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen.ToEntero - If ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen <> "" Then - ComExt.NumCertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen + ComExt.CertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen.ToEntero + If ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen <> "" Then + ComExt.NumCertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen End If - If ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable <> "" Then - ComExt.NumeroExportadorConfiable = ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable + If ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable <> "" Then + ComExt.NumeroExportadorConfiable = ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable End If ComExt.IncotermSpecified = True - ComExt.Incoterm = ObjCFDITimbre.Complementos.ComercioExterior11.Incoterm + ComExt.Incoterm = ObjCFDITimbre.Complementos.ComercioExterior.Incoterm ComExt.SubdivisionSpecified = True - ComExt.Subdivision = ObjCFDITimbre.Complementos.ComercioExterior11.Subdivision.ToEntero - If ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones <> "" Then - ComExt.Observaciones = ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones + ComExt.Subdivision = ObjCFDITimbre.Complementos.ComercioExterior.Subdivision.ToEntero + If ObjCFDITimbre.Complementos.ComercioExterior.Observaciones <> "" Then + ComExt.Observaciones = ObjCFDITimbre.Complementos.ComercioExterior.Observaciones End If ComExt.TipoCambioUSDSpecified = True - ComExt.TipoCambioUSD = ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD + ComExt.TipoCambioUSD = ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD ComExt.TotalUSDSpecified = True - ComExt.TotalUSD = ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD + ComExt.TotalUSD = ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD 'EMISOR ComExt.Emisor = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorEmisor() If EmisorRFC.Length < 12 Then - ComExt.Emisor.Curp = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP + ComExt.Emisor.Curp = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP End If ComExt.Emisor.Domicilio = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorEmisorDomicilio - ComExt.Emisor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle - ComExt.Emisor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP + ComExt.Emisor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle + ComExt.Emisor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP ComExt.Emisor.Domicilio.ColoniaSpecified = True - ComExt.Emisor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia - ComExt.Emisor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado - If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad <> "" Then + ComExt.Emisor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia + ComExt.Emisor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado + If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad <> "" Then ComExt.Emisor.Domicilio.LocalidadSpecified = False - ComExt.Emisor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad + ComExt.Emisor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad End If ComExt.Emisor.Domicilio.MunicipioSpecified = True - ComExt.Emisor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Municipio - If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior <> "" Then ComExt.Emisor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior - If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior <> "" Then ComExt.Emisor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior - ComExt.Emisor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais - If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia <> "" Then - ComExt.Emisor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia + ComExt.Emisor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio + If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior <> "" Then ComExt.Emisor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior + If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior <> "" Then ComExt.Emisor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior + ComExt.Emisor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais + If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia <> "" Then + ComExt.Emisor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia End If 'RECEPTOR ComExt.Receptor = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorReceptor - If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib <> "" Then - ComExt.Receptor.NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib + If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib <> "" Then + ComExt.Receptor.NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib End If ComExt.Receptor.Domicilio = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorReceptorDomicilio - ComExt.Receptor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle - ComExt.Receptor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP - If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia <> "" Then - ComExt.Receptor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia + ComExt.Receptor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle + ComExt.Receptor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP + If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia <> "" Then + ComExt.Receptor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia End If - ComExt.Receptor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado - If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad <> "" Then - ComExt.Receptor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad + ComExt.Receptor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado + If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad <> "" Then + ComExt.Receptor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad End If - If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio <> "" Then - ComExt.Receptor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio + If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio <> "" Then + ComExt.Receptor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio End If - If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior <> "" Then - ComExt.Receptor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior + If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior <> "" Then + ComExt.Receptor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior End If - If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior <> "" Then - ComExt.Receptor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior + If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior <> "" Then + ComExt.Receptor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior End If - ComExt.Receptor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais - If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia <> "" Then - ComExt.Receptor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia + ComExt.Receptor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais + If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia <> "" Then + ComExt.Receptor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia End If 'DESTINATARIO ComExt.Destinatario = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatario(0) {} ComExt.Destinatario(0) = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatario() - ComExt.Destinatario(0).Nombre = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib <> "" Then - ComExt.Destinatario(0).NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib + ComExt.Destinatario(0).Nombre = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib <> "" Then + ComExt.Destinatario(0).NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib End If ComExt.Destinatario(0).Domicilio = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatarioDomicilio(0) {} ComExt.Destinatario(0).Domicilio(0) = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatarioDomicilio() - ComExt.Destinatario(0).Domicilio(0).Calle = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle - ComExt.Destinatario(0).Domicilio(0).CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia <> "" Then - ComExt.Destinatario(0).Domicilio(0).Colonia = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia + ComExt.Destinatario(0).Domicilio(0).Calle = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle + ComExt.Destinatario(0).Domicilio(0).CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia <> "" Then + ComExt.Destinatario(0).Domicilio(0).Colonia = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia End If - ComExt.Destinatario(0).Domicilio(0).Estado = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad <> "" Then - ComExt.Destinatario(0).Domicilio(0).Localidad = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad + ComExt.Destinatario(0).Domicilio(0).Estado = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad <> "" Then + ComExt.Destinatario(0).Domicilio(0).Localidad = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad End If - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio <> "" Then - ComExt.Destinatario(0).Domicilio(0).Municipio = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio <> "" Then + ComExt.Destinatario(0).Domicilio(0).Municipio = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio End If - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior <> "" Then - ComExt.Destinatario(0).Domicilio(0).NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior <> "" Then + ComExt.Destinatario(0).Domicilio(0).NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior End If - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior <> "" Then - ComExt.Destinatario(0).Domicilio(0).NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior <> "" Then + ComExt.Destinatario(0).Domicilio(0).NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior End If - ComExt.Destinatario(0).Domicilio(0).Pais = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia <> "" Then - ComExt.Destinatario(0).Domicilio(0).Referencia = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia + ComExt.Destinatario(0).Domicilio(0).Pais = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia <> "" Then + ComExt.Destinatario(0).Domicilio(0).Referencia = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia End If 'MERCANCIAS - If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then - ComExt.Mercancias = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorMercancia(ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count - 1) {} + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + ComExt.Mercancias = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorMercancia(ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count - 1) {} Dim i As Integer - For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias ComExt.Mercancias(i) = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorMercancia() ComExt.Mercancias(i).NoIdentificacion = concep.NoIdentificacion ComExt.Mercancias(i).FraccionArancelariaSpecified = True @@ -1531,7 +1531,6 @@ Public Class Timbrado If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then - If ObjCFDITimbre.ComplementoPagos20.ComplementoPagos.Count > 0 Then Dim Totales As New Profact.TimbraCFDI40.Complementos.Pagos20.PagosTotales() 'Totales Generales @@ -2461,80 +2460,157 @@ Public Class Timbrado #Region "Comercio Exterior" - If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then - If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then + If UsuarioActual.CveEmpresa = 172 Then - 'DATOS GENERALES - cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado, - ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion, - ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento, - ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen, - ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen, - ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable, - ObjCFDITimbre.Complementos.ComercioExterior11.Incoterm, - ObjCFDITimbre.Complementos.ComercioExterior11.Subdivision, - ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones, - ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD, - ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD) - 'EMISOR - cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP)) - cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Municipio, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais, - ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP) - 'RECEPTOR - cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib) - cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais, - ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP) + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then - If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario IsNot Nothing Then - cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais, - ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP) - End If + 'DATOS GENERALES + cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, + ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable, + ObjCFDITimbre.Complementos.ComercioExterior.Incoterm, + ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, + ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, + ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) + 'EMISOR + cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) + 'RECEPTOR + cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) + + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) + End If - 'MERCANCIAS - If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then - For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias - cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) - If concep.DescripcionesEspecificas.Marca <> "" Then - cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, concep.DescripcionesEspecificas.Modelo, concep.DescripcionesEspecificas.SubModelo, concep.DescripcionesEspecificas.NumeroSerie) - End If - Next + End If + Next + + End If + End If - - End If - End If + Else + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion, + ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, + ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable, + ObjCFDITimbre.Complementos.ComercioExterior.Incoterm, + ObjCFDITimbre.Complementos.ComercioExterior.Subdivision, + ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, + ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, + ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) + 'EMISOR + cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) + 'RECEPTOR + cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) + + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) + End If + + + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + concep.DescripcionesEspecificas.Modelo, + concep.DescripcionesEspecificas.SubModelo, + concep.DescripcionesEspecificas.NumeroSerie) + End If + Next + + End If + + + End If + End If + + + End if #End Region @@ -2545,140 +2621,144 @@ Public Class Timbrado #Region "C O M P L E M E N T O C A R T A P O R T E" + 'If UsuarioActual.CveEmpresa = 13 Then + ' If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - 'If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + ' Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - ' Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte + ' ''DATOS GENERALES + ' cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida) + ' 'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) - ' ''DATOS GENERALES - ' cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida) - ' 'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) - - ' 'UBICACIONES - ' If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then - ' For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones - ' 'origen - ' cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) - ' 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - ' cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) - ' Next - - ' End If - - ' 'MERCANCIAS - ' If Carta.Mercancias IsNot Nothing Then - ' cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) - ' If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then - ' For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - ' If concep.ValorMercancia <= 0 Then concep.Moneda = "" - ' cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) - ' For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta - ' cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) - ' Next + ' 'UBICACIONES + ' If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + ' For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones + ' 'origen + ' cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) + ' 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + ' cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) ' Next + ' End If - ' End If - ' ' - ' If Carta.FiguraTransporte IsNot Nothing Then - ' If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - - ' cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) - - ' cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) - - ' cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, - ' Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, - ' Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, - ' Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) - - ' If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then - ' For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques - ' cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) + ' 'MERCANCIAS + ' If Carta.Mercancias IsNot Nothing Then + ' cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) + ' If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + ' For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + ' If concep.ValorMercancia <= 0 Then concep.Moneda = "" + ' cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + ' For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta + ' cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) + ' Next ' Next - ' End If ' End If + ' ' + ' If Carta.FiguraTransporte IsNot Nothing Then + + ' If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then + + ' cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) + + ' cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) + + ' cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, + ' Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, + ' Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, + ' Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) + + ' If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then + ' For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques + ' cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) + ' Next - ' If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then - ' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - ' cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) - ' If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador - ' cfdi.CartaPortePartesTransporte("PT01") - ' cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) ' End If - ' Next + ' End If + + ' If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + ' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + ' cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) + ' If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador + ' cfdi.CartaPortePartesTransporte("PT01") + ' cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) + ' End If + ' Next + ' End If + ' End If ' End If + 'Else - 'End If If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte + Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - ''DATOS GENERALES - cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) + ''DATOS GENERALES + cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) - 'UBICACIONES - If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then - For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones - 'origen - cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) - 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) - Next - End If - - 'MERCANCIAS - If Carta.Mercancias IsNot Nothing Then - cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) - If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then - For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - If concep.ValorMercancia <= 0 Then concep.Moneda = "" - cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), - concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, - If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, - concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) - For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta - cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) - Next + 'UBICACIONES + If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones + 'origen + cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) Next End If - End If - ' - If Carta.FiguraTransporte IsNot Nothing Then - If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - - cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) - - cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) - - cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, - Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) - - If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then - For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques - cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa) + 'MERCANCIAS + If Carta.Mercancias IsNot Nothing Then + cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) + If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + If concep.ValorMercancia <= 0 Then concep.Moneda = "" + cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), + concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, + If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, + concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta + cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) + Next Next End If End If + ' + If Carta.FiguraTransporte IsNot Nothing Then - If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then - For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) - If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador - cfdi.CartaPorte30PartesTransporte("PT01") - cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) + If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then + + cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) + + cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) + + cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, + Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, + Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, + Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) + + If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then + For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques + cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa) + Next End If - Next + End If + + If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) + If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador + cfdi.CartaPorte30PartesTransporte("PT01") + cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) + End If + Next + End If End If End If - End If + 'End If + #End Region diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 36d4258df..d9fc7099f 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -129,11 +129,12 @@ Public Class E119 : Implements IHttpHandler End If If Metodo = "RegistraRemision" Then + context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - + MsgLog.AppendLine("Validado:" & Auth.IsSuccess) If Auth.IsSuccess Then - retorno = RegistraRemision(context) + retorno = RegistraRemision(context, MsgLog) Else context.Response.StatusCode = Auth.StatusCode retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) @@ -335,15 +336,14 @@ Public Class E119 : Implements IHttpHandler End If End Function - Private Function RegistraRemision(ByVal context As HttpContext) As String + Private Function RegistraRemision(ByVal context As HttpContext, ByRef MsgLog As StringBuilder) As String Dim TieneError As Boolean = False Dim JsonRequest As JObject = Nothing Dim Respuesta As New ResponseMsg Dim RespuestaError As New ResponseMsgError - Dim MsgLog As New StringBuilder - Try + Try MsgLog.AppendLine("1.0 Registra") If context.Request.InputStream IsNot Nothing Then Using reader As New StreamReader(context.Request.InputStream) @@ -355,6 +355,7 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If Else + MsgLog.AppendLine("json:" & json) TieneError = True End If End Using @@ -362,7 +363,7 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.1 accedido") If TieneError Then - RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado" + RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado (1.1)" context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) End If @@ -528,9 +529,10 @@ Public Class E119 : Implements IHttpHandler Catch ex As Exception TieneError = True + Finally + MsgLog.ToString.GuardaLogAD("LogE119") End Try - MsgLog.ToString.GuardaLogAD("LogE119") If TieneError Then context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index eaa213d53..37c940d76 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index a5c3a12c6..01ef2962d 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2,11 +2,13 @@ Option Explicit On Imports System.Data +Imports System.Data.Entity.Core.Metadata.Edm Imports System.IO Imports System.Xml Imports Extensiones Imports iText.Barcodes.Dmcode Imports Microsoft.Reporting.WebForms +Imports Modelos Partial Class PopUpVerFactura @@ -3361,13 +3363,24 @@ Partial Class PopUpVerFactura Dim CveCliente As Integer = 0 Dim CveDireccionEnvio As Integer = 0 Dim ClienteNombre As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "", - Paqueteria As String = "", NumContrato As String = "", Guia As String = "" + Paqueteria As String = "", NumContrato As String = "", Guia As String = "", Documentacion As String = "" Dim CveContrato As Integer = 0 If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero End If + + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero + DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") + params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion"))) + + If CveCliente = 819998 Then + RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc" + End If + End If + If CveContrato > 0 Then Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") @@ -3387,6 +3400,8 @@ Partial Class PopUpVerFactura EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString EnvioCP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString + + Else ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre") EnvioContacto = DTCliente.FiltroPrimeroValor("Contacto") @@ -3401,6 +3416,8 @@ Partial Class PopUpVerFactura ObjVentas.Dispose() End If + + params.Add(New ReportParameter("ClienteNombre", ClienteNombre)) params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion)) @@ -3524,6 +3541,16 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text params.Add(New ReportParameter("Accion", "RECIBIÓ")) + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + Dim CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero + Dim DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") + params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion"))) + + 'If CveCliente = 819998 Then + ' RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc" + 'End If + End If + If Archivo.Exists Then params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString)) params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString)) diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index fe617bac8..eb4b41f15 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -63,10 +63,10 @@ Partial Class Compras_RepComplementoPago Private Sub CargaDatos() Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero) - Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero - Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) - Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) - Dim TipoConsulta = If(ChkViculadas.Checked, 2, 1) + Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero + Dim FechaInicio As Date = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) + Dim FechaFin As Date = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) + Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1) Dim Count As Integer = 0 Dim ObjCompras As New ClsCompras diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index fc7955bd4..99bdde358 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -3371,12 +3371,9 @@ Partial Class Compras_eFacturas XMLNodosPagosModalCount = XMLNodosPagosModalCount + 1 Next - Next Next - - Dim UUIDDuplicadosEnu = From row In DTDocumentosRelacionados.AsEnumerable() Let IdDocumento = row.Field(Of String)("IdDocumento") Group row By IdDocumento Into IdDocumentos = Group @@ -3392,8 +3389,6 @@ Partial Class Compras_eFacturas Next Next - - MontoPago = Monto Dim NodosPagosString As String = Regex.Replace(nodePagos2.InnerXml, $"{Prefijo}:", "", RegexOptions.IgnoreCase) @@ -3428,10 +3423,6 @@ Partial Class Compras_eFacturas Catch ex As Exception dRow2("CvePrePolizaDetalle") = 0 End Try - - - - End If Next Next @@ -3989,9 +3980,9 @@ Partial Class Compras_eFacturas Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated If e.Row.RowType = DataControlRowType.Header Then - Dim HeaderGrid = DirectCast(sender, GridView) - Dim HeaderGridRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert) - Dim HeaderCell = New TableCell + Dim HeaderGrid As GridView = DirectCast(sender, GridView) + Dim HeaderGridRow As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert) + Dim HeaderCell As New TableCell HeaderCell.Text = "Documentos Relacionados" HeaderCell.ColumnSpan = 9 @@ -5507,7 +5498,7 @@ Public Class Compra2 XMLCargaExistosa = True Catch ex As Exception Try - Dim oReader = New StreamReader(XmlFuenteRuta, Encoding.GetEncoding("ISO-8859-1")) + Dim oReader As New StreamReader(XmlFuenteRuta, Encoding.GetEncoding("ISO-8859-1")) XMLDoc.Load(oReader) oReader.Dispose() XMLCargaExistosa = True @@ -5734,10 +5725,10 @@ Public Class Compra2 #Region "DETALLES" Dim ObjeFacturas As New ClsCompras - Dim AjustaUltimoConcepto = False + Dim AjustaUltimoConcepto As Boolean = False Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces) - Dim XML = Replace(nodeconceptos.OuterXml, " + DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" > Movimiento @@ -528,8 +528,7 @@ - + data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index bd3f7d941..8bf6adaad 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -558,9 +558,6 @@ Partial Class ContabilidadC_RegPrePolizaS If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) - If e.Row.DBCampo("Modificado") = "True" Then - e.Row.FCCheckBox("chkModificado").Checked = True - End If End If If e.Row.RowType = DataControlRowType.Header Then @@ -1145,9 +1142,8 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveIEAgregado As Integer = -1 For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If row.FCCheckBox("chkModificado").Checked Then + If CBool(row.DataKey("Modificado")) Then contador = contador + 1 - Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1166,7 +1162,7 @@ Partial Class ContabilidadC_RegPrePolizaS If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, TipoCambio:=row.DataKey("TC").ToDecimal, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then @@ -1176,8 +1172,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If Else contador = contador + 1 - - Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1191,14 +1185,14 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For End If End If - - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, False, True), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), + Dim tTipoMovto As Boolean = If(row.DataKey("TipoMovto") = "True", True, False) + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - CveProveedor:=row.DataKey("CveProveedor").ToEntero, + CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then OcurrioError = True @@ -1208,6 +1202,13 @@ Partial Class ContabilidadC_RegPrePolizaS Next End If + If Not OcurrioError AndAlso ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then + If ObjContabilidad.ValorPolizaDescuadre > 0 Then + OcurrioError = True + Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) + GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + End If Else OcurrioError = True End If @@ -1217,31 +1218,22 @@ Partial Class ContabilidadC_RegPrePolizaS OnError("Ocurrío un error al actualizar la PrePoliza", ex) End Try - If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then - If ObjContabilidad.ValorPolizaDescuadre > 0 Then - OcurrioError = True - Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) - GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - End If - End If - If Not OcurrioError Then ObjContabilidad.Commit() + CargaPrePoliza(CvePrePoliza) Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False) Else ObjContabilidad.RollBack() - Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) End If ObjContabilidad.Dispose() - CargaPrePoliza(CvePrePoliza) - If Not OcurrioError Then - If IdPoliza > 0 AndAlso contador > 0 Then - Contabilizar() - End If + 'If Not OcurrioError Then + ' If IdPoliza > 0 AndAlso contador > 0 Then + ' Contabilizar() + ' End If - End If + 'End If End Sub Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto")) @@ -1731,7 +1723,6 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataBind() UpPrePoliza.Update() GvPrePoliza.Visible = True - If IndiceGrid >= 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero @@ -1998,22 +1989,15 @@ Partial Class ContabilidadC_RegPrePolizaS Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs) If UpPrePoliza.Visible Then - For Each dRow As DataRow In DtMovimientos.Rows dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text + dRow("Modificado") = True Next DtMovimientos.AcceptChanges() GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() - - For Each Gvr As GridViewRow In GvPrePoliza.Rows - 'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue) - Gvr.FCCheckBox("chkModificado").Checked = True - - Next - UpPrePoliza.Update() End If If divMovtos.Visible Then diff --git a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc index 4f6a520d8..cf3392514 100644 --- a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc @@ -1563,7 +1563,7 @@ 7.59855cm 0.06623cm 0.82958cm - 20.31433cm + 20.31432cm 4 + + true + true + + + + + Carta Porte 3.0 + + + + + + + Textbox3 + 2.27425cm + 16.42665cm + 0.5cm + 1.52986in + 19 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + 7.00495in + + + = IIF(Parameters!Tipo.Value = "INGRESO","I - Ingreso","E - Egreso") @@ -203,66 +215,6 @@ - - - - true - - - - - U.M. - - - - - - - - - - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - #9cc3e5 - 2pt - 2pt - 2pt - 2pt - - - - @@ -271,7 +223,7 @@ - Descripción + Referencia - Textbox12 + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox15 @@ -490,14 +488,20 @@ - =Fields!Codigo.Value + =Fields!PS.Value + + + + @@ -514,39 +518,6 @@ - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - @@ -557,14 +528,14 @@ - =Fields!PS.Value + =Fields!Codigo.Value @@ -650,16 +621,123 @@ - + true true - =Fields!Observaciones.Value + =Fields!PUVenta.Value + + + + + + PUVenta + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SubTotalVenta.Value + + + + + + + SubTotalVenta + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox19 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + @@ -668,7 +746,649 @@ - Observaciones + Textbox20 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox23 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox40 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox41 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Sub Total + + + + + + + Textbox42 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Sum(Fields!SubTotalVenta.Value, "DsInventarios") + + + + + + + Textbox43 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox44 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox45 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox46 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox47 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox48 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + I.V.A. + + + + + + + Textbox49 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox50 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox51 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox52 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox53 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox54 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox55 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Importe Total + + + + + + + Textbox56 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + = Sum(Fields!SubTotalVenta.Value, "DsInventarios") + Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox57 @@ -704,13 +1424,22 @@ + + Before + + + Before + + + Before + DsInventarios 0.14111cm 0.10068cm - 0.84327cm - 20.3247cm + 1.84953cm + 25.76023cm @@ -718,13 +1447,13 @@ - 0.43055in + 0.88788in @@ -837,7 +1566,7 @@ CIUDAD DE MEXICO Textbox2 0.07163cm - 13.61141cm + 18.69141cm 0.38833cm 6.81397cm 3 @@ -873,7 +1602,7 @@ CIUDAD DE MEXICO Textbox12 0.88084cm - 16.09549cm + 21.17549cm 0.44478cm 4.32987cm 4 @@ -910,7 +1639,7 @@ CIUDAD DE MEXICO Textbox12 1.32562cm - 16.09549cm + 21.17549cm 0.44478cm 4.32987cm 5 @@ -946,7 +1675,7 @@ CIUDAD DE MEXICO Textbox12 1.7704cm - 16.0955cm + 21.1755cm 0.44478cm 4.32987cm 6 @@ -982,8 +1711,8 @@ CIUDAD DE MEXICO Textbox12 - 2.85018cm - 16.09549cm + 2.21518cm + 21.17549cm 0.44478cm 4.32987cm 7 @@ -997,206 +1726,6 @@ CIUDAD DE MEXICO 2pt - - - - true - true - - - - - =IIf(Parameters!CveConcepto.Value = 8, "Almacén Origen:", "Almacén que recibe:") - - - - - - - - =Parameters!AlmacenOrigen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIf(Parameters!CveConcepto.Value = 8, "Almacén Destino:", "Almacén que envía:") - - - - - - - - =Parameters!AlmacenDestino.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Detalles del Movimiento: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!DireccionOrigen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!DireccionDestino.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 3.66157cm - 2.01145cm - 20.32792cm - 8 - - - - true true @@ -1215,10 +1744,10 @@ CIUDAD DE MEXICO CveConcepto 0.50379cm - 17.92538cm + 23.00538cm 0.2384cm 2.5cm - 9 + 8 @@ -1245,13 +1774,42 @@ CIUDAD DE MEXICO + + + + + + =Parameters!Documentacion.Value + + + + @@ -1270,74 +1828,10 @@ CIUDAD DE MEXICO - 5.83773cm + 3.8269cm true true - - true - true - - - - - Observaciones: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1357,11 +1851,10 @@ CIUDAD DE MEXICO Textbox21 - 3.28266cm - 3.14986cm + 1.37766cm + 5.68986cm 0.50243cm 5.79375cm - 2 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1394,11 +1887,11 @@ CIUDAD DE MEXICO Textbox21 - 3.28266cm - 11.86467cm + 1.37766cm + 14.40467cm 0.50243cm 5.78664cm - 3 + 1 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1445,11 +1938,11 @@ CIUDAD DE MEXICO Textbox21 - 3.56875cm - 3.15781cm + 1.66375cm + 5.69781cm 1.2cm 5.78664cm - 4 + 2 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1496,11 +1989,11 @@ CIUDAD DE MEXICO Textbox21 - 3.5682cm - 11.87177cm + 1.6632cm + 14.41177cm 1.2cm 5.78664cm - 5 + 3 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1533,11 +2026,11 @@ CIUDAD DE MEXICO Textbox22 - 1.97831cm - 3.15781cm + 0.07331cm + 5.69781cm 0.6cm 5.78664cm - 6 + 4 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1570,11 +2063,11 @@ CIUDAD DE MEXICO Textbox22 - 1.97831cm - 11.87177cm + 0.07331cm + 14.41177cm 0.6cm 5.78664cm - 7 + 5 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1605,11 +2098,11 @@ CIUDAD DE MEXICO Textbox21 - 2.35606cm - 7.50017cm + 0.45106cm + 10.04017cm 0.63528cm 5.78664cm - 8 + 6 =iif(Parameters!CveConcepto.Value = 8, True, False) @@ -1656,11 +2149,11 @@ CIUDAD DE MEXICO Textbox21 - 3.5682cm - 7.50727cm + 1.6632cm + 10.04727cm 1.2cm 5.78664cm - 9 + 7 =iif(Parameters!CveConcepto.Value = 8, True, False) @@ -1693,11 +2186,11 @@ CIUDAD DE MEXICO Textbox22 - 1.97831cm - 7.50727cm + 0.07331cm + 10.04727cm 0.6cm 5.78664cm - 10 + 8 =iif(Parameters!CveConcepto.Value = 8, True, False) @@ -1741,11 +2234,11 @@ CIUDAD DE MEXICO Textbox29 - 5.31209cm + 3.40709cm 0.10068cm 0.41981cm 5.78083cm - 11 + 9 @@ -1779,11 +2272,11 @@ CIUDAD DE MEXICO Textbox31 - 5.31209cm - 8.15629cm + 3.40709cm + 11.33129cm 0.41981cm 5.13762cm - 12 + 10 @@ -1795,11 +2288,10 @@ CIUDAD DE MEXICO - 1.80136cm 0.13678cm 0cm 20.28859cm - 13 + 11 @@ -1807,11 +2299,10 @@ CIUDAD DE MEXICO - 0.31558cm 0.13678cm 0cm - 20.28859cm - 14 + 25.72414cm + 12 @@ -1819,11 +2310,11 @@ CIUDAD DE MEXICO - 5.17097cm + 3.26597cm 0.10068cm 0cm - 20.3247cm - 15 + 25.76024cm + 13 @@ -1849,11 +2340,11 @@ CIUDAD DE MEXICO Textbox10 - 5.31209cm - 17.60787cm + 3.40709cm + 23.00537cm 0.41981cm 2.55292cm - 16 + 14 @@ -1871,12 +2362,12 @@ CIUDAD DE MEXICO - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 1cm + 21.59cm + 27.94cm + 1cm + 1cm + 0.5cm + 0.5cm 0.13cm @@ -327,57 +156,72 @@ - + - + + + + + + - + - + - + - + - + + + + + + + + + + + - + - + - + - + diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index ddf541544..1ff768086 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -7,7 +7,6 @@ using System.Net.Http.Headers; using System.Text; using System.Threading; using System.Threading.Tasks; -using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using Extensiones; @@ -119,7 +118,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { GvResumen.DataSource = ObjNom.DtResultados; TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0; - LnkDownloadExcel.Visible = true; + LnkDownloadExcel.Visible = true; + if (UsuarioActual.Empresa.Funcionalidad(713) == "1") + { + GvResumen.Columns[4].Visible = false; + GvResumen.Columns[11].Visible = false; + } } else if (DdlReporte.SelectedValue.ToEntero() == 2) { @@ -400,57 +404,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { if (e.Row.DataKey("Fecha") == "") e.Row.Attributes.Add("class", "Totales"); - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - - } - - if (e.Row.RowType == DataControlRowType.Header) - { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); - - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06"); - - - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - } + } } protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) @@ -534,17 +488,17 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas if (e.Row.RowType == DataControlRowType.Header) { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo + //e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul @@ -556,33 +510,33 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#900"); //Rojo //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#900"); //Rojo - e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); } diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 5ea3af3d8..becfebe4b 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -861,7 +861,7 @@ Partial Class Sistemas_UsuarioDetalle End If For Each Row As DataRow In DtAsignacionesMultiEmpresa.FiltraParametros("CveEmpresa > 0").Rows - If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then + If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then TieneError = True End If Next diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index e8c33e9fc..254e8184c 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -1,5 +1,6 @@ -<%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb" - Inherits="Boletos" %> +<%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" + MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb" + Inherits="Boletos" EnableEventValidation="true" %> Comprar Boleto @@ -11,6 +12,10 @@ margin-block: 1rem; } + .mx-1 { + margin: 0 2rem; + } + .disponible { display: inline-block; width: 45px; @@ -23,15 +28,15 @@ text-align: center; } - .disponible:hover,.disponible.activo { + .disponible:hover, .disponible.activo { background-color: #45b6af; color: #fff; } - { - background-color: #45b6af; - color: #fff; - } + { + background-color: #45b6af; + color: #fff; + } .nodisponible { display: inline-block; @@ -56,9 +61,10 @@ text-align: center; color: black } - .btnChofer a{ - color:#2C3E50; - } + + .btnChofer a { + color: #2C3E50; + } .btnChofer:hover { @@ -67,408 +73,406 @@ - - - - - - -
-
-
-
-
- - Datos del Cliente -
-
-
-
-
-
-
- -
- - - - -
- -
-
-
- - + + +
+
+
+
+ + Datos del Cliente
-
+
+
+
+
+
+
-
-
-
-
- - - - - + +
+ + +
-
-
-
- - - -
-
-
- -
- - - -
- -
-
-
-
-
- - Datos del Viaje -
-
-
- +
+
+
+ + +
+
+ +
-
- - -
-
-
-
- - - - - -
+
+ + + + + +
+
+
+
+ + + +
+
-
-
-
- + +
+ + + +
+
+
+ +
+
+
+ + Datos del Viaje +
+
+ +
+ +
+
+
+ + +
+
+
+
+ + + + + +
+
+
+
+
+
+
-
+
+ +
+ + + + +
+
-
- - - - -
-
-
- -
- + + +
+
-
+ + - +
+
+ +
+ +
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +      + + + +
+ + + +
-
- -
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -      - - - -
- - - -
- - - - -
-
-
- - + + diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 8af8af748..2efc8785f 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -20,7 +20,6 @@ Partial Class Boletos ViewState("Importe") = value End Set End Property - Private Property CveViaje As Integer Get Return ViewState("CveViaje").ToString().ToEntero @@ -68,7 +67,6 @@ Partial Class Boletos 'Boletos Vendidos Dim dt As DataTable If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=1) Then 'Poner párametro para estatus y cancelado de viajes - dt = ObjViaje.DtResultados dt = ObjViaje.DtResultados Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) For Each dr As DataRow In dt.Rows @@ -90,7 +88,7 @@ Partial Class Boletos End Sub - Private Sub CargaDestinos() + Protected Sub CargaDestinos() Dim ObjDestinos As New ClsTransportes() If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then @@ -108,7 +106,7 @@ Partial Class Boletos End If ObjDestinos.Dispose() End Sub - Private Sub CotizarTarifa() + Protected Sub CotizarTarifa(sender As Object, e As EventArgs) If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then Dim ObjDestinos As New ClsTransportes() @@ -169,6 +167,8 @@ Partial Class Boletos TxtVisa.Text = "" TxtCelular.Text = "" TxtObservaciones.Text = "" + AsientoSeleccionado = "" + upPanel.Update() End If Catch ex As Exception ObjTransporte.RollBack() @@ -181,10 +181,10 @@ Partial Class Boletos Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) - CotizarTarifa() + CotizarTarifa(sender, e) End Sub Protected Sub DdlDestino_SelectedIndexChanged(sender As Object, e As EventArgs) - CotizarTarifa() + CotizarTarifa(sender, e) End Sub End Class diff --git a/Transportes/RepViajes.aspx b/Transportes/RepViajes.aspx index 45d4d170c..99aac269a 100644 --- a/Transportes/RepViajes.aspx +++ b/Transportes/RepViajes.aspx @@ -12,10 +12,6 @@ margin-block: .5rem; } - .fecha { - padding: 3px; - } - .masivo { color: green; } @@ -223,12 +219,13 @@
-
- -
-
- + +
+
+ diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs index dd64174fe..cee168ffd 100644 --- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs @@ -322,7 +322,8 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas ClsContabilidad ObjConta = new ClsContabilidad(); ObjConta.IniciaTransacSQL(); int CvePrePoliza = 0, CveVenta = -1, CveIE = -1; - decimal Saldo = 0; + decimal Saldo = 0; + decimal SaldoAdmin = 0; decimal ImporteTotalGasto = 0; string MsgError = ""; @@ -349,16 +350,18 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas { CveVenta = Gv.DataKey("CveVenta").ToEntero(); Saldo = -Gv.DataKey("Saldo").ToDecimal(); + SaldoAdmin = Saldo; } else if (Tipo == 3) { ConPreP.CveConcepto = 92; CveIE = Gv.DataKey("CveIE").ToEntero(); - Saldo = Gv.DataKey("Saldo").ToDecimal(); + Saldo = -Gv.DataKey("Saldo").ToDecimal(); + SaldoAdmin = -Saldo; } ImporteTotalGasto += Saldo; - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) { MsgError = "Ocurrio un error al saldar el movimiento"; break; diff --git a/Ventas/RepComisionesJAM.aspx.cs b/Ventas/RepComisionesJAM.aspx.cs index 74dc3f6dd..cb31e79dd 100644 --- a/Ventas/RepComisionesJAM.aspx.cs +++ b/Ventas/RepComisionesJAM.aspx.cs @@ -54,12 +54,9 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()); DdlVendedor.Attributes.Add("disabled", "disabled"); DdlVendedor.Enabled = false; - - } - + } GvDatos.Columns[15].Visible = UsuarioActual.TienePermisoProceso(201); - GvDatos.Columns[21].Visible = UsuarioActual.TienePermisoProceso(311); GvDatos.Columns[22].Visible = UsuarioActual.TienePermisoProceso(311); divProforma.Visible = UsuarioActual.TienePermisoProceso(311); diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs index b8153eccf..09e31362e 100644 --- a/Ventas/RepNCxAplicar.aspx.cs +++ b/Ventas/RepNCxAplicar.aspx.cs @@ -207,7 +207,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas } } - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() )) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() )) { MsgError = "Ocurrio un error al saldar el movimiento"; } diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx index 2ad99df24..4eab2a885 100644 --- a/Ventas/RepRemisiones.aspx +++ b/Ventas/RepRemisiones.aspx @@ -222,8 +222,8 @@ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> - - + + diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index f8293738d..94b5a8d54 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -5,6 +5,11 @@