-- mejora en el caso de material peligroso, que no valla etiqueta seguro medio ambiente

App_Code/Timbres.vb

@@ -122,8 +122,8 @@ Public Class Timbres
                 Dim DtMovimientos As DataTable = Nothing
                 Dim drT As DataRow = ObjGrales.DtResultados.Rows(0)
 
-                Timbre.Receptor.RFC = drT("RemitenteRFC").ToString
+                Timbre.Receptor.RFC = drT("EmpresaRFC").ToString
-                Timbre.Receptor.Nombre = drT("RemitenteNombre").ToString
+                Timbre.Receptor.Nombre = drT("EmpresaNombre").ToString
                 Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString
                 Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString
 
@@ -166,8 +166,14 @@ Public Class Timbres
                     CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil = drT("NumPolizaSeguro").ToString
+
+                    If Obj.DtDetalle IsNot Nothing AndAlso Obj.DtDetalle.Rows.Count > 0 Then
+                        If Obj.DtDetalle.MAX("ClaveMaterialPeligroso") <> "" Then
                             CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente = drT("NombreAseguradoraMedioAmbiente").ToString
                             CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente = drT("NumPolizaSeguroMedioAmbiente").ToString
+                        End If
+                    End If
+
                     CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroCarga = drT("NombreAseguradoraCarga").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroCarga = drT("NumPolizaSeguroCarga").ToString
                     CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString
@@ -204,6 +210,10 @@ Public Class Timbres
                                                           .Municipio = drT("DirDesClaveSATMunicipio").ToString,
                                                           .Localidad = drT("DirDesClaveSATLocalidad").ToString}
 
+                    Dim NumRegIdTrib As String = ""
+                    If drT("DestinatarioRFC").ToString.Contiene("XEXX010101000") Then ' cuando es Extranjero, debe de llevar un numregidtrib
+                        NumRegIdTrib = "121585958"
+                    End If
 
                     Dim Ubica As New CFDICartaPorteUbicacion
                         Ubica.TipoEstacion = ""
@@ -216,7 +226,8 @@ Public Class Timbres
                                                                     .FechaHoraSalidaLlegada = FechaLlegada.ToString("yyyy-MM-ddTHH:mm:ss"),
                                                                     .NombreRemitenteDestinatario = drT("DestinatarioNombre").ToString,
                                                                     .Domicilio = DomDestino,
-                                                                .DistanciaRecorrida = Distancia}
+                                                                    .DistanciaRecorrida = Distancia,
+                                                                    .NumRegIdTrib = NumRegIdTrib}
 
                     CartaPorte.Ubicaciones.Add(Ubica)
                         CartaPorte.FiguraTransporte.ClaveTransporte = "01"