Есть, и буду рад если он окажется Вам полезен. Приведённый код глобальной корректировки выполняет добавление штрихкода в записи базы каталога и параллельно в записи CMPL.
0
ADD
910^h
F
if &uf('+1R766')='' then &uf('+1W766#90000000') fi,(if p(v910) then if a(v910^h) and 'U0':v910^a then &uf('+1W766#',f(val(&uf('+1R766'))+1,0,0)),&uf('+1R766') fi,fi#),
XXXXXXXXXXXXXXXXXXX
REP
910^h
F
(if p(v910) then if v910^h.1='9' then v910^h*1 else v910^h fi,fi#),
XXXXXXXXXXXXXXXXXXX
//
Обновление данных в CMPL
ХХХХХ
IF
if v910^h<>'' then '1' else '0' fi,
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
'CMPL'
(v910/)
&uf('+1W653#'),if val(&unifor('JCMPL,I='v903))>0 then &uf('+1W653#I=',v903) else (if p(v910^b) then if &uf('7CMPL,?IN=',v910^b,'?,"1"d920')='1' then &uf('+1W653#IN=',v910^b) fi fi),fi,&uf('+1R653')
XXXXXXXXXXXXXXXXXXX
ADD
910^h
F
(if p(v910) then if s(v910^a,v910^b,v910^d,v910^1)=s(v1001^a,v1001^b,v1001^d,v1001^1) then v1001^h fi,fi#)
XXXXXXXXXXXXXXXXXXX
DEL
1001
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX