From 11c8e53f6ff9eb484cb475a3efc20c09eb7d8a03 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 19 Mar 2021 09:55:11 -0700
Subject: [PATCH] correcion en ventas

---
 Ventas/Ventas.aspx.vb | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1ab871503..871ba36d3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12996,10 +12996,8 @@ Partial Class Ventas
                                 Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
                                 Dim IdCtaContable As Integer = 0
                                 Dim CveCuenta As Integer = 0
-                                Dim TotalCostoAcumulado As Decimal = 0
-
                                 If tmpCostos.Rows.Count > 0 Then
-
+                                    Dim TotalCostoAcumulado As Decimal = 0
                                     Dim cont As Integer = 1
                                     'Se agrega movimiento separado por la cuenta de ventas (ER)
                                     For Each RowInv As DataRow In tmpCostos.Rows
@@ -13023,12 +13021,6 @@ Partial Class Ventas
                                         cont += 1
                                     Next
                                 End If
-
-                                'AJUSTA EL TOTAL
-                                If Math.Abs(TotalCostoAcumulado - TotalCosto) = 0.01 Then
-                                    TotalCosto = TotalCostoAcumulado
-                                End If
-
                                 IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero()
 
                                 'If TotalCosto <> 0 Then