fortlaufende Nr.

[Hansa]

Zitat von mschaefer:

jetzt ereilt dich vor Weihnachten auch noch das Rechnungsnummernproblem....

und das ich gerne über Weihnachten aus dem Weg räumen will, wenn der Schnee schon von alleine weg geht. Am einfachsten geht das so:

SQL-Code:

CREATE TABLE RECNR (NR INTEGER NOT NULL);

ALTER TABLE RECNR ADD CONSTRAINT PK_RECNR8 PRIMARY KEY (NR);

SET TERM ^ ;

CREATE TRIGGER RECNR_BI0 FOR RECNR
ACTIVE BEFORE INSERT POSITION 0
AS
begin
  RECNR.nr = 1;
end

^
CREATE TRIGGER RECNR_BU0 FOR RECNR
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
  new.nr = old.nr + 1;
end
^

Tja, mehr ist es nicht. Das einzige, worauf man achten muß, zumindest in meinem Beispiel muß die NR immer auf 0 gesetzt werden. Die Trigger setzen sie dann auf den richtigen Wert. Nur mit:

Delphi-Quellcode:

Edit;
Post;

geht es nicht. Im Delphi-Programm muß dazwischen noch folgendes stehen:

RecNrDS.FieldByName ('NR').AsInteger := 0