From 2ea674db8394be4e1b72ddcae8ed1de1afa190f9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 9 Jun 2021 19:06:52 -0700
Subject: [PATCH] tipoconta

---
 Ventas/CatClasificaciones.aspx.vb | 29 +++++++++++++++++++----------
 1 file changed, 19 insertions(+), 10 deletions(-)

diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb
index eb1ea5c8c..eab05b55b 100644
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/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