Не формирует табличный документ ВнешняяОбработка Локальная - Клиент-Сервер

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт

УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
УказатьНаименованиеКомандыПечати(),
УказатьНаименованиеВнешнейПечатнойФормы(),
ПечатьФормы(МассивОбъектов, ОбъектыПечати, КоллекцияПечатныхФорм, ПараметрыВывода));

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

Функция ПечатьФормы(МассивОбъектов, ОбъектыПечати, КомплектыПечати, ПараметрыПечати)
	
	
	Макет = ПолучитьМакет("МакетОтчета");
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	
		
	Первый = Истина;
		
	Для ИндексМассива = 0 По МассивОбъектов.Количество()-1 Цикл
		
			
			Если НЕ Первый Тогда 
				ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			Иначе
				Первый = Ложь;
			КонецЕсли;
					
			Документ = МассивОбъектов[ИндексМассива];
			
// ВЫВОД ШАПКИ ******************************************************		
			Область = Макет.ПолучитьОбласть("Шапка");
			Организация = Документ.Организация;
			
			Область.Параметры.НазваниеОрганизации = Организация.НаименованиеПолное;
			Область.Параметры.КодОКПО = Организация.КодПоОКПО;
			
			НомерДок = СокрЛП(ЗарплатаКадрыОтчеты.НомерНаПечать(Документ.Номер));
			Область.Параметры.НомерДок = ?(ЗначениеЗаполнено(НомерДок),НомерДок,СокрЛП(Документ.Номер));
			                                                                                             
			Область.Параметры.ДатаДок = Формат(Документ.Дата,"ДЛФ=Д");
			Область.Параметры.Начисление = Документ.Начисление;
			ПриказО = "поощрении работников";   
			ВШапкуПриказа = "";
			МотивПоощрения = "";
			ГлавномуБухгалтеру = "";
			Для каждого СтрокаТЧ из Документ.ДополнительныеРеквизиты Цикл
				Если СтрокаТЧ.Свойство.Имя = "ПриказО" Тогда
					ПриказО = СтрокаТЧ.Значение;
				ИначеЕсли СтрокаТЧ.Свойство.Имя = "ВШапкуПриказа" Тогда
					ВШапкуПриказа = СтрокаТЧ.Значение;
				ИначеЕсли СтрокаТЧ.Свойство.Имя = "МотивПоощрения" Тогда
					МотивПоощрения = СтрокаТЧ.Значение;
				ИначеЕсли СтрокаТЧ.Свойство.Имя = "ГлавномуБухгалтеру" Тогда
					ГлавномуБухгалтеру = СтрокаТЧ.Значение;
				КонецЕсли;	
			КонецЦикла;
			Область.Параметры.ПриказО = ПриказО;
			Область.Параметры.ВШапкуПриказа = ВШапкуПриказа;
			Область.Параметры.МотивПоощрения = МотивПоощрения;
	
			НаименованиеВеличины = "Размер, %";
			Если Документ.ПоказателиСотрудников.Количество() > 0 Тогда
				ПерваяСтрокаПоказателиСотрудников = Документ.ПоказателиСотрудников.Получить(0);
				Если ПерваяСтрокаПоказателиСотрудников.Показатель.ТипПоказателя = Перечисления.ТипыПоказателейРасчетаЗарплаты.Денежный Тогда
					НаименованиеВеличины = "Сумма, руб";
				КонецЕсли;	
			Иначе  НаименованиеВеличины = "Стаж непрерывной работы на " + Формат(Документ.Дата,"ДЛФ=Д");   
			КонецЕсли;	
			Область.Параметры.НаименованиеВеличины = НаименованиеВеличины;
	
			ТабличныйДокумент.Вывести(Область);
			
// ВЫВОД СОТРУДНИКОВ *************************************************	
			Для Каждого ТекСтрока Из Документ.Сотрудники Цикл 
				Сотрудник = ТекСтрока.Сотрудник;
				ИдентификаторСтрокиСотрудника = ТекСтрока.ИдентификаторСтрокиСотрудника;
				Величина = 0;
				Для каждого СтрокаПоказатели Из Документ.ПоказателиСотрудников Цикл
					Если ИдентификаторСтрокиСотрудника = СтрокаПоказатели.ИдентификаторСтрокиСотрудника Тогда
						Величина = СтрокаПоказатели.Значение;
						Прервать;
				    КонецЕсли;
				КонецЦикла;	
				
				ЗапросСотр = Новый Запрос;
				ЗапросСотр.Текст = 
				"ВЫБРАТЬ
				|	КадроваяИсторияСотрудниковИнтервальный.Сотрудник КАК Сотрудник,
				|	КадроваяИсторияСотрудниковИнтервальный.Подразделение КАК Подразделение,
				|	КадроваяИсторияСотрудниковИнтервальный.Должность КАК Должность
				|ИЗ
				|	РегистрСведений.КадроваяИсторияСотрудниковИнтервальный КАК КадроваяИсторияСотрудниковИнтервальный				
				|			
				|ГДЕ
				|	КадроваяИсторияСотрудниковИнтервальный.ГоловнаяОрганизация = &ГоловнаяОрганизация
				|	И КадроваяИсторияСотрудниковИнтервальный.Сотрудник = &Сотрудник
				|   И &ДатаПриказа МЕЖДУ КадроваяИсторияСотрудниковИнтервальный.ДатаНачала И КадроваяИсторияСотрудниковИнтервальный.ДатаОкончания
				|";
				ЗапросСотр.УстановитьПараметр("ГоловнаяОрганизация", Организация.ГоловнаяОрганизация);
				ЗапросСотр.УстановитьПараметр("Сотрудник", Сотрудник);
				ЗапросСотр.УстановитьПараметр("ДатаПриказа", Документ.Дата);
				Попытка
					РезультатЗапросаСотр = ЗапросСотр.Выполнить();
				Исключение
					Сообщить("Не удалось выполнить запрос по сотр");
				КонецПопытки;
				ТаблицаЗначений = РезультатЗапросаСотр.Выгрузить();  
					Должность	= Справочники.Должности.ПустаяСсылка();
					Подразделение	= Справочники.ПодразделенияОрганизаций.ПустаяСсылка();
				Для каждого СтрокаТабл Из ТаблицаЗначений Цикл
					Должность	= СтрокаТабл.Должность;
					Подразделение	= СтрокаТабл.Подразделение;
		        КонецЦикла;
			
				Область = Макет.ПолучитьОбласть("Сотр");
				Область.Параметры.ФИО = Сотрудник.Наименование;
				
				ТабНомер = СокрЛП(ЗарплатаКадрыОтчеты.ТабельныйНомерНаПечать(Сотрудник.Код));
				ТабНомер = ТабНомБезНулей(ТабНомер);
				Область.Параметры.ТабНомер = СокрЛП(ТабНомер);
				Область.Параметры.Подразделение = СокрЛП(Подразделение.Наименование);
				Область.Параметры.Должность 	= СокрЛП(Должность.Наименование);
				Если Документ.ПоказателиСотрудников.Количество() > 0 Тогда
					Если ПерваяСтрокаПоказателиСотрудников.Показатель.ТипПоказателя = Перечисления.ТипыПоказателейРасчетаЗарплаты.Денежный Тогда
						Область.Параметры.Величина  	= Формат(Величина, "ЧЦ=10; ЧДЦ=2");
					Иначе
						Область.Параметры.Величина  	= Формат(Величина) + " %";
					КонецЕсли;	
				Иначе
					СведенияОСтажах = КадровыйУчетРасширенныйВызовСервера.СведенияОСтажахСотрудника(Сотрудник, Документ.Дата);
					Для Каждого ТекСтрокаСтажа Из СведенияОСтажах Цикл 
						Если ТекСтрокаСтажа.Ключ.Наименование = "Стаж непрерывной работы" Тогда
							Область.Параметры.Величина = Формат(ТекСтрокаСтажа.Значение.Лет) + " лет " + Формат(ТекСтрокаСтажа.Значение.Месяцев) + " месяцев " + Формат(ТекСтрокаСтажа.Значение.Дней) + " дней";
							КонецЕсли;	
					КонецЦикла;
				КонецЕсли;	
				
				Область.Параметры.Период = "  " + Формат(ТекСтрока.ДатаНазначения,"ДЛФ=Д") + " - " + Формат(ТекСтрока.ДатаОкончания,"ДЛФ=Д");
				
				ТабличныйДокумент.Вывести(Область);
				
			КонецЦикла;
			
// ВЫВОД ПОДВАЛА **************************************************************			
			Область = Макет.ПолучитьОбласть("Подвал");
			Область.Параметры.ГлавномуБухгалтеру = СокрЛП(ГлавномуБухгалтеру);
			
			ДолжностьОтветственного	= "";
			ФИООтветственного = "";
			Ответственный = Документ.Ответственный;
			ДатаОтчета = Документ.Дата;
						
			ОтветственныеЛица = Новый Структура("Организация,Руководитель,ДолжностьРуководителя,РуководительКадровойСлужбы,ДолжностьРуководителяКадровойСлужбы,ГлавныйБухгалтер", Документ.Организация);
			ЗарплатаКадры.ПолучитьЗначенияПоУмолчанию(ОтветственныеЛица, ДатаОтчета);
			МассивФизЛиц = Новый Массив;
			МассивФизЛиц.Добавить(ОтветственныеЛица.Руководитель);
			МассивФизЛиц.Добавить(ОтветственныеЛица.ГлавныйБухгалтер);
			МассивФизЛиц.Добавить(ОтветственныеЛица.РуководительКадровойСлужбы);
			Если ЗначениеЗаполнено(Ответственный) Тогда
				МассивФизЛиц.Добавить(Ответственный);
			КонецЕсли;
			
			ФИОФизЛиц = ЗарплатаКадры.СоответствиеФИОФизЛицСсылкам(ДатаОтчета, МассивФизЛиц);
			ФИОРуководителя = ФИОФизЛиц[ОтветственныеЛица.Руководитель];
			ФИОГлавногоБухгалтера = ФИОФизЛиц[ОтветственныеЛица.ГлавныйБухгалтер];
			ФИОРуководителяКадровойСлужбы = ФИОФизЛиц[ОтветственныеЛица.РуководительКадровойСлужбы];
			ДолжностьРуководителя = ?(ОтветственныеЛица.ДолжностьРуководителя = Неопределено, "", ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ОтветственныеЛица.ДолжностьРуководителя, "Наименование"));
			ДолжностьРуководителяКадровойСлужбы = ?(ОтветственныеЛица.ДолжностьРуководителяКадровойСлужбы = Неопределено, "", ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ОтветственныеЛица.ДолжностьРуководителяКадровойСлужбы, "Наименование"));
			Если ЗначениеЗаполнено(Ответственный) Тогда
				СтруктураФИО = Новый Структура("Фамилия,Имя,Отчество");
				ЗаполнитьЗначенияСвойств(СтруктураФИО, Ответственный.ФизическоеЛицо);
				ФИООтветственного = ФизическиеЛицаЗарплатаКадрыКлиентСервер.ФамилияИнициалы(СтруктураФИО);
			КонецЕсли;		
						
			ФИОГлавногоБухгалтераВДатПадеже = "";
			ФИОГлавногоБухгалтера = ФизическиеЛицаЗарплатаКадрыКлиентСервер.ФамилияИнициалы(ФИОГлавногоБухгалтера);   
			Пол = ОтветственныеЛица.ГлавныйБухгалтер.Пол;
			РезультатСклонения = "";
			Если ФизическиеЛицаЗарплатаКадры.Просклонять(ОтветственныеЛица.ГлавныйБухгалтер, 5, РезультатСклонения, Пол) Тогда
				ФИОГлавногоБухгалтераВДатПадеже = ФизическиеЛицаЗарплатаКадрыКлиентСервер.ФамилияИнициалы(РезультатСклонения);
			КонецЕсли;
			Область.Параметры.ФИОГлавногоБухгалтераВДатПадеже = ФИОГлавногоБухгалтераВДатПадеже;
			Область.Параметры.ФИОРуководителяКадровойСлужбы = ФизическиеЛицаЗарплатаКадры.РасшифровкаПодписи(ОтветственныеЛица.РуководительКадровойСлужбы);
			Область.Параметры.ДолжностьРуководителя = СокрЛП(ДолжностьРуководителя);
			Область.Параметры.ФИОРуководителя	= ФизическиеЛицаЗарплатаКадры.РасшифровкаПодписи(ОтветственныеЛица.Руководитель);
ТабличныйДокумент.Вывести(Область);
	
	КонецЦикла;
	
	ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	ТабличныйДокумент.ПолеСверху = 5;
	ТабличныйДокумент.ПолеСнизу = 5;
	ТабличныйДокумент.ПолеСлева = 10;
	ТабличныйДокумент.ПолеСправа = 5;
	
	ТабличныйДокумент.АвтоМасштаб = Истина;
	ТабличныйДокумент.ОтображатьСетку = Ложь;
	

	Возврат ТабличныйДокумент;

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