Query... Feld nicht gefunden

[marabu]

Hallo,

bei Paradox ist es tatsächlich effizienter mit einem Filter zu arbeiten, da die Zugriffsroutinen sowieso vollständig auf dem Client ablaufen.

Ich würde die Konfiguration des Grids und der SpeedButtons nicht in der Prozedur QLieferschein() angehen und dieser auch eine andere Signatur verpassen:

Delphi-Quellcode:

procedure QLieferschein(q: TQuery; const ls, vorgang: string);
var
  bFiltered: Boolean;
begin
  with q do
  begin
    DisableControls;
    bFiltered := Filtered;
    Filtered := False;
    SQL.Text := 'SELECT A.Artikelnummer, A.StyleName, A.StyleNummer, A.Farbe, A.Grosse, '
              + 'B.Bewegung, A.EKnetto, B.Datum, B.RE '
              + 'FROM Artikel A, Bewegung B '
              + 'WHERE B.LS = :Match AND B.Vorgang = :Vorgang '
              + 'AND A.Artikelnummer = B.Artikelnummer '
              + 'ORDER BY Farbe, Grosse'
              ;
    ParamByName('Match').AsString := ls;
    ParamByName('Vorgang').AsString := vorgang;
    Open;
    Filtered := bFiltered;
    EnableControls;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu