Re: Не выдается &uf('Av488^##1')
Пользователь:
Милана А. (IP-адрес скрыт)
Дата: 03, August, 2021 11:15
В Autoin.gbl базы электронной библиотеки у меня был добавлен код, который при условии присутствия ссылки на другую запись в другой базе в поле 488, проверяла, присутствует ли обратная ссылка из другой записи в эту, и при отсутствии добавляла. Вручную ссылки проверять перестали, а на днях заметили, что перекрестная ссылка строиться перестала.
Перепроверила данные. Действительно в 2020 году этот код у меня выглядел чуть иначе:
CORREC
v488^#
'^1Электронная копия:^T'v903'^#ELNB'
"I="v488^t
ADD
488
XXXXXXXXXXXXXXXXXXX
if v488:v1001 then else v1001 fi
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
Но этот код не работает при наличии нескольких повторений поля 488. Поэтому я и переписала его таким образом, чтобы он работал хотя бы для первого повторения поля 488, поменяв &uf('Av488^##1') и &uf('Av488^t#1').
Можете подсказать, как поменять этот код, не используя &uf('Av488^##1')?
Сделать цикл по повторениям поля 488, внутри цикла - CORREC. Как это можно сделать?