- corrección mejora Rev. B

App_Code/Timbrado.vb

@@ -9,6 +9,7 @@ Imports System.Reflection
 Imports System.Xml
 Imports System.Xml.Serialization
 Imports Extensiones
+Imports External.Office
 Imports Newtonsoft.Json.Linq
 Imports Profact.TimbraCFDI33.Complementos
 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte30
@@ -2525,23 +2526,18 @@ Public Class Timbrado
 concep.DescripcionesEspecificas.NumeroSerie)
                             End If
                         Next
-
-                        End If
-
-
                     End If
                 End If
+            End If
+
 
 #End Region
-
         End If
 
+
 #Region "C O M P L E M E N T O   C A R T A   P O R T E"
-
         If UsuarioActual.CveEmpresa = 13 Then
-
             If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
-
                 Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
 
                 ''DATOS GENERALES
@@ -2555,7 +2551,6 @@ Public Class Timbrado
                         'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
                         cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
                     Next
-
                 End If
 
                 'MERCANCIAS
@@ -2697,6 +2692,11 @@ Public Class Timbrado
 
             For Each docp As CFDIComplementoPago In ObjCFDITimbre.ComplementoPagos20.ComplementoPagos
 
+                Dim MonDiferente As Integer = (From c In docp.DocumentosRelacionados
+                                               Where c.MonedaDR <> docp.MonedaP
+                                               Select c.MonedaDR).Count()
+                If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B
+
                 cfdi.Pago20(docp.FechaPago.ToString("yyyy-MM-ddTHH:mm:ss"),
                               docp.FormaDePagoP,
                               docp.MonedaP,
@@ -2727,7 +2727,7 @@ Public Class Timbrado
                                                            doc.ImpSaldoInsoluto,
                                                            doc.ObjetoImpuesto)
 
-                        If doc.MonedaDR <> docp.MonedaP Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B
+                        'If doc.MonedaDR <> docp.MonedaP Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B
 
                         If doc.Impuestos IsNot Nothing Then
                             ''retenciones