From f5a60aa736e509fdf0cef53b034d3c857c5576fa Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 10 Jul 2023 13:16:53 -0700 Subject: [PATCH] -- en el listado de cuentas, no mostrar las cuentas que inician con _global, _activo.... --- Contabilidad2/RepAnexoCatalogo.aspx.vb | 7 +- .../RepMovimientosAuxiliaresCatalogo.aspx | 11 +-- .../RepMovimientosAuxiliaresCatalogo.aspx.vb | 74 +++---------------- 3 files changed, 17 insertions(+), 75 deletions(-) diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index b22362481..3267b6c7d 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -182,10 +182,9 @@ Partial Class AC2_RepAnexoCatalogo Dim strGlobal As String = "" If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then - Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") - If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString - 'DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1") - DdlCuentas.DataSource = ObjTipoCuenta.DtResultados + + DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')") + ' DdlCuentas.DataSource = ObjTipoCuenta.DtResultados End If ObjTipoCuenta.Dispose() diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx index c17f5d1e9..db716dc83 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx @@ -93,12 +93,7 @@ - - - + @@ -137,8 +132,8 @@
-
- + + diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb index f5a336676..7ca8a902a 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -44,22 +44,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo ViewState("FechaFin") = value End Set End Property - 'Private Property CveSubProyecto As String - ' Get - ' CveSubProyecto = ViewState("CveSubProyecto").ToString - ' End Get - ' Set(value As String) - ' ViewState("CveSubProyecto") = value - ' End Set - 'End Property - Private Property IdCuenta As Integer - Get - IdCuenta = ViewState("IdCuenta").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("IdCuenta") = value - End Set - End Property + Private Property TotalPadre As Boolean Get TotalPadre = CBool(ViewState("TotalPadre")) @@ -113,17 +98,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then - IdCuenta = Request("CveCuenta").ToEntero - 'HdnCveCuenta.Value = IdCuenta.ToString - FechaFin = Request("FF").ToDate txtFechaF.Text = FechaFin.ToShortDateString - DdlCuentas.SelectedValueExist(IdCuenta) - If DdlCuentas.SelectedValue.ToEntero <> -1 Then - 'RegistraScript("Enable();") - DdlTipoCuentas.SelectedValueExist(-2) - End If + DdlCuentas.SelectedValueExist(Request("CveCuenta").ToEntero) + If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then FechaInicio = Request("FI").ToDate @@ -176,12 +155,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) - If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then + If DdlCuentas.SelectedValue.ToEntero = -1 Then Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError) Else FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate) FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate) - IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero) CargaDatos() End If @@ -203,25 +181,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo Return Str.ToString End Function Private Sub CargaTipoCuentas() - ' Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa) - Dim strGlobal As String = "" - If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then - Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") - If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString - DTCuentas = ObjTipoCuenta.DtResultados - DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')") - End If - DdlTipoCuentas.DataBind() - 'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal)) - DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1")) - DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2")) - DdlTipoCuentas.SelectedIndex = 1 + Dim ObjTipoCuenta As New ClsContabilidad DdlCuentas.Enabled = True If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then - DdlCuentas.DataSource = ObjTipoCuenta.DtResultados + DTCuentas = ObjTipoCuenta.DtResultados + DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')") + End If ObjTipoCuenta.Dispose() DdlCuentas.DataBind() @@ -234,7 +201,6 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos") End Sub Private Sub CargaDatos() - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero @@ -243,14 +209,13 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia) Exit Sub End If - IdCuenta = DdlCuentas.SelectedValue.ToEntero + Cuenta = DdlCuentas.SelectedItem.ToString Dim ObjConta As New ClsContabilidad - If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then + If ObjConta.GetMovimientosAuxiliaresCatalogo(DdlCuentas.SelectedValue.ToEntero, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then DtDatos = ObjConta.DtResultados DtTotales = DtDatos.Clone - 'InsertaTotales() CargaGrid() Else DtDatos = Nothing @@ -414,17 +379,12 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo #End Region Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click - If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then + If DdlCuentas.SelectedValue.ToEntero = -1 Then Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError) Else FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate) FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate) - IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero) - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - - 'If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin) Then - 'DtDatos = ObjConta.DtResultados DtDatos = DtDatos ImprimirReporte() End If @@ -488,21 +448,9 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato) End Sub - Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged - If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then - DdlCuentas.Enabled = True - Else - DdlCuentas.Enabled = False - DdlCuentas.SelectedValueExist(-1) - End If - End Sub - - Public Overrides Sub VerifyRenderingInServerForm(control As Control) End Sub - - End Class