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


ADD
111

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

//--------добавление  нового 907
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
IF
if v111<>'' then '1' fi
REP
907
F
(if p(v907) then v907,,,if val(&uf('+90'))=val(&uf('+N907')) then  if v907^X<>'' then ';',&uf('Av111^X#1') else &uf('Av111#1') fi  fi fi/)
XXXXXXXXXXXXXXXXXXX
DEL
111
*


FI
//----------------------------конец 907
// убираю последний пробел в идентификаторе
REP
3^0
1
if &uf('+961.1#',v3^0)=' ' then &uf('+960.',,f(val(&uf('+95',v3^0))-1,0,0),,'#',v3^0) else v3^0 fi