Re: Сведения о свободных экземплярах
Пользователь:
mikgon (IP-адрес скрыт)
Дата: 27, July, 2004 13:08
Предлагаю кусок формата для fullw. Авторство естественно!!!:))) Светланы Михайловны Дунаевской
if s(v910^c,v993)<>''then
if rsum((if v910^a:'0' and &unifor(|Kmhrvn.mnu\|v910^d)='' then'1;'else|0;|d910^d fi))>0 or
rsum((if v910^a:'U' and &unifor(|Kmhrvn.mnu\|v910^d)='' then
if p(v910^2) and val(v910^1,|1|n910^1)-val(v910^2)>0 or a(v910^2)then'1;'fi fi'\par '))>0
then else
if v910:'^A1'or v910:'^AU'then'\tab (Свободных экземпляров нет) \par 'else
if v910:'^AC'then'\tab \b (Издание есть только в отделениях)\b0 \par 'else
if p(v993) then'\tab \b (Есть только копии издания)\b0 \par '
fi fi fi fi
else
if v920.1='A'or a(v910) and p(v951)
then else |\tab (Нет сведений об экземплярах)\par |d200
fi fi,