From cb6cd3f368e659881bbdc440b8c590cc13395f71 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 30 Jan 2024 11:30:48 -0700 Subject: [PATCH] =?UTF-8?q?-=20activaci=C3=B3n=20de=20comercio=20exterior?= =?UTF-8?q?=20para=20todas=20las=20empresas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Timbrado.vb | 83 ++------------------------------------------ 1 file changed, 2 insertions(+), 81 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 14752c0b4..3841c4f79 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2463,9 +2463,7 @@ Public Class Timbrado #Region "Comercio Exterior" - If UsuarioActual.CveEmpresa = 172 Then - - If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then 'DATOS GENERALES @@ -2536,84 +2534,7 @@ Public Class Timbrado 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 End If