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

        if l(|I=|v463^w)>0 then    
                &uf('D,|I='v463^w,'|,@!!kw7ex')  ,      
        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 &uf('S1A')='1' then else 
        ', 'fi,&uf('G0^'g5),| (|g5^a|)| 
    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,