[firebase-br] Generator / Trigger

[Zottis]

eu uso no Banco uma procedure

SET TERM ^ ;

CREATE OR ALTER PROCEDURE PROC_RETORNA_GEN_CONTR_EXTRATO
returns (
    atual integer)
as
BEGIN
ATUAL = GEN_ID(GEN_CONTROLE_EXTRATO,1);
SUSPEND;
END^

SET TERM ; ^

e Pego pelo Delphi com um TStoredProc
com o Comando

        if not DM.GenRecibo_Cliente.Prepared then
         DM.GenRecibo_Cliente.Prepare;
         DM.GenRecibo_Cliente.ExecProc;
         Var_Recibo_No := 
FormatFloat('00000',DM.GenRecibo_Cliente.ParamByName('ATUAL').AsInteger);
         DM.Transaction.CommitRetaining;

tem dado certo.

espero que ajude.
Zottis(TeamFB Users)

Zottis Sistemas - 2008 Ano XI
Programação Delphi/PHP/Firebird/MySQL

"Um homem só tem o direito de olhar
  a um outro de cima para baixo, quando
  vai ajuda-lo a levantar-se".
                   Gabriel Garcia Marquez