From 47a6fc57553b552815daa0a7e9cb3eaf6b456008 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 15:18:51 -0700 Subject: [PATCH] -- candado timbrdo CEXT 2.0 --- App_Code/Timbrado.vb | 127 +++++++++++++++++++++++++++++++++++-------- 1 file changed, 103 insertions(+), 24 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 8012321c5..37405a912 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2460,11 +2460,13 @@ Public Class Timbrado #Region "Comercio Exterior" - If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then - If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + If UsuarioActual.CveEmpresa = 172 Then - 'DATOS GENERALES - cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, @@ -2473,9 +2475,9 @@ Public Class Timbrado 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, + '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, @@ -2485,9 +2487,9 @@ Public Class Timbrado 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, + '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, @@ -2498,8 +2500,8 @@ Public Class Timbrado 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, + 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, @@ -2511,27 +2513,104 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) - End If + 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.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) - If concep.DescripcionesEspecificas.Marca <> "" Then - cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(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