-- cambios en obtener la cuenta

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>

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