From 4cdd4907a5ad6e62ba8d17f9a3b36bae15170c8a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 May 2023 11:55:20 -0700
Subject: [PATCH] --ver cuentas asignas en tipoconta=1

---
 AF/AF.aspx    | 11 ++++++++++-
 AF/AF.aspx.vb | 29 +++++++++++++++++++++--------
 2 files changed, 31 insertions(+), 9 deletions(-)

diff --git a/AF/AF.aspx b/AF/AF.aspx
index 15b22ec92..eba0ec925 100644
--- a/AF/AF.aspx
+++ b/AF/AF.aspx
@@ -312,7 +312,16 @@
                                                         </div>
 
 
-
+                                                        <div id="divCuentas" runat="server" visible="false">
+                                                         
+                                                                    <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="  width: 100%;" GridLines="None">
+                                                                        <Columns>
+                                                                            <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                            <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                        </Columns>
+                                                                    </asp:GridView>
+                                                         
+                                                        </div>
                                                         <div class="row" runat="server" id="trCuentaContable" visible="False">
                                                             <div class="col-md-4 ">
                                                                 <label class="  control-label">Cuenta Contable:</label>
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 97108838c..923275083 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -375,11 +375,8 @@ Partial Class AF_AF
         If Not IsPostBack Then
 
             InicializaValores()
-
-            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad) Then
-                CargaCuentasContables()
-            End If
-
+
+
             CargaCombos()
 
             If Request("CveActivoFijo") IsNot Nothing AndAlso IsNumeric(Request("CveActivoFijo")) AndAlso Request("CveActivoFijo").ToEntero > 0 Then
@@ -1050,6 +1047,13 @@ Partial Class AF_AF
 
                 If LtFechaCompra.Text <> "" Then
                     LtFechaFinDepreciación.Text = ObjActivoFijo.FechaCompra.AddMonths(ObjActivoFijo.MesesDepreciacion).ToShortDateString
+                End If
+
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad) Then
+                    CargaCuentasContables()
                 End If
 
                 CargaAFPAdreEHijos()
@@ -3106,9 +3110,8 @@ Partial Class AF_AF
 #Region "CARGAR CUENTA CONTABLE"
 
     Private Sub CargaCuentasContables()
-        trCuentaContable.Visible = True
-
-
+        trCuentaContable.Visible = True
+
         Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim DtCuentas As New DataTable
         Dim CuentaPadre = UsuarioActual.Empresa.Funcionalidad(221).ToEntero
@@ -3130,6 +3133,16 @@ Partial Class AF_AF
 
     End Sub
 
+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(10, UsuarioActual.CveEmpresa, CveAF:=CveActivoFijo) Then
+            GvCta.DataSource = ObjConta.DtResultados
+            divCuentas.Visible = True
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+
+    End Sub
     Private Sub ActivarRegistroCuentaAF()
         If DdlCtaContable.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(221).ToEntero > 0 Then
             BtnCtaContable.Visible = True