-- en el listado de cuentas, no mostrar las cuentas que inician con _global, _activo....

2023-07-10 13:16:53 -07:00
parent 0bfb139462
commit f5a60aa736
3 changed files with 17 additions and 75 deletions
--- 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()

--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
@@ -93,12 +93,7 @@
                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                            <label class="col-md-1" style="display: none;">Tipo de Cuentas:</label>
-                            <div class="col-md-2" style="display: none;">
-                                <asp:DropDownList ID="DdlTipoCuentas" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveCuenta" TabIndex="4" AutoPostBack="true" ClientIDMode="Static">
-                                </asp:DropDownList>
-                            </div>                            
+                            </div>                                                        
                        </div>
                    </div>
                </div>
@@ -137,8 +132,8 @@
                        <div class="col-md-2">
                            <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                            </asp:DropDownList>
-                        </div>                        
-                    </div>
+                        </div>
+                        
                </div>
            </div>
        </ContentTemplate>
--- 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