diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 54179530f..087ed3309 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2640,10 +2640,10 @@ 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 AndAlso docp.MonedaP = "USD"
-                                               Select c.MonedaDR).Count()
-                If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B
+                'Dim MonDiferente As Integer = (From c In docp.DocumentosRelacionados
+                ' Where c.MonedaDR <> docp.MonedaP AndAlso docp.MonedaP = "USD"
+                ' Select Case 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,