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