v8.2 УП: Внешняя печатная форма

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

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

	Запрос.УстановитьПараметр("ТекущийДокумент", 	СсылкаНаОбъект.Ссылка);

	Запрос.УстановитьПараметр("ДатаСреза",			СсылкаНаОбъект.Дата);

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

	"ВЫБРАТЬ

	|	Доверенность.Дата КАК ДатаДокумента,

	|	Доверенность.Организация,

	|	Доверенность.Организация.ЮрФизЛицо Как ЮрФизЛицо,

	|	Доверенность.ФизЛицо,

	|	ОтветственныеЛицаОрганизаций.Должность.Представление КАК Должность,

	|	Доверенность.ФизЛицо.Представление КАК КомуВыдана,

	|	Доверенность.Контрагент КАК Поставщик,

	|	Доверенность.НаПолучениеОт КАК ПоставщикПредставление,

	|	Доверенность.ДатаДействия,

	|	Доверенность.ПоДокументу,

	|	Доверенность.БанковскийСчетОрганизации.Банк КАК БанкОрганизации,

	|	Доверенность.БанковскийСчетОрганизации.НомерСчета КАК НомерРасчетногоСчетаОрганизации,

	|	Доверенность.БанковскийСчетОрганизации.Банк.Код КАК МФОБанкаОрганизации

	|ИЗ

	|	Документ.Доверенность КАК Доверенность

	|	ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(&ДатаСреза, ) КАК ОтветственныеЛицаОрганизаций

	|		ПО Доверенность.Организация = ОтветственныеЛицаОрганизаций.СтруктурнаяЕдиница

	|			И Доверенность.ФизЛицо 	= ОтветственныеЛицаОрганизаций.ФизическоеЛицо

	|ГДЕ

	|	Доверенность.Ссылка = &ТекущийДокумент";

	Шапка = Запрос.Выполнить().Выбрать();

	Шапка.Следующий();

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

	Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);

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

	"ВЫБРАТЬ

	|	НомерСтроки              КАК Номер,

	|	НаименованиеТовара       КАК Ценности,

	|	ЕдиницаПоКлассификатору.Представление КАК ЕдиницаИзмерения,

	|	Количество

	|ИЗ

	|	Документ.Доверенность.Товары КАК Доверенность

	|ГДЕ

	|	Доверенность.Ссылка = &ТекущийДокумент	

	|

	|УПОРЯДОЧИТЬ ПО

	|	Номер

	|";

	ВыборкаСтрокТовары = Запрос.Выполнить().Выбрать();

	ТабДокумент = Новый ТабличныйДокумент;

	ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Доверенность_Бланк";

	Макет = ПолучитьМакет("Доверенность");

	ФамилияИмяОтчествоФизЛица     = ФормированиеПечатныхФорм.ФамилияИмяОтчество(Шапка.ФизЛицо, Шапка.ДатаДокумента);

	ФамилияИмяОтчествоДоверенного = ФамилияИмяОтчествоФизЛица.Фамилия + " " + ФамилияИмяОтчествоФизЛица.Имя + " " + ФамилияИмяОтчествоФизЛица.Отчество;

	// печать производится на языке ИБ

	КодЯзыкаПечать = "uk";

	Макет.КодЯзыкаМакета = КодЯзыкаПечать;

	ПаспортФизЛица        = ОбщегоНазначения.ПаспортныеДанные(Шапка.ФизЛицо, Шапка.ДатаДокумента);

	СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента,,,КодЯзыкаПечать);

	ОбластьМакета = Макет.ПолучитьОбласть("ЛицеваяСторона");

	ОбластьМакета.Параметры.Заполнить(Шапка);

	Если СсылкаНаОбъект.ВидОперации = Перечисления.ВидыОперацийДоверенность.Доверенность Тогда

			ОбластьМакета.Параметры.Номер = ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект);

	КонецЕсли;	

	ОбластьМакета.Параметры.КомуВыдана 						 = СокрЛП(Строка(Шапка.Должность) + " " + ФамилияИмяОтчествоДоверенного);

	ОбластьМакета.Параметры.НазваниеОрганизации		 		 = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "ПолноеНаименование,", Ложь,КодЯзыкаПечать);

	Если Шапка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда

		ОбластьМакета.Параметры.ЕДРПОУОрганизации	     		 = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "КодПоЕДРПОУ,", Ложь,КодЯзыкаПечать);

	Иначе

		ОбластьМакета.Параметры.ЕДРПОУОрганизации	     		 = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "КодПоДРФО,", Ложь,КодЯзыкаПечать);	

	КонецЕсли;

	ОбластьМакета.Параметры.ЮридическийАдрес         		 = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "ЮридическийАдрес,", Ложь,КодЯзыкаПечать);

	Если НЕ ЗначениеЗаполнено(ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации) Тогда

		ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НомерСчета,", Ложь,КодЯзыкаПечать);

	КонецЕсли;

	Если НЕ ЗначениеЗаполнено(ОбластьМакета.Параметры.МФОБанкаОрганизации) Тогда

		ОбластьМакета.Параметры.МФОБанкаОрганизации	= ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "МФО,", Ложь,КодЯзыкаПечать);

	КонецЕСли;

	Если НЕ ЗначениеЗаполнено(ОбластьМакета.Параметры.БанкОрганизации) Тогда

		ОбластьМакета.Параметры.БанкОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "Банк,", Ложь,КодЯзыкаПечать);

	КонецЕсли;

	ОбластьМакета.Параметры.ПодтверждающийДокументВид     	 = ПаспортФизЛица.Вид;

	ОбластьМакета.Параметры.ПодтверждающийДокументСерия      = ПаспортФизЛица.Серия;

	ОбластьМакета.Параметры.ПодтверждающийДокументНомер      = ПаспортФизЛица.Номер;

	ОбластьМакета.Параметры.ПодтверждающийДокументКемВыдан   = ПаспортФизЛица.Выдан;

	ОбластьМакета.Параметры.ПодтверждающийДокументДатаВыдачи = ПаспортФизЛица.ДатаВыдачи;

	ТабДокумент.Вывести(ОбластьМакета);

	ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();

	ОбластьМакета = Макет.ПолучитьОбласть("ОбратнаяСторонаШапка");

	ТабДокумент.Вывести(ОбластьМакета);

	ОбластьМакета = Макет.ПолучитьОбласть("СтрокаСПереносом");	

	Пока ВыборкаСтрокТовары.Следующий() Цикл

		ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);

		ОбластьМакета.Параметры.КоличествоПрописью = ФормированиеПечатныхФорм.КоличествоПрописью(ВыборкаСтрокТовары.Количество, КодЯзыкаПечать);

		ТабДокумент.Вывести(ОбластьМакета);

	КонецЦикла;

		ОбластьМакета = Макет.ПолучитьОбласть("ОбратнаяСторонаПодвал");

		ТабДокумент.Вывести(ОбластьМакета);

	Возврат ТабДокумент;

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