/* параметры - MaxBooks, max_orders, MaxDolgBooks

<!FORMAT=!&uf('+1W456#'&uf('6show_exemp_menu')) 
if s((g456))<>'' 
then 
/*--------проверка на MaxBooks
   if &uf('IMAIN,MaxBooks,')<>'' and rsum((if p(v40) then if v40^f.1='*' then '1,' fi fi))>=val(&uf('IMAIN,MaxBooks,1')) 
   then
        '<big> ~~У Вас на руках максимально допустимое кол-во изданий~~</big>'  
   else 
/*-------ОК по MaxBooks
/*-------проверка на max_orders
        if val(&uf('+3SRQST,0,?(<.>RI=',v30,'<.>)+(<.>RB='v30'<.>)?,'))<val(&uf('IMAIN,max_orders,10')) 
        then  
/*--------не превышено макс. число заказов
/*--------проверка на долг
           if s((if p(v40) then if v40^f='******' and val(v40^e)<val(&uf('3')) then 'DOLG' break fi, fi))<>'' 
           then 
/*--------есть долг
/*--------проверка на MaxDolgBooks
                if rsum((if p(v40) then if v40^f='******' and val(v40^e)<val(&uf('3')) then '1,' fi fi))>=val(&uf('IMAIN,MaxDolgBooks,1')) 
                then 
                   '<big> ~~Вы просрочили возврат максимально допустимого кол-ва изданий~~</big>'  
                else 
/*--------OK по MaxDolgBooks
/*-------ЗАКАЗАТЬ
                     '<!FILE=order_form.frm>' 
                fi,,
           else  
/*-------нет долга
/*-------ЗАКАЗАТЬ
                 '<!FILE=order_form.frm>' 
           fi,,
        else 
              '<big> В связи с превышением максимально допустимого числа заказов (',&uf('IMAIN,max_orders,10'),') заказ не возможен</big>' 
        fi, 
    fi,,
else  
/*-------не сформировалось поле 456 ???
/*-------этот блок не работает, т.е. если нет экз. то кнопка ЗАКАЗАТЬ не видна
   if &uf('IMAIN,STRONGREQUEST,0') = '0' 
   then 
/*-------ЗАКАЗАТЬ
       '<!FILE=order_form.frm>' 
   else 
      '<big> ~~Выбранное издание не может быть заказано в связи с отсутствием свободных экземпляров на доступных кафедрах выдачи.~~</big>', &uf('6order_perspective'), 
   fi 
fi>