-- CCP 3.0

App_Code/Timbrado.vb

@@ -11,7 +11,7 @@ Imports System.Xml.Serialization
 Imports Extensiones
 Imports Newtonsoft.Json.Linq
 Imports Profact.TimbraCFDI33.Complementos
-Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
+Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte30
 
 
 Public Enum VersionTimbradoEnum As Integer
@@ -1717,7 +1717,7 @@ Public Class Timbrado
 
             ''DATOS GENERALES
             Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
-            Dim ComCartaPorte As ProfactCartaPorte.CartaPorte = New ProfactCartaPorte.CartaPorte()
+            Dim ComCartaPorte As ProfactCartaPorte.CartaPorte = New ProfactCartaPorte.CartaPorte
             ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
             ComCartaPorte.EntradaSalidaMercSpecified = False
             ComCartaPorte.ViaEntradaSalidaSpecified = False
@@ -1803,6 +1803,44 @@ Public Class Timbrado
                         ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False
                         If concep.UUIDComercioExt <> "" Then ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt
 
+                        If concep.SectorCOFEPRIS <> "" Then
+                            'ComCartaPorte.Mercancias.Mercancia(i).SectorCOFEPRIS = concep.SectorCOFEPRIS
+                            ComCartaPorte.Mercancias.Mercancia(i).SectorCOFEPRISSpecified = True
+                        End If
+                        If concep.FechaCaducidad <> "" Then
+                            ComCartaPorte.Mercancias.Mercancia(i).FechaCaducidad = concep.FechaCaducidad.ToDate
+                            ComCartaPorte.Mercancias.Mercancia(i).FechaCaducidadSpecified = True
+                        End If
+                        If concep.FormaFarmaceutica <> "" Then
+                            ' ComCartaPorte.Mercancias.Mercancia(i).FormaFarmaceutica = concep.FormaFarmaceutica
+                            ComCartaPorte.Mercancias.Mercancia(i).FormaFarmaceuticaSpecified = True
+                        End If
+                        If concep.CondicionesEspTransp <> "" Then
+                            'ComCartaPorte.Mercancias.Mercancia(i).CondicionesEspTransp = concep.CondicionesEspTransp
+                            ComCartaPorte.Mercancias.Mercancia(i).CondicionesEspTranspSpecified = True
+                        End If
+
+                        ComCartaPorte.Mercancias.Mercancia(i).NombreIngredienteActivo = concep.NombreIngredienteActivo
+                        ComCartaPorte.Mercancias.Mercancia(i).NomQuimico = concep.NomQuimico
+                        ComCartaPorte.Mercancias.Mercancia(i).DenominacionGenericaProd = concep.DenominacionGenericaProd
+                        ComCartaPorte.Mercancias.Mercancia(i).DenominacionDistintivaProd = concep.DenominacionDistintivaProd
+                        ComCartaPorte.Mercancias.Mercancia(i).Fabricante = concep.Fabricante
+
+                        ComCartaPorte.Mercancias.Mercancia(i).LoteMedicamento = concep.LoteMedicamento
+
+
+                        ComCartaPorte.Mercancias.Mercancia(i).RegistroSanitarioFolioAutorizacion = concep.RegistroSanitarioFolioAutorizacion
+                        ComCartaPorte.Mercancias.Mercancia(i).PermisoImportacion = concep.PermisoImportacion
+                        ComCartaPorte.Mercancias.Mercancia(i).FolioImpoVUCEM = concep.FolioImpoVUCEM
+                        ComCartaPorte.Mercancias.Mercancia(i).NumCAS = concep.NumCAS
+                        ComCartaPorte.Mercancias.Mercancia(i).RazonSocialEmpImp = concep.RazonSocialEmpImp
+                        ComCartaPorte.Mercancias.Mercancia(i).FolioImpoVUCEM = concep.FolioImpoVUCEM
+                        ComCartaPorte.Mercancias.Mercancia(i).NumRegSanPlagCOFEPRIS = concep.NumRegSanPlagCOFEPRIS
+                        ComCartaPorte.Mercancias.Mercancia(i).DatosFabricante = concep.DatosFabricante
+                        ComCartaPorte.Mercancias.Mercancia(i).DatosFormulador = concep.DatosFormulador
+                        ComCartaPorte.Mercancias.Mercancia(i).DatosMaquilador = concep.DatosMaquilador
+                        ComCartaPorte.Mercancias.Mercancia(i).UsoAutorizado = concep.UsoAutorizado
+
                         Dim j As Integer = 0
                         ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta = New ProfactCartaPorte.CartaPorteMercanciasMercanciaCantidadTransporta(Carta.Mercancias.Mercancias.Count - 1) {}
                         For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
@@ -1822,7 +1860,7 @@ Public Class Timbrado
             If Carta.FiguraTransporte IsNot Nothing Then
 
                 If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
-
+                    ComCartaPorte.IdCCP = Guid.NewGuid().ToString
 
                     'ComCartaPorte.FiguraTransporte(1). = ProfactCartaPorte.c_CveTransporte.Item02
                     ComCartaPorte.Mercancias.Autotransporte = New ProfactCartaPorte.CartaPorteMercanciasAutotransporte
@@ -1835,6 +1873,7 @@ Public Class Timbrado
                     ConfigVehicular.ConfigVehicular = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ConfigAutotransporte), Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular), ProfactCartaPorte.c_ConfigAutotransporte)
                     ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM
                     ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM
+                    ConfigVehicular.PesoBrutoVehicular = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular
 
                     ComCartaPorte.Mercancias.Autotransporte.IdentificacionVehicular = ConfigVehicular