From 3567d81dfd7a960b03aef5dbad174f212ba83f48 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 19 May 2022 10:12:20 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20mandar=20llamar=20conexi?=
 =?UTF-8?q?=C3=B3n=20a=20contpaq?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 302d66ca7..fcff19b3c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8808,7 +8808,7 @@ Partial Class Ventas
 
 
                 'CONTABILIDAD AUTOMATICA Y AC 
-                If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                If UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
                     ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                     ObjContPaq.IniciaTransacSQL()
                 End If