Recuperar um ID gerado apos uma inserção

Delphi

05/07/2016

BLZ Gente Boa!

Eu preciso recuperar um ID gerado apos uma inserção em uma tabela, como eu faço isso???

Utilizo Firebird 2.0, Delphi 7 e ADO

Estou tentando criar um stored procedure mais ou menos assim:


r_identrada = next value for seq_erp006_id;

    insert into erp006 (identrada, idfornecedor, dtentrada, notafiscal, serie, chaveacesso, idpedido, idusuario, dataup)
                values (:r_identrada, :v_idfornecedor, :v_dataentrada, :v_notafiscal, :v_serie, :v_chaveacesso, :v_idpedido, :v_idusuario, current_timestamp);
    suspend;


como eu faço no delphi para recuperar esse id gerado: r_identrada
Silvio Morelo

Silvio Morelo

Curtidas 1

Respostas

Eduardo Silva.

Eduardo Silva.

05/07/2016

Se você está utilizando Generators no campo IdEntrada você pode obter o valor com o código:
SELECT GEN_ID(NOME_DO_GENERATOR,0) FROM RDB$DATABASE


Voçê também pode criar uma rotina logo após o Insert utilizando o evento AfterPost da sua Query, tipo:

Select MAX(IdEntrada) From erp006


Existem várias possibilidades...

Boa Sorte

Eduardo Belo
beloelogica@gmail.com
GOSTEI 0
Silvio Morelo

Silvio Morelo

05/07/2016

Obrigado Eduardo
GOSTEI 0
POSTAR