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()