Как создать цены? Через док или РС

Всем доброго времени суток. Подскажите пожалуйста.
Нужно установить цены на номенклатуру в ут11, программно
Как это делать? Создавать документ:

    СоздДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();

    СоздДокумент.Дата = Объект.ДатаУстановкиЦен;
    СоздДокумент.Согласован = Истина;
    СоздДокумент.Ответственный = Пользователи.ТекущийПользователь();
    СоздДокумент.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;
    Для каждого тов из МоиТовары Цикл
        Для строкаТП = 1 По всегоСтрок Цикл

            Если МоиТовары .Получить(3).Получить(строкаТП) <> "DESCRIPTION" тогда
                НоваяСтр = СоздДокумент.Товары.Добавить();
                НоваяСтр.ВидЦены = Объект.ВидЦены;
                СсылкаНаНоменклатуру = Справочники.Номенклатура.НайтиПоНаименованию(МоиТовары .Получить(1).Получить(строкаТП));
                НоваяСтр.Номенклатура = СсылкаНаНоменклатуру;
                НоваяСтр.Цена =  МоиТовары .Получить(4).Получить(строкаТП);
        КонецЕсли;
    КонецЦикла;
    КонецЦикла;
СоздДокумент.Записать(РежимЗаписиДокумента.Проведение);

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