promociones estatus

2021-03-22 07:57:06 -07:00
parent 729f935b29
commit 5f00017e88
1 changed files with 1 additions and 1 deletions
--- 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()