v8: Заполнение табличной части документа.

 &НаКлиенте

Процедура Заполнить(Команда)

    СделатьЗаполнениеНаСервере();

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



&НаСервере

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



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

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

		"ВЫБРАТЬ

		|	Номенклатура.Ссылка

		|ИЗ

		|	Справочник.Номенклатура КАК Номенклатура";



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



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



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

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

		 НоваяСтрока.Номенклатура     = ВыборкаДетальныеЗаписи.Ссылка;



	КонецЦикла;

    	

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

   

 &НаКлиенте

Процедура СоздатьДокумент(Команда)



Форма = ПолучитьФорму(“Документ.Реализация.ФормаОбъекта”);

ДанныеФормы = Форма.Объект;

ЗаполнитьДокументНаСервере(ДанныеФормы);

КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);

Форма.Открыть();



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



&НаСервере

Функция ЗаполнитьДокументНаСервере(ДанныеФормы);



Док = ДанныеФормыВЗначение(ДанныеФормы, Тип(“ДокументОбъект.Реализация));



Для каждого Стр Из ТЗ Цикл

СтрДок = Док.Товары.Добавить();

СтрДок.Количество = Стр.Количество;

СтрДок.Номенклатура = Стр.Номенклатура;



КонецЦикла;



ЗначениеВДанныеФормы(Док,ДанныеФормы);



КонецФункции   

 &НаКлиенте

Процедура КомандаОткрытьФорму(Команда)

	Форма = ПолучитьФорму("Справочник.Пользователи.ФормаОбъекта");

	ДанныеФормы = Форма.Объект;

	ЗаполнитьНаСервере(ДанныеФормы);

	КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);

	Форма.Открыть();

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



&НаСервереБезКонтекста

Процедура ЗаполнитьНаСервере(НовыйОбъект);

        НовыйОбъект.Наименование = "Новый элемент";

	Для К=1 По 100 Цикл

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

		НоваяСтрока.РеквизитТЧ = К;

	КонецЦикла;

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