From 0be22d1f24853e51243eb20408e9d7a1bdb0871a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 11 Apr 2023 16:18:40 -0700
Subject: [PATCH] Timbrado de entrega de ruta

---
 App_Code/Timbres.vb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb
index 3094bb25f..d56227c77 100644
--- a/App_Code/Timbres.vb
+++ b/App_Code/Timbres.vb
@@ -215,8 +215,14 @@ Public Class Timbres
                                                           .Localidad = drT("DirDesClaveSATLocalidad").ToString}
 
                     Dim NumRegIdTrib As String = ""
+                    Dim ResidenciaFiscal As String = ""
                     If drT("DestinatarioRFC").ToString.Contiene("XEXX010101000") Then ' cuando es Extranjero, debe de llevar un numregidtrib
-                        NumRegIdTrib = "121585958"
+                        ResidenciaFiscal = DomDestino.Pais
+
+                        If Not String.IsNullOrEmpty(drT("COM_NumRegIdTrib").ToString()) Then
+                            NumRegIdTrib = drT("COM_NumRegIdTrib").ToString()
+                        End If
+
                     End If
 
                     Dim Ubica As New CFDICartaPorteUbicacion
@@ -231,6 +237,7 @@ Public Class Timbres
                                                                     .NombreRemitenteDestinatario = drT("DestinatarioNombre").ToString,
                                                                     .Domicilio = DomDestino,
                                                                     .DistanciaRecorrida = Distancia,
+                                                                    .ResidenciaFiscal = ResidenciaFiscal,
                                                                     .NumRegIdTrib = NumRegIdTrib}
 
                     CartaPorte.Ubicaciones.Add(Ubica)