Подскажите как записать документ

Question

Почему то в документе не записывается табличная часть. Имеется 2-ва справочника и данные из них нужно записать в разные реквезиты, т.е Столбец1=Справочнику1, а Столбец2=Справочнику2

[IS-QUOTE]
ДокНов=Документы.ПодразделенияСценарии.СоздатьДокумент();
	ДокНов.Дата=ТекущаяДата();

	
	ВыборкаПодразделения=Справочники.Подразделения.Выбрать();
	ВыборкаСценарии=Справочники.Сценарии.Выбрать();
	
	//  Определяю мах кол-во элементов в справочнике Сценариев
	ВсегоЭлементовСценарии=0;
	Запрос=Новый Запрос;
	Запрос.Текст="ВЫБРАТЬ
	             |	КОЛИЧЕСТВО(ССЫЛКА) КАК ВсегоЭлементов
				 |ИЗ
	             |	Справочник.Сценарии КАК Сценарии";     	
	РезультатЗапросаСценарии=Запрос.Выполнить().Выгрузить();
	ВсегоЭлементовСценарии=ВсегоЭлементовСценарии+РезультатЗапросаСценарии[0].ВсегоЭлементов;
	
	//  Определяю мах кол-во элементов в справочнике Подраздиления
	ВсегоЭлементовПодразделения=0;
	ЗапросПодразделения=Новый Запрос;
	ЗапросПодразделения.Текст="ВЫБРАТЬ
	             |	КОЛИЧЕСТВО(ССЫЛКА) КАК ВсегоЭлементов
				 |ИЗ
	             |	Справочник.Подразделения КАК Подразделения"; 	
	РезультатЗапросаПодразделения=ЗапросПодразделения.Выполнить().Выгрузить();
	ВсегоЭлементовПодразделения=ВсегоЭлементовПодразделения+РезультатЗапросаПодразделения[0].ВсегоЭлементов;

		 	
	// Перебираю справочник Подраздиления     
	Если(ВсегоЭлементовПодразделения>=ВсегоЭлементовСценарии) Тогда
		
		НомерСтрокиСчитывания=1;
		Пока ВыборкаПодразделения.Следующий() Цикл
			
			 НоваяСтрока=ДокНов.Сценарии.Добавить();

		     переменПодразделение=ВыборкаПодразделения;
			 
		     ДокНов.Подразделения=переменПодразделение;  // по условию задачи реквизит таб части "ПодразделениеТаб"должен заполняться реквизитом "Подразделение" из шапки документа
			 
			 // Заполняю табличную часть    Подразделения 
			 НоваяСтрока.ПодразделениеТаб=переменПодразделение;
			 
			 
			 // Заполняю Сценарии
			 Если НомерСтрокиСчитывания<=ВсегоЭлементовСценарии Тогда
				 переменСценарии=Справочники.Подразделения.НайтиПоКоду(Формат(НомерСтрокиСчитывания,"ЧЦ=9; ЧРГ=; ЧВН=; ЧГ=; ЧФ=Ч"));
				 НоваяСтрока.Сценарии=переменСценарии; 
				 НомерСтрокиСчитывания=НомерСтрокиСчитывания+1;
			 КонецЕсли;
			 
			
		 КонецЦикла;
	 
	 Иначе
		 
		 НомерСтрокиСчитывания=1;
	 	Пока ВыборкаСценарии.Следующий() Цикл
		
			 НоваяСтрока=ДокНов.Сценарии.Добавить();

		     переменСценарии=ВыборкаСценарии;
			 
		     // Заполняю табличную часть    Сценарии 
			 НоваяСтрока.Сценарии=переменСценарии;
			 
			 
			 // Заполняю Подразделение
			 Если НомерСтрокиСчитывания<=ВсегоЭлементовПодразделения Тогда
				 переменПодразделение=Справочники.Подразделения.НайтиПоКоду(Формат(НомерСтрокиСчитывания,"ЧЦ=9; ЧРГ=; ЧВН=; ЧГ=; ЧФ=Ч"));
				 НоваяСтрока.ПодразделениеТаб=переменПодразделение; 
				 ДокНов.Подразделения=переменПодразделение;  // по условию задачи реквизит таб части "ПодразделениеТаб"должен заполняться реквизитом "Подразделение" из шапки документа
			 
				 НомерСтрокиСчитывания=НомерСтрокиСчитывания+1;
			 КонецЕсли;
			

		КонецЦикла;

		 
	 КонецЕсли;	 
	 ДокНов.Записать();
[/IS-QUOTE]

Accepted Answer

(5)
плюс присваивает другой тип. СправочникВыборка - а надо СправочникСсылку.

[CODE]Пока ВыборкаПодразделения.Следующий() Цикл
	
	НоваяСтрока = ДокНов.Сценарии.Добавить();
	
	//переменПодразделение=ВыборкаПодразделения;
	
	ДокНов.Подразделения = ВыборкаПодразделения.Ссылка; // по условию задачи реквизит таб части "ПодразделениеТаб"должен заполняться реквизитом "Подразделение" из шапки документа
	
	// Заполняю табличную часть Подразделения
	НоваяСтрока.ПодразделениеТаб = ВыборкаПодразделения.Ссылка;
	
	// Заполняю Сценарии
	Если НомерСтрокиСчитывания <= ВсегоЭлементовСценарии Тогда
		переменСценарии = Справочники.Сценарии.НайтиПоКоду(Формат(НомерСтрокиСчитывания,"ЧЦ=9; ЧРГ=; ЧВН=; ЧГ=; ЧФ=Ч"));
		НоваяСтрока.Сценарии = переменСценарии;
		НомерСтрокиСчитывания = НомерСтрокиСчитывания+1;
	КонецЕсли;
	
КонецЦикла;[/CODE]