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