- mejora Revisión B

App_Code/Timbrado.vb

@@ -2458,7 +2458,7 @@ Public Class Timbrado
 
 #End Region
 
-#Region "Comercio Exterior"
+#Region "C O M P L E M E N T O   D E   C O M E R C I O   E X T E R I O R"
 
             If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
                     If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
@@ -2536,8 +2536,6 @@ Public Class Timbrado
 
         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
@@ -2681,8 +2679,7 @@ Public Class Timbrado
 
 #End Region
 
-
-#Region "Complemento Pago"
+#Region "C O M P L E M E N T O   D E   P A G O"
 
         If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then
 
@@ -2730,6 +2727,8 @@ Public Class Timbrado
                                                            doc.ImpSaldoInsoluto,
                                                            doc.ObjetoImpuesto)
 
+                        If doc.MonedaDR <> docp.MonedaP Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B
+
                         If doc.Impuestos IsNot Nothing Then
                             ''retenciones
                             If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "R").Count > 0 Then
@@ -2771,9 +2770,7 @@ Public Class Timbrado
         End If
 #End Region
 
-
-
-#Region "Nomina12"
+#Region "C O M P L E M E N T O    D E    N O M I N A"
         If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
 
             'cfdi.Esquema.AgregarEsquema("http://www.sat.gob.mx/nomina12 http://www.sat.gob.mx/sitio_internet/cfd/nomina/nomina12.xsd")