From 74f62c0b6e550fbd191783300d30d7ab14c0f8e3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 5 Jul 2023 18:53:33 -0700
Subject: [PATCH] - mejora en PAC 3

---
 App_Code/Timbrado.vb | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 7b9038153..e22fdaede 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2009,7 +2009,7 @@ Public Class Timbrado
 
                     ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Domicilio.Calle,
                                                                                                                         .Colonia = ubica.Domicilio.Colonia,
-                                                                                                                        .Localidad = ubica.Domicilio.Localidad,
+                                                                                                                        .Localidad = If(ubica.Domicilio.Localidad <> "", ubica.Domicilio.Localidad, Nothing),
                                                                                                                         .Municipio = ubica.Domicilio.Municipio,
                                                                                                                         .Estado = ubica.Domicilio.Estado,
                                                                                                                         .CodigoPostal = ubica.Domicilio.CP,
@@ -2050,7 +2050,7 @@ Public Class Timbrado
                         If concep.ClaveMaterialPeligroso <> "" Then
                             ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligroso = ProfactCartaPorte.CartaPorteMercanciasMercanciaMaterialPeligroso.Sí
                             ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True
-                            'ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligroso = concep.ClaveMaterialPeligroso
+                            ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligroso = concep.ClaveMaterialPeligroso
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
                             'si lleva material pelgroso, debe llevar embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
@@ -2142,8 +2142,9 @@ Public Class Timbrado
 
                         ComCartaPorte.FiguraTransporte(i).Domicilio = New ProfactCartaPorte.CartaPorteTiposFiguraDomicilio()
                         ComCartaPorte.FiguraTransporte(i).Domicilio.Calle = concep.Domicilio.Calle
+                        If concep.Domicilio.NumeroInterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroInterior = concep.Domicilio.NumeroInterior
                         ComCartaPorte.FiguraTransporte(i).Domicilio.CodigoPostal = concep.Domicilio.CP
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.Colonia = concep.Domicilio.Colonia
+                        If concep.Domicilio.Colonia <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Colonia = concep.Domicilio.Colonia
                         ComCartaPorte.FiguraTransporte(i).Domicilio.Estado = concep.Domicilio.Estado
                         If concep.Domicilio.Localidad <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Localidad = concep.Domicilio.Localidad
                         ComCartaPorte.FiguraTransporte(i).Domicilio.Municipio = concep.Domicilio.Municipio
@@ -2462,7 +2463,7 @@ Public Class Timbrado
                             Dim sbMsgLog As New StringBuilder
                             For Each msg In Resultados
                                 sbMsg.AppendFormat("{0}.<br/>", msg("Value"))
-                                sbMsgLog.AppendFormat("{0}.<br/>", msg("Value"))
+                                sbMsgLog.AppendFormat("{0}-{1}<br/>", msg("Key"), msg("Value"))
                             Next
                             sbMsgLog.ToString.GuardaLog()
                             Retorno = sbMsg.ToString()