Всем привет. Есть задание, перенести номенклатуру из Exsel в 1с. Столкнулся с проблемой в ценах(Только недавно начал изучать 1с). В файле xsl есть данные о цене. В форме пользователь выбирает, какой вид цен будет зарегистрирован для этих товаров. Как мне добавить эти цены в прайс лист товара программно. Сколько не ищу, говорят только о том, как через 1сПредприятие это сделать. (Вопрос даже наверное в том, где находится справочник прайс листа в конфигураторе, чтобы я мог к нему обратится при записи цены).

Если что, то это УТ11

перед постановкой вопроса начните хоть какое-то изучение предмета
+научитесь гуглить что-ли

(2) Спасибо за совет, учту. Но подожду более компетентного ответа.

Документ Установка цен номенклатуры

Спасибо

(3)это ценнейший совет

(6) харош прикалываться над нубами.

(7) вау, полегче, парниша, корону поправь

В 1с очень не хватает публичной базы знаний с примерами по доработкам типовых конфиг

(9) А чё толку? Там же также гуглить нудно будет, а народ поиском пользоваться не умеет, так что мартышкин труд

(0) Может поможет

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

    Форма.ВыбранныеЦеныИзменены=Ложь;
    Форма.Открыть();        
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьДокументНаСервере(ДанныеФормы,ДокументОприходывания)    
    ТекОбъект=Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ТекОбъект.ДокументОснование=ДокументОприходывания;
    ЗапросВидыЦен=Новый Запрос("ВЫБРАТЬ
                               |    НастройкаЗагрузкиОстатковПоставщиковНомераКолонокЦен.ВидЦены
                               |ИЗ
                               |    Справочник.НастройкаЗагрузкиОстатковПоставщиков.НомераКолонокЦен КАК НастройкаЗагрузкиОстатковПоставщиковНомераКолонокЦен
                               |ГДЕ
                               |    НастройкаЗагрузкиОстатковПоставщиковНомераКолонокЦен.Ссылка = &Ссылка");
    ЗапросВидыЦен.УстановитьПараметр("Ссылка",ЭтаФорма.Объект.Настройка.Ссылка);                          
    //                          
    ВидыЦен=ЗапросВидыЦен.Выполнить().Выгрузить();                      
    Для Каждого ВидЦены Из ВидыЦен Цикл
        НовСтрокаВидЦен=ТекОбъект.ВидыЦен.Добавить();
        НовСтрокаВидЦен.ВидЦены=ВидЦены.ВидЦены;        
    КонецЦикла;    
    МассивСвойств = Новый Массив;    
    МассивСвойств.Добавить("Не включать в прайс");
    Для Каждого Товар Из Объект.ЗагружаемыеЦены Цикл    
            

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