diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index a90790e77..023027ecb 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -643,7 +643,7 @@ Partial Class OS_OrdenesServicios
     End Sub
     Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList)
         Objeto.Items.Clear()
-        Objeto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1).FiltraParametros(" CveTipoPS=1")
+        Objeto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=1).FiltraParametros(" CveTipoPS=1")
         Objeto.DataBind()
         Objeto.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
         Objeto.Items.Insert(0, New ListItem("Seleccione el Servicio", "-1"))