Версия 2008.1(32)
Необходимо выделить из общего фонда (нф) книгу редкого фонда. Эта же книга идет в др. места хранения. По расчету КСУ, поле 744^W заполняется у всех мест хранения. Как это исправить? Строка в rksu такая:

744^W 11 (if p(v910)then if v910^u='v991'then if'2 6 7':v910^a then else if v910^d:'нф' then if v910^b*7.2:'рф'then v910^1,|1|n910^1 fi fi fi fi fi/)/

То есть в 744^w "посчитаны" все инвентарные номера содержащие "рф", вне зависмости от того, какое у них указано место хранения?

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Возвращаюсь к теме.
Максим Викторович, да. На картинках показываю как она считает.

Может кто-нибудь ответит?

Попробуйте вот так:

(if p(v910)then if v910^u='v991'then if'2 6 7':v910^a then else if v910^d:'нф' then if v910^b*7.2:'рф'then v910^1,|1|n910^1 fi else '0' fi fi fi fi/)/

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Экспортируйте, пожалуйста, из БД CMPL записи 2009 и 2010 и прикрепите.

Здравствуйте!
Прикрепляю файл с записями.Также ксу считает ОФ и др. фонды,если книга идет в разные места хранения.

Здравствуйте!
Прикрепляю файл с записями.Также ксу считает ОФ и др. фонды,если книга идет в разные места хранения.

Мария написал(а):
-------------------------------------------------------
> Версия 2008.1(32)
> Необходимо выделить из общего фонда (нф) книгу
> редкого фонда. Эта же книга идет в др. места
> хранения. По расчету КСУ, поле 744^W заполняется у
> всех мест хранения. Как это исправить? Строка в
> rksu такая:
>
> 744^W 11 (if p(v910)then if v910^u='v991'then
> if'2 6 7':v910^a then else if v910^d:'нф' then if
> v910^b*7.2:'рф'then v910^1,|1|n910^1 fi fi fi fi
> fi/)/

Можно предложить 2 варианта:
1.Вставить строку
744 2 (без пробела после 2) перед строкой
744^V ...
В поле 744 будут формироваться отдельные строки для выделенных фондов, не связанные с местами хранения и номерами актов

2. Откорректировать строку 744 0 следующим образом
744 0 (if p(v910)then if'6 7':v910^a then else if v910^u=&uf('Av991#1')then if p(v910^y) and &unifor('DCMPL,"KSU=',&uf('Av991#1'),'",@p288')<>''then '^I',v910^y,'^?'v910^d else |^I|v910^d,if &unifor('Av900^b#1')<>''then'^H'&unifor('Av900^b.2#1')else if &unifor('Av920#1'):'NJ'then'^H02'fi fi/if v910^b:'рф' then '^Iрф',if &unifor('Av900^b#1')<>''then'^H'&unifor('Av900^b.2#1')else if &unifor('Av920#1'):'NJ'then'^H02'fi fi fi fi fi fi fi/)/
Будет формироваться отдельное повторение поля 744 для редкого фонда (формат, естественно, можете корректировать).
По-моему, логически более правильный вариант 1.

Р.S.
Строка 744 0 может быть и в изначальном варианте (с использованием 'v991')
744 0 (if p(v910)then if'6 7':v910^a then else if v910^u='v991' then if p(v910^y) and &unifor('DCMPL,"KSU=','v991','",@p288')<>''then '^I',v910^y,'^?'v910^d else |^I|v910^d,if &unifor('Av900^b#1')<>''then'^H'&unifor('Av900^b.2#1')else if &unifor('Av920#1'):'NJ'then'^H02'fi fi/if v910^b:'рф' then '^Iрф',if &unifor('Av900^b#1')<>''then'^H'&unifor('Av900^b.2#1')else if &unifor('Av920#1'):'NJ'then'^H02'fi fi fi fi fi fi fi/)/



Редактировано 1 раз. Последний раз 02.10.2009 12:01 пользователем Дунаевская.