0
// 10.1 добавила задание на связь студентов
// используется: возврат из каталогизатора, связать для записи DISC
// 9.1 задание програмно вызывается на записях VUZ
// 1001 - содержит данные поля 83
// 1069 - для поля 69 идент. дисциплины и кафедра
DEFFLD
3000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
4000
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if v920:'VUZ' then '1' else '0' fi
//--------запись VUZ, добавление нового повторения поля 69 
IF
if p(v1001) then '1' fi
DEL
2069
*		


DEL
1002
*


ADD
1002

mpu,(v1001/)

REPEAT
ADD
2069

if &uf('Av1002^A#1')=&uf('+97',v68^A) and &uf('Av1002^N#1')=&uf('+97',v68^N) and &uf('Av1002^C#1')=&uf('+97',v68^C) and &uf('Av1002^O#1')=&uf('+97',v68^O) and &uf('Av1002^V#1')=&uf('+97',v68^V) and val(&uf('Av1002^F#1'))=val(v68^F) then &uf('Av1069#1'),'^W',&uf('Av1002^W#1') fi

DEL
1002
1


UNTIL
if p(v2069) then '0' else if p(v1002) then '1' fi fi
// из поля 2069 в 69 с проверкой на дубль
IF
if p(v2069) then '1' fi
DEL
111
*


ADD
111

mpu,(v69/),&uf('+7W7#')

IF
if rsum((if p(v111) then if v111^B=&uf('+97',&uf('Av2069^B#1')) and v111^D=&uf('+97',&uf('Av2069^D#1'))  then '1,' else '0,' fi fi))=0 then '1' fi

ADD
69
XXXXXXXXXXXXXXXXXXX
v2069,&uf('+7W7#1')
XXXXXXXXXXXXXXXXXXX
FI
IF
if G7<>'' then '1' fi
PUTFLD
'Дописана запись VUZ. MFN=',f(val(mfn),0,0)
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
DEL
111
*


FI
DEL
1001
*


DEL
1002
*


DEL
1069
*


DEL
2069
*


FI
//--------------------------------------запись читателя - чтобы сформировать поля 69
IF
if val(&unifor('IMAIN,ACCESSRDR,1'))=1 then '1' else '0' fi
PUTFLD
'LINKCORRLinkRDR'/'RDR'/if val(&uf('IMAIN,LinkGroup,0'))=1 then "GR="v68^E ,,else '?',v68^a,,if v68^c<>''then    if &uf('IMAIN,DefaultModeSpec,1')='1' or &uf('IMAIN,DefaultModeSpec,1')='' then if v68^c: '.' then v68^c else &uf('G0.',v68^c),,fi ,,else v68^c fi else v68^n fi,v68^v,v68^o,"-S"v68^f fi/' '
FI
//----------конец записи VUZ
FI
GETFLD
4000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX