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

выдает ошибку:

{Документ.ПоступлениеТоваровУслуг.МодульОбъекта(1425)}: Поле объекта не обнаружено (Период)
НаборЗаписей.Период = НовыйДокументУстановкаЦенНоменклатуры.Дата();

Как это можно исправить?

вынести перед циклом:

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

и за цикл:
НаборЗаписей.Записать();

в цикле сначала:
ЗаписьНабора = НаборЗаписей.Добавить();
а вот потом у неё указываешь всякие измерения, ресурсы и т.п. и период в т.ч.

у неё = у ЗаписьНабора

В соглашении с поставщиком есть галка "Регистрировать цены поставщика автоматически".. (0)Свой лисапед лучше?

спасибо заработало

(4) :)

а как ты в регистре добавляешь записи если ТЧ нового дока пустая? что за?

оооо все понял. слишком быстро прошелся по топику :)

(6) а ему сурпрыз будет когда он документ перепроведет

(3)
Чет я не совсем понял этот механизм поподробней можно про него?

Да все заебок будет работать!

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

ню-ню

не ну лучше б подсказали, что не так и в чем я глубоко заблуждаюсь

а епт и правда

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

У меня проблем есть. Kak mojna vse tovar cheni ustanovit odno dokument?


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

> У меня проблем есть. Kak mojna...

купи букварь

Sorry ya niznayu po russkiy))