Rechnungsnummer generieren?

[BiBi]

Hallo nochmal,

habe auf die schnelle den Prog-Teil gefunden.

Delphi-Quellcode:

  // Rechnungsnummer  um 1 erhöhen
  DataModule1.T_Rechnungen.Last;

  LetzteRechNummer :=
       DataModule1.T_Rechnungen.FieldByName('Rechnungsnummer').AsString;

  iLetzteRechNummer := StrToInt(LetzteRechNummer);
  iNeueRechNummer := iLetzteRechNummer + 1;

  NeueRechNummer := IntToStr(iNeueRechNummer);

Ich habe die Rechnungsnummer als String gespeichert, weil ich "RE" davor schreibe. Ich hoffe ich konnte Dir damit etwas helfen.

Gruß

[edit=Admin]Delphi-Tags eingefügt. Bitte künftig selber amchen. Mfg, Daniel[/edit]