Pegar o ultimo codigo de um generator

Question

ol� galera tenho esse codigo que queria saber como exibo o resultado na caixa de texto do meu dbedit, queria que quando clicasse no bot�o novo ele me desse o ultimo codigo e exibisse na caixa de texto...

Osocram · Answer

Indice: = nome do seu generatorincremento: = valor p incremetar, ex: se for 1 ent�o vai incrementar d 1 em 1.talvez p facilitar um pouco mais pode fazer uma mudan�a no codigoFunction RetornaChave(Indice: String;incremento:integer [b:d05dc8f2d3]= 1[/b:d05dc8f2d3]): Integer;Com isso a sua fun��o vai entender que se vc n�o passar nenhum valor para o parametro Incremento ele vai jogar um valor default = 1;Para usar, no evento AfterInsert do seu DataSet[code:1:d05dc8f2d3]modo antigo: edit.text := IntToStr(RetornaChave(NomeGen,1));[/code:1:d05dc8f2d3][code:1:d05dc8f2d3]modo novo: edit.text := IntToStr(RetornaChave(NomeGen));[/code:1:d05dc8f2d3][quote:d05dc8f2d3=�thiagoangra2�]ol� galera tenho esse codigo que queria saber como exibo o resultado na caixa de texto do meu dbedit, queria que quando clicasse no bot�o novo ele me desse o ultimo codigo e exibisse na caixa de texto!Function RetornaChave(Indice: String;incremento:integer): Integer;begin  dm.cdsId.Close;  dm.CdsId.CommandText:=�SELECT GEN_ID(� + Indice +�,�+inttostr(incremento)+�) AS ID_RET FROM RDB$DATABASE�;  dm.CDsId.Open;  if dm.CdsId.IsEmpty then    raise Exception.Create(�N�o foi criado nenhum valor.�)  else    result := dm.CdsId.FieldByName(�ID_RET�).AsInteger;end;ta a� a fun��o, mais nau sei como usa-la! e queria intende -la tmb!esperam q tenham intendido, abra�os[/quote:d05dc8f2d3]...

Thiagoangra2 · Answer

vlw galera conseguir usar o codigo!  :wink:...

F�rum Pegar o ultimo codigo de um generator #374207