diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index ea04c720e..ee136e7bb 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2549,7 +2549,8 @@ Partial Class OC
         Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL())
         Dim ObjVentas As New ClsVentas(OC.IniciaTransacSQL())
         Dim Conta As ClsContPAQi = Nothing
-        If (UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto) Or UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto) Or UsuarioActual.Empresa.Funcionalidad(200) = "1") Then
             Conta = New ClsContPAQi(UsuarioActual.Empresa)
             Conta.IniciaTransacSQL()
         End If