validación de campos en los pop up

CGame/PopUpBuscarOrdenProduccion.aspx.vb

@@ -37,19 +37,23 @@ Partial Class CGame_PopUpBuscarOrdenProduccion
     Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
         Dim Folio As String
         If TxtFolio.Text.Trim <> "" Then Folio = TxtFolio.Text Else Folio = "-1"
-        Dim ObjOP As New ClsCGame
-        If ObjOP.GetOrdenProduccion(-1, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero, Folio, TxtFechaEntregaI.Text.ToDate, TxtFechaEntregaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero) Then
-            GvOP.DataSource = ObjOP.DtResultados
-            GvOP.DataBind()
-            LtlTotalRegistros.Text = ObjOP.DtResultados.Rows.Count.ToString
-            If Not ObjOP.DtResultados.Rows.Count > 0 Then
-                Alert("No se encontraron resultados con los filtros seleccionados", TipoMensaje.MsgAdvertencia)
-            Else
-                TblBusqueda.Visible = True
+        If ValidarFiltrosSeleccionado() Then
+            Dim ObjOP As New ClsCGame
+            If ObjOP.GetOrdenProduccion(-1, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero, Folio, TxtFechaEntregaI.Text.ToDate, TxtFechaEntregaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero) Then
+                GvOP.DataSource = ObjOP.DtResultados
+                GvOP.DataBind()
+                LtlTotalRegistros.Text = ObjOP.DtResultados.Rows.Count.ToString
+                If Not ObjOP.DtResultados.Rows.Count > 0 Then
+                    Alert("No se encontraron resultados con los filtros seleccionados", TipoMensaje.MsgAdvertencia)
+                Else
+                    TblBusqueda.Visible = True
+                End If
             End If
+            ObjOP.Dispose()
+            UPDatos.Update()
+        Else
+            Alert("Seleccione un criterio de busqueda", TipoMensaje.MsgAdvertencia)
         End If
-        ObjOP.Dispose()
-        UPDatos.Update()
     End Sub
 
     Private Sub GvOP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOP.RowDataBound
@@ -57,4 +61,13 @@ Partial Class CGame_PopUpBuscarOrdenProduccion
             e.Row.FCLabel("LblFolio").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", "<a  href='javascript:Ir(""" & e.Row.DBCampo("CveOrdenProduccion") & """);'>", e.Row.DBCampo("Folio"))
         End If
     End Sub
+
+    Private Function ValidarFiltrosSeleccionado() As Boolean
+        If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
+        If TxtFolio.Text.Length > 0 Then Return True
+        If TxtFechaEntregaI.Text.Length > 0 Then Return True
+        If TxtFechaEntregaF.Text.Length > 0 Then Return True
+        If DdlCliente.SelectedValue.ToEntero > 0 Then Return True
+        Return False
+    End Function
 End Class