validación de campos en los pop up

OS/PopUpBuscarOS.aspx.vb

@@ -35,16 +35,19 @@ Partial Class OS_PopUpBuscarOS
         'If TxtFechaRecibido.Text.Trim <> String.Empty Then FechaRecibido.ToString()
         If DdlEstatusOrdenServicio.SelectedValue <> String.Empty Then CveEstatusOrdenServicio = DdlEstatusOrdenServicio.SelectedValue.ToEntero
 
-
-        If ObjOS.GetOrdenesServicios(-1, CveCliente, Folio, CveUsuarioRecibio, CveEstatusOrdenServicio, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
-            If ObjOS.DtResultados.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = ObjOS.DtResultados.Rows.Count.ToString.FormatoNumero(0)
-                GV.DataSource = ObjOS.DtResultados
-            Else
-                LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
-                Alert("No se encontraron registros con losparámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+        If ValidarUnFiltroSeleccionado() Then
+            If ObjOS.GetOrdenesServicios(-1, CveCliente, Folio, CveUsuarioRecibio, CveEstatusOrdenServicio, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
+                If ObjOS.DtResultados.Rows.Count > 0 Then
+                    LtlTotalRegistros.Text = ObjOS.DtResultados.Rows.Count.ToString.FormatoNumero(0)
+                    GV.DataSource = ObjOS.DtResultados
+                Else
+                    LtlTotalRegistros.Text = "0"
+                    GV.DataSource = Nothing
+                    Alert("No se encontraron registros con losparámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+                End If
             End If
+        Else
+            Alert("Seleccione un criterio de búsqueda", TipoMensaje.MsgAdvertencia)
         End If
 
         ObjOS.Dispose()
@@ -108,4 +111,13 @@ Partial Class OS_PopUpBuscarOS
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
+    Private Function ValidarUnFiltroSeleccionado() As Boolean
+        If TxtFolio.Text.Trim <> String.Empty Then Return True
+        If DdlCliente.SelectedValue.ToEntero > 0 Then Return True
+        If DdlUsuarioRecibio.SelectedValue.ToEntero > 0 Then Return True
+        'If TxtFechaRecibido.Text.Trim <> String.Empty Then FechaRecibido.ToString()
+        If DdlEstatusOrdenServicio.SelectedValue.ToEntero > 0 Then Return True
+        Return False
+    End Function
+
 End Class