validacion de los filtros de los pop up

Ventas/PopUpBuscarPs.aspx.vb

@@ -64,18 +64,24 @@ Partial Class PopUpBuscarPs
         If TxtCodigoBarras.Text.Trim = "" Then CodigoBarras = "-1" Else CodigoBarras = TxtCodigoBarras.Text.Trim
         If TxtNombre.Text = "" Then Nombre = "-1" Else Nombre = TxtNombre.Text.ToUpper
 
-        Dim ObjPS As New ClsProductosServicios
-        If ObjPS.GetPS(-1, Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Codigo:=Codigo, CodigoBarras:=CodigoBarras, PS:=Nombre, pEstado:=DdlEstado.SelectedValue.ToEntero, CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero, pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero) Then
-            GvDatos.DataSource = ObjPS.DtResultados
-            dvbusqueda.Visible = True
-        Else
-            GvDatos.DataSource = Nothing
-            dvbusqueda.Visible = False
-        End If
-        ObjPS.Dispose()
+        If ValidarUnFiltroSeleccionado() Then
+            Dim ObjPS As New ClsProductosServicios
+            If ObjPS.GetPS(-1, Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Codigo:=Codigo, CodigoBarras:=CodigoBarras, PS:=Nombre,
+                           pEstado:=DdlEstado.SelectedValue.ToEntero, CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero, pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero,
+                           CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero) Then
+                GvDatos.DataSource = ObjPS.DtResultados
+                dvbusqueda.Visible = True
+            Else
+                GvDatos.DataSource = Nothing
+                dvbusqueda.Visible = False
+            End If
+            ObjPS.Dispose()
 
-        GvDatos.DataBind()
-        GvDatos.UseAccessibleHeader = True
+            GvDatos.DataBind()
+            GvDatos.UseAccessibleHeader = True
+        Else
+            Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
+        End If
     End Sub
 #End Region
 
@@ -95,6 +101,11 @@ Partial Class PopUpBuscarPs
         If TxtCodigo.Text.Trim <> String.Empty Then Return True
         If TxtCodigoBarras.Text.Trim <> String.Empty Then Return True
         If TxtNombre.Text.Trim <> String.Empty Then Return True
+
+        If DdlCveTipoPS.SelectedValue.ToEntero > 0 Then Return True
+        If DdlAplicaVenta.SelectedValue.ToEntero > 0 Then Return True
+        If DdlCompuesto.SelectedValue.ToEntero > 0 Then Return True
+
         Return False
     End Function