Fórum Veja: Como colocar o Generator em um Dbedit usando Dbexpress #192336

Bom resolvir postar a forma que resolvi a questão de colocar o próximo registro de um Generator em um Dbedit, pois apesar dos meus colegas ajudarem e de pesquisar, eu não tava conseguindo, é claro que tb devido ao fato de ser muito lego, espero que esta solução, no qual não sei dizer se é a mais adequada, possa ajudar meus colegas programadores, agradecimentos a A. Farias, pois tive vendo suas respostas e através dela é que criei a solução abaixo:

Bom, com esta solução vc poderá que ter o Generator e a Tigger que incrementa o generator.

Peguei um sqlDataset e dei o nome de sqlGenerator, no qual irá servir para todas as minhas tabelas. e depois criei uma unit e coloquei a seguinte função abaixo:(veja a unit completa)


unit UFuncao;

interface
uses SysUtils;
Function Generator(NomeGenerator:String):String; //Esta função é para retornar o código do Generator

implementation
uses udm;


Function Generator(NomeGenerator:String):String; //Esta função é para retornar o código do Generator
begin
with dm.sqlGenerator do
begin
Close;
CommandText := ´SELECT GEN_ID(´+NomeGenerator+´,0) FROM rdb$database´;
Open;
Generator := inttostr(Fields[0].AsInteger+1);
end;
end;
end.


depois declarei ela no Uses dos forms que iria utiliza-la
e a chamei da seguinte forma: (veja no button)

procedure TfrmProduto.btnNovoClick(Sender: TObject);
begin
btnGravar.Enabled := true;
btnNovo.enabled := false;
dm.cdsProduto.Append;
dbeCodigo.Text := Generator(´GEN_PRODUTO_ID´); //Função usada para retornar o valor do Generator (GEN_PRODUTO_ID) da tabela de produtos
dbeDescricao.SetFocus;
end;

No caso é só passar o nome do Generator da tabela que vc quer.

Espero que meus colegas tenham entendido.


Jelves