-- agregado de campos Carta Porte 3.0

App_Code/CFDITimbre.vb

@@ -829,6 +829,10 @@ Public Class CFDICartaPorte
     Public Property TranspInternac As String = ""
     Public Property EntradaSalidaMercancia As String = ""
     Public Property ViaEntradaSalida As String = ""
+    Public Property RegimenAduanero As String = ""
+    Public Property RegistroISTMO As String = ""
+    Public Property UbicacionPoloOrigen As String = ""
+    Public Property UbicacionPoloDestino As String = ""
     Public ReadOnly Property TotalDistanciaRecorrida As Decimal
         Get
             Return Ubicaciones.Sum(Function(item) item.DistanciaRecorrida)
@@ -908,6 +912,8 @@ Public Class CFDICartaPorteMercancias
         End Get
     End Property
     Public Property UnidadPeso As String = ""
+    Public Property LogisticaInversaRecoleccionDevolucion As String = ""
+
     Public ReadOnly Property PesoNetoTotal As Double
         Get
             Return Mercancias.Sum(Function(item) item.DetalleMercancia.PesoNeto)
@@ -937,6 +943,26 @@ Public Class CFDICartaPorteMercancia
     Public Property MaterialPeligroso As String = ""
     Public Property Embalaje As String = ""
     Public Property DescripEmbalaje As String = ""
+    Public Property SectorCOFEPRIS As String = ""
+    Public Property NombreIngredienteActivo As String = ""
+    Public Property NomQuimico As String = ""
+    Public Property DenominacionGenericaProd As String = ""
+    Public Property DenominacionDistintivaProd As String = ""
+    Public Property Fabricante As String = ""
+    Public Property FechaCaducidad As String = ""
+    Public Property LoteMedicamento As String = ""
+    Public Property FormaFarmaceutica As String = ""
+    Public Property CondicionesEspTransp As String = ""
+    Public Property RegistroSanitarioFolioAutorizacion As String = ""
+    Public Property PermisoImportacion As String = ""
+    Public Property FolioImpoVUCEM As String = ""
+    Public Property NumCAS As String = ""
+    Public Property RazonSocialEmpImp As String = ""
+    Public Property NumRegSanPlagCOFEPRIS As String = ""
+    Public Property DatosFabricante As String = ""
+    Public Property DatosFormulador As String = ""
+    Public Property DatosMaquilador As String = ""
+    Public Property UsoAutorizado As String = ""
     Public Property PesoenKg As Decimal = 0
     Public Property ValorMercancia As Decimal
     Public Property Moneda As String = ""
@@ -981,6 +1007,7 @@ Public Class CFDICartaPorteIdentificacionVehicular
     Public Property ConfigVehicular As String = ""
     Public Property PlacaVM As String = ""
     Public Property AnioModeloVM As Integer = 0
+    Public Property PesoBrutoVehicular As Decimal = 0
 End Class
 
 <Serializable>

App_Code/Timbres.vb

@@ -182,6 +182,7 @@ Public Class Timbres
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero
+                    CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular = drT("PesoBrutoVehicular").ToString.ToDecimal
 
                     If drT("ClaveTipoRemolque1").ToString <> "" Then
                         Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1").ToString, .Placa = drT("PlacaRemolque1").ToString}
@@ -446,15 +447,6 @@ Public Class Timbres
                         _MsgError.AppendLine("Error al obtener Movimientos")
                     End If
 
-                    'ObjFactura.DtDetalle = DtMovimientos
-
-                    'AplicaCP = Boolean.Parse(drT("AplicaCP").ToString)
-
-                    'ObjFactura.CveSubProyecto = drT("CveSubProyecto").ToString.ToEntero
-
-                    'ObjFactura.SetSubProyecto()
-                    'ObjFactura.SetSubProyectoMatriz()
-
                     CartaPorte.FiguraTransporte.AutoTransporte.PermisoSCT = drT("ClaveTipoPermisoSCT").ToString '"TPAF01"
                     CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString
@@ -466,6 +458,7 @@ Public Class Timbres
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero
+                    CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular = drT("PesoBrutoVehicular").ToString.ToDecimal
 
                     If drT("ClaveTipoRemolque1").ToString <> "" Then
                         Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1").ToString, .Placa = drT("PlacaRemolque1").ToString}