выходная форма
Пользователь:
kalina (IP-адрес скрыт)
Дата: 19, December, 2013 12:12
мне посоветовали обратиться сюда Ирбис 64 10 1. нам надо поменять выходную форму, чтоб распечатывался не весь список а выбранные книги
помогите пожалуйста!
'{''\fs016 НБ ГМУ '
'\par '&uf('32'),'.'&uf('31'),'.'&uf('30'),' г. ',&unifor('39')' \par '
"\b Идентификатор читателя: \b0 "v30," \b Категория \b0 "v50,
"\par \b ФИО: \b0 "v10," "v11," "v12,' ('v21,' г.р.)',
if s(v40,v200)<>'' then'\par СВЕДЕНИЯ О ВЫДАННОЙ ЛИТЕРАТУРЕ (ВСЕГО): '
,"\pard\tx500\tx1400\tx2300\tx3100\tx3500 \par \b ВОЗВР. Штрих-код
\tab Краткое описание\b0 "D40,,,,,,,,,,,,,,,,,,,,,
(if p(v40) then if v40^f.1='*' then |\par |,d40,|\b |v40^e*6.2'.'v40^e*4.2'.'v40^e.4,|\b0 |d40,v40^h' \tab 'd40, v40^C.40,&uf('DBOOK,!I=',v40^A,'!,"- "v210^D,'),,,,,
&uf('+7W10#',v40^H,if a(v40^H) then v40^B fi),,,
&uf('+7W11#',&uf('DBOOK,!IN=',&uf('AG10#1'),'!,@cenaekz')),,,,,
if &uf('Ag11#1')<>'' then '.- ',,,&uf('Ag11#1'),,'р.' else &uf('DBOOK,!I=',v40^A,'!,".- "v10^D"р."') fi,,,
fi fi),
if p(v200) then '\par 'v200^g,'\tab ',v200^a.9,'\tab 'v200^b.9,
'\tab ',v200^d*2,'\tab ДОЛГ','\tab 'v200^f" ",v200^c,"."v200^h,":"v200^i,".-"v200^j,
fi fi
'\par \par Получил ____________________'
'\par \par Тел.: '
'\par Режим работы: пн-пт, сб. 9.00-17.00'
'\par -------------------------------------------------------------}'
Редактировано 2 раз. Последний раз 24.01.2014 06:39 пользователем kalina.