Hi all,
My application is executed fine but when I try to execute an SP I get
that message above
the SP do some works to clean the db at app first installation
before it worked fine for two years and did not make changes the code
since today and now it cannot be executed
Thanks for help
This is the code:
SET TERM ^ ;
create or alter procedure init_first_start
as
declare variable nom varchar(30);
declare variable pwd varchar(250);
declare variable login_name varchar(30);
declare variable id integer;
declare variable role_name varchar(20);
BEGIN
/*
SELECT SEC$USER_NAME FROM SEC$USERS WHERE
SEC$USER_NAME='ADMINISTRATEUR' INTO :NOM;
IF (:NOM IS NULL) THEN
BEGIN
SELECT PWD FROM TB_USER WHERE LOGIN_NAME='ADMINISTRATEUR' INTO :PWD;
EXECUTE PROCEDURE
USER_CREATE('ADMINISTRATEUR',PWD,0,0,'RDB$ADMIN','SYSDBA','','','MASTERKEY');
END
*/
DELETE FROM CONNECTION_LOG;
DELETE FROM MESSAGERIE;
DELETE FROM MESSAGERIE_ATTACHMENT;
UPDATE PARAMETRES SET
BACKUP_DB_PATH='',MIN_LENGTH_PASSWORD=5,EVALUATEUR_MUST_VALIDATE=0,ENABLE_INPUT_CONTROL=0;
FOR SELECT LOGIN_NAME FROM TB_USER INTO :LOGIN_NAME DO
BEGIN
LOGIN_NAME=COALESCE(:LOGIN_NAME,'');
LOGIN_NAME=TRIM(:LOGIN_NAME);
IF (:LOGIN_NAME<>'ADMINISTRATEUR') THEN
BEGIN
EXECUTE STATEMENT 'DROP USER ' || LOGIN_NAME ;
SELECT USERID FROM TB_USER WHERE LOGIN_NAME=:LOGIN_NAME INTO :ID;
DELETE FROM USER_PROFIL WHERE USERID=:ID;
DELETE FROM ALERTE WHERE USERID=:ID;
DELETE FROM TB_USER WHERE LOGIN_NAME=:LOGIN_NAME;
END
END
END^
SET TERM ; ^
/* Following GRANT statements are generated automatically */
GRANT SELECT,DELETE ON CONNECTION_LOG TO PROCEDURE INIT_FIRST_START;
GRANT SELECT,DELETE ON MESSAGERIE TO PROCEDURE INIT_FIRST_START;
GRANT SELECT,DELETE ON MESSAGERIE_ATTACHMENT TO PROCEDURE INIT_FIRST_START;
GRANT SELECT,UPDATE ON PARAMETRES TO PROCEDURE INIT_FIRST_START;
GRANT SELECT,DELETE ON TB_USER TO PROCEDURE INIT_FIRST_START;
GRANT SELECT,DELETE ON USER_PROFIL TO PROCEDURE INIT_FIRST_START;
GRANT SELECT,DELETE ON ALERTE TO PROCEDURE INIT_FIRST_START;
/* Existing privileges on this procedure */
GRANT EXECUTE ON PROCEDURE INIT_FIRST_START TO SYSDBA;
GRANT EXECUTE ON PROCEDURE INIT_FIRST_START TO GESTIONNAIRE;
GRANT EXECUTE ON PROCEDURE INIT_FIRST_START TO OPERATEUR;
