-- mejora en mandar llamar conexión a contpaq

2022-05-19 10:12:20 -07:00
parent db7e11cfd2
commit 3567d81dfd
1 changed files with 1 additions and 1 deletions
--- 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