Добрый день!

Помогите пожалуйста, в поле 701 было записано несколько авторов через запятую. Как разнести всех авторов в повторения поля 701?

Код, который только дублирует поле 701:

0
ADD
701
XXXXXXXXXXXXXXXXXXX
if &uf('Av701#2')<>''then (v701/)else if &uf('Av701^A#1'):','then v701 fi fi
XXXXXXXXXXXXXXXXXXX


PS: И можно ли что-то сделать с инициалами?

Спасибо!



Редактировано 1 раз. Последний раз 08.02.2022 16:05 пользователем Ситников Максим.

Попробуйте вот так:
1. в корневую папку Ирбиса скопируйте ex64.dll, если ее у вас еще нет
2. В папку Депозит положите формат split_701a.pft
3. Выполните на записи глобалку split_701a.gbl

Спасибо! Работает )

Рад что получилось.

Из ограничений: этот вариант работает нормально в том случае, если во всех полях 701 есть только одно подполе ^A, другие подполя я не рассматривал.

И я вижу у вас странную ситуацию с регистром: первая буква фамилии и в инициалах часто бывает маленькой. Это, в принципе, тоже можно исправить глобалкой.

У вас в базе все записи только с инициалами, или могут быть расширения инициалов?

Есть записи с инициалами, есть без.В записях без инициалов после ГК добавляется в подполе ^G фамилия. Можно ли это как то исправить?

По поводу маленьких символов в инициалах какой функцией это исправляется?

Спасибо за помощь!

А как изначально эта запись выглядела? Приведите примеры заполнения поля 701 с инициалами и с расширением

Еще один способ разбиения строки поля 701^A с запятыми. Попробуйте.
0
DEL
701
F
&uf('+7W1#',,,,(if &unifor('1*R,?v701^A#1')<>'' then '^A',&unifor('1*R,?v701^A#1') fi/) ),,(if p(v701) then '1' fi/)

ADD
701

(g1/)

Спасибо, работает. Разносит по разным полям. осталась проблема с инициалами. В прикрепленных файлах До и После ГК.

Это совсем другая задача. Попробуйте так:
REP
701
F
(if p(v701) then '^A',,&uf('G0 ',v701^A),,if &uf('G2 ',v701^A)<>'' then '^B',,&uf('G2 ',v701^A) fi fi/)

Вариант выше как раз и резал на отдельные повторения поля 701 + делил на подполя

Спасибо, то что нужно! Все работает!