Form11
(if p(v40) then if (v40^a<>'') and (&uf('Av1000^a#1')=v40^d.6) and (v40^v=&uf('Av1000^b#1') or &uf('Av1000^b#1')='')then  &uf('+7W1002#'),&uf('+7W1002#'v40^d*6.2),&uf('D',v40^g,|,!I=|v40^a|!,&uf('Ag1002#1')/&uf('+7W1001#'),&uf('+7W1001#'v215^a),(if val(&uf('Ag1001#1'))>0 then if &uf('Av215^1#1'):'zv=' or &uf('Av215^1#1'):'o=' then &uf('Ag1002#1'),&uf('+7W1001#'f(val(&uf('Ag1001#1')) -1,0,0)) else break fi fi/)) fi fi|) fi fi)
date_STF.mnu
(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1') or &uf('Av1000^b#1')='') then  &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then  &uf('+7W1001#'),&uf('+7W1001#'v215^a),(if val(&uf('Ag1001#1'))>0 then if &uf('Av215^1#1'):'o=' then '5' else if &uf('Av215^1#1'):'zv=' then '3'fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1'))-1,0,0))/ else break,fi) /, if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'zv=' then '2' else if v215^1:'o=' then /'9' fi fi/, if v900^c:'w' then '4' fi /,if v215^1:'z=' then '6' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'Т' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v621.1:'Т' or v621.2:'Т ' or v621.1:'Т' then '7',fi/,if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '8',fi fi/) fi /|), fi fi)/
f11_STF.mnu
4,7
1019.wss,1000
'Учет выдачи изданий по видам и темам за ',&uf('36',v1000^A*4.2)," "v1000^A.4" г."," (место выдачи - "v1000^b")"
1,1