diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index fa3deb688..613dfe374 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -347,7 +347,7 @@ Public Class ClsProductosServicios
 
         Return Retorno
     End Function
-    Public Function GetPSLite(CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveTipoPS As Integer = -1, Optional UsoClasificacion As Integer = -1) As Boolean
+    Public Function GetPSLite(CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveTipoPS As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         ' @CveClasificacion int, @Codigo varchar(50) = '-1', @PS varchar(300) = '-1',  @AplicaParaVenta int = -1, @Estado int = -1, @CodigoBarras varchar(50) = '-1', @CveTipoPS int = -1, @CveEmpresa int
         DataAdapter("PA_ProductosServiciosLiteGet")
@@ -360,6 +360,7 @@ Public Class ClsProductosServicios
             .Add("@AplicaParaVenta", SqlDbType.Int).Value = pAplicaParaVenta
             .Add("@Estado", SqlDbType.Int).Value = pEstado
             .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@UsoClasificacion", SqlDbType.Int).Value = UsoClasificacion
         End With
diff --git a/Ventas/CatPS.aspx b/Ventas/CatPS.aspx
index 61512bfa9..54ae45b71 100644
--- a/Ventas/CatPS.aspx
+++ b/Ventas/CatPS.aspx
@@ -189,13 +189,18 @@
                             </asp:DropDownList>
                         </div>
                         <label class="col-md-1 truncate">Aplica para Venta:</label>
-                        <div class="col-md-2">
+                        <div class="col-md-1">
                             <asp:DropDownList runat="server" ID="DdlAplicaVenta" CssClass="form-control input-sm select2me" Width="90%">
                                 <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
                                 <asp:ListItem Text="Si" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                         <label class="col-md-1 truncate">Marca:</label>
+                         <div class="col-md-2">
+                             <asp:DropDownList runat="server" ID="DdlMarcas" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me" Width="90%">                                 
+                             </asp:DropDownList>
+                         </div>
                     </div>
                 </div>
             </div>
diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb
index aa09a535e..4b8a2f3dd 100644
--- a/Ventas/CatPS.aspx.vb
+++ b/Ventas/CatPS.aspx.vb
@@ -58,6 +58,10 @@ Partial Class CatPS
         Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue))
         Ddlclasificacion.DataBind()
         Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlMarcas.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+        DdlMarcas.DataBind()
+        DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Public Sub CargaDatos()
@@ -70,7 +74,12 @@ Partial Class CatPS
         If TxtNombre.Text.Trim = "" Then Nombre = "-1" Else Nombre = TxtNombre.Text.ToUpper.Trim
 
         Dim ObjPS As New ClsProductosServicios
-        If ObjPS.GetPSLite(Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, Codigo, CodigoBarras, Nombre, DdlAplicaVenta.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, DdlCveTipoPS.SelectedValue.ToEntero, DdlTipoClasificacion.SelectedValue.ToEntero) Then
+        If ObjPS.GetPSLite(Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, Codigo, CodigoBarras, Nombre,
+                           pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero,
+                           pEstado:=DdlEstado.SelectedValue.ToEntero,
+                           CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero,
+                           UsoClasificacion:=DdlTipoClasificacion.SelectedValue.ToEntero,
+                           CveMarca:=DdlMarcas.SelectedValue.ToEntero) Then
             DtDatos = ObjPS.DtResultados
             GvDatos.DataSource = DtDatos
         Else