From 3e5c475311bb3a2f24d8ca352acccac29112f964 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 2 Aug 2023 13:30:58 -0700
Subject: [PATCH] -- que se visualicen las cuentas de SIG en caso de gasto

---
 Ventas/CatClasificaciones.aspx    |  6 ++--
 Ventas/CatClasificaciones.aspx.vb | 49 ++++++++++++++-----------------
 2 files changed, 25 insertions(+), 30 deletions(-)

diff --git a/Ventas/CatClasificaciones.aspx b/Ventas/CatClasificaciones.aspx
index 97ef17863..64d68ffe9 100644
--- a/Ventas/CatClasificaciones.aspx
+++ b/Ventas/CatClasificaciones.aspx
@@ -76,7 +76,7 @@
             <asp:HiddenField ID="HiddenField2" runat="server" ClientIDMode="Static" Value="0" />
             <div>
                 <asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False"
-                    DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, CuentaCostos, CuentaIngresos, IdCuentaGasto, IdCuentaCostos, IdCuentaIngresos,RequiereSerieLote,CveSATPS,SATClaveProductoServicio, RequiereAFCompra, RequiereAFInsumo, RequierePersonal, Estatus,EsAcumulador,TopVentas,TopCompras,PrecioBaseCosto,CveCuentaAsignacionGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                    DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, CuentaCostos, CuentaIngresos, IdCuentaGasto, IdCuentaCostos, IdCuentaIngresos,RequiereSerieLote,CveSATPS,SATClaveProductoServicio, RequiereAFCompra, RequiereAFInsumo, RequierePersonal, Estatus,EsAcumulador,TopVentas,TopCompras,PrecioBaseCosto,CveCuentaAsignacionGasto, CveCuentaGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                     <Columns>
                         <asp:TemplateField HeaderText="Clasificación">
                             <ItemTemplate>
@@ -233,13 +233,13 @@
                                         </div>
 
 
-                                        <div class="form-group input-iconright" id="DivCuentaCostos" runat="server">
+                                        <div class="form-group input-iconright" id="DivCuentaCostos" visible="false"  runat="server">
                                             <label for="<%= DdlCuentaCostos.ClientID.ToString()%>" style="color: #888888; font-size: 13px;">Cuenta Costos:</label>
                                             <asp:DropDownList ID="DdlCuentaCostos" CssClass="form-control input-sm js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="340px"></asp:DropDownList>
                                         </div>
 
 
-                                        <div class="form-group input-iconright" id="DivCuentaIngresos" runat="server">
+                                        <div class="form-group input-iconright" id="DivCuentaIngresos" visible="false" runat="server">
                                             <label for="<%= DdlCuentaIngresos.ClientID.ToString()%>" style="color: #888888; font-size: 13px;">Cuenta Ingresos:</label>
                                             <asp:DropDownList ID="DdlCuentaIngresos" CssClass="form-control input-sm js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="340px"></asp:DropDownList>
                                         </div>
diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb
index 3bf583f94..954df3b37 100644
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -109,25 +109,15 @@ Partial Class CatClasificaciones
             End If
             UpModalClasif.Update()
 
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
 
-                ''COMENTADO DF 30 JUNIO 2017
-                'Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
-                'If Cuenta.GetCuentas(-1, "-1", 1, 20000) Then
-                '    DtCuentas = Cuenta.DtResultados
-                'End If
-                'Cuenta.Dispose()
-            Else
-                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                    DivCuentaIngresos.Visible = False
-                    DivCuentaCostos.Visible = False
-                    DivCuentaGasto.Visible = False
-
-                    GvDatos.Columns(1).Visible = False
-                    GvDatos.Columns(2).Visible = False
-                    GvDatos.Columns(3).Visible = False
-                End If
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                DivCuentaIngresos.Visible = False
+                DivCuentaCostos.Visible = False
+                'DivCuentaGasto.Visible = False
 
+                ' GvDatos.Columns(1).Visible = False
+                GvDatos.Columns(2).Visible = False
+                GvDatos.Columns(3).Visible = False
             End If
 
             DdlCuentaGasto.Items.Insert(0, New ListItem("-", "-1"))
@@ -226,14 +216,12 @@ Partial Class CatClasificaciones
 
             DdlCuentaGasto.DataValueField = "CveCuenta"
             DdlCuentaGasto.DataTextField = "Cuenta"
-            Dim ObjContabilidad As New ClsContabilidad
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
-                DtCuentasContables = ObjContabilidad.DtResultados
-                'Cuenta, CtaCodigo
-                DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
-            End If
-            ObjContabilidad.Dispose()
-        ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            DtCuentasContables = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
+            'Cuenta, CtaCodigo
+            DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
+
+        ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
             Dim ObjEmpresa As New ClsSisEmpresas
             Dim Empresa As Empresa = Nothing
@@ -319,7 +307,7 @@ Partial Class CatClasificaciones
             If e.Row.DBCampo("CuentaIngresos") = "Seleccione" Or e.Row.DBCampo("CuentaIngresos") = "" Then e.Row.FCLabel("LtlCuentaIngresos").Text = "-"
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
 
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                 e.Row.FCLabel("LtlClasificacion").Text = String.Format("<a Class='Texto' href='/Ventas/CatClasificacionesDetalle.aspx?CveClasificacion={0}'>{1}</a>", e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("Clasificacion"))
             End If
 
@@ -420,7 +408,14 @@ Partial Class CatClasificaciones
         If CuentaGasto.Length > 1 And CargaGastos Then
             DdlCuentaGasto.Items.Insert(0, New ListItem(CuentaGasto, CveCuentaGastoActual.ToString))
             DdlCuentaGasto.SelectedIndex = 0
-            CargaGastos = False
+
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                DdlCuentaGasto.Items.Clear() : DdlCuentaGasto.Items.Add(New ListItem("-", "-1"))
+                'DdlCuentaGasto.Text = ""
+                DdlCuentaGasto.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1) : DdlCuentaGasto.DataBind()
+                DdlCuentaGasto.SelectedValueExist(GvRow.DataKey("CveCuentaGasto"))
+            End If
+
         Else
             DdlCuentaGasto.SelectedValueExist(CveCuentaGastoActual)
         End If