Как вытащить результат из ХП

[Vetal]

Здравствуйте у меня вопрос....

Код: Выделить всё

    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('execute procedure SP_CHECKINSERTCONTRACT (:NUMBERCONTRACT)');
    IBQuery1.ParamByName('NUMBERCONTRACT').AsInteger:=ContractNamber;
    IBQuery1.ExecSQL;
    FMain.IBTransaction1.Commit;
    FMain.IBTransaction1.StartTransaction;
        IDNUMBERCONTRACT:=IBQuery1.Current[0].AsInteger;

в результате переменной IDNUMBERCONTRACT ничего не присваивается, хотя на сервере в ХП все работает а вот через обращение IDNUMBERCONTRACT:=IBQuery1.Current[0].AsInteger; вытянуть возвращаемый результат не получается....



Сама ХП

Код: Выделить всё

begin
if (not exists (select ID from contracts where numbercontract=:numbercontract)) then
  begin
      insert into contracts (numbercontract)
      values (:numbercontract)
      returning id into :id;
      result=1;
  end
else
  begin
      result=0;
      select (ID) from contracts where numbercontract=:numbercontract into :id;
   end
  /* Procedure Text */
  suspend;
end

[Dimitry Sibiryakov]

А кто вам сказал, что этот результат может пережить конец транзакции?

[Vetal]

Код: Выделить всё

    IBQuery1.ExecSQL;
    IDNUMBERCONTRACT:=IBQuery1.Current[0].AsInteger;
    FMain.IBTransaction1.Commit;
    FMain.IBTransaction1.StartTransaction;

Так тоже ничего не получается

[Vetal]

Спасибо подсказка верна....