validacion de los filtros de los pop up

Compras/PopUpBuscarFolioC.aspx.vb

@@ -38,7 +38,6 @@ Partial Class Compras_PopUpBuscarFolioC
 
 
     Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
-        Dim ObjCompras As New ClsCompras()
 
         Dim Folio As String = "-1"
         Dim FolioFiscal As String = "-1"
@@ -55,23 +54,29 @@ Partial Class Compras_PopUpBuscarFolioC
         Descripcion = If(TxtDescripcion.Text.Trim = "", "-1", TxtDescripcion.Text.Trim)
         Obs = If(TxtObservaciones.Text.Trim = "", "-1", TxtObservaciones.Text.Trim)
 
-        If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs, CveProveedor:=DdlProveedor.SelectedValue.ToEntero) Then
-            If ObjCompras.DtResultados.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
-                GV.DataSource = ObjCompras.DtResultados
-            Else
-                LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
-                Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+        If ValidarUnFiltroSeleccionado() Then
+            Dim ObjCompras As New ClsCompras()
+            If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
+                                 CveProveedor:=DdlProveedor.SelectedValue.ToEntero) Then
+                If ObjCompras.DtResultados.Rows.Count > 0 Then
+                    LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
+                    GV.DataSource = ObjCompras.DtResultados
+                Else
+                    LtlTotalRegistros.Text = "0"
+                    GV.DataSource = Nothing
+                    Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+                End If
             End If
+
+            ObjCompras.Dispose()
+            GV.DataBind()
+
+            UPDatos.Update()
+
+            TblBusqueda.Visible = True
+        Else
+            Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
         End If
-
-        ObjCompras.Dispose()
-        GV.DataBind()
-
-        UPDatos.Update()
-
-        TblBusqueda.Visible = True
     End Sub
     Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -100,5 +105,14 @@ Partial Class Compras_PopUpBuscarFolioC
 
         End If
     End Sub
+
+    Private Function ValidarUnFiltroSeleccionado() As Boolean
+        If TxtFolio.Text.Trim.Length > 0 Then Return True
+        If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True
+        If TxtDescripcion.Text.Trim.Length > 0 Then Return True
+        If TxtObservaciones.Text.Trim.Length > 0 Then Return True
+        If DdlTipoDocto.SelectedValue.ToEntero > 0 Then Return True
+        Return False
+    End Function
 End Class
 

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -340,6 +340,21 @@ Partial Class Compras_RepRembolsoComprobaciones
             params.Add(New ReportParameter("Autorizo", ""))
             params.Add(New ReportParameter("ElaboroPuesto", ""))
             params.Add(New ReportParameter("AutorizoPuesto", ""))
+
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+            params.Add(New ReportParameter("CveCajaChica", DtDatos.Rows(0)("CveCajaChica").ToString))
+            params.Add(New ReportParameter("CveFyE", "0")) '
+
+            params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ""))
+            params.Add(New ReportParameter("CajaChica", "Caja chica: " & ""))
+            params.Add(New ReportParameter("observaciones", "Observaciones: " & ""))
+            params.Add(New ReportParameter("folio", DtDatos.Rows(0)("Folio").ToString))
+            params.Add(New ReportParameter("fecha", ""))
+            params.Add(New ReportParameter("importe", ""))
+            params.Add(New ReportParameter("TotAbono", DtDatos.SUM("Abonado").ToString))
+
             ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtDatos.FiltraParametros("CveCompra > 0"), params, "Reembolso", RDSName:="DsCompras")
         Else
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))