Fórum como obter o numero da venda gerado pela generator? #413845

como obter o numero da venda gerado pela generator?

Tenho 2 tabelas uma VENDAS e a outra ITENSVEN e um relacionamento entre elas uso este código para gravar em minha tabela vendas

with IBQry_Venda do
begin
Close;
Sql.Clear;
SQL.Text:=select gen_id(GEN_NUMEROVEN, 1) from rdb$databa;
Sql.Text := INSERT INTO VENDAS (+

FUN_CODIGO, +
SIT_CODIGO, +
LOJ_CODIGO, +
CLI_CODIGO, +
USU_CODIGO, +
VEN_TIPO, +
VEN_DATA) +

VALUES ( +

:FUN_CODIGO, +
:SIT_CODIGO, +
:LOJ_CODIGO, +
:CLI_CODIGO, +
:USU_CODIGO, +
:VEN_TIPO, +
:VEN_DATA);

ParamByName(FUN_CODIGO).AsInteger :=StrToInt(Edit_FUN_CODIGO.Text);
ParamByName(SIT_CODIGO).AsInteger :=StrToInt(Edit_SIT_CODIGO.Text);
ParamByName(LOJ_CODIGO).AsInteger :=FRM_Venda_Mais.IBQry_Autorizacao_UsuarioLOJ_CODIGO.Value;
ParamByName(CLI_CODIGO).AsInteger :=StrToInt(Edit_CLI_CODIGO.Text);
ParamByName(USU_CODIGO).AsInteger :=FRM_Venda_Mais.IBQry_Autorizacao_UsuarioUSU_CODIGO.Value;
ParamByName(VEN_TIPO).AsString :=(RGrupo_VEN_TIPO.Value);
ParamByName(VEN_DATA).AsDate :=Date;
ExecSql;
Edit_VEN_NUMERO.Text :=IntToStr(IBQry_VendaVEN_NUMERO.MaxValue);

If Application.MessageBox(Adicinar itens agora?,Aviso, MB_yesno)<> mryes then
Abort
else
FRM_Balcao := TFRM_Balcao.create ( application );
try
FRM_Balcao.ShowModal;
finally
FRM_Balcao.Release;
FRM_Balcao := nil;
FRM_Balcao.Free;
end;
end;
end;

Como faço para obter o numero gerado pela gen_id(GEN_NUMEROVEN, 1) para que eu possa inserir no campo VEN_NUMERO







Fico muito Grato