diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index d129939be..e199b6470 100644 --- a/App_Code/Timbrado.vb +++ b/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 diff --git a/Bin/Profact.TimbraCFDI.dll b/Bin/Profact.TimbraCFDI.dll index aebf0ab01..ceaa9cf16 100644 Binary files a/Bin/Profact.TimbraCFDI.dll and b/Bin/Profact.TimbraCFDI.dll differ