Timbrado de entrega de ruta

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)