0
// Для мастера списания
// Списание журналов по году
// На входе отмеченные записи журналов
// v991^A - номер КСУ списания v991^B - номер акта передачи
// v992^D - место хранения, v992^M - новое место хранения, 992^A - шифр журнала, v992^b-номер комплекта,v992^4-год 
// v1909 - новые поля для 1909
IF
if v992: '^0J' then '1' fi
//------------------------ это запись общего описания
//PUTLOG
//'Откорректировано описание журнала MFN=',f(val(mfn),0,0)
DEL
909
*


REP
992^H
F
(if p(v992) then if p(v992^H) then &uf('U',v992^H) else # fi fi/)

ADD
909

(if p(v992) then if &uf('+97',v992^A)=&uf('+97',&uf('Av903#1'))or a(v992^a) then if v992='^0J' then else v992 fi fi fi/)

DEL
909^A
*


FI
IF
if v992: '^0A' then '1' fi
//------------------------ это запись аналитики
//PUTLOG
//'На корректировку статья MFN=',f(val(mfn),0,0)
ADD
910

if rsum((if p(v463)then ref(L(|I=|v463^W),if v910^A:'7'then '0;'else '1;'fi)fi/))=0 then '^A7'fi

FI
IF
if v992: '^0N' then '1' fi
//------------------------ это запись номера
DEL
1992
*


ADD
1992

mpu,(if p(v992) then if v992='^0N' then else v992 fi fi/),&uf('+7W10#')

REPEAT
DEL
9992
*


ADD
9992

&uf('Av1992#1'),

IF
if p(v9992^a)and &uf('+97',v933)=v9992^a or a(v9992^a) then'1'else'0'fi
REP
9992
F
v991,"^D"v9992^d,"^K"v9992^b,"^M"v9992^m

//PUTLOG
//'Откор. запись номера журнала MFN=',f(val(mfn),0,0)
REP
910
F
if v9992^d=''then(if p(v910) then if '1 2 3 6 7 8 9':v910^a or p(v910^v) then v910 else v910,'^V'&uf('Av9992^a#1'),|^X|v910^1,if &uf('Av9992^m#1')<>''then if '4':v910^a then else  |^Z|v910^1,'^M'&uf('Av9992^m#1'),'^W'&uf('Av9992^b#1')fi fi,fi fi/)else (if p(v910) then v910,if '1 2 3 6 7 8 9':v910^a or p(v910^v) then  else if &uf('+97'v910^d)=&uf('+97'&uf('Av9992^d#1')) then if &uf('Av9992^k#1')<>''and v910^b=&uf('Av9992^k#1')or &uf('Av9992^k#1')='' then '^V'&uf('Av9992^a#1'),|^X|v910^1,if &uf('Av9992^m#1')<>''then if ' 4':v910^a then else |^Z|v910^1,'^M'&uf('Av9992^m#1'),'^W'&uf('Av9992^b#1')fi fi, fi fi fi fi/)fi

REP
910^A
F
(if p(v910)then if v910^v<>''and v910^v=&uf('Av9992^A#1') then if '1 2 3 6 7 8 9':v910^a then &uf('+7U10#',v910^h| |,&uf('Av933#1'),'-',v910^D,'-',v910^B': неверный статус - ',v910^A),fi, if '0 4':v910^a then '6' else v910^a,fi else v910^a  fi fi/)

IF
if v910^h:';'then'1'else'0'fi



REP
910^8
F
(if p(v910)then if p(v910^8)then if v910^v=&uf('Av991^A#1') then if &uf('+97'v910^d)=&uf('+97'&uf('Av9992^d#1'))or &uf('Av9992^d#1')='' then if &uf('Av9992^k#1')<>''and v910^b=&uf('Av9992^k#1')or &uf('Av9992^k#1')='' then v910^8|;|,v910^h else v910^8 fi else v910^8 fi else v910^8 fi else # fi fi/)

ADD
910^8
F
(if p(v910)then if v910^v=&uf('Av991^A#1')and v910^h:';'and a(v910^8) then v910^h else # fi fi/)

REP
910^X
F
(if p(v910)then if p(v910^x)then if v910^v=&uf('Av991^A#1')then if &uf('+97'v910^d)=&uf('+97'&uf('Av9992^d#1'))or &uf('Av9992^d#1')='' then if &uf('Av9992^k#1')<>''and v910^b=&uf('Av9992^k#1')or &uf('Av9992^k#1')='' then f(val(v910^x)+val(v910^1),0,0)else v910^x fi else v910^xfi else v910^x fi else # fi fi/)

else # fi fi/)

ADD
910^X
F
(if p(v910)then if v910^v=&uf('Av991^A#1')and a(v910^x)and p(v910^1) then v910^1 else # fi fi/)

FI




ADD
940

&uf('+7W940#'),&uf('+7U940#'(v940|; |)),(if p(v910)then if v910^v=&uf('Av9992^A#1')then if &uf('Ag940#1'):v910 then else v910 fi fi fi/)

DEL
910
F
(if p(v910)then if 'C U':v910^a then if v910^v=&uf('Av9992^A#1') and v910^1<=v910^x and a(v910^w)then'1'else'0'fi else'0' fi fi/)

REP
910
F
(if p(v910) then if v910^v=&uf('Av9992^A#1') and p(v910^w)and v910^w=&uf('Av9992^B#1') then if v910^a:'6' then '^A0' else |^A|v910^a fi,|^1|v910^z,|^D|v910^m,|^B|v910^b,|^H|v910^h,|^K|v910^k,|^E|v910^e,|^U|v910^u,|^Y|v910^y,|^C|v910^c,|^F|v910^f,|^2|v910^2,|^8|v910^8 else if v910^a:'p' then '^A6'|^A|v910^a,|^1|v910^z,|^D|v910^m,|^B|v910^b,|^H|v910^h,|^K|v910^k,|^E|v910^e,|^U|v910^u,|^Y|v910^y,|^C|v910^c,|^F|v910^f,|^2|v910^2,|^8|v910^8  else v910 fi fi fi/)

ADD
5555
XXXXXXXXXXXXXXXXXXX
if p(v910)then f(rsum((if p(v910)then if '2 6':v910^a then '0;' else '1;'fi fi/)),0,0)else if p(v940)then '0'else'1'fi fi
XXXXXXXXXXXXXXXXXXX
ADD
910
XXXXXXXXXXXXXXXXXXX
if val(v5555)>0 then else if v940:'^k'then (if p(v940) then if p(v940^k)then|^A7^K|v940^k,|^D|v940^d fi fi/)else'^A7'fi fi
XXXXXXXXXXXXXXXXXXX
IF
if v910:'^A7'then'1'else'0'fi
//в 111 , у кот. списаны все экземпляры

ADD
1111

&uf('+7U111#'v903|!|)


DEL
1111



FI
DEL
5555
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
9992
*


DEL
463^w
*


// конец совпадение номера по шифру общего описания
FI
DEL
1992
1


UNTIL
if p(v1992) then '1' fi

REP
910
F
(if p(v910) then if '6 U':v910^A and &uf('+97',v910^V)=&uf('+97',&uf('Av991^A#1')) then &uf('+7U10#','MFN=',f(val(mfn),0,0),' списан экземпляр ',&uf('Av933#1'),'-',v910^D,'-',v910^B) fi,fi/)

DEL
910^V
F
(if p(v910) then if 'U'=v910^A and &uf('+97',v910^V)=&uf('+97',&uf('Av991^A#1')) then '1'else'0' fi,fi/)


//PUTLOG
//(v910|; |)

// конец части для журнала
FI
//--------------------------------------
// формирование протокола проверки
DEL
991
*


DEL
992
*


PUTLOG
(g10|; |)