diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 64289248f..45b574d7b 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3908,7 +3908,8 @@ Namespace Modelos
                         Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
                         Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
                         Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
-                        Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
+                        Dim PU As Decimal = 0 ' el valor de garántía debe de ser cero, tema contable
+                        ' Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
                         Dim Serie As String = RowGarantia("Comprobante").ToString
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index b60300a57..9656f3e26 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2141,16 +2141,19 @@ Public Class Timbrado
                         If concep.NumRegidTribFigura <> "" Then ComCartaPorte.FiguraTransporte(i).NumRegIdTribFigura = concep.NumRegidTribFigura
                         'OComCartaPorte.FiguraTransporte.Operadores(i)(0) = concep.ResidenciaFiscalOperador 'falta
 
-                        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
-                        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
-                        If concep.Domicilio.NumeroExterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroExterior = concep.Domicilio.NumeroExterior
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX
+                        If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
+                            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
+                            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
+                            If concep.Domicilio.NumeroExterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroExterior = concep.Domicilio.NumeroExterior
+                            ComCartaPorte.FiguraTransporte(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX
+
+                        End If
 
                         i += 1
                     Next