1С:Предприятие 8.1 (8.1.13.41) (1.1.10.2) конвертирование данных SOS!!!!

Новая тема
"SOS!!!
Переношу данные из 7.7 из справочника Номенклатура
Все переносится хорошо , кроме цен.
Что не ТАК???

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

При выполнении выдается сообщение!!!

{Форма.Форма(709)}: Ошибка при вызове метода контекста (Записать): Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
   Цены.Записать();
по причине:
Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
"
"Это странная строка
>  Цены.Регистратор = ТицЦенСсылка.Ссылка;
И еще после установки отбора - надобы прочитать:
Цены.Прочитать ();
А вот строки
Нов.Регистратор = ТицЦенСсылка.Ссылка;
не хватает. По-моему должно будет заработать."
" СпрНом = Справочники.Номенклатура;
НайдН = СпрНом.НайтиПоКоду(ВыборСправочника.Код);
ТицЦенСсылка = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна закупівлі");

Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Прочитать ();
Нов = Цены.Добавить();
Нов.Регистратор = ТицЦенСсылка.Ссылка;
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Прочитать ();
Нов = Цены.Добавить();
Нов.Регистратор = ТицЦенСсылка.Ссылка;
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();

Подправил!
То же самое
Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)




"
Вы в регистратор устанавливаете тип цен, а нужно подставить документ из видов, которые перечислены для регистра "ЦеныНоменклатуры" в конфигураторе как регистраторы. И вообще, зачем формировать записи регистра напрямую, когда можно просто заполнить документ "УстановкаЦенНоменклатуры" и провести его?
"У меня нет такой конфигурации, поэтому не знаю кто должен быть регистратором. Если "Денис (САМАРА)" прав, то вы действительно не можете загнать в регистратор ссылку на справочник.
К тому же не ясно - зачем дважды создавать набор?
Примерно так (только Регистратор я закоменнтировал):
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ПравильныйРегистратор);
Цены.Прочитать ();
Цены.Очистить ();   //Это если все записи, которые до этого там были-не нужны больше.
Нов = Цены.Добавить();      //Первая запись
Нов.Регистратор = ПравильныйРегистратор;
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;

Нов = Цены.Добавить();      //Вторая запись
Нов.Регистратор = ПравильныйРегистратор;
Нов.Номенклатура = НайдН1.Наименование;
Нов.Цена = 13;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();
"
Читают тему
(гостей: 1)

Быстрый переход