&uf('+7W1#',(&uf('Pv910^d')/)), 
    &uf('+7W5#'), 


    /* 1 -- названия отделов
    (if p(g1) then 
        &uf('+7W2#'),
        &uf('+7W2#',g1),
        &uf('6EXUVL'),
    fi/), 


    &uf('+7W2#',f(rsum((g5^a|;|)),0,0))
    if &uf('+7R2') <> '' then 
/*          ',"quantity" : "',&uf('+7R2'), &unifor('S0'), '"',
          ',"quantity" : "',&uf('+7R2'), '"',

/* '<br>'
    fi,