0
//--------приписывание к последнему повторению подполя ^X - измененные поля при включении Full907
DEL
111
*


ADD
111

if val(&uf('IMAIN,Full907,'))=1 then '^X',&uf('+?') fi

//--------добавление  нового 907
ADD
907
XXXXXXXXXXXXXXXXXXX
if &uf('+6')='0' then '^CDEL','^A',&unifor('3'),'^B',&uf('IPRIVATE,FIO,') else if v920='J' and &uf('+97',&uf('IPRIVATE,ETR,'))='РЖ' or rsum((if p(v907) then if v907^a = &unifor(|3|d907) and &uf('+97',v907^b) = &uf('+97',&uf('IPRIVATE,FIO,')) and &uf('+97',v907^c) = &uf('+97',&unifor('IPRIVATE,ETR,')) then '1;'else'0;'fi fi))> 0 then else'^C',&unifor('IPRIVATE,ETR,'),'^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,') fi fi
XXXXXXXXXXXXXXXXXXX
IF
if v111<>'' then '1' fi,,,&uf('+7W10#')
REP
907
F
(if p(v907) then v907,,,if &uf('+97',&uf('IPRIVATE,FIO,'))=&uf('+97',v907^B) and &uf('3')=v907^A then &uf('+7W10#',&uf('+90') ) fi fi/)

REP
907
F
(if p(v907) then v907,,,if val(&uf('+90'))=val(&uf('Ag10#1')) then  if v907^X<>'' then ';',&uf('Av111^X#1') else &uf('Av111#1') fi  fi fi/)
XXXXXXXXXXXXXXXXXXX
DEL
111
*


FI
//----------------------------конец 907
DEL
691^0
F
(if p(v691) then if p(v691^0) then if (v691^0:v691^a or v691^a='') and (v691^0:v691^c or v691^c='') and (v691^0:v691^v or v691^v='') and (v691^0:v691^o or v691^o='') and &unifor('G2S'v691^0):v691^f then '0' else '1' fi else'0' fi fi/)
XXXXXXXXXXXXXXXXXXX
DEL
691^9
F
(if p(v691) then if p(v691^9) then if (v691^9:v691^a or v691^a='') and (v691^9:v691^c or v691^c='') and (v691^9:v691^v or v691^v='') and (v691^9:v691^o or v691^o='') and &unifor('G2S'v691^9):v691^f then '0' else '1' fi else'0' fi fi/)
XXXXXXXXXXXXXXXXXXX
// удаление подполя !, если оно не соотв-т семестру
DEL
691^!
F
(if p(v691^f) and p(v691^!) then if v691^!:v691^f then '0' else '1' fi else '0' fi/)
XXXXXXXXXXXXXXXXXXX
ADD
691^0
F
(if p(v691) then if a(v691^0) then if &unifor('Ksemo.mnu|'v691^f)<>'' then if v691^i:':'  then if &unifor('Kjzko.mnu|'&unifor('G2:'v691^i))<>'' then if p(v691^u) then '-' else |*|d691^w fi,&unifor('Kjzko.mnu|'&unifor('G2:'v691^i)) fi fi,v691^a,v691^n,v691^c,v691^v,v691^o,'-S',v691^f else # fi else # fi fi/)
XXXXXXXXXXXXXXXXXXX
ADD
691^9
F
(if p(v691)  then if a(v691^9) then if &unifor('Ksemv.mnu|'v691^f)<>'' then if v691^i:':' then if &unifor('Kjzko.mnu|'&unifor('G2:'v691^i))<>'' then if p(v691^u) then '-' else |*|d691^w fi,&unifor('Kjzko.mnu|'&unifor('G2:'v691^i)) fi fi,v691^a,v691^n,v691^c,v691^v,v691^o,'-S',v691^f else # fi else # fi fi/)
XXXXXXXXXXXXXXXXXXX
//------------------Количесчтво студентов по контпнгенту
DEL
691^1
*


//---исправила с учетом языка
REP
691
F
(if p(v691) then v691,,if a(v691^1) then if val(&uf('IMAIN,ACCESSRDR,1'))=1 then if v691^I:':' and &unifor('G2:'v691^I)<>''  then '^1',&uf('+3SRDR,0,!',,,,&unifor('Kjzko.mnu!'&unifor('G2:'v691^I)),,v691^A,, v691^N,,v691^C,,v691^V,,v691^O,,'-S',v691^F,,,,,'!,') else  if &uf('JRDR,?',v691^A,, v691^N,,v691^C,,v691^V,,v691^O,,'-S',v691^F,,) <>'' then '^1',&uf('JRDR,?',v691^A,, v691^N,,v691^C,,v691^V,,v691^O,,'-S',v691^F,,) fi,,fi,,,else if &uf('DVUZ,!?',,,v691^a|-|,,v691^n|-|,v691^c|-| ,v691^V|-|,v691^o|-|,v691^f|-|,,'!,v68^Z')<>'' then '^1',&uf('DVUZ,!?',,,v691^a|-|,,v691^n|-|,v691^c|-| ,v691^v|-|,v691^o|-|,v691^f|-|,,'!,v68^Z') fi fi,,fi fi/)
XXXXXXXXXXXXXXXXXXX
//------------------Количесчтво студентов по контпнгенту для поля 694^5, если оно пустое
REP
694
F
(if p(v694) then v694,,if a(v694^5) then if val(&uf('IMAIN,ACCESSRDR,1'))=1 then if &uf('JRDR,LN=',v694^A,, v694^N,,v694^C,,v694^V,,v694^O,,'-S',v694^F,,) <>'' then '^5',&uf('JRDR,LN=',v694^A,, v694^N,,v694^C,,v694^V,,v694^O,,'-S',v694^F,,) fi,,else if &uf('DVUZ,!?',,,v694^a|-|,,v694^n|-|,v694^c|-| ,v694^v|-|,v694^o|-|,v694^f|-|,,'!,v68^Z')<>'' then '^5',&uf('DVUZ,!?',,,v694^a|-|,,v694^n|-|,v694^c|-| ,v694^v|-|,v694^o|-|,v694^f|-|,'!,v68^Z') fi fi,,fi fi/)
XXXXXXXXXXXXXXXXXXX
//----------------Идентификатор дисциплины, если его нет из VUZ
REP
691
F
(if p(v691) then v691,,,if v691^I='' and v691^D<>'' then if &uf('DVUZ,?DISCN=',v691^D,'?,v3^0')<>'' then '^I',,&uf('DVUZ,?DISCN=',v691^D,'?,v3^0') fi fi fi/)
XXXXXXXXXXXXXXXXXXX
//-----------------добавление подполя ! в начало
REP
691
F
(if p(v691) then if a(v691^!) then '^!',if p(v691^f) then f(val(v691^f),2,0) else ' ' fi fi,,,v691 fi/)

REP
691
F
(&unifor('AI691')/)
XXXXXXXXXXXXXXXXXXX
//-----------------------------корректировка разделителя семестров
REP
691^F
F
(if p(v691) then if p(v691^F) then  if v691^F: '-' then  if &uf('G2-',v691^F): '-' then &uf('+98-/',v691^F) else &uf('+98,/',&uf('V',v691^F) ) fi,,else v691^F fi  else # fi fi/)

// размножение повторений поля 691 по подполю F
IF
if v691^F: '/' then '1' fi
// если семестры через / или ,
DEL
932
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1932
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
1932
XXXXXXXXXXXXXXXXXXX
(v691/)
XXXXXXXXXXXXXXXXXXX
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
932
XXXXXXXXXXXXXXXXXXX
if &uf('Av1932^f#1'):'/' then (if &uf('1*R/?v1932^f#1')<>''then if &uf('Av1932^D#1')<>'' then '^D',&uf('Av1932^D#1') fi,if &uf('Av1932^I#1')<>'' then '^I',&uf('Av1932^I#1') fi,if &uf('Av1932^A#1')<>'' then '^A',&uf('Av1932^A#1') fi,if &uf('Av1932^L#1')<>'' then '^L',&uf('Av1932^L#1') fi,,if &uf('Av1932^H#1')<>'' then '^H',&uf('Av1932^H#1') fi,,if &uf('Av1932^N#1')<>'' then '^N',&uf('Av1932^N#1') fi,if &uf('Av1932^C#1')<>'' then '^C',&uf('Av1932^C#1') fi,if &uf('Av1932^B#1')<>'' then '^B',&uf('Av1932^B#1') fi,if &uf('Av1932^S#1')<>'' then '^S',&uf('Av1932^S#1') fi,if &uf('Av1932^K#1')<>'' then '^K',&uf('Av1932^K#1') fi,if &uf('Av1932^V#1')<>'' then '^V',&uf('Av1932^V#1') fi,,if &uf('Av1932^O#1')<>'' then  '^O',&uf('Av1932^O#1') fi,,if &uf('Av1932^G#1')<>'' then  '^G',&uf('Av1932^G#1') fi,,if &uf('Av1932^E#1')<>'' then  '^E',&uf('Av1932^E#1') fi,,if &uf('Av1932^U#1')<>'' then '^U',&uf('Av1932^U#1') fi,if &uf('Av1932^W#1')<>'' then '^W',&uf('Av1932^W#1') fi,if &uf('Av1932^H#1')<>'' then '^H',&uf('Av1932^H#1')  fi,if &uf('Av1932^T#1')<>'' then '^T',&uf('Av1932^T#1') fi,,,,,,if &uf('Av1932^5#1')<>'' then '^5',&uf('Av1932^5#1') fi,,,,,,,,,,,'^F',&uf('1*R/?v1932^f#1'),,fi/) else &uf('Av1932#1') fi
XXXXXXXXXXXXXXXXXXX
DEL
1932
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
UNTIL
if p(v1932)then'1'else''fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
691
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
691
XXXXXXXXXXXXXXXXXXX
(v932/)
XXXXXXXXXXXXXXXXXXX
DEL
932
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1932
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
1932
XXXXXXXXXXXXXXXXXXX
(v691/)
XXXXXXXXXXXXXXXXXXX
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
932
XXXXXXXXXXXXXXXXXXX
if &uf('Av1932^f#1'):',' then (if &uf('1*R,?v1932^f#1')<>''then if &uf('Av1932^D#1')<>'' then '^D',&uf('Av1932^D#1') fi,if &uf('Av1932^I#1')<>'' then '^I',&uf('Av1932^I#1') fi,if &uf('Av1932^A#1')<>'' then '^A',&uf('Av1932^A#1') fi,if &uf('Av1932^L#1')<>'' then '^L',&uf('Av1932^L#1') fi,,if &uf('Av1932^H#1')<>'' then '^H',&uf('Av1932^H#1') fi,,if &uf('Av1932^N#1')<>'' then '^N',&uf('Av1932^N#1') fi,if &uf('Av1932^C#1')<>'' then '^C',&uf('Av1932^C#1') fi,if &uf('Av1932^B#1')<>'' then '^B',&uf('Av1932^B#1') fi,if &uf('Av1932^S#1')<>'' then '^S',&uf('Av1932^S#1') fi,if &uf('Av1932^K#1')<>'' then '^K',&uf('Av1932^K#1') fi,if &uf('Av1932^V#1')<>'' then '^V',&uf('Av1932^V#1') fi,,if &uf('Av1932^O#1')<>'' then  '^O',&uf('Av1932^O#1') fi,,if &uf('Av1932^G#1')<>'' then  '^G',&uf('Av1932^G#1') fi,,if &uf('Av1932^E#1')<>'' then  '^E',&uf('Av1932^E#1') fi,,if &uf('Av1932^U#1')<>'' then '^U',&uf('Av1932^U#1') fi,if &uf('Av1932^W#1')<>'' then '^W',&uf('Av1932^W#1') fi,if &uf('Av1932^H#1')<>'' then '^H',&uf('Av1932^H#1')  fi,if &uf('Av1932^T#1')<>'' then '^T',&uf('Av1932^T#1') fi,,if &uf('Av1932^5#1')<>'' then '^5',&uf('Av1932^5#1') fi,,,,,,,'^F',&uf('1*R,?v1932^f#1'),,fi/) else &uf('Av1932#1') fi
XXXXXXXXXXXXXXXXXXX
DEL
1932
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
UNTIL
if p(v1932)then'1'else''fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
691
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
691
XXXXXXXXXXXXXXXXXXX
(v932/)
XXXXXXXXXXXXXXXXXXX
DEL
932
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
//----убираю последние пробелы в поле 691
REP
691^A
F
(if p(v691) then if p(v691^A) then v691^A|?| else # fi fi/)

CHA
691^A
*
' ?'
''
CHA
691^A
*
'?'
''
REP
691^N
F
(if p(v691) then if p(v691^N) then v691^N|?| else # fi fi/)

CHA
691^N
*
' ?'
''
CHA
691^N
*
'?'
''
REP
691^C
F
(if p(v691) then if p(v691^C) then v691^C|?| else # fi fi/)

CHA
691^C
*
' ?'
''
CHA
691^C
*
'?'
''
REP
691^V
F
(if p(v691) then if p(v691^V) then v691^V|?| else # fi fi/)

CHA
691^V
*
' ?'
''
CHA
691^V
*
'?'
''
REP
691^O
F
(if p(v691) then if p(v691^O) then v691^O|?| else # fi fi/)

CHA
691^O
*
' ?'
''
CHA
691^O
*
'?'
''
//----корректирую признак РП
IF
if val(&uf('IMAIN,AutoWPD,0'))=1 and v691: '^51' then '1' fi
REP
691^5
F
(if p(v691) then if p(v691^5) then if v691^5='0' then v691^5 else 'РП-',v691^I fi else # fi fi/)
XXXXXXXXXXXXXXXXXXX
FI