From 958be2204c1a49d6f99c2825391cfa54aca7082a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 19 May 2022 10:20:24 -0700
Subject: [PATCH] =?UTF-8?q?--=20consideraci=C3=B3n=20para=20conta=20contpa?=
 =?UTF-8?q?q?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Modelos.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 7a6893c9d..6a540ade6 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -759,7 +759,7 @@ Namespace Modelos
                         If ObjContPaqTransac IsNot Nothing Then
                             ObjContPaq = ObjContPaqTransac
                         Else
-                            If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1") Then
                                 ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                             End If
                         End If
@@ -5095,7 +5095,7 @@ Namespace Modelos
             Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL())
             Dim ObjAC As ClsContPAQi = Nothing
 
-            If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1") Then
                 ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
             End If