Re: вопрос when ... do

Wed, 02 Aug 2006 03:34:46 -0700 


Ded пишет:


 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 'Дата приёмки должна же быть меньше даты снятия, блин!'; 

Ded, а что это у тебя названия странные какие-то? Прям как не русские.
;-)

--
С Уважением,
  Андрей Еремин.

Ответить