8.1 Самописная база. Ситуация такая: Есть документ реестрвходящей корреспонденции. Реквизит - Исполнитель.   Создал регистр Исполнители(Ресурсы -Исполнитель) подчинил регистратору - РеестрВходящей корреспонденции.  Хочу из Реквизита документа Исполнитель создать запись в регистресведений. Вылетает ошибка:

Выборка = Документы.РеестрВходящейКорреспонденции.Выбрать();
  Пока Выборка.Следующий() Цикл
  Регистратор = Выборка.ПолучитьОбъект();
  Сообщить(Регистратор);
  
  
  НаборЗаписей = РегистрыСведений.Исполнители.СоздатьНаборЗаписей();
  НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Ссылка);
  НаборЗаписей.Прочитать();
  
  Для Каждого Запись Из НаборЗаписей Цикл
    НоваяЗапись = НаборЗаписей.Добавить();  
    НоваяЗапись.Исполнитель = Регистратор.Кому; //Кому это реквизит документа
    НаборЗаписей.Записать();
КонецЦикла

КонецЦикла;


Почему?

ошибка, что не заполнен регистратор? я угадал?

(1) барабанная дробь!

(1) Форма.ФормаОтчета(70)}: Поле объекта не обнаружено (Регистратор)
  НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Ссылка);

И что сие значит?

НаборЗаписей.Записать() из цикла вынеси для начала

(0) Это пять!

"Для Каждого Запись Из НаборЗаписей Цикл
    НоваяЗапись = НаборЗаписей.Добавить();"

http://s020.radikal.ru/i720/1311/dd/2bc6fcb9773b.jpg

(5) Сделал .... но ошибка не в этом

(6) Картинка криво вставилась, вот: http://time56.ru/userfiles/news/large/3640_taschla_orug_13102013-2.jpg

(0) регистр независимый (не подчинен регистратору).

(8) Спасибо за критику я это очень ценю

(3) "Регистратор.Кому" - попробуй заменить на Регистратор.Ссылка.Кому или выборка.Ссылка

ну и запись из цикла убрать, или записывать через менеджер

Ты прочитал НаборЗаписей и перебираешь записи из набора. Тебе нужно в каждую из них заполнить исполнителя. За каким таким ты добавляешь записи в набор?

Учитывая все предыдущие мнения  мнения  сделал так:

Подчинил регистратору и изменил код:

Выборка = Документы.РеестрВходящейКорреспонденции.Выбрать();
  Пока Выборка.Следующий() Цикл
  Регистратор = Выборка.ПолучитьОбъект();
  Сообщить(Регистратор);
  
  
  НаборЗаписей = РегистрыСведений.Исполнители.СоздатьНаборЗаписей();
  НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Ссылка);
  НаборЗаписей.Прочитать();
  
  Для Каждого Запись Из НаборЗаписей Цикл
    Запись.Исполнитель=Регистратор.Ссылка.Кому;    
    
КонецЦикла;
НаборЗаписей.Записать();
КонецЦикла;

Ошибка не выскакивает но и запись в регистр не попадает. Что не так теперь?

(0) НаборЗаписей.Прочитать();
  и
Для Каждого Запись Из НаборЗаписей Цикл

Содержат записи, если в РС есть запись по отбору :)

(14) Чудак. У тебя в Регистре нет записей по отбору, а ты все Читаешь и Читаешь...

Попробуй отладчик запустить

НовайЗапись = НаборЗаписей.Добавить();
///Пишешь фигню с заполнением измерений, ресурсов и т.д...
НаборЗаписей.Записать();

(16) Да записей нет я согласен их нужно добавить.  Как?

Если НаборЗаписей.Количество()=0 Тогда
Запись=НаборЗаписей.Добавить();
Запись.Исполнитель=....
НаборЗаписей.Записать()

(18) В (17) Смотри.

Проверить, на отсутствие записей через "НаборЗаписей.Количество()"

Запись с такими ключевыми полями существует! : 02.07.2013

Не совсем понятно что это значит я открываю регитр он пустой.?

Сделал вот так

Выборка = Документы.РеестрВходящейКорреспонденции.Выбрать();
  Пока Выборка.Следующий() Цикл
  Регистратор = Выборка.ПолучитьОбъект();
  Сообщить(Регистратор);
  
  
  НаборЗаписей = РегистрыСведений.Исполнители.СоздатьНаборЗаписей();
  НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Ссылка);
  
  Если НаборЗаписей.Количество()=0 Тогда
  НаборЗаписей.Добавить();
  
  Для Каждого Запись Из НаборЗаписей Цикл
    Запись.Исполнитель=Регистратор.Ссылка.Кому;    
    Запись.Период = Регистратор.Дата;
    НаборЗаписей.Записать();
  КонецЦикла;
  КонецЕсли;
  КонецЦикла;
  
КонецПроцедуры

Вылетает ошибка Запись с такими ключевыми полями существует! : 02.07.2013 0:00:00 (Регистр свед

(22) Просто жесть...
Ну чуть-чуть подумать, не?

Выборка = Документы.РеестрВходящейКорреспонденции.Выбрать();
  Пока Выборка.Следующий() Цикл
  Регистратор = Выборка.ПолучитьОбъект();
  Сообщить(Регистратор);
  
  
  НаборЗаписей = РегистрыСведений.Исполнители.СоздатьНаборЗаписей();
  НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Ссылка);
  
  Если НаборЗаписей.Количество()=0 Тогда
    Запись = НаборЗаписей.Добавить();
    Запись.Исполнитель=Регистратор.Ссылка.Кому;
  Иначе
    Для Каждого Запись Из НаборЗаписей Цикл
      Запись.Исполнитель=Регистратор.Ссылка.Кому;    
    КонецЦикла;
  КонецЕсли;
  НаборЗаписей.Записать();
  КонецЦикла;

попытайся понять что именно за текст находится в ошибке XD