[firebase-br] Fw: Ajuda com trigger no Delphi

[Eduardo Jedliczka (TeamFB)]

Alguém que entenda de DBX poderia dar alguma ajuda ao companheiro Neto ????

=========================
Eduardo Jedliczka
(Membro do TeamFB)
Apucarana - Pr
=========================

- - - -

From: "Neto" <neto em prnet.com.br>
To: Eduardo Jedliczka
Sent: Monday, October 03, 2005 11:07 PM
Subject: Ajuda com trigger no Delphi

Eduardo, desculpe mandar este e-mail diretamente a você, mas não estou 
conseguindo enviar direto para a lista.
Estou com um problema para criar uma trigger pelo delphi utilizando o ibsql 
do ibexpress.
Adiciono no SQL a mesma sintaxe utilizada para criar a trigger pelo IBExpert 
mas o delphi da erro de token unknown.
Segue abaixo código do delphi:

  IBSQL.CLOSE;
  IBSQL.SQL.CLEAR;
  IBSQL.SQL.ADD ('CREATE TRIGGER TGSAFREGISTRO53 FOR TBSAFREGISTRO53');
  IBSQL.SQL.ADD ('ACTIVE BEFORE INSERT OR UPDATE POSITION 0');
  IBSQL.SQL.ADD ('AS');
  IBSQL.SQL.ADD ('declare variable I_CODIGO INTEGER;');
  IBSQL.SQL.ADD ('begin');
  IBSQL.SQL.ADD ('  if (inserting) then');
  IBSQL.SQL.ADD ('  begin');
  IBSQL.SQL.ADD ('     new.dt_inclusao= current_timestamp;');
  IBSQL.SQL.ADD ('     if (new.SEQUENCIA is null) then');
  IBSQL.SQL.ADD ('     begin');
  IBSQL.SQL.ADD ('        SELECT CODIGO FROM 
pcsafbusca_codigo('+#39+'TBSAFREGISTRO53'+#39+',new.COD_COMANDO||new.COD_ARQUIVO) 
INTO :i_codigo;');
  IBSQL.SQL.ADD ('        new.SEQUENCIA= :i_codigo;');
  IBSQL.SQL.ADD ('     end');
  IBSQL.SQL.ADD ('  end');
  IBSQL.SQL.ADD ('  if (updating) then');
  IBSQL.SQL.ADD ('     new.dt_ult_alter= current_timestamp;');
  IBSQL.SQL.ADD ('end');
  IBSQL.ExecQuery;

pcsafbusca_codigo é uma procedure já criada no banco.

Você tem ideia do que devo fazer?