if &uf('Av920.1#1')='A'  then 


        if v903=&uf('Av463^W#1') then '~~Ошибка шифра!~~' else   
        if l(|I=|v463^w)>0 then    
                &uf('D,|I='v463^w,'|,@!!kw7ex')  ,      
        fi,
        
        fi, 
         

    else 
    &uf('+7W1#',(&uf('Pv910^d')/)), 
    &uf('+7W5#'), 
    /* 1 -- названия отделов
    (if p(g1) then 
        &uf('+7W2#'),
        &uf('+7W2#',g1),
        &uf('6EXUVL'),
    fi/), 
    /* 5 [название отдела]^A[экземпляры всего]^B[свободные экземпляры]
    
    &uf('+7W2#',f(rsum((g5^a|;|)),0,0))
    if &uf('+7R2') <> '' then 
        '<br><b>~~Экземпляры всего~~:</b> ',&uf('+7R2'), &unifor('S0'), '<br>'
    fi,
/* проверка условия, что есть экземпляры
    if rsum((if p(g5) then if val(g5^A)>0 then '1,' fi fi))>0 then 
    (if p(g5) then    

       
       if val(g5^a)>0 then 
        if &uf('S1A')<>'1' then 
                ',  '
        fi,
       
               &uf('G0^'g5),| (|g5^a|)|  
       fi,


    fi), 
    fi,,,,

    if f(rsum((g5^b|;|)),0,0)<>'' then
        '<br> <b>~~Свободны~~: </b>' 
        &unifor('S0'),
        (if p(g5^b) then 
            if &uf('S1A')<>'1' then
            ', '
            fi,
            &uf('G0^'g5),| (|g5^b|)| ,
        fi) 
    else
     if v900^T:'l'  or (s((if p(v951) and (not v951^H:'02') then 'TRUE' break  fi))<>'')  then
         
      else 
        '<br> <b>~~Свободных экз. нет~~</b>' 
        fi,
    fi 
 fi,