Impedir a entrada no ERP devido ao VBA   

Podes iniciar o ERP sem o VBA:

No atalho do erp, acrescentar o parametro /VBA no caminho:

EX: "C:\PRIMAVERA\V9\SG900\Apl\Erp900LE.exe" /VBA

Iniciar o ERP

Em PREFERENCIAS/SISTEMA escolher a opção "Bloquear abertura da empresa se ocorrer um erro ao iniciar o VBA"

OBS: Essa opção é por utilizador. tem de ser feito para todos os utilizador

Para ultrapassar esta situação da seguinte forma:

Para proteção do VBA será necessário criar um CDU na tabela do VBA (CDU_PermiteAlterar)

Devem executar o trigger seguinte:

Para fazer alterações no VBA a Flag tem que estar a 1, caso contrário não grava.

/****** Object: Trigger [dbo].[CDU_ValidaVBA] ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TRIGGER [dbo].[CDU_ValidaVBA]
ON [dbo].[VBA]
INSTEAD OF UPDATE
AS
IF EXISTS (SELECT * FROM VBA As I WHERE I.Apl='ERP' AND I.CDU_PermiteAlterar=1) OR UPDATE(CDU_PermiteAlterar)
BEGIN
UPDATE VBA SET VBA.Projecto=Inserted.Projecto, VBA.Password=inserted.Password,vba.CDU_PermiteAlterar=inserted.CDU_PermiteAlterar FROM Inserted WHERE VBA.Apl=Inserted.Apl
end
ELSE if EXISTS (SELECT * FROM VBA As I WHERE I.Apl='ERP' AND I.CDU_PermiteAlterar=0)
Begin
RAISERROR ('CDU - Não gravou o VBA na empresa!!' ,16 ,1 );
RETURN
END;
GO

--Para impedir alterações

UPDATE VBA SET CDU_PermiteAlterar=0
GO

--Quando desejar alterar o VBA devem fazer:

--UPDATE VBA SET CDU_PermiteAlterar=1
--GO