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

-- se quita valdidación inicial de cambio B,. sobre complemento de pago, cuando el pago tiene facturas de diferete moneda

Browse Source
This commit is contained in:
rrene
2024-07-04 14:23:39 -07:00
parent 2ac43a1fa5
commit 41430372f5
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/Timbrado.vb
View File

@@ -2640,10 +2640,10 @@ 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 AndAlso docp.MonedaP = "USD" ' Where c.MonedaDR <> docp.MonedaP AndAlso docp.MonedaP = "USD"
Select c.MonedaDR).Count() ' Select Case 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
cfdi.Pago20(docp.FechaPago.ToString("yyyy-MM-ddTHH:mm:ss"), cfdi.Pago20(docp.FechaPago.ToString("yyyy-MM-ddTHH:mm:ss"),
docp.FormaDePagoP, docp.FormaDePagoP,