Re: КСУ
Пользователь:
Дунаевская (IP-адрес скрыт)
Дата: 02, October, 2009 09:06
Мария написал(а):
-------------------------------------------------------
> Версия 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 пользователем Дунаевская.