From d9b79ba2e68528e9e4ff7f67413c883a32470461 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 17 Feb 2025 18:42:23 -0700 Subject: [PATCH] --FIX iva en descuentos --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 42a2c1b22..a7fbced46 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10252,7 +10252,7 @@ Partial Class Ventas 'VALIDA PROMOCIONES Y EXISTENCIAS Dim ObjVentas As New ClsVentas If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then - DtPromociones = ObjVentas.DtResultados + DtPromociones = ObjVentas.DtResultados.Copy() End If ObjVentas.Dispose() @@ -21212,7 +21212,7 @@ Partial Class Ventas End If PU = PU.RoundSQL(6) DrPoliza("PU") = PU - TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU)) + TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU) - DescAdicional) If DrPSAdicional("IVA").ToString().Contiene("-1", "") Then DrPoliza("PorcentajeIVA") = PorcentajeIVA