ID automatisch einfügen und gleich anzeigen, wie?[interbase]

[plautzer]

Irgentwie kommme ich nicht zu potte.

Ich habe jez diese procedure:

Delphi-Quellcode:

CREATE PROCEDURE RESET_GENERATOR 
RETURNS (
    MAXVALUE INTEGER,
    CURVALUE INTEGER,
    NXTVALUE INTEGER)
AS
begin
  Select MAX(nr), Gen_id(gen_haus_id, 0)
  from haus
  Into :maxvalue, :curvalue;[
  Nxtvalue = GEn_id(gen_haus_id, (:Curvalue - :Maxvalue));

  Insert Into Haus (nr)
  Values (:nxtvalue+1);

  suspend;
end

Trotzdem wird nicht eingetragen.... ich habe doch die insert procedure, aber es wird kein neuer datensatz hinzugefügt:

Procedure im prog:

Delphi-Quellcode:

DM.IBTrans.Active:=true;
With DM.SP_Haus_insert Do
Begin
  ExecProc;
  ID:= Params[2].value;
end;
DM.IBTrans.Active:=false;

Plautzer