From 9e24a34f93c3968fda26872bc2f3537ad76756a5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 11 Mar 2021 12:12:13 -0700
Subject: [PATCH] parametro estatus promociones

---
 Ventas/PV.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 5e4698a5b..8826d76a9 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3064,7 +3064,7 @@ Partial Class PV
 
                     'VALIDA PROMOCIONES Y EXISTENCIAS
                     Dim ObjVentas As New ClsVentas
-                    If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                    If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
                         DtPromociones = ObjVentas.DtResultados
                     End If
                     ObjVentas.Dispose()
@@ -4523,7 +4523,7 @@ Partial Class PV
 
         'VALIDA PROMOCIONES
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
             DtPromociones = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()