correcion en ventas

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