0
DEL
691
*


ADD
691
*
if p(v67) then ref(l("KF="v67^a"\",v67^c"\",v67^f"\"),(v69/)) fi

IF
if &unifor('IMAIN,KATKO,0')='1' then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
REP
54
F
(&unifor('AD54')/)
XXXXXXXXXXXXXXXXXXX
DEL
69
F
if a(v1002) and a(v68) then (|1|d69/) else (|0|d69/) fi
XXXXXXXXXXXXXXXXXXX
ADD
69
XXXXXXXXXXXXXXXXXXX
if a(v1002) then if p(v90) then if p(v90^u) and &unifor('JVUZ,UPS=',v90^u,'-S'v90^f)<>'' then &unifor('DVUZ,!UPS=',v90^u'-S'v90^f,'!,(|^B|v99^b,|^D|v99^d/)') else if a(v90^u) then if val(&unifor('JVUZ,?',v90^a"-",v90^n"-",v90^c"-",v90^v"-",v90^o"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^a"-",v90^n"-",v90^c"-",v90^v"-",v90^o"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^a"-",v90^v"-",v90^o"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^a"-",v90^v"-",v90^o"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^a"-",v90^o"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^a"-",v90^o"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^a"-",v90^v"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^a"-",v90^v"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^a"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^a"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^v"-",v90^o"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^v"-",v90^o"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^v"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^v"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^o"-",v90^f"-"))>0 then &unifor('DVUZ,!?',v90^o"-",v90^f"-",'!,(v69/)') else if val(&unifor('JVUZ,?',v90^f"-"))>0 then &unifor('DVUZ,!?',v90^f"-",'!,(v69/)') fi fi fi fi fi fi fi fi fi fi fi fi fi 
XXXXXXXXXXXXXXXXXXX
DEL
69
F
if v920:'VUZ' then else (if p(v69) then if v69^d:':' then if &unifor('Av26#1')<>'' then if &unifor('DRDR,@'mfn,',v26|, |'):&unifor('G2:'v69^d) then'0'else'1' fi else '1' fi else '0' fi fi/) fi
XXXXXXXXXXXXXXXXXXX
CORREC
'VUZ'
if p(v90) then if p(v90^u) or v69^w<>'' then"^D"v90^e,"^C"v1002^e,if a(v1002^e) then "^C"v90^e fi,'^B'v30,if a(v30) then v24 fi,if p(v1002^f) or p(v54) and &unifor('Av54^c#1')='' then'^X1'fi fi fi
if p(v90^u) then'UPS='v90^u'-S'v90^f else if a(v90^u) then (if p(v69^w) then'DUNS='v69^w,'-S'&unifor('Av90^f#1') fi/) fi fi
XXXXXXXXXXXXXXXXXXX
REP
910^D
F
if p(v1001^x) then else (if p(v910) then if v910^b=&unifor('Av1001^b#1') and v910^d=&unifor('Av1001^d#1') then &unifor('Av1001^c#1') else v910^d fi fi/) fi
XXXXXXXXXXXXXXXXXXX
ADD
910
XXXXXXXXXXXXXXXXXXX
if p(v1001^x) then else if p(v910) and rsum((if p(v910)then if v910^b=&unifor('Av1001^b#1') and v910^d=&unifor('Av1001^c#1') then '1;' else '0;'fi fi))>0 then else'^D'v1001^c,'^B'v1001^b fi fi
XXXXXXXXXXXXXXXXXXX
DEL
910
F
if p(v1001^x) then (if p(v910) then if v910^b=&unifor('Av1001^b#1') and v910^d=&unifor('Av1001^d#1') then '1' else '0' fi fi/) fi
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if p(v1002^f) then if p(v90^1) or p(v54) and &unifor('Av54^c#1')='' then else 'VUZ'fi fi
if p(v90^1) or p(v54) and &unifor('Av54^c#1')='' then else if p(v1002^f) then if p(v90^u) or v69^w<>''then"^D"v90^e,"^C"v1002^e,if a(v1002^e) then "^C"v90^e fi fi fi,'^B'v30,if a(v30) then v24 fi fi
if p(v1002^f) then if p(v90^u) then'UPS='v90^u'-S'v1002^f else (if p(v69^w) then'DUNS='v69^w '-S',&unifor('Av1002^f#1')fi/) fi fi
XXXXXXXXXXXXXXXXXXX
REP
910^D
F
(if p(v910) then if v910^b=&unifor('Av1001^b#1') and v910^d=&unifor('Av1001^d#1') then &unifor('Av1001^c#1') else v910^d fi fi/)
XXXXXXXXXXXXXXXXXXX
ADD
910
XXXXXXXXXXXXXXXXXXX
if p(v910) and rsum((if p(v910)then if v910^b=&unifor('Av1001^b#1') and v910^d=&unifor('Av1001^c#1') then '1;' else '0;'fi fi))>0 then else '^D'v1001^c,'^B'v1001^b fi
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
REP
90^F
F
if p(v1002^f) then if p(v90^1) or p(v54) and &unifor('Av54^c#1')=''then else v1002^F fi  else v90^F fi
XXXXXXXXXXXXXXXXXXX
REP
90^0
F
if p(v1002^0) then if p(v90^1) or p(v54) and &unifor('Av54^c#1')=''then else v1002^0 fi  else v90^0 fi
XXXXXXXXXXXXXXXXXXX
REP
90^E
F
if p(v1002^e) then if p(v90^1) or p(v54) and &unifor('Av54^c#1')=''then else v1002^e fi  else v90^e fi
XXXXXXXXXXXXXXXXXXX
REP
90^o
F
if p(v1002^o) then if p(v90^1) or p(v54) and &unifor('Av54^c#1')=''then else v1002^o fi  else v90^o fi
XXXXXXXXXXXXXXXXXXX
DEL
69
F
if v920:'VUZ' then else if p(v1002) then if p(v90^1) or p(v54) and &unifor('Av54^c#1')=''then else (|1|d69/) fi  else (|0|d69/) fi fi
XXXXXXXXXXXXXXXXXXX
ADD
69
XXXXXXXXXXXXXXXXXXX
if v920:'VUZ' then else if p(v1002) then if p(v90^1) or p(v54) and &unifor('Av54^c#1')=''then else if p(v90) then if a(v90^u) and val(&unifor('JVUZ,?',v90^a"-",v90^n"-",v90^c"-",v90^v"-",v90^o"-",v1002^f"-"))>0 then &unifor('DVUZ,!?',v90^a"-",v90^n"-",v90^c"-",v90^v"-",v90^o"-",v1002^f"-",'!,(v69/)') else if p(v90^u) and val(&unifor('JVUZ,UPS=',v90^u,'-S',v1002^f))>0 then &unifor('DVUZ,!UPS=',v90^u,'-S',v1002^f,'!,(|^B|v99^b,|^D|v99^d/)') fi fi fi fi fi fi
XXXXXXXXXXXXXXXXXXX
DEL
1002
F
"1"d1002
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if p(v200) then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if v200^R:'1' then '0' else '1' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
400
XXXXXXXXXXXXXXXXXXX
if p(v200) then '^G'v200^g,"SPBGUKI"n200^g,'^W'v200^a,if p(v200^!)then else'-'&unifor('R') fi,"^B"v200^b,"^H"v200^k,'^K'v200^m,if a(v200^m) then &unifor('IREQUEST,MaskStore,') fi,'^D'v200^d,if a(v200^d) then &unifor('3') fi,'^1'&uf('39'),'^E'v200^e,if a(v200^e) then &unifor('3'),'^!' fi,'^V'v200^w,if a(v200^w) then &unifor('IREQUEST,MaskMrg,') fi,'^F******',"^C"d200,v200^f" ",v200^c,". "v200^h,": "v200^i,|. -|v200^j,'^I'&unifor('IMAIN,OtvFace,'),if &unifor('IMAIN,OtvFace,')='' then v200^l fi fi/
XXXXXXXXXXXXXXXXXXX
REP
400^e
F
(if p(v400) then if p(v400^!) then if '01 03 05 07 08 10 12':v400^e*4.2 then if (val(v400^e*6)+20)>31 then if v400^e*4.2:'12'then f((val(v400^e.4)+1),0,0),'01'else v400^e.4,if v400^e*4.2:'10'then else'0'fi,f((val(v400^e*4.2)+1),0,0) fi,if val(v400^e*6)>=21 then else'0'fi,f((val(v400^e*6)+20-31),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi else if v400^e*4.2:'02' then if (val(v400^e*6)+20)>28 then v400^e.4,'03',if val(v400^e*6)>=18 then else'0'fi,f((val(v400^e*6)+20-28),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi else if (val(v400^e*6)+20)>30 then v400^e.4,if val(v400^e*4.2)>=9 then else'0'fi,f((val(v400^e*4.2)+1),0,0),if val(v400^e*6)>=20 then else'0'fi,f((val(v400^e*6)+20-30),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi fi fi else v400^e fi fi/)
XXXXXXXXXXXXXXXXXXX
CHA
400^1
*
':'
''
CHA
400
*
'^!'
''
ADD
40
XXXXXXXXXXXXXXXXXXX
(v400/)
XXXXXXXXXXXXXXXXXXX
DEL
400
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
NEWMFN
if p(v200) and a(v200^!) then v200^g,"SPBGUKI"n200^g fi
ADD
700
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^f,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
CHA
700
F
if v700^a:', 'then', 'else if v700^a:','then',' else if v700^a:' 'then' ' fi fi fi
if v700^a:', 'then'^G'else if v700^a:','then'^G'else if v700^a:' 'then'^B'fi fi fi
ADD
701
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^2,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
ADD
701
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^3,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
CHA
701
F
(if v701^a:', 'then', 'else if v701^a:','then',' else if v701^a:' 'then' ' fi fi fi/)
(if v701^a:', 'then'^G'else if v701^a:','then'^G'else if v701^a:' 'then'^B'fi fi fi/)
ADD
200
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^c else "^V"v200^h,"^A"v200^i fi
XXXXXXXXXXXXXXXXXXX
ADD
923
XXXXXXXXXXXXXXXXXXX
if (v200^v:'05' or a(v200^v)) and s(v200^h,v200^i)<>'' then "^H"v200^h,"^I"v200^i fi
XXXXXXXXXXXXXXXXXXX
ADD
461
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^X"v200^f,"^9"v200^x,"^C"v200^c fi
XXXXXXXXXXXXXXXXXXX
ADD
961
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^f,"^X"v200^x,'^ZÄÀ' fi
XXXXXXXXXXXXXXXXXXX
ADD
961
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^2,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
ADD
961
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^3,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
CHA
961
F
(if v961^a:', 'then', 'else if v961^a:','then',' else if v961^a:' 'then' ' fi fi fi/)
(if v961^a:', 'then'^G'else if v961^a:','then'^G'else if v961^a:' 'then'^B'fi fi fi/)
ADD
920
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then 'PAZK'else'SPEC' fi
XXXXXXXXXXXXXXXXXXX
ADD
210
XXXXXXXXXXXXXXXXXXX
"^D"v200^j
XXXXXXXXXXXXXXXXXXX
ADD
215
XXXXXXXXXXXXXXXXXXX
"^A"v200^s
XXXXXXXXXXXXXXXXXXX
ADD
903
XXXXXXXXXXXXXXXXXXX
if v200^r:'1' then v200^a,if p(v200^!)then else'-'&unifor('R') fi, else v40^w fi
XXXXXXXXXXXXXXXXXXX
ADD
906
XXXXXXXXXXXXXXXXXXX
v200^a
XXXXXXXXXXXXXXXXXXX
ADD
900
XXXXXXXXXXXXXXXXXXX
"^B!!!"v200^v,"^B!!!05"n200^v
XXXXXXXXXXXXXXXXXXX
ADD
905
XXXXXXXXXXXXXXXXXXX
"^0"v200^9
XXXXXXXXXXXXXXXXXXX
ADD
910
XXXXXXXXXXXXXXXXXXX
if p(v200^1)then'^AU^1'v200^1,'^21'else'^A'if v200^r:'1'then'9'else'1' fi fi,"^B"v200^b,'^C',v200^p,if a(v200^p) then &unifor('3') fi,"^D"v200^m,"^H"v200^k
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
'^C!!! èç RDR','^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,'),if &unifor('IPRIVATE,FIO,')=''then v200^l fi
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if p(v200^!) then v200^g,"SPBGUKI"n200^g fi
v200
"I="v200^a
XXXXXXXXXXXXXXXXXXX
ADD
910
XXXXXXXXXXXXXXXXXXX
if p(v1001^1)then'^AU^1'v1001^1,'^21'else'^A1'fi,"^B"v1001^b,'^C',v1001^p,if a(v1001^p) then &unifor('3') fi,"^D"v1001^m,"^H"v1001^k
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
'^C!!! èç RDR','^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,'),if &unifor('IPRIVATE,FIO,')=''then v1001^l fi
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CHA
40
*
'^W'
'^A'
DEL
200
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
if rsum((if p(v907) then if v907^a = &unifor(|3|d907) and v907^b = &unifor('IPRIVATE,FIO,') then '1;'else'0;'fi fi))> 0 then else'^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,') fi
XXXXXXXXXXXXXXXXXXX