tipocontabilización

Ventas/CatClasificaciones.aspx.vb

@@ -225,7 +225,18 @@ Partial Class CatClasificaciones
 
     Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
 
-        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            DdlCuentaGasto.DataValueField = "CveCuenta"
+            DdlCuentaGasto.DataTextField = "Cuenta"
+            Dim ObjContabilidad As New ClsContabilidad
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                DtCuentasContables = ObjContabilidad.DtResultados
+                'Cuenta, CtaCodigo
+                DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
+            End If
+            ObjContabilidad.Dispose()
+        ElseIf UsuarioActual.Empresa.TipoContabilizacion = 1 Then
 
             Dim ObjEmpresa As New ClsSisEmpresas
             Dim Empresa As Empresa = Nothing
@@ -238,9 +249,8 @@ Partial Class CatClasificaciones
                 ObjContabilidad.Dispose()
             End If
             ObjEmpresa.Dispose()
-        ElseIf UsuarioActual.Empresa.TipoContabilizacion = 2 Then
-            DdlCuentaGasto.DataValueField = "CveCuenta"
-            DdlCuentaGasto.DataTextField = "Cuenta"
+
+
         End If