Добрый день

Создал регистр, из файла загрузил записи в него(порядка 40 тыс строк). Теперь хочу, чтобы в будущем данный регистр был подчинен регистратору. В настройках указал регистраторы. Нажимаю запустить в режиме клиента выдает сообщение что объект изменен:... и запись регистра будут удалены. Получается есди я нажму принять, все записи будут удалены? С чем это связано и как мне решить данную проблему?

сейчас у записей нет регистратора, естественно они не могут существовать в подчинённом регистре. загружай потом записи заново, но с регистратором

я 40 тыс строк загружал 12 часов. Заново все загружать совсем не горю желанием. А по другому никак?

(2) Никак

(2) если скуль, то можно извернуться

(2) нет.
З.ы. хреново загружал как то... я мильёны выгружаю из версионирования за несколько часов например

(4) айайай, не учи плохому

(6) :) зачем учить? можно ведь просто помочь небесплатно :)

Создай другой регистр копированием, туда перегрузи данные, измени свой регистр, загрузи из копии, удали ненужный регистр... Это, если критично сохранить старый регистр, если нет, то просто создай новый и туда перегрузи...

(2)Не правильно выгружаешь, 40 тыс  не больше часа выгружаются, при правильном коде

(9) ну... можно напихать двадцать пять измерений и сорок ресурсов... и все с составными типами... тогда вообще будет вечность...

вот сам код загрузки из таблицы значений. При добавлении новой записи проверяю ее на уникальность.

Подскажите, пожалуйста, тогда как бы вы изменили:

номерЗаписи = 0;
   Для Каждого текСтрока Из тзТекстФайл Цикл
                       
       ЕстьСтрока = Ложь;
       НаборЗаписейРегистрЦеныПоставщиков.Прочитать();
       
       контрагент = Справочники.Контрагенты.НайтиПоКоду(текСтрока["КонтрагентКод"]);
       НаборЗаписейРегистрЦеныПоставщиков.Отбор.Контрагент.Установить(контрагент);
       НаборЗаписейРегистрЦеныПоставщиков.Прочитать();
       
       Для Каждого записьРегистра Из НаборЗаписейРегистрЦеныПоставщиков Цикл
           Если записьРегистра.Контрагент.Код = текСтрока["КонтрагентКод"]
               И записьРегистра.Период = Дата(текСтрока["Дата"])
               И записьРегистра.Номенклатура.Код = текСтрока["НоменклатураКод"] Тогда
               
               ЕстьСтрока = Истина;
               Прервать;
           КонецЕсли;        
       КонецЦикла;
       
       
       Если ЕстьСтрока Тогда
           Продолжить;
       Иначе
           НоваяЗаписьРегистрЦеныПоставщиков = НаборЗаписейРегистрЦеныПоставщиков.Добавить();    
           
           Попытка
               датаДокумента = Дата(текСтрока["Дата"]);        
           Исключение
               
           КонецПопытки;
           
           Если ЗначениеЗаполнено(датаДокумента) Тогда
               НоваяЗаписьРегистрЦеныПоставщиков.Период = датаДокумента;
           Иначе
               НоваяЗаписьРегистрЦеныПоставщиков.Период = ТекущаяДата();
           КонецЕсли;
               
           //результат = тзНоменклатура.Найти(текСтрока["НоменклатураКод"], "Код");
           результат = Справочники.Номенклатура.НайтиПоКоду(текСтрока["НоменклатураКод"]);
           Если результат <> Неопределено Тогда
               НоваяЗаписьРегистрЦеныПоставщиков.Номенклатура = результат;
           Иначе
               продолжить;    
           КонецЕсли;
           
           //рез = тзКонтрагенты.Найти(текСтрока["КонтрагентКод"], "Код");
           рез = Справочники.Контрагенты.НайтиПоКоду(текСтрока["КонтрагентКод"]);
           Если  рез <> Неопределено Тогда
               НоваяЗаписьРегистрЦеныПоставщиков.Контрагент = рез;    
           КонецЕсли;
           
           вал = Справочники.Валюты.НайтиПоНаименованию(текСтрока["Валюта"]);
           Если Не вал.Пустая() Тогда
               НоваяЗаписьРегистрЦеныПоставщиков.Валюта = вал;    
           КонецЕсли;
           
           Если ЗначениеЗаполнено(текСтрока["Цена"]) Тогда
               НоваяЗаписьРегистрЦеныПоставщиков.Цена = текСтрока["Цена"];
           Иначе
               Продолжить;
           КонецЕсли;
           
           Попытка
               НаборЗаписейРегистрЦеныПоставщиков.Записать();
               Сообщить("Запись успешно добавлена - "+номерЗаписи);
               номерЗаписи = номерЗаписи + 1;
           Исключение
           КонецПопытки;
       КонецЕсли;
   КонецЦикла;

(11) не пугай добрых людей, см. (8)

Проверка на уникальность - это жесть :)

да жесть, поэту и спрашиваю как бы вы сделали?

(14) Либо убрать её нафиг, либо в ТЗ запоминать уже загруженные (лучше - с индексированными колонками, но 40 тыс строк и так сжует).

(14) если сделал один регистр без регистратора, а теперь  нужон с регистратором, то сделал бы еще один регистр и все. Потом, в рабочем порядке и если очень сильно будет нужно, перепишу данные из первого регистра во второй.

скопировать из одного регистра в другой это все понятно, мне больше интерессно как правильно было загрузить из файла, чтобы скорость загрузки увеличилась. Убрать проверку на уникальность?  В ТЗ запоминать уже загруженные это как?

(14) а если говорить про проверку уникальности, то вариантов можно много придумать... самое очевидное: искать не в записях, с постоянным считыванием их с базы, а загружать их в тз и там уже куртить всяко по разному, но как это будет работать на 40 тысячах надо смотреть более внимательно

(14) А ты справку принципиально не читаешь, сразу в бой? А как облом, сразу бегом на Мисту?

Примеры поиска записей в регистре неужели не видел?

Видел и читал, поэтому и интересуюсь у вас, как бы вы сделали? Ок, мысль понятна. Спасибо за ответы.

Сначала формируешь ТЗ, дальше тз в запрос и отсекаешь там лишние. Главное одним запросом, то есть одним обращением к БД. А не в цикле.

(22) да даже проще, потому что у него "внешний источник" - загрузить все в тз, проверить на уникальность, а затем уже запихивать в регистр, ну и транзакциями обрамление вокруг процедуры записи в регистр по какому-то количеству регистираторов.

ну и транзакциями обрамление вокруг процедуры записи в регистр по какому-то количеству регистираторов - можно по подробнее, что вы имеете ввиду?

т.с., а вы пробовали использовать функцию свернуть для ТЗ? она ведь позволяет свернуть таблицу, вот Вам и проверка на уникальность...

Или я не прав?

Кроме того, можно прибегнуть к возможности перезаписи, что даст вам возможность пере-записывать уже имеющиеся записи, это предположительно будет быстрей, чем проверять каждую запись.

(2) Напрашивается упомянутая не так давно картинка, но она грубая, но так хочется, как ты знал.

(23) транзакции остаются в памяти процесса до момента своего завершения и записываются физически только после вызова процедуры ЗафиксироватьТранзакцию. Таким образом, даже при использовании регистраторов, накапливают в транзакции несколько сотен записей и потом фиксируют. На любителя