[movnet]

AS INT - дублируется

Код:

dm.Arh.SQL.clear;
    dm.Arh.SQL.Add('update "SKLAD"');
    dm.Arh.SQL.Add('SET Kol=Kol-CAST((SELECT Kol FROM TREB2 WHERE Flag=7) AS INT),');
    dm.Arh.SQL.Add('Summa=Summa-CAST((SELECT Summa FROM TREB2 WHERE Flag=7) AS INT_1)');
    dm.Arh.SQL.Add('WHERE Sklad.id IN (SELECT treb2.LinkID FROM treb2 WHERE Sklad.id=treb2.LinkID )');
    dm.Arh.ExecSQL;
end;