From d52f844264268eaaede9f03da32e82340bbaea7d Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 31 May 2024 06:07:05 -0700 Subject: [PATCH] -- redondeo de comparativo --- OC/OC.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 168218ffe..3a7c3dc60 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -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