diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index e864519ea..fe050542c 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2156,7 +2156,7 @@ Public Class ClsVentas
 #End Region
 
 #Region "   PROMOCIONES DETALLE   "
-    Public Function GetPromocionesPS(CvePS As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetPromocionesPS(CvePS As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveCliente As Integer, CveVendedor As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesPSGet")
 
@@ -2166,6 +2166,7 @@ Public Class ClsVentas
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 37f285efa..d79a5d6b7 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -526,7 +526,7 @@ Namespace Modelos
 
                 Dim ObjVentas As New ClsVentas
                 'CARGA PROMOCIONES
-                If ObjVentas.GetPromocionesPS(-1, Me.Fecha, Me.CveSubProyecto, CveCliente, Me.CveVendedor, Me.CveEmpresa) Then
+                If ObjVentas.GetPromocionesPS(-1, Me.Fecha, Me.CveSubProyecto, CveCliente, Me.CveVendedor, 1, Me.CveEmpresa) Then
                     Me.DtPromociones = ObjVentas.DtResultados.Copy()
                 End If