AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambio en timbrado complemento de pago rev B

Browse Source
This commit is contained in:
rrene
2024-03-04 18:16:38 -07:00
parent c0901efc61
commit e39a17cb11
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/Timbrado.vb
View File

@@ -2693,7 +2693,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
For Each docp As CFDIComplementoPago In ObjCFDITimbre.ComplementoPagos20.ComplementoPagos For Each docp As CFDIComplementoPago In ObjCFDITimbre.ComplementoPagos20.ComplementoPagos
Dim MonDiferente As Integer = (From c In docp.DocumentosRelacionados 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() Select c.MonedaDR).Count()
If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B