validacion de los filtros de los pop up

2020-05-29 22:06:19 -07:00
parent 38d6dbd8d9
commit 757943a921
6 changed files with 184 additions and 85 deletions
--- a/Compras/PopUpBuscarFolioC.aspx.vb
+++ b/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

--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/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))
--- a/RH/PopUpBuscarPersonal.aspx.vb
+++ b/RH/PopUpBuscarPersonal.aspx.vb
@@ -142,7 +142,6 @@ Partial Class RH_PopUpBuscarPersonal
    End Sub

    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
-        Dim ObjPersonal As New ClsRH()

        Dim Codigo As String = "-1"
        Dim Nombre As String = "-1"
@@ -161,26 +160,32 @@ Partial Class RH_PopUpBuscarPersonal

        Dim StrFiltroCaracteristica As String = GeneraFiltroCaracteristicas()

-        If ObjPersonal.GetPersonal2(-1, Codigo, Nombre, NSS, RFC, DdlTurnos.SelectedValue.ToEntero, DdlPuestos.SelectedValue.ToEntero, DdlDepartamentos.SelectedValue.ToEntero,
+        If ValidarFiltrosSeleccionado() Then
+
+            Dim ObjPersonal As New ClsRH()
+            If ObjPersonal.GetPersonal2(-1, Codigo, Nombre, NSS, RFC, DdlTurnos.SelectedValue.ToEntero, DdlPuestos.SelectedValue.ToEntero, DdlDepartamentos.SelectedValue.ToEntero,
                                   DdlRuta.SelectedValue.ToEntero, DdlEscolaridad.SelectedValue.ToEntero, DdlEstadoCivil.SelectedValue.ToEntero, DdlGenero.SelectedValue.ToEntero,
                                   DdlEstatus.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlClienteAsignado.SelectedValue.ToEntero, Horario, CveSupervisor,
                                   -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", StrFiltroCaracteristica, 1, UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = ObjPersonal.DtResultados.Rows.Count.ToString.FormatoNumero(0)
-                GV.DataSource = ObjPersonal.DtResultados
-            Else
-                LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
-                Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+                If ObjPersonal.DtResultados.Rows.Count > 0 Then
+                    LtlTotalRegistros.Text = ObjPersonal.DtResultados.Rows.Count.ToString.FormatoNumero(0)
+                    GV.DataSource = ObjPersonal.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
+
+            ObjPersonal.Dispose()
+            GV.DataBind()
+
+            UPDatos.Update()
+
+            TblBusqueda.Visible = True
+        Else
+            Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
        End If
-
-        ObjPersonal.Dispose()
-        GV.DataBind()
-
-        UPDatos.Update()
-
-        TblBusqueda.Visible = True
    End Sub

    Private Function GeneraFiltroCaracteristicas() As String
@@ -385,11 +390,23 @@ Partial Class RH_PopUpBuscarPersonal
    End Sub

    Private Function ValidarFiltrosSeleccionado() As Boolean
-        If TxtCodigo.Text.Trim = String.Empty Then Return True
-        If TxtNombre.Text.Trim = String.Empty Then Return True
-        If TxtNSS.Text.Trim = String.Empty Then Return True
-        If TxtRFC.Text.Trim = String.Empty Then Return True
-        If TxtHorarioDe.Text.Trim = String.Empty Then Return True
+        If TxtCodigo.Text.Trim <> String.Empty Then Return True
+        If TxtNombre.Text.Trim <> String.Empty Then Return True
+        If TxtNSS.Text.Trim <> String.Empty Then Return True
+        If TxtRFC.Text.Trim <> String.Empty Then Return True
+        If TxtHorarioDe.Text.Trim <> String.Empty Then Return True
+
+        If DdlTurnos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlPuestos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlDepartamentos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlRuta.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEscolaridad.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstadoCivil.SelectedValue.ToEntero > 0 Then Return True
+        If DdlGenero.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlClienteAsignado.SelectedValue.ToEntero > 0 Then Return True
+
        Return False
    End Function

--- a/Ventas/PopUpBuscarClientes.aspx.vb
+++ b/Ventas/PopUpBuscarClientes.aspx.vb
@@ -54,7 +54,6 @@ Partial Class PopUpBuscarClientes
    End Sub

    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
-        Dim ObjClientes As New ClsClientes()

        Dim Nombre As String = "-1"
        Dim Codigo As String = "-1"
@@ -70,30 +69,37 @@ Partial Class PopUpBuscarClientes
        If TxtTelefono.Text.Trim <> String.Empty Then Telefono = TxtTelefono.Text.Trim
        If TxtMail.Text.Trim <> String.Empty Then Mail = TxtMail.Text.Trim

-        If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente) Then
-            If ObjClientes.DtResultados.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = ObjClientes.DtResultados.Rows.Count.ToString.FormatoNumero(0)
-                GV.DataSource = ObjClientes.DtResultados
-                If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 Then
-                    GV.DataSource = ObjClientes.DtResultados.FiltraParametros("CveCliente IN (10450, 10460, 10458)")
-                    LtlTotalRegistros.Text = "0"
-                ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 Then
-                    GV.DataSource = ObjClientes.DtResultados.FiltraParametros("CveCliente IN (27448)")
+        If ValidarUnFiltroSeleccionado() Then
+
+            Dim ObjClientes As New ClsClientes()
+            If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
+                                   DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente) Then
+                If ObjClientes.DtResultados.Rows.Count > 0 Then
+                    LtlTotalRegistros.Text = ObjClientes.DtResultados.Rows.Count.ToString.FormatoNumero(0)
+                    GV.DataSource = ObjClientes.DtResultados
+                    If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 Then
+                        GV.DataSource = ObjClientes.DtResultados.FiltraParametros("CveCliente IN (10450, 10460, 10458)")
+                        LtlTotalRegistros.Text = "0"
+                    ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 Then
+                        GV.DataSource = ObjClientes.DtResultados.FiltraParametros("CveCliente IN (27448)")
+                        LtlTotalRegistros.Text = "0"
+                    End If
+                Else
                    LtlTotalRegistros.Text = "0"
+                    GV.DataSource = Nothing
+                    Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
                End If
-            Else
-                LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
-                Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
            End If
+
+            ObjClientes.Dispose()
+            GV.DataBind()
+
+            UPDatos.Update()
+
+            TblBusqueda.Visible = True
+        Else
+            Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
        End If
-
-        ObjClientes.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
@@ -127,4 +133,17 @@ Partial Class PopUpBuscarClientes
            e.Row.FCLiteral("LtlMail").Text = String.Format("<div class='truncate' style='width:100px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Mail"))
        End If
    End Sub
+
+    Private Function ValidarUnFiltroSeleccionado() As Boolean
+        If TxtNombre.Text.Trim <> String.Empty Then Return True
+        If TxtCodigo.Text.Trim <> String.Empty Then Return True
+        If TxtNombreCorto.Text.Trim <> String.Empty Then Return True
+        If TxtRFC.Text.Trim <> String.Empty Then Return True
+        If TxtTelefono.Text.Trim <> String.Empty Then Return True
+        If TxtMail.Text.Trim <> String.Empty Then Return True
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
+        Return False
+    End Function
+
 End Class
--- a/Ventas/PopUpBuscarFolio.aspx.vb
+++ b/Ventas/PopUpBuscarFolio.aspx.vb
@@ -88,7 +88,6 @@ Partial Class PopUpBuscarFolio

    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click

-        Dim ObjVentas As New ClsVentas()

        Dim Serie As String = "-1"
        Dim Folio As Integer = -1
@@ -123,23 +122,31 @@ Partial Class PopUpBuscarFolio
        PeidoContrato = If(TxtPedidoContrato.Text.Length = 0, "-1", TxtPedidoContrato.Text.Trim)
        OrdenCompra = If(TxtOrdenCompra.Text.Length = 0, "-1", TxtOrdenCompra.Text.Trim)

-        If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Serie, Folio, Codigo, Cliente.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusFactura.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, FolioFiscal, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedValue.ToEntero, -1), DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
-            If ObjVentas.DtResultados.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = ObjVentas.DtResultados.Rows.Count.ToString.FormatoNumero(0)
-                GV.DataSource = ObjVentas.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 ObjVentas As New ClsVentas()
+            If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Serie, Folio, Codigo, Cliente.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
+                               DdlEstatusFactura.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, FolioFiscal, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedValue.ToEntero, -1),
+                               DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+                If ObjVentas.DtResultados.Rows.Count > 0 Then
+                    LtlTotalRegistros.Text = ObjVentas.DtResultados.Rows.Count.ToString.FormatoNumero(0)
+                    GV.DataSource = ObjVentas.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
+
+            ObjVentas.Dispose()
+            GV.DataBind()
+
+            UPDatos.Update()
+
+            TblBusqueda.Visible = True
+        Else
+            Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
        End If
-
-        ObjVentas.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
@@ -271,4 +278,20 @@ Partial Class PopUpBuscarFolio
        DdlEstatusFactura.Items.Add(New ListItem("Todos", "-1"))
        DdlEstatusFactura.DataBind()
    End Sub
+
+    Private Function ValidarUnFiltroSeleccionado() As Boolean
+        If DdlTipoDocto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstatusFactura.SelectedValue.ToEntero > 0 Then Return True
+        If DdlUsuario.SelectedValue.ToEntero > 0 Then Return True
+        If DdlPS.SelectedValue.ToEntero > 0 Then Return True
+
+        If DdlNombre.SelectedValue.ToEntero > 0 Then Return True
+        If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True
+        If TxtPedidoContrato.Text.Length > 0 Then Return True
+        If TxtOrdenCompra.Text.Length > 0 Then Return True
+
+        Return False
+
+    End Function
 End Class
--- a/Ventas/PopUpBuscarPs.aspx.vb
+++ b/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