tipoconta

Ventas/CatClasificaciones.aspx.vb

@@ -118,7 +118,7 @@ Partial Class CatClasificaciones
                 'End If
                 'Cuenta.Dispose()
             Else
-                If UsuarioActual.Empresa.TipoContabilizacion = 2 Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                     DivCuentaIngresos.Visible = False
                     DivCuentaCostos.Visible = False
                     DivCuentaGasto.Visible = False
@@ -224,17 +224,26 @@ Partial Class CatClasificaciones
 
 
     Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
-        Dim ObjEmpresa As New ClsSisEmpresas
-        Dim Empresa As Empresa = Nothing
-        If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
-            Empresa = ObjEmpresa.Empresa
-            Dim ObjContabilidad As New ClsContPAQi(Empresa)
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, 20000) Then
-                DtCuentasContables = ObjContabilidad.DtResultados
+
+        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+
+            Dim ObjEmpresa As New ClsSisEmpresas
+            Dim Empresa As Empresa = Nothing
+            If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+                Empresa = ObjEmpresa.Empresa
+                Dim ObjContabilidad As New ClsContPAQi(Empresa)
+                If ObjContabilidad.GetCuentas(-1, "-1", 1, 20000) Then
+                    DtCuentasContables = ObjContabilidad.DtResultados
+                End If
+                ObjContabilidad.Dispose()
             End If
-            ObjContabilidad.Dispose()
+            ObjEmpresa.Dispose()
+        ElseIf UsuarioActual.Empresa.TipoContabilizacion = 2 Then
+            DdlCuentaGasto.DataValueField = "CveCuenta"
+            DdlCuentaGasto.DataTextField = "Cuenta"
         End If
-        ObjEmpresa.Dispose()
+
+
     End Sub
 
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click