Hi,
ich möchte auf die fortlaufende Rechnungsnummer einen unique Key setzen, damit jede Nummer zuverlässig nur einmal gespeichert wird.
Ist meine Vorgehensweise so i.O.?
1.) In der Datenbankoberfläche setze ich auf die RechnungsNr einen
Sekundärindex.
2.)
Delphi-Quellcode:
procedure TFormRechnungen.QueryRechnungenBeforePost(DataSet:
TDataSet); //Rechnungsnummer prüfen
begin
if QueryRNr.Fields[0].AsInteger > 0 then
DataSet.FieldByName('RNr').AsInteger := NextKey('RNr',
'Rechnungen');
end;
Besten Dank für die Hilfe!
Gruß
Lombi