Как заполнить табличную часть формы программно?

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


	Запрос.УстановитьПараметр("ДатаК", КонецМесяца(ДокОбъект.ПериодРегистрации));
	Запрос.УстановитьПараметр("ДатаН", НачалоМесяца(ДокОбъект.ПериодРегистрации));
	Запрос.УстановитьПараметр("Организация", ДокОбъект.Организация);


	РезультатЗапроса = Запрос.Выполнить();
	ДокОбъект.Рассчет.Загрузить(Запрос.Выполнить().Выгрузить());
	ОбновитьВыплату(ДокОбъект); //заполним данными вторую ТЧ
	ЗначениеВРеквизитФормы(ДокОбъект, "Объект");

КонецПроцедуры

&НаСервере
Процедура ОбновитьВыплату(ДокОбъект)
врТЗ = ДокОбъект.Рассчет.Выгрузить();
врТЗ.свернуть("Сотрудник","Сумма");
ДокОбъект.Начисления.Загрузить(врТЗ);
КонецПроцедуры   

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