Einzelnen Beitrag anzeigen

Benutzerbild von BiBi
BiBi

Registriert seit: 30. Dez 2003
Ort: Regensburg
25 Beiträge
 
Delphi 7 Professional
 
#8

Re: Rechnungsnummer generieren?

  Alt 13. Jan 2004, 17:54
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]
----
BiBi
  Mit Zitat antworten Zitat