Из "Модуля управляемого приложения" обратиться к команде документа

Функция ФормируемДокументПередачиСкупленныхЦенностей(ТипЦенности)  Экспорт
    //Создаем перемещение Скупленных ценностей в офис Металл
	Документ = Документы.ПередачаСкупленныхЦенностейВЦО.СоздатьДокумент();
	Документ.Организация = Константы.ОрганизацияПоУмолчаниюДляСкупки.Получить();
	Документ.Филиал = Константы.ПодразделениеПоУмолчанию.Получить();
	Документ.Дата =ТекущаяДата();
	Документ.ТипЦенностей = ТипЦенности;
	ЗаполнитьФорму(Документ);
	Возврат Документ;
КонецФункции

Процедура ЗаполнитьФорму(Документ)
	ДанныеВДокументе = Ложь;
	День = 60*60*24;	
	
	Если Документ.ТипЦенностей = 2 Тогда
		ТипСкупаемойЦенности = 2;
	ИначеЕсли Документ.ТипЦенностей = 1 Тогда
		ТипСкупаемойЦенности = 1;
	
	КонецЕсли;

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

Функция ПолучитьДанные() Экспорт 

	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	СкупленныеЦенности.ДатаСкупки,
		|	СкупленныеЦенности.ТипСкупаемойЦенности
		|ИЗ
		|	РегистрСведений.СкупленныеЦенности КАК СкупленныеЦенности
		|ГДЕ
		|	СкупленныеЦенности.ДатаСкупки МЕЖДУ &НачалоПрошлойНедели И &КонецПрошлойНедели";
	
	Запрос.УстановитьПараметр("КонецПрошлойНедели", КонецНедели(НачалоДня(ТекущаяДата())-1));
	Запрос.УстановитьПараметр("НачалоПрошлойНедели", НачалоНедели(НачалоДня(ТекущаяДата())-1));
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	ТипСкупленныхЦенностей = Новый Массив;
	Тип = Неопределено;
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		НовыйТип = ВыборкаДетальныеЗаписи.ТипСкупаемойЦенности;
		Если НовыйТип <> Тип Тогда
		
			ТипСкупленныхЦенностей.Добавить(ВыборкаДетальныеЗаписи.ТипСкупаемойЦенности);
		
		КонецЕсли; 
		ДанныеСуществуют = Истина;
		Тип = НовыйТип;
	КонецЦикла;
Возврат ТипСкупленныхЦенностей;
КонецФункции

ТабДок = Новый ТабличныйДокумент;
		ОбщиеДанныеСервер.ТоварнаяНакладная(ТабДок);
		ТабДок.АвтоМасштаб = Истина;
		ТабДок.ОтображатьСетку = Ложь;
		ТабДок.Защита = Ложь;
		ТабДок.ТолькоПросмотр = Ложь;
		ТабДок.КоличествоЭкземпляров = 3;
		ТабДок.ОтображатьЗаголовки = Ложь;
		ТабДок.Напечатать();
		
		ТабДок = Новый ТабличныйДокумент;
		ОбщиеДанныеСервер.Реестр(ТабДок);
		ТабДок.АвтоМасштаб = Истина;
		ТабДок.ОтображатьСетку = Ложь;
		ТабДок.Защита = Ложь;
		ТабДок.ТолькоПросмотр = Ложь;
		ТабДок.ОтображатьЗаголовки = Ложь;
		ТабДок.КоличествоЭкземпляров = 1;
		ТабДок.Напечатать();