v8.3: Вывод даты дата в макете прописью

 Процедура Печать(ТабДок, Ссылка) Экспорт

	//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

	Макет = Документы.Заявка.ПолучитьМакет("Макет");

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

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

	"ВЫБРАТЬ

	|	Заявка.ДатаЗаявки КАК ДатаЗаявки,

	|	Заявка.Номер КАК Номер,

	|	Заявка.ОбьектСтроительства КАК ОбьектСтроительства,

	|	Заявка.Составил КАК Составил,

	|	Заявка.Шифр КАК Шифр,

	|	Заявка.Материалы.(

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

	|		Номенклатура КАК Номенклатура,

	|		КоличествоКПолучению КАК КоличествоКПолучению,

	|		Номенклатура.ЕдИзм КАК НоменклатураЕдИзм,

	|		Номенклатура.Артикул1C КАК НоменклатураАртикул1C

	|	) КАК Материалы,

	|	Заявка.Составил.должность КАК Составилдолжность,

	|	NULL КАК Поле1,

	|	Заявка.Составил.доверенность КАК Составилдоверенность,

	|	Заявка.ОбьектСтроительства.Договор КАК ОбьектСтроительстваДоговор,

	|	Заявка.ОбьектСтроительства.ВидРабот КАК ОбьектСтроительстваВидРабот

	|{ВЫБРАТЬ

	|	ДатаЗаявки,

	|	Номер,

	|	ОбьектСтроительства.*,

	|	Составил.*,

	|	Шифр,

	|	Материалы,

	|	НоменклатураЕдИзм,

	|	НоменклатураАртикул1C}

	|ИЗ

	|	Документ.Заявка КАК Заявка

	|ГДЕ

	|	Заявка.Ссылка В(&Ссылка)";

	Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

		

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

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

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

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

	ТабДок.Очистить();

	ВставлятьРазделительСтраниц = Ложь;

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

		Если ВставлятьРазделительСтраниц Тогда

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

		КонецЕсли;



		ТабДок.Вывести(ОбластьЗаголовок);

		

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

		  

		ТабДок.Вывести(Шапка, Выборка.Уровень());

		ТабДок.Вывести(ОбластьМатериалыШапка);

		ВыборкаМатериалы = Выборка.Материалы.Выбрать();

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

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

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

		КонецЦикла;

	 	

		Подвал.Параметры.Заполнить(Выборка);

		ТабДок.Вывести(Подвал);

		ВставлятьРазделительСтраниц = Истина;

	КонецЦикла;

	//}}

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

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

Шапка.параметры.ДатаЗаявки = Формат(ДатаЗаявки, "ДФ=""дд ММММ гггг 'г.'""");