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

-- redondeo de comparativo

Browse Source
This commit is contained in:
rrene
2024-05-31 06:07:05 -07:00
parent 36c9f5cc27
commit d52f844264
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OC/OC.aspx.vb
View File

@@ -2313,9 +2313,9 @@ Partial Class OC_OC
If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
dr("RetIVAPorcentaje") = RetIVA
dr("RetIVA") = (RetIVA * Total).RoundSQL(6)
dr("RetIVA") = (RetIVA * Total).RoundSQL(2)
dr("RetISRPorcentaje") = RetISR
dr("RetISR") = (RetISR * Total).RoundSQL(6)
dr("RetISR") = (RetISR * Total).RoundSQL(2)
dr("CveClasificacion") = CveClasificacion
dr("UM") = UM
dr("Clasificacion") = Clasificacion
@@ -3327,7 +3327,7 @@ Partial Class OC_OC
Dim SubTotalRetIVA As Decimal = DtDetalle.SUMD("RetIVA")
Dim SubTotalRetISR As Decimal = DtDetalle.SUMD("RetISR")
Dim Total As Decimal = (Subtotal - Descuento + IVA + SubTotalIEPS - SubTotalRetIVA - SubTotalRetISR)
Dim Total As Decimal = (Subtotal - Descuento + IVA + SubTotalIEPS - SubTotalRetIVA - SubTotalRetISR).RoundSQL(2)
Dim Diferencia As Decimal = (Total - LblTotal.Text.ToDecimal).RoundSQL(2)
If Math.Abs(Diferencia) > 0 Then