Pegar Novo ID

//------------------------------------------------------------------------------

function TF_Produtos.FF_Pegar_Novo_Produto_Id():Integer;

var ff_str_sql_texto: TStrings;

ff_int_apoio : Integer;begin

try

ff_str_sql_texto:= TStringList.Create();

ff_str_sql_texto.Add('SELECT MAX(PROD_ID) FROM PRODUTOS ');

self.ADOQuery_Produtos_Apoio.Active:= False;

self.ADOQuery_Produtos_Apoio.SQL.Clear();

self.ADOQuery_Produtos_Apoio.SQL:= ff_str_sql_texto;

self.ADOQuery_Produtos_Apoio.Active:= True;

//---------

ff_int_apoio:= self.ADOQuery_Produtos_Apoio.Fields[0].AsInteger + 1;

except on

E:Exception do begin

ff_int_apoio:= 0; ShowMessage('Ôpa, ocorreu um erro ao recuperar um novo "id" para o produto a ser inserido! Veja: ' + E.Message);

end;

end;

result:= ff_int_apoio;

end;

//------------------------------------------------------------------------------