Внешняя печатная форма ЗУП Кадровый перевод

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

	КонецЦикла;
	Возврат ТабДокумент;     
	
Конецфункции