validación de campos en los pop up

Ventas/PopUpBuscarPs.aspx.vb

@@ -91,6 +91,12 @@ Partial Class PopUpBuscarPs
     End Sub
 #End Region
 
+    Private Function ValidarUnFiltroSeleccionado() As Boolean
+        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
+        Return False
+    End Function
 
 
 End Class