PosNummern in Rechnungsdaten

[mkinzler]

Versuchs mal so

Delphi-Quellcode:

function PosNr(fldName, tblName: String; RechNr: Integer): Integer;
begin
  with TQuery.Create do
  begin
  DatabaseName := QueryRechnungen.DatabaseName;
  SQL.Text := 'SELECT MAX(Pos) FROM Rechnungsdaten WHERE
               Rechnungsdaten.RechnungsNr = RechNr';
  Open;
  if not Fields[0].isNull then 
      Result := succ(Fields[0].AsInteger)
  else
    Result := 1;
  Close;
end;