Re: КСУ для периодических изданий
Пользователь:
Дунаевская (IP-адрес скрыт)
Дата: 11, March, 2008 12:58
В RKSU.FST (БД IBIS и CMPL) и в RKS2.FST (КСУ выбытия - в БД IBIS) введите следующие корректировки
1. Удалить выделенные фрагменты
а) 145^B,^C - на баланс (экз, сумма - всего)
145^B 21 if v215^y<>''or v920:'NJ'then else (if p(v910) then if v910^u='v991'then if a(v910^4) then v910^1,|1|n910^1 fi fi fi/)fi/
145^C 22 if v215^y<>''or v920:'NJ'then else (if p(v910) then if v910^u='v991'then f(val(v910^e,if a(v910^e)then &unifor('Av10^d#1')fi,' 0')*val(if a(v910^4) then v910^1,|1|n910^1 fi,' 0'),0,2) fi fi/)fi
b) Аналогично в 744^B,^+,^D,^E (по подразделениям или актам)
с) 145^E,^F - не на баланс (экз. сумма - всего)
145^E 21 if v920:'NJ'then else if v215^y<>''then (if p(v910)then if v910^u='v991'then v910^1,|1|n910^1 fi fi/) else if v215^y='' and s(v910^4)<>''then (if p(v910)then if v910^u='v991'then if p(v910^4) then v910^1,|1|n910^1 fi fi fi/)fi fi fi/
145^F 22 if v920:'NJ'then else if v215^y<>''then (if p(v910)then if v910^u='v991'then f(val(v910^e,if a(v910^e)then &unifor('Av10^d#1')fi,' 0')*val(v910^1,|1|n910^1,' 0'),0,2) fi fi/) else if v215^y='' and s(v910^4)<>''then (if p(v910)then if v910^u='v991'then f(val(v910^e,if a(v910^e)then &unifor('Av10^d#1')fi,' 0')*val(if p(v910^4) then v910^1,|1|n910^1 fi,' 0'),0,2) fi fi/) fi fi fi/
d) 149^Q,^R - не на баланс (экз. сумма, иностранные)
149^Q 21 if v215^y<>''and v102<>&unifor('Korg.mnu|1') OR v920:'NJ'and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') then (if p(v910)then if v910^u='v991'then v910^1,|1|n910^1 fi fi/) else if v215^y='' and (not(v920:'NJ')) and s(v910^4)<>''then if v102<>&unifor('Korg.mnu|1') then (if p(v910)then if v910^u='v991'then if p(v910^4) then v910^1,|1|n910^1 fi fi fi/)fi fi fi/
149^R 22 if v215^y<>''and v102<>&unifor('Korg.mnu|1') OR v920:'NJ'and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') then (if p(v910)then if v910^u='v991'then f(val(v910^e,if a(v910^e)then &unifor('Av10^d#1')fi,' 0')*val(if p(v910) then v910^1,|1|n910^1 fi,' 0'),0,2) fi fi/) else if v215^y='' and (not(v920:'NJ')) and s(v910^4)<>''then if v102<>&unifor('Korg.mnu|1') then(if p(v910)then if v910^u='v991'then f(val(v910^e,if a(v910^e)then &unifor('Av10^d#1')fi,' 0')*val(if p(v910^4) then v910^1,|1|n910^1 fi,' 0'),0,2) fi fi/)fi fi fi/
2.Удалить первый выделенный фрагмент и вставить второй
149^N,^O - на баланс (экз. сумма, иностранные)
149^N 21 if v215^y<>''or v920:'NJ'then else if v102<>&unifor('Korg.mnu|1') OR v920:'NJ'and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1')then (if p(v910) then if v910^u='v991'then if a(v910^4) then v910^1,|1|n910^1 fi fi fi/)fi fi/
149^O 22 if v215^y<>''or v920:'NJ'then else if v102<>&unifor('Korg.mnu|1') OR v920:'NJ'and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') then (if p(v910) then if v910^u='v991'then f(val(v910^e,if a(v910^e)then &unifor('Av10^d#1')fi,' 0')*val(if p(v910) then if a(v910^4) then v910^1,|1|n910^1 fi fi,' 0'),0,2) fi fi/)fi fi/