Помогите с програмным заполнением этого дока плз,приведите кусок кода,весь мозг вынес..(..

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

(1) последнее необязательно

это работает..как табличную часть заполнять?

(3) НоваяСтрока=док.ТЧ.Добавить();

не работает это в 8.2 типовой УТ

ДокУстановкаЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
   ДокУстановкаЦен.Дата = ТекущаяДата();
   ДокУстановкаЦен.Ответственный = ПараметрыСеанса.ТекущийПользователь;
   ДокУстановкаЦен.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;
   Ном = Справочники.Номенклатура;
   
   
   Для СтрКл  = 2 По 3  Цикл //заменит на Колвост
       
       Если (СокрЛП(Excel.Cells(СтрКл,1).value) = "0") Тогда //не группа и не пустая строка
           
        ДокУстановкаЦен.ВидыЦен.Добавить();
        ДокУстановкаЦен.ВидыЦен = Справочники.ВидыЦен.НайтиПоНаименованию("Прих.цена");
        ДокУстановкаЦен.Товары.Добавить();
        ДокУстановкаЦен.Товары = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Excel.Cells(СтрКл,3).Value));

(5) что говорит?

вот это НЕ работает..что не так?

(6) > ДокУстановкаЦен.ВидыЦен.Добавить();
а куда оно тебе возвращает добавленную строку?

НайтиПоНаименованию находит? а если не найдёт?

найти-находит..

(11) а если не найдёт?

//СтрокаВидыЦен = ДокУстановкаЦен.ВидыЦен.Добавить();
        //СтрокаТовары = ДокУстановкаЦен.Товары.Добавить();
        //ЗначениеЦены = Число(Excel.Cells(СтрКл,25).value);
       
        //Если  Число(Excel.Cells(СтрКл,25).value)>0 Тогда //Прих.цена
        //    СтрокаВидыЦен.ВидЦены. = //Справочники.ВидыЦен.НайтиПоНаименованию("Прих.цена");
        //КонецЕсли;
       
        //СсылкаНаПозицию = Ном.НайтиПоНаименованию(СокрЛП(Excel.Cells(СтрКл,3).Value));
        //
        //Если  СсылкаНаПозицию = Ном.ПустаяСсылка() Тогда    //Добавление товара
        // Сообщить ("Не найдена позиция :" + СокрЛП(Excel.Cells(СтрКл,3).Value));
        //Иначе
        //    
        //СтрокаТовары.Номенклатура = СсылкаНаПозициЮ;
        //СтрокаТовары.ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Прих.цена");//СтрокаВидыЦен.ВидЦены;
        //СтрокаТовары.Цена = ЗначениеЦены;

или  так..все равно док без значений

(14) а не от незаполненности ли ТЧ про цены это?

ну этот же док можно БЕЗ цен сохранить???можно

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

кто нить заполнял такой док..кусок кода приведите плз..

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

ПОТОМУ ЧТО надо ВИд цены в строке заполнять!

Вот это
//СтрокаТовары.ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Прих.цена");

Явно до цикла в переменную.

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

спасибо..попробую...