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