-- cambio en timbrado complemento de pago rev B

2024-03-04 18:16:38 -07:00
parent c0901efc61
commit e39a17cb11
1 changed files with 1 additions and 1 deletions
--- 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