PosNummern in Rechnungsdaten

[LOMBI]

Delphi-Quellcode:

function NextKey (fldName, tblName: String): Integer;
begin
  with TQuery.Create do
  begin
  DatabaseName := QueryRechnungen.DatabaseName;
  SQL.Text := Format('SELECT MAX(%s) FROM %s', [fldName, tblName]);
  Open;
  Result: succ(Fields[0].AsInteger);
  Close;
end;

Gruß
Lombi