From 624c6e1df10367468c8496fc187465779c8ae5de Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 17 Dec 2020 15:20:08 -0700
Subject: [PATCH] -- cambios en obtener la cuenta

---
 Contabilidad/PlantillasPolizasDetalle.aspx    |  3 +--
 Contabilidad/PlantillasPolizasDetalle.aspx.vb | 23 +++++++++++++++++++
 2 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx b/Contabilidad/PlantillasPolizasDetalle.aspx
index 34fb74f4f..294b70ce4 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx
@@ -251,8 +251,6 @@
                                     </div>
                                     <div class="modal-body">
  
-                                     
-                                        
                                      <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlConcepto" CssClass="form-control input-sm select2me js-concepto-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpAgregar" AutoPostBack="true"></asp:DropDownList>
                                      <label for="<%= DdlConcepto.ClientID.ToString()%>">Concepto Contable</label>
@@ -268,6 +266,7 @@
                             </div>
 
                                 <div class="form-group form-md-line-input input-iconright">
+                                    <asp:Label ID="LblCuenta" runat="server" Text=""></asp:Label>
                                     <asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
                                      <label for="<%= DdlCtaContable.ClientID.ToString()%>">Cuenta Contable:</label>
                                 </div>
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index 8b5143a0e..d97ccd009 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -351,6 +351,29 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
     End Sub
 
     Private Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
+
+        'cargar la cuenta
+
+        If UsuarioActual.Empresa.TipoContabilizacion = 0 Then
+            'busco en la cuenta contable, lo que tenga asignado 
+            Dim Con As New ClsContabilidad
+            Dim dtt As DataTable
+            If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+                dtt = Con.DtResultados
+            End If
+            DdlCtaContable.Visible = False
+            Dim drr As DataRow = dtt.FiltroPrimero(String.Format("CveConceptoAdmin={0}", DdlConcepto.SelectedValue))
+
+            If drr IsNot Nothing Then
+                LblCuenta.Text = drr("CtaCodigo").ToString
+            Else
+                LblCuenta.Text = ""
+            End If
+
+            dtt.Dispose()
+            Con.Dispose()
+        End If
+
         If DdlConcepto.SelectedValue.Contiene("130", "29") Then
             DdlPersonal.Visible = True
             LblPersonal.Visible = True