1
691g.mnu
  ВВЕДИТЕ признак основная/дополнительная
// 6.2 перенос из записи VUZ данных в запись каталога 691 и запись комплектования
// переносимые строки в 991, в 992 признак осн/доп
// в поле 993 УНД переносимого повторения поля 69
DEFFLD
3000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
4000

XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if p(v691) then '1' fi
DEL
111
*


ADD
111

(if p(v991) then v991,|^W|v993,if &unifor('Av992#1')<>'' then '^G',&unifor('Av992#1') fi fi,/)

DEL
1691
*


//Цикл по добавляемым повторениям - по поля 111
REPEAT
ADD
1691

if rsum((if p(v691) then if v691^W=&unifor('Av111^W#1') and &uf('+97',v691^S)=&uf('+97',&unifor('Av111^S#1')) and &uf('+97',v691^B)=&uf('+97',&unifor('Av111^B#1')) and &uf('+97',v691^A)=&uf('+97',&unifor('Av111^A#1')) and &uf('+97',v691^L)=&uf('+97',&unifor('Av111^L#1')) and &uf('+97',v691^K)=&uf('+97',&unifor('Av111^K#1')) and &uf('+97',v691^V)=&uf('+97',&unifor('Av111^V#1')) and v691^F=&unifor('Av111^F#1') and &uf('+97',v691^I)=&uf('+97',&unifor('Av111^I#1')) and  &uf('+97',v691^O)=&uf('+97',&unifor('Av111^O#1')) and &uf('+97',v691^H)=&uf('+97',&unifor('Av111^H#1')) then '1,' else '0,' fi fi))=0 then &unifor('Av111#1') fi

DEL
111
1


UNTIL
if p(v111) then '1' fi
// в 1691 добавляемые повторения 
IF
if p(v1691) then '1' fi
ADD
691

(v1691/)

DEL
1691
*


PUTFLD
'Откорректирована запись. MFN=',f(val(mfn),0,0)
FI
// конец поле 691 было в записи
FI
IF
if a(v691) then '1' fi
ADD
691

(if p(v991) then v991,|^W|v993,if &unifor('Av992#1')<>'' then '^G',&unifor('Av992#1') fi fi,/)

PUTFLD
'Откорректирована запись. MFN=',f(val(mfn),0,0)
FI
DEL
991
*


DEL
992
*


DEL
993
*


GETFLD
4000