Ассоциация ЭБНИТ    ИРБИС-корпорация    Вики-Ирбис    Online/CHM справка Ирбис   
АРМ Комплектатор :  ИРБИС Irbis
 
Порядок в инв. номерах
Пользователь: ВОУНБ (IP-адрес скрыт)
Дата: 28, October, 2005 13:41

Здравствуйте!
Возникла вот такая проблема:
в инвентарной книге инв. номера располагаются так:
24.06.05(45) 0659943
24.06.05(45) 0659945
24.06.05(45) 0659946
24.06.05(45) Б-0659944 ,
т.е. книги с нестандартным форматом печатаются в конце списка, а наши библиотекари хотят , чтобы было так:
24.06.05(45) 0659943
24.06.05(45) Б-0659944
24.06.05(45) 0659945
24.06.05(45) 0659946 .

Пожалуйста, помогите это осуществить!


Re: Порядок в инв. номерах
Пользователь: Дунаевская (IP-адрес скрыт)
Дата: 28, October, 2005 17:03

Каким форматом получаете список инв. номеров?

Re: Порядок в инв. номерах
Пользователь: ВОУНБ (IP-адрес скрыт)
Дата: 31, October, 2005 09:19

Используется табличная форма TABIUW.

Re: Порядок в инв. номерах
Пользователь: Дунаевская (IP-адрес скрыт)
Дата: 31, October, 2005 14:39

Внесите изменения в TABIUW.SRW: в самом конце секции [KeyOptions] перед *****
в части
... then f(val(&unifor('Av910^b#1'),' 0'),8,0) else &unifor('Av910^b.1#1'),f(val(&unifor('Av910^b*1#1')),7,0) fi else &unifor('Av910^h#1')fi fi fi

удалите &unifor('Av910^b.1#1'),

чтобы осталось

... then f(val(&unifor('Av910^b#1'),' 0'),8,0) else f(val(&unifor('Av910^b*1#1')),7,0) fi else &unifor('Av910^h#1')fi fi fi


Re: Порядок в инв. номерах
Пользователь: ВОУНБ (IP-адрес скрыт)
Дата: 31, October, 2005 16:22

Удалили:

if s(v215^y)=''then if rsum((if p(v910) then if 'C U 2 7':v910^a then else if &unifor('Av991^a#1')=v910^u and &unifor('Av991^b#1')=v910^d or &unifor('Av991^c#1')=v910^y and &unifor('Av991^b#1')=v910^d or &unifor('Av991^b#1')='' and (&unifor('Av991^a#1')=v910^u or &unifor('Av991^c#1')=v910^y)or &unifor('Av991^a#1')='' and &unifor('Av991^c#1')='' and &unifor('Av991^b#1')=v910^d then '1;'else'0;' fi fi fi))>0 then '^aB='if &unifor('Av910^b#1')<>''then if &unifor('Av910^b.1#1')='0'or val(&unifor('Av910^b.1#1'))>0 then f(val(&unifor('Av910^b#1'),' 0'),8,0) else f(val(&unifor('Av910^b*1#1')),7,0) fi else &unifor('Av910^h#1')fi fi fi
*****
Не получилось.Книги с нестандартным форматом все равно в конце инвентарной книги.

Re: Порядок в инв. номерах
Пользователь: Дунаевская (IP-адрес скрыт)
Дата: 31, October, 2005 16:39

Замените еще f(val(&unifor('Av910^b*1#1')),7,0) на f(val(&unifor('Av910^b*1#1')),8,0) ("7" меняется на "8").
Но учтите, что в этой таблице ДОКУМЕНТЫ сортируются по первому введенному в них инв. номеру, а внутри документов инвентари не сортируются, и их порядок соответствует порядку следования в документе.

Re: Порядок в инв. номерах
Пользователь: ВОУНБ (IP-адрес скрыт)
Дата: 01, November, 2005 15:00

Изменение "7" не помогло "8". Результат прежний.
А инв. номера в этом случае первые.

Re: Порядок в инв. номерах
Пользователь: Дунаевская (IP-адрес скрыт)
Дата: 01, November, 2005 18:49

Извините, не обратила внимания на то, что у Вас перед цифрами стоят два символа (Б-). Замените *1 на *2

Re: Порядок в инв. номерах
Пользователь: ВОУНБ (IP-адрес скрыт)
Дата: 02, November, 2005 09:33

Все получилось просто отлично!
Большое спасибо!




Извините, только зарегистрированные пользователи могут писать в этом форуме.
This forum powered by Phorum.