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

 // Код заполнения ТЧ

&НаСервере

Процедура ЗаполнитьДокументНаСервере()

	ДокОбъект = РеквизитФормыВЗначение("Объект");

	Запрос = Новый Запрос;

	Запрос.Текст = 

		"ВЫБРАТЬ РАЗЛИЧНЫЕ

		|	ЗаказНаПроизводствоПродукция.Ссылка КАК ЗаказНаПроизводство,

		|	СпецификацииОперации.Операция,

		|	СпецификацииОперации.W1C_КоличествоОпераций,

		|	СпецификацииОперации.W1C_СтоимостьОднойОперации

		|ПОМЕСТИТЬ втЗаказОперацияСумма

		|ИЗ

		|	Документ.ЗаказНаПроизводство.Продукция КАК ЗаказНаПроизводствоПродукция

		|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Спецификации.Операции КАК СпецификацииОперации

		|		ПО ЗаказНаПроизводствоПродукция.Спецификация = СпецификацииОперации.Ссылка

		|ГДЕ

		|	ЗаказНаПроизводствоПродукция.Ссылка В

		|			(ВЫБРАТЬ РАЗЛИЧНЫЕ

		|				W1C_ОтчетПоВыработкеНачисления.ЗаказПроизводство

		|			ИЗ

		|				Документ.W1C_ОтчетПоВыработке.Начисления КАК W1C_ОтчетПоВыработкеНачисления

		|			ГДЕ

		|				W1C_ОтчетПоВыработкеНачисления.Ссылка.Дата МЕЖДУ &ДатаН И &ДатаК)

		|;

		|

		|////////////////////////////////////////////////////////////////////////////////

		|ВЫБРАТЬ

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка.Организация,

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка.Сотрудник,

		|	W1C_ОтчетПоВыработкеНачисления.ЗаказПроизводство,

		|	W1C_ОтчетПоВыработкеНачисления.Операция,

		|	W1C_ОтчетПоВыработкеНачисления.КоличествоПродукции КАК Количество,

		|	втЗаказОперацияСумма.W1C_СтоимостьОднойОперации КАК Цена,

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка КАК ОтчетПоВыработке,

		|	втЗаказОперацияСумма.W1C_СтоимостьОднойОперации * W1C_ОтчетПоВыработкеНачисления.КоличествоПродукции КАК Сумма

		|ИЗ

		|	Документ.W1C_ОтчетПоВыработке.Начисления КАК W1C_ОтчетПоВыработкеНачисления

		|		ЛЕВОЕ СОЕДИНЕНИЕ втЗаказОперацияСумма КАК втЗаказОперацияСумма

		|		ПО W1C_ОтчетПоВыработкеНачисления.ЗаказПроизводство = втЗаказОперацияСумма.ЗаказНаПроизводство

		|			И W1C_ОтчетПоВыработкеНачисления.Операция = втЗаказОперацияСумма.Операция

		|ГДЕ

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка.Дата МЕЖДУ &ДатаН И &ДатаК

		|	И W1C_ОтчетПоВыработкеНачисления.Ссылка.Организация = &Организация";





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

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

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





	РезультатЗапроса = Запрос.Выполнить();

	ДокОбъект.Рассчет.Загрузить(Запрос.Выполнить().Выгрузить());

	ОбновитьВыплату(ДокОбъект); //заполним данными вторую ТЧ

	ЗначениеВРеквизитФормы(ДокОбъект, "Объект");



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



&НаСервере

Процедура ОбновитьВыплату(ДокОбъект)

врТЗ = ДокОбъект.Рассчет.Выгрузить();

врТЗ.свернуть("Сотрудник","Сумма");

ДокОбъект.Начисления.Загрузить(врТЗ);

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

 &НаСервере

 Процедура НайтиТопливоф()

    Запрос = Новый Запрос;

    Запрос.Текст = 

        "ВЫБРАТЬ

        |   СУММА(ПродажаТоплива.Номер) КАК Номер,

        |   ПродажаТоплива.ТипТоплива,

        |   СУММА(ПродажаТоплива.Количество) КАК Количество,

        |   СУММА(ПродажаТоплива.СуммаСНДС) КАК СуммаСНДС

        |ИЗ

        |   Документ.ПродажаТоплива КАК ПродажаТоплива

        |ГДЕ

        |   ПродажаТоплива.Цена <= &Цена

        |

        |СГРУППИРОВАТЬ ПО

        |   ПродажаТоплива.ТипТоплива";

 

    Запрос.УстановитьПараметр("Цена", Объект.Цена);

 

    Результат = Запрос.Выполнить();

     ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Объект.ТЧ.Очистить();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл  

 	 НовСтр = Объект.ТЧ.Добавить();

         ЗаполнитьЗначенияСвойств(НовСтр, ВыборкаДетальныеЗаписи); //при условии что имена полей ТЧ и выборки совпадают

    КонецЦикла;

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