'{'

'KSU(WS) = ', v991^a, '\par ',
'KSU(RECORD) = ', v88^a, '\par ',

&uf('+7'),
&uf('+7U1#1"/"2;3;4"/),
&unifor('+7W1#',("АБ"/"ЧЗ"/"ЗДЛ"/)),
g1
#

&uf('+7'),
(
if v44^i = 'Ф.1' then 
  if p(v44^j) then &uf('+7U1#', v44^j|;|) fi /* Всего
  if p(v44^a) then &uf('+7U2#', v44^a|;|) fi /* Книги

  if p(v44^1) then &uf('+7U6#', v44^1|;|) fi /* 2,5
  if p(v44^v) then &uf('+7U17#', v44^v|;|) fi /* 82,84
  if p(v44^$) then &uf('+7U24#', v44^$|;|) fi /* Краеведение
fi 
) 
'Всего по Ф.1 поступило: ', f(rsum(g1),0,0),'\par'
'\tab из них книг: ', f(rsum(g2),0,0),'\par'
'\tab из них раздел 2,5: ', f(rsum(g6),0,0),'\par'
'\tab из них раздел 82,84: ', f(rsum(g17),0,0),'\par'
'\tab из них краеведение: ', f(rsum(g24),0,0),'\par'


'}',