Dmitry Yemanov wrote:
"Alexandr Kochmin" <[EMAIL PROTECTED]> wrote:
а exception_name?
Никак. А их так много, что нормально обработчик (с секцией на каждое
исключение) сделать нельзя?
А хто разрешил динамическое порождение месаг эксепшенов, а? ;) Дашь
человеку палец, так он откусит всю руку :) Даже я уже тоже разленился, а
что про моих орлов говорить... Глянул вот в ддл-ку контекстным поиском и
вот кусок из первой же процедуры:
if (DestOper<>'P') then
Exception CommonExc 'Destination - должна быть ПРИЁМКА, блин!';
Select TipOper, Partner, DateDoc From HranDocs
Where DocCode=:SourceAct
Into :SourceOper, :CheckSup, :CheckDoc;
if (SourceOper<>'S') then
Exception CommonExc 'Source - должно быть СНЯТИЕ, блин!';
if (CheckSup<>Supplier) then
Exception CommonExc 'Разные организации, блин!';
if (DateDoc>CheckDoc) then
Exception CommonExc 'Дата приёмки должна же быть меньше даты снятия,
блин!';
Такшта сказавши А надо бы говорить и Бе :)
--
Regards. Ded.
