,
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><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 &uf('S1A')='1' then 
        else 
                ', '
        fi,
       
       if val(g5^a)>0 then 
               &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 else 
            ', '
            fi,
            &uf('G0^'g5),| (|g5^b|)| ,
        fi) 
    else
        '<br> <b>Свободных экз. нет</b>' 
    fi 
 fi,