Получить ID добавленной записи

[tarakan1983]

Здравствуйте!
Использую Delphi XE2, Firebird 2.5, FIBPLUS.
Есть триггер

CREATE TRIGGER BI_AVTO_ID FOR AVTO
ACTIVE BEFORE INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN
      NEW.ID = GEN_ID(AVTO_ID_GEN, 1);
END

Хранимая процедура для добавления/редактирования записи в таблице

CREATE PROCEDURE AVTO_E(
  FID INTEGER,
  MARKA VARCHAR(100),
  GOSNOMER VARCHAR(20))
AS
BEGIN
IF (:FID < 0) THEN
BEGIN
  INSERT INTO AVTO (
    MARKA,
    GOSNOMER)
  VALUES (
    :MARKA,
    :GOSNOMER);
END
  ELSE
	BEGIN
	  UPDATE AVTO
	  SET
		MARKA = :MARKA,
		GOSNOMER = :GOSNOMER
	  WHERE
		(ID = :FID);
	END
END

Есть замечательная штука RETURNING, но я что-то не пойму куда её написать, чтобы после вставки новой записи получить этот ID при использовании сетевой версии программы и получить в Delphi этот ID.
Сейчас у меня так

try
      with Dm.StrPr do
        begin
          StoredProcName := 'AVTO_E';
          ParamByName('FID').AsInteger := StrToInt(IDLbl.Caption);
          ParamByName('MARKA').AsString := Trim(MARKAEdt.Text);
          ParamByName('GOSNOMER').AsString := AnsiUpperCase(Trim(GOSNOMEREdt.Text));
          ExecProc;
        end;
      Dm.Tr.Commit;     
    except
      on E : Exception do
        begin
          Application.MessageBox('Ошибка сохранения!', 'Ошибка!', MB_OK +
            MB_ICONSTOP + MB_TOPMOST);
          IniU.SaveLog('ОШибка сохранения Авто : '+E.ClassName+'|'+E.Message);
          Dm.Tr.Rollback;
        end;
    end;

[Stilet]

http://www.firebirdsql.org/refdocs/l...21-insert.html

[tarakan1983]

ну так вроде пишу

CREATE PROCEDURE AVTO_E(
  FID INTEGER,
  MARKA VARCHAR(100),
  GOSNOMER VARCHAR(20))
AS
BEGIN
IF (:FID < 0) THEN
BEGIN
  INSERT INTO AVTO (
    MARKA,
    GOSNOMER)
  VALUES (
    :MARKA,
    :GOSNOMER)   RETURNING id или :FID;
END
  ELSE
	BEGIN
	  UPDATE AVTO
	  SET
		MARKA = :MARKA,
		GOSNOMER = :GOSNOMER
	  WHERE
		(ID = :FID);
	END
END

получаю ошибку

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Unexpected end of command - line 14, column 26.

[Аватар]

ну так вроде пишу

Подозреваю, что по ссылке от Виталия не ходили.
1. В процедуре нужно предусмотреть возвращаемый параметр.
2. Для Insert-а id into :<возращаемый параметр>
3. Для Update в этот возвращаемый параметр поместить значение :FID

[Vapaamies]

ЕМНИП, по стандарту returning пишется с into:

returning ID into :FID

Надо полагать, что и в Firebird так.

[Stilet]

Надо полагать, что и в Firebird так.

Если это так, то странно что доки по ссылке моей сие не озвучивают...

[Аватар]

Как раз озвучивают

[Vapaamies]

Озвучивают, даже какие-то ограничения описывают. Полагаю, что returning без into -- чисто фишка Firebird, чтобы оператор insert мог тоже возвращать курсор. Если мои предположения верны, такой insert нужно открывать через Open и читать поля как из запроса.

[Stilet]

Тьху ты чьортпобъери. Моя невнимательность.
Хотел Vapaamies плюсануть, но портал не дает, так что на словах выражу "спс".
Действительно похоже что у огнептицы насчет этого не совсем однозначное видение.

[tarakan1983]

Простите за долгое молчание. Спасибо всем за наставления, буду пробовать