From 645f086df3358a12cc01fb76e67b3a67fd48c748 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Apr 2023 09:37:03 -0700
Subject: [PATCH] =?UTF-8?q?--=20visualizaci=C3=B3n=20de=20la=20cuenta=20si?=
 =?UTF-8?q?=20es=20tipoconta=3D1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PolizaCheque.aspx.vb | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index b56cc2f54..80c29bf88 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -108,7 +108,7 @@ Partial Class Bancos_PolizaCheque
             DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
 
             Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
                 If Conta.GetCuentas(-1, "-1", 1) Then
@@ -118,6 +118,17 @@ Partial Class Bancos_PolizaCheque
                 End If
                 Conta.Dispose()
 
+            End If
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                Dim Conta As New ClsContabilidad
+
+                If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                    dt = Conta.DtResultados
+                    DtCuentasContables = Conta.DtResultados
+                    Session("DtCuentas") = Conta.DtResultados
+                End If
+                Conta.Dispose()
+
             End If
 
             TipoPlantilla = 0
@@ -405,6 +416,18 @@ Partial Class Bancos_PolizaCheque
             NombreCuenta = ""
 
             If UsuarioActual.Empresa.UsaContabilidad Then
+                If drt("CveCuenta").ToString.ToEntero > 0 Then
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))
+
+
+                    If drr IsNot Nothing Then
+                        IdCuenta = drt("IdCtaContable").ToString.ToEntero
+                        CodigoCuenta = drr("CuentaFormato").ToString()
+                        NombreCuenta = drr("Nombre").ToString()
+                        'Cuenta = drr("Nombre").ToString()
+                    End If
+                    EsComodin = 0
+                End If
                 If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
                     Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))