Добрый день!
Подскажите, пожалуйста, как сделать, чтобы при регистрации отдельного номера журнала заполнялись автоматически поля 101(Язык основного текста) и 102 (Страна) из (основного) сводного описания журнала.
Заранее спасибо!

Добавьте в самый конец файла Autoin.gbl в директории базы (в которой регистрируется периодика) строки:
ADD
101
F
if a(v101) then ref(l("I="v933),v101) fi
XXXXXXXXXXXXXXXXXXX
ADD
102
F
if a(v102) then ref(l("I="v933),v102) fi
XXXXXXXXXXXXXXXXXXX

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Сделал как Вы и написали. Но почему-то не работает
Вот концевка файла Autoin.ini

REP
910
F
(v910^h,v910/)
XXXXXXXXXXXXXXXXXXX
ADD
99999
XXXXXXXXXXXXXXXXXXX
(&unifor('MI910')/)
XXXXXXXXXXXXXXXXXXX
REP
910
F
(&unifor(|G1^|v910)/)
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
101
F
if a(v101) then ref(l("I="v933),v101) fi
XXXXXXXXXXXXXXXXXXX
ADD
102
F
if a(v102) then ref(l("I="v933),v102) fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX



Редактировано 1 раз. Последний раз 13.06.2007 11:19 пользователем Alex_ck_ua.

Прошу прощения, поторопился. Так просто действительно не получится.
Найдите в autoin.gbl оператор NEWREC за которым идет строка
if v920='J'and p(v936)then ......
Этот оператор открывает блок создания записи на отдельный номер СИ при регистрации. Вот внутри этого блока (можно сразу перед ADD 920) и надо добавить:

ADD
101
XXXXXXXXXXXXXXXXXXX
v101
XXXXXXXXXXXXXXXXXXX
ADD
102
XXXXXXXXXXXXXXXXXXX
v102
XXXXXXXXXXXXXXXXXXX

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Сделал, как вы и написали, но пока еще не работает
NEWREC
if v920='J'and p(v936)then if &unifor('IMAIN,KUMJEX,')='1'then if L("I="v903,"/"v934,"/"v935,"/"d1936,&unifor('G0,'v1936))<1 then '1'else '0'fi else'1'fi fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
101
XXXXXXXXXXXXXXXXXXX
v101
XXXXXXXXXXXXXXXXXXX
ADD
102
XXXXXXXXXXXXXXXXXXX
v102
XXXXXXXXXXXXXXXXXXX
ADD
920
XXXXXXXXXXXXXXXXXXX
'NJ'
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
if p(v936) then '^C',&unifor('IPRIVATE,ETR,'),'^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,') fi
XXXXXXXXXXXXXXXXXXX

Должно работать. У меня работает, проверял...
В той ли базе правлен autoin?
Нет ли где пробелов после ADD (это важно!)

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

СПАСИБО получилось.
Как Вы и написали, было несколько пробелов

Возникла проблемка !!!
Если в (основном) сводном описании журнала ввести в поле 102 несколько языков

НАПРИМЕР:

ukr
rus
eng

То в отдельный номер журнала в 102 поле идет такая запись
ukrruseng

Как эту неисправность устранить.

Спасибо.

заменить на
ADD
102
F
(v102/)
XXXXXXXXXXXXXXXXXXX

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Не получаеться
ADD
102
F
if a(v102) then ref(l("I="v933),v102) fi

заменил на
ADD
102
F
(v102/)

Я имел в виду заменить

ADD
102
XXXXXXXXXXXXXXXXXXX
v102
XXXXXXXXXXXXXXXXXXX

в блоке создания записи NEWREC на

ADD
102
F
(v102/)

а те два оператора, что вы дописывали в конце файла (с ref(l)) и, судя по всему не удалили, они вообще не нужны - поскольку работают же.

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Заменил, как Вы и написали

NEWREC
if v920='J'and p(v936)then if &unifor('IMAIN,KUMJEX,')='1'then if L("I="v903,"/"v934,"/"v935,"/"d1936,&unifor('G0,'v1936))<1 then '1'else '0'fi else'1'fi fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
101
XXXXXXXXXXXXXXXXXXX
v101
XXXXXXXXXXXXXXXXXXX
ADD
102
F
(v102/)
XXXXXXXXXXXXXXXXXXX
ADD
920


И удалил в конце

ADD
101
F
if a(v101) then ref(l("I="v933),v101) fi
XXXXXXXXXXXXXXXXXXX
ADD
102
F
if a(v102) then ref(l("I="v933),v102) fi
XXXXXXXXXXXXXXXXXXX

Теперь в новую запись переносять

102 - пустое
101 - ukrruseng

Насчет пустого 102 поля посмотрите все тот же пробел после ADD...
Насчет нежелания 101 размножаться - это потому что вы же его и перепутали со 102 в посте выше :)

=========
Пользователь: Alex_ck_ua (IP-адрес скрыт)
Дата: 15, June, 2007 16:46

Возникла проблемка !!!
Если в (основном) сводном описании журнала ввести в поле 102 несколько языков
=========

ну и я соответственно не проверялся и дал вам рецепт от несуществующей болезни. Т.о. в крнечном итоге эти два уже набивших оскомину оператора выглядят так:

ADD
101
F
(v101/)
XXXXXXXXXXXXXXXXXXX
ADD
102
XXXXXXXXXXXXXXXXXXX
v102
XXXXXXXXXXXXXXXXXXX

и не забудьте проверить пробелы после копирования и вставки.

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

ХУХ, ОГРОМНОЕ ВАМ СПАСИБО, ВСЕ РАБОТАЕТ:)