Приветствую вас форумчане, всех с наступившими и еще наступающими праздниками!!! С новым 2014 годом

Помогите пожалуйста с программным созданием документа "Установка цен номенклатуры" в УТ 10.3

Дело вот как обстоит, из ЭКСеля гружу номенклатурц в БД (тут все ок программно перенес).
а далее пытаюсь для имеющейся номенклатуры заполнить цены "Закупочная" и "Розничная".
[URL=http://s2.ipicture.ru/][IMG]http://s2.ipicture.ru/uploads/20140104/F1UuuVCV.jpg[/IMG][/URL]

Вот никак программно не могу задать чтоб он у меня подставлял в "ТИП ЦЕН" предварительно созданные: "Закупочная" и "Розничная".
И не совсем понял как добавить номенклатуру в документ

//// Запись документа Установка цен номенклатур Закупочная
    ДокРегистрации = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокРегистрации.ТипыЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Закупочная");
    Для Каждого текСтрока из ТЗ Цикл
        ДокРегистрации.Товары.Номенклатура = текСтрока.НомерНоменклатуры;
        ДокРегистрации.Товары.Валюта = Справочники.Валюты.НайтиПоКоду(643, Истина);
        ДокРегистрации.Товары.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(текСтрока.БазоваЕденицаИзмерения);
        ДокРегистрации.Товары.Цена = текСтрока.СуммаЗакупка;
    КонецЦикла;    
    ДокРегистрации.Записать(РежимЗаписиДокумента.Проведение);


Подскажите как правильно сделать?

некорректно вставиласась картинка
вот она http://s2.ipicture.ru/uploads/20140104/F1UuuVCV.jpg

(0) Может я чего не знаю, но говорят пинчерам не помогать)

(2) Кто говорит не помогать?

Бред.

    ДокРегистрации.ТипыЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Закупочная");

ТипыЦен это табличная часть.

(4) в этом плане согласен, на этом в Ошибку падает, никак не могу вот заполнить

(3) Весь форум

Ну и далее тоже бред
Товары - это тоже табличная часть.

(7) ну там я пытаюсь из ТЗ каждую строку добавить

а как правильно тогда будет?
сначала добавляем строку, потом заполняем данными по имеющейся номенклатуре из ЭКСельки

(6) да ну, не видел таких и не слышал=)

Безобразный код.
И в таб часть Товары есть реквизит ТипЦен - его никто не отменял к заполнению также.

(10) Так пока не заполнишь ТипЦен ничего добавить и нельзя....

а как правильно его получить тогда?

Что мешает на морду обработки добавить реквизит, чтобы юзер выбрал тип цен. и его заполнять

(11) еще важно, если в одном документе несколько типов цен, в Товары правильно заполнить ИндексСтрокиТаблицыЦен

(0)
Заполни вручную документ УстановкаЦенНоменклатуры как тебе нужно (на пару строк номенклатуры) и потом посмотри в отладчике или консолью запросов как и что там заполнилось в табличных частях. По аналогии заполняй программно.

(13) садись - двойка. какой нафиг индекс - там такого реквизита нет.

(15) глянь сначала, потом двойки ставь

(15) http://savepic.su/4046333.jpg

(17) Это что за УТ? Версия? за 10 лет  существаования УТ10 этого реквизита отродясь не было.

(18) Поржал.

(18) никогда не видел не значит отродясь не было
http://savepic.su/4035069.jpg

Посмотрел на созданном документе где и чего заполняется, получается так:
без комментированного текста, документ создается и проводится, но в него когда заходишь все равно не указан ТипЦен.... и приходится выбирать руками, и потом только можно добавлять строки.

как все таки правильно заполнить?, подскажите пожалуйста

    ДокРегистрации = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокРегистрации.Дата = ТекущаяДата();
    ДокРегистрации.Информация = "Закупочная";
    //Для Каждого текСтрока из ТЗ Цикл
    //    Если текСтрока.СуммаЗакупка = "" Тогда
    //        Сообщить("У данной номенклатуры: " + текСтрока.НомерНоменклатуры + ", не заполнена сумма закупки");
    //    Иначе    
    //        ТЧТовары = ДокРегистрации.Товары.Добавить();
    //        ТЧТовары.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(текСтрока.НомерНоменклатуры);
    //        ТЧТовары.Валюта = Справочники.Валюты.НайтиПоКоду(643, Истина);
    //        ТЧТовары.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(СОКРЛП(текСтрока.БазоваЕденицаИзмерения), Истина);
    //        //ТЧТовары.ТипЦен = "Закупочная";
    //        ТЧТовары.Цена = текСтрока.СуммаЗакупка;
    //    КонецЕсли;
    //КонецЦикла;    
    ДокРегистрации.Записать(РежимЗаписиДокумента.Проведение);

а делаю на "Управление торговлей", редакция 10.3 (10.3.26.2)

(22)
ДокЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
НовСтр = ДокЦен.ТипыЦен.Добавить();
НовСтр.ТипЦен = СпрТипЦеныЗакупка;
НовСтр = ДокЦен.ТипыЦен.Добавить();
НовСтр.ТипЦен = СпрТипЦеныРозница;
мИндексСтрокиТаблицыЦен = 0;
//мТабл_Знач_Номенклатура_Цены - таблица значений, структрура полей - Номенклатура/ЦенаЗакупка/ЦенаРозница
Для каждого мСтрока Из мТабл_Знач_Номенклатура_Цены Цикл
    НовСтрЦ = ДокЦен.Товары.Добавить();
    НовСтрЦ.Номенклатура = мСтрока.СпрНоменклатура;
    НовСтрЦ.Цена = мСтрока.ЦенаЗакупка;
    НовСтрЦ.ЕдиницаИзмерения = мСтрока.Номенклатура.ЕдиницаХраненияОстатков;
    НовСтрЦ.ТипЦен = СпрТипЦеныЗакупка;
    НовСтрЦ.ИндексСтрокиТаблицыЦен = мИндексСтрокиТаблицыЦен;
    
    НовСтрЦ = ДокЦен.Товары.Добавить();
    НовСтрЦ.Номенклатура = мСтрока.СпрНоменклатура;
    НовСтрЦ.Цена = мСтрока.ЦенаРозница;
    НовСтрЦ.ЕдиницаИзмерения = мСтрока.СпрНоменклатура.ЕдиницаХраненияОстатков;
    НовСтрЦ.ТипЦен = СпрТипЦеныРозница;
    НовСтрЦ.ИндексСтрокиТаблицыЦен = мИндексСтрокиТаблицыЦен;
    
    мИндексСтрокиТаблицыЦен = мИндексСтрокиТаблицыЦен + 1;
КонецЦикла;
ДокЦен.ПолучитьФорму().Открыть();


(22) в (23)
".СпрНоменклатура" = ".Номенклатура"

(23) Ну вот, пока не сделаешь за человека, толку не будет.
:)

Автора гнать надо с работы. Неуч.

(26) Спасибо за добрые слова (да я чего то пока еще не знаю), но думаю пару лет назад ты сам задавал такие вопросы?

(23) Спасибо огромное, очень выручил, урок усвоил=)
вот так все взлетело:

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

Для каждого текСтрока Из ТЗ Цикл
    //Добавляем Закупочную
    ТЧТовары = ДокЦен.Товары.Добавить();
    ТЧТовары.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(текСтрока.НомерНоменклатуры);
    ТЧТовары.Цена = текСтрока.СуммаЗакупка;
    ТЧТовары.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(СОКРЛП(текСтрока.БазоваЕденицаИзмерения), Истина);
    ТЧТовары.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Закупочная");
    ТЧТовары.ИндексСтрокиТаблицыЦен = мИндексСтрокиТаблицыЦен;
    ТЧТовары.Валюта = Справочники.Валюты.НайтиПоКоду(643, Истина);
    //Добавляем Розничную
    ТЧТовары = ДокЦен.Товары.Добавить();
    ТЧТовары.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(текСтрока.НомерНоменклатуры);
    ТЧТовары.Цена = текСтрока.СуммаРозница;
    ТЧТовары.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(СОКРЛП(текСтрока.БазоваЕденицаИзмерения), Истина);
    ТЧТовары.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная");
    ТЧТовары.ИндексСтрокиТаблицыЦен = мИндексСтрокиТаблицыЦен;
    ТЧТовары.Валюта = Справочники.Валюты.НайтиПоКоду(643, Истина);
    
    мИндексСтрокиТаблицыЦен = мИндексСтрокиТаблицыЦен + 1;
КонецЦикла;
ДокЦен.Записать(РежимЗаписиДокумента.Проведение);  // Спасибо m-serg74

(27) а ну так понятно. если есть стремление то всегда можно все изучить.

Маня шикарно слился с индексом типа цен)))