vAdd691
MFN=271
0
ADD
991

'^AНБ^C030901.1_ПС^OД/О^F1^Z20^BОРД^IДиРСОВД'

ADD
992

'^AНБ^C030901.1_ПС^Oд/о^F2^Z20^IДиРСОВД^DДелопроизводство и режим секретности в органах внутренних дел^BОРД^SОПД^KН-РК'

// замена повторения поля 691
// использую только при изменении контингента, после выполнения vAdd83
//14 - возможность изменения кафедры
//12 PUTLOG
// 10.1 при изменении контингента сохраняю подполе ^G
//13 проверка при добавлении
// 992 - новые данные для поля 691 - добавила кафедру
// 991 - заданный старый контингент, по нему поиск 991^I и по нему ищу 691^G
//----------------------------- IBIS
CORREC
if &unifor('IPRIVATE,DBN,')<>'' then &unifor('IPRIVATE,DBN,') else 'IBIS' fi
v992/v991
if v991^I<>'' then  '!I=',,,v991^I,v991^a,v991^n,v991^c,v991^v,v991^o,'-S'v991^f  fi,,,&uf('+7W10#')
XXXXXXXXXXXXXXXXXXX
DEL
991
*


ADD
991

&uf('Av1001#2')

DEL
1691
*


// ищу старое повторение и беру подполе ^G ^E ^H
ADD
1691

(if p(v691) then if (&uf('Av991^I#1')<>''and &uf('+97',v691^I)=&uf('Av991^I#1') or &uf('Av991^I#1')='') then if &uf('Av991^A#1')=&uf('+97',v691^A) and &uf('Av991^N#1')=&uf('+97',v691^N) and &uf('Av991^C#1')=&uf('+97',v691^C) and &uf('Av991^O#1')=&uf('+97',v691^O) and &uf('Av991^V#1')=&uf('+97',v691^V) and val(&uf('Av991^F#1'))=val(v691^F) then |^G|v691^G,,|^E|v691^E,,,,|^H|v691^H,,,,,,break fi fi fi)


DEL
992
*


// для сравнения на верхнем регистре
ADD
992

mpu,&uf('Av1001#1')

/*-----------добавление при условии совпадения со старым 
IF
if &uf('Av991#1')='' or rsum( (if p(v691) then if &uf('Av991^A#1')=&uf('+97',v691^A) and &uf('Av991^I#1')=&uf('+97',v691^I) and &uf('Av991^N#1')=&uf('+97',v691^N) and &uf('Av991^C#1')=&uf('+97',v691^C) and &uf('Av991^O#1')=&uf('+97',v691^O) and &uf('Av991^V#1')=&uf('+97',v691^V) and val(&uf('Av991^F#1'))=val(v691^F) then '1,',,break fi fi) )=1 then '1' fi
ADD
691

if rsum( (if p(v691) then if (&unifor('Av992^I#1')<>''and &uf('+97',v691^I)=&unifor('Av992^I#1') or &unifor('Av992^I#1')='') then if (&unifor('Av992^B#1')<>''and &uf('+97',v691^B)=&unifor('Av992^B#1') or &unifor('Av992^B#1')='') 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 val(&uf('Av992^F#1'))=val(v691^F) then '1,' fi fi fi fi))=0 then &uf('Av1001#1'),,,,v1691 fi

ADD
1001

&uf('+7U10#',mdl,'vAdd691: Добавлено в запись каталога (',&uf('Av1001#1'),'). MFN=',f(val(mfn),0,0))

FI
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1691
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
991
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
992
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
PUTLOG
&uf('+7G10'),,(g10/)
DEL
991
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
992
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX