Herzlich willkommen in der Delphi-PRAXiS, robby3.
Das Setzen von Table.Active auf TRUE in deiner Schleife ist falsch, sollte aber ignoriert werden und keine Endlosschleife verursachen. Es entspricht einem Table.Open, welches du aber außerhalb deiner Schleife bestimmt schon gemacht hast, sonst würde FindNearest eine
Exception werfen. Um deinen Verdacht auf eine Endlosschleife zu überprüfen kannst du die Kenndaten (Spaltenwert pos) der die Schleife steuernden
Query im StatusBar zusammen mit einem Satzzähler ausgeben. Beim bloßen Anschauen deines Codes kann ich aber keine Endlosschleife erkennen.
Grüße vom marabu
PS: Im Prinzip funktionieren die folgenden
SQL statements in LOCALSQL.
SQL-Code:
update lager
set stueck = (select stueck from qmin where lager.pos = qmin.pos)
where exists (select pos from qmin where qmin.pos = lager.pos)
insert into lager select * from qmin
where not exists (select pos from lager where lager.pos = qmin.pos)