[firebase-br] Default NOW nao funciona

[Hélio Oliveira]

Boa noite Pablo!

Não sei se lhe ajuda - cria um método para te retornar este valor..

function NewID(Tabela: String): Integer;
begin
   with TSQLQuery.Create(nil) do
     try
       Close;
       SQL.Clear;
       SQLConnection := DMConexao.SQLConexao;
       SQL.Text := 'SELECT GEN_ID(GEN_' + Tabela + ', 1) AS PROXIMO '+
                   'FROM RDB$DATABASE';
       Open;
       Result := FieldByName('proximo').AsInteger;
     finally
       Free;
   end;
end;

Faça adaptações de acordo a sua realidade. Infelizmente não uso IBO.

-- 
[]'s,

Hélio Oliveira
Analista de Sistemas
Delphi Developer
http://hpensador.blogspot.com/