В документе есть реквизит табл. части у которого тип Справочник, при вводе значения открывается окошко где можно выбрать что же это за справочник будет. Как программно назначить такому реквизиту тип справочника например "Справочник.Номенклатура"
Пишу так не получается
Док.Номенклатура = Номенклатура.ТекущийЭлемент();

(0)
Пишу так но значение не присваивается.
Док.Номенклатура = Номенклатура.ТекущийЭлемент();

назначитьвид()

назначитьвид(Док.Номенклатура,"ПереченьРабот");
       Док.Номенклатура = работа.ТекущийЭлемент();

Все равно не присваивает значение
Что не так подскажите

(3), а что у тебя хранится в переменной док ?

Док = СоздатьОбъект("Документ.ЗаказНаряд");
   Док.НоваяСтрока();

НазначитьВид("Номенклатура","Номенклатура");

(6) Неправильно задан вид значения!

(6)
Параметры:
<Значение> - Значение типа документ/справочник/счет неопределенного вида - обычно реквизит документа, справочника или диалога формы.

НазначитьВид(Номенклатура, "Номенклатура");

(3) А что у тебя хранится в переменной "работа", что показывает отладчик на выражение Работа.ТекущийЭлемент() ?

Работа.ТекущийЭлемент() Это элемент справочника "ПереченьРабот"

(11) Вот путаник.

(11) а он не пустой?

Работа = СоздатьОбъект("Справочник.ПереченьРабот");
       Работа.НайтиПоНаименованию(ТЗ.работа);
       Если  Работа.НайтиПоНаименованию(ТЗ.работа)=0 тогда
Иначе  
Док.НазначитьТип("Номенклатура","Справочник.ПереченьРабот");
       Док.Номенклатура = работа.ТекущийЭлемент();

(13) Нет не пустой

Проверь еще раз тип реквизита "Номенклатура". Он точно - справочник неопределенного вида?
В этом случае достаточно было бы этого:

Док.Номенклатура = работа.ТекущийЭлемент();

Тип Значения у реквизита номенклатура "<<Справочник>>"

Всю процедуру можешь выложить?

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

(0)НазначитьТип
НеИзменятьВид

Я уже по всякому пробую.
НазначитьВид я закоментил, потому что не взлетает
//назначитьвид(Док.Номенклатура,"ПереченьРабот");

Всем спасибо!!! не очищал Табл.Часть перед повторной загрузкой, смотрел первые строки и видел фигу.

Конец рабочего дня! ;-)

Как очистить табл часть документа?
Док.Очистить() не получается

Док.УдалитьСтроки()

Спасибо!!! ;-)