diff --git a/Bancos/PopUpBuscarIE.aspx b/Bancos/PopUpBuscarIE.aspx index def89512c..83598375e 100644 --- a/Bancos/PopUpBuscarIE.aspx +++ b/Bancos/PopUpBuscarIE.aspx @@ -23,30 +23,23 @@ Filtros para búsqueda - - Banco: - - - - - - Cuenta: - - - - - - + Folio: - - + + - + Cuenta: + + + + + + Fecha Inicio: - +
<%-- --%> - + @@ -58,6 +51,22 @@
+ Fecha Fin: + +
+ <%-- --%> + + + + + + + + + + +
+ diff --git a/Bancos/PopUpBuscarIE.aspx.vb b/Bancos/PopUpBuscarIE.aspx.vb index 48abdea72..8b5a2a8fe 100644 --- a/Bancos/PopUpBuscarIE.aspx.vb +++ b/Bancos/PopUpBuscarIE.aspx.vb @@ -47,22 +47,22 @@ Partial Class Bancos_PopUpBuscarIE #Region " C A R G A - D A T O S" Private Sub CargaDatos() - CargaBanco() + ' CargaBanco() CargaCuenta() End Sub - Private Sub CargaBanco() - DdlBanco.DataSource = GlobalDTBancos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlBanco.DataBind() - End Sub + 'Private Sub CargaBanco() + ' DdlBanco.DataSource = GlobalDTBancos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + ' DdlBanco.DataBind() + 'End Sub Private Sub CargaCuenta() DdlCuenta.Items.Clear() - DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveBanco = '" & DdlBanco.SelectedValue.ToEntero & "'") + DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros("CveBanco = '" & DdlBanco.SelectedValue.ToEntero & "'") DdlCuenta.DataBind() DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1")) End Sub - Protected Sub DdlBanco_SelectedIndexChanged1(sender As Object, e As System.EventArgs) Handles DdlBanco.SelectedIndexChanged - CargaCuenta() - End Sub + 'Protected Sub DdlBanco_SelectedIndexChanged1(sender As Object, e As System.EventArgs) Handles DdlBanco.SelectedIndexChanged + ' CargaCuenta() + 'End Sub #End Region @@ -73,7 +73,7 @@ Partial Class Bancos_PopUpBuscarIE If ValidarFiltrosSeleccionado() Then Dim ObjBancosIE As New ClsBancos - If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate, + If ObjBancosIE.GetBancosIE(-1, -1, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate, MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados) Else @@ -110,7 +110,7 @@ Partial Class Bancos_PopUpBuscarIE End Sub Private Function ValidarFiltrosSeleccionado() As Boolean - If DdlBanco.SelectedValue.ToEntero > 0 Then Return True + ' If DdlBanco.SelectedValue.ToEntero > 0 Then Return True If DdlCuenta.SelectedValue.ToEntero > 0 Then Return True If TxtFolio.Text.Length > 0 Then Return True Return False