Просветите, какая такая подфункция 5 у функции G?
встречается в проверке дублетности dbnflc.pft, в частности по 200^v, похоже, не работает как ожидается, формат svertka.pft возращает то, что хотелосьбы видеть, но он не используется :(.
2012.1
изначальная проблема : не передаются из комплектования продолжающееся издания - дублетное описание. значения 200^v разные, но они не учитываются в проверке дублетности.



Редактировано 2 раз. Последний раз 02.09.2014 10:37 пользователем ski.

ski написал(а):
-------------------------------------------------------
> Просветите, какая такая подфункция 5 у функции G?
> встречается в проверке дублетности dbnflc.pft,

Где Вы это видите? Приведите фрагмент формата. в
> частности по 200^v, похоже, не работает как
> ожидается, формат svertka.pft возращает то, что
> хотелосьбы видеть, но он не используется :(.
> 2012.1
> изначальная проблема : не передаются из
> комплектования продолжающееся издания - дублетное
> описание. значения 200^v разные, но они не
> учитываются в проверке дублетности.


Как выполняете перенос? Прикрепите две записи, которые система ошибочно считает дублетными.

из dbnflc.pft
===========================
if v920:'spec'then
if L('!'if v210^d.1='['then else v210^d*2.2fi,if a(v210^d)then if v461^h.1='['then else v461^h*2.2 fi fi,
&unifor('B'v461^c,if v461^u:'1'then' 'v461^x fi,
if s(v200^v,v925)='' then " "v200^a fi),
&unifor("G5#"v200^v),
(if p(v925) then &unifor(|G1#|v925^v) fi),
(if val(v923^h)>0 then &unifor('G1#'v923^h) else v923^h fi,
if val(v923^k)>0 then &unifor('G1#'v923^k) else v923^k fi),v215^a)<=0
or val(ref(l('!'if v210^d.1='['then else v210^d*2.2fi,if a(v210^d)then if v461^h.1='['then else v461^h*2.2 fi fi,
&unifor('B'v461^c,if v461^u:'1'then' 'if v961^z<>'' then (if p(v961^z) then v961^a.9 fi) else v461^x.9 fi fi,
if s(v200^v,v925)='' then" "v200^a fi),&unifor("G5#"v200^v),
(if p(v925) then &unifor(|G1#|v925^v) fi),
(if val(v923^h)>0 then &unifor('G1#'v923^h) else v923^h fi,
if val(v923^k)>0 then &unifor('G1#'v923^k) else v923^k fi),v215^a),mfn))=val(mfn)
then/'0'
else
if ref(l('!'if v210^d.1='['then else v210^d*2.2 fi,if a(v210^d)then if v461^h.1='['then else v461^h*2.2 fi fi,
&unifor('B'v461^c,if v461^u:'1'then' 'if v961^z<>'' then (if p(v961^z) then v961^a.9 fi) else v461^x.9 fi fi,
if s(v200^v,v925)='' then" "v200^a fi),&unifor("G5#"v200^v),(if p(v925) then &unifor(|G1#|v925^v) fi),
(if val(v923^h)>0 then &unifor('G1#'v923^h) else v923^h fi,
if val(v923^k)>0 then &unifor('G1#'v923^k) else v923^k fi),
v215^a),v215^1) <> v215^1 then /'0'
else/'1Дублетное описание: ',
if v210^d.1='['then else v210^d*2.2 fi,if a(v210^d)then if v461^h.1='['then else v461^h*2.2 fi fi,
&unifor('B'v461^c,if v461^u:'1'then' 'if v961^z<>'' then (if p(v961^z) then v961^a.9 fi) else v461^x.9 fi fi,
if s(v200^v,v925)='' then" "v200^a fi),&unifor("G5#"v200^v),(if p(v925) then &unifor(|G1#|v925^v) fi),
(if val(v923^h)>0 then &unifor('G1#'v923^h) else v923^h fi,
if val(v923^k)>0 then &unifor('G1#'v923^k) else v923^k fi),v215^a,
if v215^1.2:'='then v215^1*2 else v215^1 fi,
ref(L('!'if v210^d.1='['then else v210^d*2.2 fi,if a(v210^d)then if v461^h.1='['then else v461^h*2.2 fi fi,
&unifor('B'v461^c,if v461^u:'1'then' 'if v961^z<>'' then (if p(v961^z) then v961^a.9 fi) else v461^x.9 fi fi,
if s(v200^v,v925)='' then" "v200^a fi),&unifor("G5#"v200^v),(if p(v925) then &unifor(|G1#|v925^v) fi),
(if val(v923^h)>0 then &unifor('G1#'v923^h) else v923^h fi,
if val(v923^k)>0 then &unifor('G1#'v923^k) else v923^k fi),v215^a),' (см. N ',f(val(mfn),0,0),')')
fi fi

===================================================
из протокола:

MFN=260257: не переносилась, поиск записи каталога по шифру - не найдена запись в каталоге IBIS по запросу "I=-993561", запись не создана - Дублетное описание: 14ХУТНВПНЕАІІІХЦСВНІНЕІОИРЧНКСНАИОЛТГЬЕОНТОУГО (см. N 302877) Запись логически удалена

ski написал(а):
-------------------------------------------------------
> из dbnflc.pft
> ===========================
> if v920:'spec'then
> if L('!'if v210^d.1='['then else
> v210^d*2.2fi,if a(v210^d)then if v461^h.1='['then
> else v461^h*2.2 fi fi,
> &unifor('B'v461^c,if v461^u:'1'then'
> 'v461^x fi,
> if s(v200^v,v925)='' then " "v200^a fi),
> &unifor("G5#"v200^v),
> (if p(v925) then &unifor(|G1#|v925^v)
> fi),
> (if val(v923^h)>0 then
> &unifor('G1#'v923^h) else v923^h fi,
> if val(v923^k)>0 then
> &unifor('G1#'v923^k) else v923^k fi),v215^a)<=0
> or val(ref(l('!'if v210^d.1='['then else
> v210^d*2.2fi,if a(v210^d)then if v461^h.1='['then
> else v461^h*2.2 fi fi,
> &unifor('B'v461^c,if v461^u:'1'then' 'if
> v961^z<>'' then (if p(v961^z) then v961^a.9 fi)
> else v461^x.9 fi fi,
> if s(v200^v,v925)='' then" "v200^a
> fi),&unifor("G5#"v200^v),
> (if p(v925) then &unifor(|G1#|v925^v) fi),
>
> (if val(v923^h)>0 then
> &unifor('G1#'v923^h) else v923^h fi,
> if val(v923^k)>0 then
> &unifor('G1#'v923^k) else v923^k
> fi),v215^a),mfn))=val(mfn)
> then/'0'
> else
> if ref(l('!'if v210^d.1='['then else
> v210^d*2.2 fi,if a(v210^d)then if v461^h.1='['then
> else v461^h*2.2 fi fi,
> &unifor('B'v461^c,if
> v461^u:'1'then' 'if v961^z<>'' then (if p(v961^z)
> then v961^a.9 fi) else v461^x.9 fi fi,
> if s(v200^v,v925)='' then"
> "v200^a fi),&unifor("G5#"v200^v),(if p(v925) then
> &unifor(|G1#|v925^v) fi),
> (if val(v923^h)>0 then
> &unifor('G1#'v923^h) else v923^h fi,
> if val(v923^k)>0 then
> &unifor('G1#'v923^k) else v923^k fi),
> v215^a),v215^1) <> v215^1 then
> /'0'
> else/'1Дублетное описание: ',
> if v210^d.1='['then else
> v210^d*2.2 fi,if a(v210^d)then if v461^h.1='['then
> else v461^h*2.2 fi fi,
> &unifor('B'v461^c,if
> v461^u:'1'then' 'if v961^z<>'' then (if p(v961^z)
> then v961^a.9 fi) else v461^x.9 fi fi,
> if s(v200^v,v925)='' then"
> "v200^a fi),&unifor("G5#"v200^v),(if p(v925) then
> &unifor(|G1#|v925^v) fi),
> (if val(v923^h)>0 then
> &unifor('G1#'v923^h) else v923^h fi,
> if val(v923^k)>0 then
> &unifor('G1#'v923^k) else v923^k fi),v215^a,
> if v215^1.2:'='then v215^1*2
> else v215^1 fi,
> ref(L('!'if v210^d.1='['then else
> v210^d*2.2 fi,if a(v210^d)then if v461^h.1='['then
> else v461^h*2.2 fi fi,
> &unifor('B'v461^c,if
> v461^u:'1'then' 'if v961^z<>'' then (if p(v961^z)
> then v961^a.9 fi) else v461^x.9 fi fi,
> if s(v200^v,v925)='' then"
> "v200^a fi),&unifor("G5#"v200^v),(if p(v925) then
> &unifor(|G1#|v925^v) fi),
> (if val(v923^h)>0 then
> &unifor('G1#'v923^h) else v923^h fi,
> if val(v923^k)>0 then
> &unifor('G1#'v923^k) else v923^k fi),v215^a),'
> (см. N ',f(val(mfn),0,0),')')
> fi fi
>
> ==================================================
> =
> из протокола:
>
> MFN=260257: не переносилась, поиск записи
> каталога по шифру - не найдена запись в каталоге
> IBIS по запросу "I=-993561", запись не создана -
> Дублетное описание:
> 14ХУТНВПНЕАІІІХЦСВНІНЕІОИРЧНКСНАИОЛТГЬЕОНТОУГО
> (см. N 302877) Запись логически удалена


У вас какой-то собственный оригинальный dbnflc.pft. В общем варианте системы &unifor("G5#"v200^v) нет. Прикрепляю dbnflc.pft БД ЭК версии 2012.1

помогло. Спасибо.