[firebase-br] RES: Pegar Código

[João Marcos]

Bem, como as minhas chaves são strings, a função abaixo gera o ID e
preenche já com a quantidade de zeros que você queira.
Gero o código antes de inserir, nunca tive problemas.

function TDM.geraCodigo(AGenerator: string; tam : integer): string;
var
 zeros : string;
 ct : integer;
begin
 ct:=0;

 while ct < tam do
 begin
  zeros:=zeros+'0';
  ct:=ct+1;
 end;
 with TIBQuery.Create(Application) do
 try
   DataBase    := dbrestaurante;
   Transaction := transacao;
   SQL.Text := 'select gen_id(' + AGenerator + ', 1) from rdb$database';
   Open;
   result:=Formatfloat(zeros,Fields[0].AsInteger);
 finally
   Free;
 end;
end;