CftClub.ru

[Alkov]

for a in A
rez=false

for x in b
loop
if x.val = a.val
then
rez=true
exit
end if
end loop

if rez
ok
else
err
end if
end loop

[wolfio]

Пробовал так, вот мой вариант:

[code]
for z in ::[VAL_TUNING] all
WHERE z%COLLECTION = X.[TUNINGS]
and (z.[DELETED] = 0 or z.[DELETED] is null)
and z.[DATE_END] >= p_date
LOOP
bol := false;
for j in 1..tmptbl.count
loop
if tmptbl(j).vid_tune = nvl(z.[KIND_TUNE_REF],0)
and tmptbl(j).cod_tun = nvl(z.[KIND_TUNE_REF].[NAME],'no') then
null;
bol := true;
exit;
else
bol := false;
end if;
end loop;
if bol then debug_pipe(X.[CODE] ||z.[KIND_TUNE_REF].[NAME]||'...Ok' ,0); --nash
else debug_pipe(X.[code]||z.[KIND_TUNE_REF].[NAME]||'...check Error' ,0); --net
end if;
--bool
END LOOP;
[/code]

,tmptbl - это таблица А,
z - это таблица Б.

Проблмема в том, что при таком условии он не берет запись из А, которой нет в Б, потому что при сравнении (=) не находит ей соответствия, а селект к экзистом я сделать не могу.

[Random]

[wolfio]

коллега-программер говорит, что ваш вариант самый лучший) попробую его как-нибудь применить)
хотя моих знаний едва хватает чтобы прочитать ваше произведение

спасибо!