From ed22989433db79b2641f441b664f128a3a23d55f Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 13:24:19 -0700
Subject: [PATCH] -- ajuste de centavos en la aplicacion de NC

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 07c983de7..5ecec89aa 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -23887,7 +23887,7 @@ Partial Class Ventas
 
         If Math.Abs(difTmp) > 0.00D Then
             'asusto la diferencia en el último concepto
-            Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + Math.Abs(difTmp)
+            Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + difTmp
             DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal") = ImporteAjustado
             DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImportePU") = ImporteAjustado
         End If