&uf('+1W1#',v2221), &uf('+1W2#',v1050), /* База &uf('+1W3#',v2225), &uf('+1w4#'), &uf('+1w5#'), &uf('+1w7#1'), &uf('+1w8#6'),/* Количество месяцев в строке &uf('+1w10#',||d2221), /* Проверка и исправление года /* в 6 - записывается текущий год if val(v3333)>1000 and val(v3333)<=val(&uf('30')) then &uf('+1W6#',v3333.4), else &uf('+1W6#',&uf('30')) fi, '', '', '', '
', /* Выводим шапку таблицы с годом издания -- гиперссылкой '', '', &uf('+1w7#1'), (if &uf('+5Tnew_books.mnu')<>'' then '', &uf('+1W7#',F(val(&uf('+1R7'))+1,0,0)), if val(&uf('+1R7'))>val(&uf('+1R8')) then '',&uf('+1w7#1'), fi, else break fi), '
', if val(&unifor('+3J',&uf('+1R2'),',DP=',&uf('+1R6')))>0 then &uf('+1R10'),&uf('+1R6'),&uf('+1R11') 'ПОСТУПЛЕНИЯ ЗА ' '', else 'НЕТ ПОСТУПЛЕНИЙ ЗА ' , fi, |'/ '
', if val(&unifor('+3J',&uf('+1R2'),',DP=',&uf('+1R6'),&uf('+5Fnew_books.mnu')))>0 then &uf('+1R10'),&uf('+1R6'),&uf('+5Fnew_books.mnu'),&uf('+1R11'), &uf('+5Tnew_books.mnu'),'' else &uf('+5Tnew_books.mnu'), fi '
', &uf('+1w7#1'), '
',