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