View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0000403HopperGeneralpublic2012-07-16 10:222012-08-01 16:08
ReporterMartijn Tonies Assigned ToMartijn Tonies  
PrioritynormalSeverityblockReproducibilityhave not tried
Status closedResolutionfixed 
Product Version1.0.2 
Fixed in Version1.0.3 
Summary0000403: Parser error on IB LM generated trigger, specific routine call specification
DescriptionWhen testing a trigger generated by IBLogManager I receive a
message
"Parser found errors, this routine cannot be debugged".
  
Error occurs at line "EXECUTE PROCEDURE
P_INSERTINTOIBLM$OPERATIONLOG..."
   
) expected but "RETURNING_VALUES" found.
  
Here is the trigger:
  
DECLARE VARIABLE VAR_ID INTEGER;
  DECLARE VARIABLE USER_NAME VARCHAR(31);
BEGIN
   USER_NAME = rdb$get_context('USER_SESSION', 'NO_USUARIO');
   EXECUTE PROCEDURE P_INSERTINTOIBLM$OPERATIONLOG (:USER_NAME,
'CONSUMIDOR', 'UPDATE', 'NU_CONSUMIDOR', OLD.NU_CONSUMIDOR,
NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
rdb$get_context('SYSTEM', 'CLIENT_ADDRESS'),
rdb$get_context('SYSTEM', 'NETWORK_PROTOCOL'),
rdb$get_context('SYSTEM', 'DB_NAME'),
rdb$get_context('SYSTEM', 'ISOLATION_LEVEL')) RETURNING_VALUES
:VAR_ID;
   IF ((OLD.NU_CONSUMIDOR IS DISTINCT FROM NEW.NU_CONSUMIDOR))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_CONSUMIDOR', OLD.NU_CONSUMIDOR, NEW.NU_CONSUMIDOR, NULL,
NULL);
   IF ((OLD.NO_CONSUMIDOR IS DISTINCT FROM NEW.NO_CONSUMIDOR))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NO_CONSUMIDOR', OLD.NO_CONSUMIDOR, NEW.NO_CONSUMIDOR, NULL,
NULL);
   IF ((OLD.NO_FANTASIA IS DISTINCT FROM NEW.NO_FANTASIA)) THEN

     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NO_FANTASIA', OLD.NO_FANTASIA, NEW.NO_FANTASIA, NULL, NULL);
   IF ((OLD.NU_CNPJ IS DISTINCT FROM NEW.NU_CNPJ)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_CNPJ', OLD.NU_CNPJ, NEW.NU_CNPJ, NULL, NULL);
   IF ((OLD.NU_CPF IS DISTINCT FROM NEW.NU_CPF)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_CPF', OLD.NU_CPF, NEW.NU_CPF, NULL, NULL);
   IF ((OLD.NU_INSCRICAO IS DISTINCT FROM NEW.NU_INSCRICAO))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_INSCRICAO', OLD.NU_INSCRICAO, NEW.NU_INSCRICAO, NULL,
NULL);
   IF ((OLD.LOGRADOURO IS DISTINCT FROM NEW.LOGRADOURO)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'LOGRADOURO', OLD.LOGRADOURO, NEW.LOGRADOURO, NULL, NULL);
   IF ((OLD.BAIRRO IS DISTINCT FROM NEW.BAIRRO)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'BAIRRO', OLD.BAIRRO, NEW.BAIRRO, NULL, NULL);
   IF ((OLD.CIDADE IS DISTINCT FROM NEW.CIDADE)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'CIDADE', OLD.CIDADE, NEW.CIDADE, NULL, NULL);
   IF ((OLD.ESTADO IS DISTINCT FROM NEW.ESTADO)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'ESTADO', OLD.ESTADO, NEW.ESTADO, NULL, NULL);
   IF ((OLD.PAIS IS DISTINCT FROM NEW.PAIS)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'PAIS', OLD.PAIS, NEW.PAIS, NULL, NULL);
   IF ((OLD.CEP IS DISTINCT FROM NEW.CEP)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'CEP', OLD.CEP, NEW.CEP, NULL, NULL);
   IF ((OLD.NO_CONTATO_1 IS DISTINCT FROM NEW.NO_CONTATO_1))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NO_CONTATO_1', OLD.NO_CONTATO_1, NEW.NO_CONTATO_1, NULL,
NULL);
   IF ((OLD.NU_TELEFONE_1 IS DISTINCT FROM NEW.NU_TELEFONE_1))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_TELEFONE_1', OLD.NU_TELEFONE_1, NEW.NU_TELEFONE_1, NULL,
NULL);
   IF ((OLD.NO_CONTATO_2 IS DISTINCT FROM NEW.NO_CONTATO_2))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NO_CONTATO_2', OLD.NO_CONTATO_2, NEW.NO_CONTATO_2, NULL,
NULL);
   IF ((OLD.NU_TELEFONE_2 IS DISTINCT FROM NEW.NU_TELEFONE_2))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_TELEFONE_2', OLD.NU_TELEFONE_2, NEW.NU_TELEFONE_2, NULL,
NULL);
   IF ((OLD.NO_CONTATO_3 IS DISTINCT FROM NEW.NO_CONTATO_3))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NO_CONTATO_3', OLD.NO_CONTATO_3, NEW.NO_CONTATO_3, NULL,
NULL);
   IF ((OLD.NU_TELEFONE_3 IS DISTINCT FROM NEW.NU_TELEFONE_3))
THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_TELEFONE_3', OLD.NU_TELEFONE_3, NEW.NU_TELEFONE_3, NULL,
NULL);
   IF ((OLD.NU_FAX IS DISTINCT FROM NEW.NU_FAX)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'NU_FAX', OLD.NU_FAX, NEW.NU_FAX, NULL, NULL);
   IF ((OLD.EMAIL IS DISTINCT FROM NEW.EMAIL)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'EMAIL', OLD.EMAIL, NEW.EMAIL, NULL, NULL);
   IF ((OLD.HOME_PAGE IS DISTINCT FROM NEW.HOME_PAGE)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'HOME_PAGE', OLD.HOME_PAGE, NEW.HOME_PAGE, NULL, NULL);
   IF ((OLD.OPERADOR IS DISTINCT FROM NEW.OPERADOR)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'OPERADOR', OLD.OPERADOR, NEW.OPERADOR, NULL, NULL);
   IF ((OLD.FLAG IS DISTINCT FROM NEW.FLAG)) THEN
     INSERT INTO IBLM$COLUMNLOG (ID, OPERATIONLOG_ID,
COLUMN_NAME, OLD_VALUE, NEW_VALUE, OLD_VALUE_BLOB,
NEW_VALUE_BLOB)
       VALUES (GEN_ID(GEN_IBLM$COLUMNLOG_ID, 1), :VAR_ID,
'FLAG', OLD.FLAG, NEW.FLAG, NULL, NULL);
END



TagsNo tags attached.
DBMS Version

Activities

There are no notes attached to this issue.

Issue History

Date Modified Username Field Change
2012-07-16 10:22 Martijn Tonies New Issue
2012-07-16 10:22 Martijn Tonies Status new => acknowledged
2012-07-17 08:34 Martijn Tonies Assigned To => Martijn Tonies
2012-07-17 08:34 Martijn Tonies Status acknowledged => assigned
2012-07-18 09:03 Martijn Tonies Status assigned => resolved
2012-07-18 09:03 Martijn Tonies Fixed in Version => 1.0.3
2012-07-18 09:03 Martijn Tonies Resolution open => fixed
2012-07-18 09:03 Martijn Tonies Category Firebird => General
2012-07-18 09:03 Martijn Tonies Summary Parser error on IB LM generated trigger => Parser error on IB LM generated trigger, specific routine call specification
2012-08-01 16:08 Martijn Tonies Status resolved => closed