From e39a17cb11ee972df185e1eef48b919201caf22e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 4 Mar 2024 18:16:38 -0700
Subject: [PATCH] -- cambio en timbrado complemento de pago rev B

---
 App_Code/Timbrado.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index ff33b1f0b..2b10e9997 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2693,7 +2693,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
             For Each docp As CFDIComplementoPago In ObjCFDITimbre.ComplementoPagos20.ComplementoPagos
 
                 Dim MonDiferente As Integer = (From c In docp.DocumentosRelacionados
-                                               Where c.MonedaDR <> docp.MonedaP
+                                               Where c.MonedaDR <> docp.MonedaP AndAlso docp.MonedaP = "USD"
                                                Select c.MonedaDR).Count()
                 If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B