From 5f00017e88f79537242eaee78166153e04899b71 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 22 Mar 2021 07:57:06 -0700
Subject: [PATCH] promociones estatus

---
 asmx/WSApp.asmx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index 33116c656..8506eb55c 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -1052,7 +1052,7 @@ Public Class WSApp
 
             'VALIDA PROMOCIONES Y EXISTENCIAS
             Dim ObjVentas As New ClsVentas
-            If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, CveCliente, ObjFactura.CveVendedor, UsuarioActual.CveEmpresa) Then
+            If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
                 ObjFactura.DtPromociones = ObjVentas.DtResultados
             End If
             ObjVentas.Dispose()