--ver cuentas asignas en tipoconta=1

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