Внешняя печатная форма "Расходная накладная"

Функция СведенияОВнешнейОбработке() Экспорт
	
	ПараметрыРегистрации = Новый Структура;
	ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма");
	ПараметрыРегистрации.Вставить("Назначение", ПолучитьНазначениеОбработки());
	ПараметрыРегистрации.Вставить("Наименование", "Макет");
	ПараметрыРегистрации.Вставить("Версия", "1.0");
	ПараметрыРегистрации.Вставить("Информация", "Расходная накладная с серией");
	ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
	Команды = ПолучитьТаблицуКоманд();
	ДобавитьКоманду(Команды, "Расходная накладная с серией", "РасходнаяНакладная", "ВызовСерверногоМетода", Ложь, "ПечатьMXL");
	ПараметрыРегистрации.Вставить("Команды", Команды);
	
	Возврат ПараметрыРегистрации;

КонецФункции // СведенияОВнешнейОбработке()


Функция ПолучитьНазначениеОбработки()
	Массив = Новый Массив;
	Массив.Добавить("Документ.РеализацияТоваровУслуг");
	
	Возврат Массив;
	Конецфункции

Функция ПолучитьТаблицуКоманд ()
	
	Команды=Новый ТаблицаЗначений;
	Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
	Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
	Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
	Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
	Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
	
	Возврат Команды;
	
КонецФункции

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