From 00b826977a6642139c0605bd6ba8ed2f3e387002 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 9 Nov 2022 13:39:53 -0700
Subject: [PATCH] =?UTF-8?q?tipocontabilizaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/CatClasificaciones.aspx.vb | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

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