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

-- se aplicó redondeo para complementos de pago

Browse Source
This commit is contained in:
rrene
2024-01-13 16:22:01 -07:00
parent ea91d26479
commit 5eca282a9f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/CFDITimbre.vb
View File

@@ -479,14 +479,14 @@ Public Class CFDIComplementoPagos20
Public ReadOnly Property MontoTotalPagos As Decimal Public ReadOnly Property MontoTotalPagos As Decimal
Get Get
Return (From c In ComplementoPagos Select c.Monto * c.TipoCambioP).Sum() Return (From c In ComplementoPagos Select c.Monto * c.TipoCambioP).Sum().RoundSQL()
End Get End Get
End Property End Property
Public ReadOnly Property TotalTrasladosBaseIVA0 As Decimal Public ReadOnly Property TotalTrasladosBaseIVA0 As Decimal
Get Get
Dim Ret As Decimal = 0 Dim Ret As Decimal = 0
For Each cfd As CFDIComplementoPago In ComplementoPagos For Each cfd As CFDIComplementoPago In ComplementoPagos
Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.BaseMN).Sum() * cfd.TipoCambioP.RoundSQL(4)) 'temporal redondeo a 4, 2023.07.07 Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.BaseMN).Sum() * cfd.TipoCambioP)
Next Next
Return Ret.RoundSQL() Return Ret.RoundSQL()
End Get End Get