Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Parsing error в хранимой процедуре [D6, IB6.x]

Sirruf © (2004-04-19 18:35:00)
Создал хранимую процедуру

CREATE PROCEDURE GETCOMMONBALANCE (
WHOUSEID INTEGER)
RETURNS (
WARENAME VARCHAR(20),
BALANCE FLOAT,
WAREUNIT VARCHAR(7))
AS
DECLARE VARIABLE WAREID INTEGER;
begin
for select distinct WAREID from Operations
where WHOUSEID = :WhouseID
into :WareID
do
begin
select NAME, UNIT from Goods
where ID = :WareID
into :WareName, :WareUnit;
execute procedure GETBALANCE(:WhouseID, :WareID)
returning_values :Balance;
if not (:Balance = 0) then (!!!)
suspend;
end
end

GETBALANCE - это другая хранимая процедура, отлаженная и правильно работающая, возвращающая параметр типа Float.
При компиляции процедуры GETCOMMONBALANCE в строке (!!!) вылетает parsing error. Если закомментировать эту строку, то компиляция проходит успешно. Не могу понять, чем ему проверка на равенство нулю не подошла? :(

Sirruf (2004-04-20 13:08:00) [1]
Не может, т.к. ID - primary key

Соловьев (2004-04-20 12:00:00) [2]

> Фух, ну и коварный же зверек этот IB Expert.

это разработчики ФБ намудрили :)

> А чем опасен код

тем что может вернуть несколько записей

Sirruf (2004-04-20 11:51:00) [3]
Фух, ну и коварный же зверек этот IB Expert. Special thanks to Sergey Masloff и Digitman. :))
А чем опасен код

> select NAME, UNIT from Goods
> where ID = :WareID ?

Соловьев (2004-04-20 10:03:00) [4]

> select NAME, UNIT from Goods
> where ID = :WareID

опасный код

Sergey_Masloff (2004-04-20 09:52:00) [5]
Digitman © (20.04.04 08:29) [2]
>if (not (Balance = 0)) then
Ну я именно это и говорю ;-)
Дело в другом. Сейчас проверил через isql - точно требует общих скобок после if (FB 1). Я почему-то думал это IBExpert парсит что-то там (да наверное парсит потому что сообщение об ошибке не interbase-овское). Потому что у меня стойкое впечетление что IB4 это позволяла и IB5 тоже. Впрочем, не уверен так как у меня привычка к таким скобкам (после if) на уровне рефлексов ;-)

Digitman (2004-04-20 08:29:00) [6]
if (not (Balance = 0)) then

Sergey Masloff (2004-04-19 22:14:00) [7]
Sirruf © (19.04.04 18:35)
в IbExpert небось?
if (условие) then
xxx;

ВСЕ условие должно быть в скобках

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »