0
// 10.1 при изменении контингента сохраняю подполе ^G
// 10.1 проверка при добавлении
// использую при изменении контингента, добавляет новый контингент
// 992 - новые данные для поля 691
// 991 - заданный старый контингент, по нему поиск и по нему ищу 691^G
DEFFLD
3000
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
4000

XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
//----------------------------- IBIS
CORREC
if &unifor('IPRIVATE,DBN,')<>'' then &unifor('IPRIVATE,DBN,') else 'IBIS' fi
v992/v991
'NDUNS=',v991^W,'-S',v991^F
XXXXXXXXXXXXXXXXXXX
// ищу старое повторение и беру подполе ^G
DEL
1691
*


ADD
1691

(if p(v691) then if &uf('+97',v691^W)=&uf('+97',&uf('Av1001^W#2')) and val(v691^F)=val(&uf('Av1001^F#2')) then v691^G,break fi fi/)

DEL
992
*


ADD
992

mpu,&uf('Av1001#1')

ADD
691

if rsum((if p(v691) then if &uf('Av992^A#1')=&uf('+97',v691^A) and &uf('Av992^N#1')=&uf('+97',v691^N) and &uf('Av992^C#1')=&uf('+97',v691^C) and &uf('Av992^O#1')=&uf('+97',v691^O) and &uf('Av992^V#1')=&uf('+97',v691^V) and &uf('Av992^W#1')=&uf('+97',v691^W) and val(&uf('Av992^F#1'))=val(v691^F) then '1,' fi fi))=0 then &uf('Av1001#1'),,,if v1691<>'' then '^G',v1691 fi fi

PUTFLD
mdl,'vAdd691: Добавлено в запись каталога (',&uf('Av1001#1'),'). MFN=',f(val(mfn),0,0)
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1691
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
992
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
991
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
992
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
GETFLD
4000