,
if v920.1='A'then 
    &uf('6oex910_H')
    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><br>','<b>Экземпляры всего:</b> ',&uf('+7R2'), &unifor('S0'),
    fi,
    
    (if p(g5) then 
        if &uf('S1A')='1' then else  
        ', 'fi,'<br>',&uf('KMHR_web.mnu\'&uf('G0^'g5)),| (|g5^a|)| 
    fi), 
    
    
    if f(rsum((g5^b|;|)),0,0)<>''then
        '<br> <b>Свободны: </b>' 
        &unifor('S0'),
        (if p(g5^b) then 
            if &uf('S1A')='1' then else 
            ', '
            fi,
            '<br>',&uf('KMHR_web.mnu\'&uf('G0^'g5)),| (|g5^a|)| ,
        fi) 
    else
        '<br> <b>Свободных экз. нет</b>' 
    fi 
 fi,