Delphi-Quellcode:
function PosNr(fldName, tblName:
String): Integer;
begin
with TQuery.Create
do
begin
DatabaseName := QueryRechnungen.DatabaseName;
SQL.Text := '
SELECT MAX(Pos) FROM Rechnungsdaten WHERE
Rechnungsdaten.RechnungsNr = 999999';
Open;
Result: succ(Fields[0].AsInteger);
Close;
end;
Den
SQL.Text habe ich ersetzt. Nun beginnen alle Artikelpositionen
mit der PosNr. 1.0. Das "succ" in Result wird hier scheinbar ignoriert.