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