From 7cefe021d45275496a84e4498d7ce989f1bb1723 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 17 Sep 2020 13:01:16 -0700
Subject: [PATCH] -- cambios en la visualziacion de las cuentas contables

---
 Compras/Proveedores.aspx    | 13 ++++++++++++-
 Compras/Proveedores.aspx.vb | 19 +++++++++++++++++++
 2 files changed, 31 insertions(+), 1 deletion(-)

diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 7cd807988..9cfbdc5f5 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -824,6 +824,17 @@
                                 <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" Style="display: none;" />
                                 <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
 
+                                                <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="text-align: center;  width: 100%;" GridLines="None">
+                                                                <Columns>
+                                                                    <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                    <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                </Columns>
+                                                            </asp:GridView>
+                                                         
+                                                </div>
+                                <div id="divCuentasContp" runat="server" visible="false">
                                 <table>
                                     <tr>
                                         <td>
@@ -1149,7 +1160,7 @@
                                         </td>
                                     </tr>
                                 </table>
-
+                                </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
 
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 0a6a13107..435d893c5 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -852,6 +852,15 @@ Partial Class Compras_Proveedores
                 DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
                 TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
 
+                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                Else
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
                 'Contable
                 If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
                     DdlCtaContAcreedores.AutoPostBack = True
@@ -1010,6 +1019,16 @@ Partial Class Compras_Proveedores
         DdlUsuarioEvaluador.DataBind()
     End Sub
 
+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
+            GvCta.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+
+    End Sub
+
     Private Sub CargaContactos(ByRef ObjProveedor As ClsCompProveedores)
         'TRAE CONTACTOS GENERALES Y POR SUCURSAL
         If ObjProveedor.GetProveedoresContactos(-1, CveProveedor, -1) Then