2018 (D4) версия. Импортирую данные из ЭБС. В ЭБС много записей (мы подписаны на базовую коллекцию, больше 100 тыс) и конечно делаю импорт без автоввода (очень долго будет идти если с ним). В записях этой ЭБС 903 поля нет. Можно еще сделать глобальную какую-нибудь с автовводом (нам все равно нужно глобальную делать на записях этой ЭБС), раньше так и делала, но в новой версии ИРБИС что-то уж очень долго идет и этот процесс.
Как правильнее и быстрее создать 903 поле для этих записей?



Редактировано 1 раз. Последний раз 16.04.2019 15:04 пользователем roit.

roit написал(а):
-------------------------------------------------------
> 2018 (D4) версия. Импортирую данные из ЭБС.
С каким ТВП переформатирования идет импорт? В нем и следует формировать 903 поле.

Я выбираю ТВП из списка. Для этой базы RMARCI. Т.е. Вы имеете в виду что мне надо что-то дописать в ТВП?
Увы, не могу. Значит единственный путь для меня это глобальная с автовводом, просто выполнять ее надо в выходные и ждать пока не сделает.

roit написал(а):
-------------------------------------------------------
> Я выбираю ТВП из списка. Для этой базы RMARCI.
> Т.е. Вы имеете в виду что мне надо что-то дописать
> в ТВП?
Именно так.

> Увы, не могу. Значит единственный путь для меня
> это глобальная с автовводом, просто выполнять ее
> надо в выходные и ждать пока не сделает.

Alio написал(а):
-------------------------------------------------------
> roit написал(а):
> --------------------------------------------------
> -----
> > Я выбираю ТВП из списка. Для этой базы RMARCI.
> > Т.е. Вы имеете в виду что мне надо что-то
> дописать
> > в ТВП?
> Именно так.
>
> > Увы, не могу. Значит единственный путь для меня
> > это глобальная с автовводом, просто выполнять
> ее
> > надо в выходные и ждать пока не сделает.


В свою глобальную, которую выполняете обязательно,добавьте операторы, формирующие шифр, из autoin.gbl и выполняйте ее без автоввода
DEL
903
F
if v903.1='-' then if v910^a:'1' or v910^2<>'' then '0' else if s(v906,v686,v621,v675)<>''then'1' else '0' fi fi else '0' fi
XXXXXXXXXXXXXXXXXXX
ADD
908
XXXXXXXXXXXXXXXXXXX
if a(v908) then if &unifor('Korg.mnu|9'):'1' or v920.1:'A' and s(v906,v675,v621,v686)=''then else if a(v903) and s(v906,v686,v675,v621,v910^r)<>'' and a(v982^0) and a(v982^9) or p(v903) and (p(v906) or s(v910^r)<>'')then &unifor('+Khav.mnu|'&unifor('+S0',v740^a" ",v981^a" ",v503^a" ",v461^x" ",v461^b" ",v461^c" ",v700^a" ",v710^a" ",v200^a)),if v461^u:'1'then v200^v fi fi fi fi
XXXXXXXXXXXXXXXXXXX
ADD
903
XXXXXXXXXXXXXXXXXXX
if a(v903) then if v982^0<>'' and v982^9<>'' then (if p(v982^0) and p(v982^9) then |, |+v982^0,| |v982^9,'!-'&unifor('R9') fi) else if v920='J' then v200^a.1,&unifor('R9') else if p(v906)or p(v686)or p(v675)or p(v621)then if p(v906) and v906:v908 then v906.17,'-',&unifor('R9') else v906.17,if a(v906) then &unifor('Av686.17#1'),if a(v686)then &unifor('G0^'&unifor('Av675.17#1')),if a(v675)then &uf('G0^'&unifor('Av621.17#1')) fi fi fi,"/"v908,'-',&unifor('R9') fi else '-'&unifor('R9') fi fi fi fi/
XXXXXXXXXXXXXXXXXXX

Спасибо большое Лариса Васильевна! Я попробую сделать так, надеюсь это то, что я смогу сделать



Редактировано 1 раз. Последний раз 17.04.2019 08:28 пользователем roit.