Fórum Recuperar um ID gerado apos uma inserção #558956

05/07/2016

0

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

Responder

Posts

06/07/2016

Eduardo Silva.

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
Responder

Gostei + 0

06/07/2016

Silvio Morelo

Obrigado Eduardo
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar