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