Нет хранимая процедура рано....
Код:
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)');
dm.Arh.SQL.Add('WHERE Sklad.id IN (SELECT treb2.LinkID FROM treb2 WHERE Sklad.id=treb2.LinkID )');
dm.Arh.ExecSQL;
end;
вот немного переделанный запрос но возникает ошибка так как выбирается не одна запись а больее примерно штук 7
как обойти ошибку (скрин ошибки приложил)