From 018d7a21166b1feaa7b21fda6ed46b24628da1a4 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Jun 2023 16:44:28 -0700 Subject: [PATCH] -- acomodo de filtros --- Bancos/RepEgresosSinComprobante.aspx | 108 ++++++++++++------------ Bancos/RepEgresosSinComprobante.aspx.vb | 28 +++--- 2 files changed, 64 insertions(+), 72 deletions(-) diff --git a/Bancos/RepEgresosSinComprobante.aspx b/Bancos/RepEgresosSinComprobante.aspx index e8ca5c719..7091a53bf 100644 --- a/Bancos/RepEgresosSinComprobante.aspx +++ b/Bancos/RepEgresosSinComprobante.aspx @@ -46,70 +46,57 @@ - - - - -
-
-
-
    -
  • Proveedor: - - - -
    • -
  • Personal: - -
    • -
  • - - - -
    • -
  •  F.I.: -
    - + +
    +
    +
    + + +
    +
    +
    +
    Proveedor:
    +
    +
    + +
    + Fecha Inicio: +
    +
    +
    + - - - - - -
    -
    • -
  •    F.F.: -
    - + + + + + + +
    +
    + Fecha Fin: +
    +
    +
    + - - - - - -
    -
    • -
  •    Con Saldo: - -
    • -
  •    Movimiento: - - - -
    • -
-
-
- - -
+ + + + + + +
+ + +
+ diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 411c89859..4b23ae67d 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -52,9 +52,14 @@ Partial Class Bancos_RepEgresosSinComprobante DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'") DdlTipoTransaccion.DataBind() - DdlUsuarioSolicito.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") + DdlUsuarioSolicito.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") DdlUsuarioSolicito.DataBind() + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" + CargaDatos() End If @@ -67,7 +72,7 @@ Partial Class Bancos_RepEgresosSinComprobante If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1" If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" - If Mov.GetEgresosSinComprobar(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, If(ChkSaldo.Checked, 1, 0), UsuarioActual.CveEmpresa, DdlTipoTransaccion.SelectedValue.ToEntero, DdlUsuarioSolicito.SelectedValue.ToEntero) Then + If Mov.GetEgresosSinComprobar(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, -1, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, If(ChkSaldo.Checked, 1, 0), UsuarioActual.CveEmpresa, DdlTipoTransaccion.SelectedValue.ToEntero, DdlUsuarioSolicito.SelectedValue.ToEntero) Then DtDatos = Mov.DtResultados CargaGrid("") CargaGridPersonal("") @@ -77,18 +82,9 @@ Partial Class Bancos_RepEgresosSinComprobante Mov.Dispose() - End Sub - Protected Sub BtnCargarProveedores_Click(sender As Object, e As System.EventArgs) Handles BtnCargarProveedores.Click - DdlProveedores.CssClass += " select2me" - DdlProveedores.Items.Clear() - DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - - DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Todos", "-1")) - DdlProveedores.Attributes.Remove("onclick") - - End Sub - + End Sub + + Protected Sub GvESC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvESC.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -209,8 +205,8 @@ Partial Class Bancos_RepEgresosSinComprobante For Each gr As GridViewRow In GvESC.Rows If gr.FCCheckBox("Chk").Checked Then Dim IdCtaContable As Integer = 0 - Dim TipoMovtoOtIngresos As Boolean = True - Dim TipoMovtoConcepto As Boolean = False + Dim TipoMovtoOtIngresos As Boolean = False + Dim TipoMovtoConcepto As Boolean = True Dim CveConceptoContable As Integer Select Case gr.DataKey("CveConceptoContable").ToEntero