[movnet]

Код:

    dm.Arh.SQL.clear;
    dm.Arh.SQL.Add('update treb2, sklad');
    dm.Arh.SQL.Add('SET sklad.kol=sklad.KOL-treb2.KOL, sklad.SUMMA=sklad.SUMMA-Treb2.SUMMA');
    dm.Arh.SQL.Add('where TREB2.LINKID=sklad.ID');
    dm.Arh.ExecSQL;