-- complemento de comercio exterior 2.0

App_Code/CFDITimbre.vb

@@ -248,11 +248,11 @@ End Class
 <Serializable>
 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
 
 
 <Serializable>
-Public Class CFDIComercioExterior11
+Public Class CFDIComercioExterior
     Public Property MotivoTraslado As String
     Public Property TipoOperacion As String = ""
     Public Property ClavedePedimento As String = ""

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

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,68 +2460,66 @@ Public Class Timbrado
 
 #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
-                    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)
+                    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.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)
+                    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.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)
+                    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.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)
+                    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 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.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
+                                cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
                                                                                                    concep.DescripcionesEspecificas.Modelo,
                                                                                                    concep.DescripcionesEspecificas.SubModelo,
                                                                                                    concep.DescripcionesEspecificas.NumeroSerie)
@@ -2545,140 +2542,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
 

Ventas/Ventas.aspx.vb

@@ -3452,6 +3452,9 @@ Partial Class Ventas
                 End If
 
                 TxtPrecio.Enabled = False
+                If UsuarioActual.CveUsuario = 3986 Then
+                    TxtPrecio.Enabled = True
+                End If
                 'ocultar la columna de subproyecto
                 GvPS.Columns(ColumnaSubProyecto).Visible = False
                 ThProyecto.Visible = False
@@ -12691,25 +12694,25 @@ Partial Class Ventas
 
         If ChkEmitirComercioExterior.Checked Then
             'AplicaComercioExteriorSubProyecto = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
-            Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
+            Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
 
             'DATOS GENERALES
 
             Timbre.Comprobante.Exportacion = "02"
-            Timbre.Complementos.ComercioExterior11.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString()
-            Timbre.Complementos.ComercioExterior11.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString()
-            Timbre.Complementos.ComercioExterior11.CertificadoOrigen = "0"
-            Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
-            Timbre.Complementos.ComercioExterior11.Subdivision = "0"
+            Timbre.Complementos.ComercioExterior.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString()
+            Timbre.Complementos.ComercioExterior.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString()
+            Timbre.Complementos.ComercioExterior.CertificadoOrigen = "0"
+            Timbre.Complementos.ComercioExterior.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
+            Timbre.Complementos.ComercioExterior.Subdivision = "0"
 
-            Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio)
+            Timbre.Complementos.ComercioExterior.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio)
 
-            Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
+            Timbre.Complementos.ComercioExterior.MotivoTraslado = ""
 
             'If Timbre.Comprobante.TipoComprobante = "T" Then
-            '    Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
+            '    Timbre.Complementos.ComercioExterior.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
             'Else
-            '    Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
+            '    Timbre.Complementos.ComercioExterior.MotivoTraslado = ""
             'End If
 
             'EMISOR
@@ -12718,16 +12721,16 @@ Partial Class Ventas
             If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
                 Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
             End If
-            Timbre.Complementos.ComercioExterior11.Emisor.CURP = UsuarioActual.Empresa.CURP
-            Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString()
-            Timbre.Complementos.ComercioExterior11.Emisor.NumeroExterior = Dr("NoExt").ToString()
-            Timbre.Complementos.ComercioExterior11.Emisor.NumeroInterior = Dr("NoInt").ToString()
-            Timbre.Complementos.ComercioExterior11.Emisor.Colonia = Dr("ClaveSATColonia").ToString()
-            Timbre.Complementos.ComercioExterior11.Emisor.Localidad = ""
-            Timbre.Complementos.ComercioExterior11.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString()
-            Timbre.Complementos.ComercioExterior11.Emisor.Estado = Dr("ClaveSATEstado").ToString()
-            Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString()
-            Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.CURP = UsuarioActual.Empresa.CURP
+            Timbre.Complementos.ComercioExterior.Emisor.Calle = Dr("Calle").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.NumeroExterior = Dr("NoExt").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.NumeroInterior = Dr("NoInt").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Colonia = Dr("ClaveSATColonia").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Localidad = ""
+            Timbre.Complementos.ComercioExterior.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Estado = Dr("ClaveSATEstado").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Pais = Dr("ClaveSATPais").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.CP = Dr("ClaveSATCP").ToString()
 
             Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
             ComExtColonia = "" : ComExtMunicipio = ""
@@ -12751,17 +12754,17 @@ Partial Class Ventas
             End If
 
             'RECEPTOR
-            Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
-            Timbre.Complementos.ComercioExterior11.Receptor.Calle = ComExtCalle
-            Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = ComExtNumero
-            Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = ""
-            Timbre.Complementos.ComercioExterior11.Receptor.Colonia = ComExtColonia
-            Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
-            Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
-            Timbre.Complementos.ComercioExterior11.Receptor.Municipio = ComExtMunicipio
-            Timbre.Complementos.ComercioExterior11.Receptor.CP = ComExtCP
-            Timbre.Complementos.ComercioExterior11.Receptor.Estado = ComExtEstado
-            Timbre.Complementos.ComercioExterior11.Receptor.Pais = ComExtPais
+            Timbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
+            Timbre.Complementos.ComercioExterior.Receptor.Calle = ComExtCalle
+            Timbre.Complementos.ComercioExterior.Receptor.NumeroExterior = ComExtNumero
+            Timbre.Complementos.ComercioExterior.Receptor.NumeroInterior = ""
+            Timbre.Complementos.ComercioExterior.Receptor.Colonia = ComExtColonia
+            Timbre.Complementos.ComercioExterior.Receptor.Localidad = ""
+            Timbre.Complementos.ComercioExterior.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
+            Timbre.Complementos.ComercioExterior.Receptor.Municipio = ComExtMunicipio
+            Timbre.Complementos.ComercioExterior.Receptor.CP = ComExtCP
+            Timbre.Complementos.ComercioExterior.Receptor.Estado = ComExtEstado
+            Timbre.Complementos.ComercioExterior.Receptor.Pais = ComExtPais
             Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
             Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
 
@@ -12778,23 +12781,23 @@ Partial Class Ventas
 
                 If RowDireccion IsNot Nothing Then
 
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = RowDireccion("EnvioContacto").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Calle = RowDireccion("EnvioDireccion").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = RowDireccion("EnvioNoExt").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ""
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = RowDireccion("NombreLocalidad").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = ""
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = RowDireccion("NombreMunicipio").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.CP = RowDireccion("EnvioCP").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Estado = RowDireccion("NombreEstado").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Nombre = RowDireccion("EnvioContacto").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Calle = RowDireccion("EnvioDireccion").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.NumeroExterior = RowDireccion("EnvioNoExt").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.NumeroInterior = ""
+                    Timbre.Complementos.ComercioExterior.Destinatario.Colonia = ""
+                    Timbre.Complementos.ComercioExterior.Destinatario.Localidad = RowDireccion("NombreLocalidad").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Referencia = ""
+                    Timbre.Complementos.ComercioExterior.Destinatario.Municipio = RowDireccion("NombreMunicipio").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.CP = RowDireccion("EnvioCP").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Estado = RowDireccion("NombreEstado").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()
 
                 End If
 
             Else
-                Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
+                Timbre.Complementos.ComercioExterior.Destinatario = Nothing
             End If
 
             'MERCANCIAS
@@ -12809,12 +12812,12 @@ Partial Class Ventas
                     mercancia.DescripcionesEspecificas.Marca = Gvr.FCTextBox("TxtMarca").Text
                 End If
 
-                Timbre.Complementos.ComercioExterior11.Mercancias.Add(mercancia)
+                Timbre.Complementos.ComercioExterior.Mercancias.Add(mercancia)
                 i += 1
             Next
 
         Else
-            Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
+            Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
         End If
 
         Return Timbre
@@ -16753,6 +16756,9 @@ Partial Class Ventas
 
                 If EsVentaMedica Then
                     TxtPrecio.Enabled = False
+                    If UsuarioActual.CveUsuario = 3986 Then
+                        TxtPrecio.Enabled = True
+                    End If
                 Else
                     If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
                         If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
@@ -21654,6 +21660,9 @@ Partial Class Ventas
 
         If EsVentaMedica Then
             TxtPrecio.Enabled = False
+            If UsuarioActual.CveUsuario = 3986 Then
+                TxtPrecio.Enabled = True
+            End If
         Else
             TxtPrecio.Enabled = True
         End If