1c

&НаСервере
Процедура ПолучитьПодписи()
	Если ЗначениеЗаполнено(Объект.Подразделение) Тогда
	Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
		Если ЗначениеЗаполнено(Объект.ПериодРегистрации) Тогда
			ПредыдущийМесяц = ДобавитьМесяц(Объект.ПериодРегистрации,-1);
			Запрос = Новый Запрос;
			Запрос.Текст =
			"ВЫБРАТЬ
			|	ТабельУчетаРабочегоВремени.Руководитель КАК Руководитель,
			|	ТабельУчетаРабочегоВремени.ДолжностьРуководителя КАК ДолжностьРуководителя,
			|	ТабельУчетаРабочегоВремени.РаботникКадровойСлужбы КАК РаботникКадровойСлужбы,
			|	ТабельУчетаРабочегоВремени.ДолжностьРаботникаКадровойСлужбы КАК ДолжностьРаботникаКадровойСлужбы,
			|	ТабельУчетаРабочегоВремени.Исполнитель КАК Исполнитель,
			|	ТабельУчетаРабочегоВремени.ДолжностьИсполнителя КАК ДолжностьИсполнителя,
			|	ТабельУчетаРабочегоВремени.Ответственный КАК Ответственный
			|ИЗ
			|	Документ.ТабельУчетаРабочегоВремени КАК ТабельУчетаРабочегоВремени
			|ГДЕ
			|	ТабельУчетаРабочегоВремени.ПериодРегистрации = &ПредыдущаяДата
			|	И ТабельУчетаРабочегоВремени.Подразделение = &Подразделение";

			Запрос.УстановитьПараметр("Подразделение", Объект.Подразделение);
			Запрос.УстановитьПараметр("ПредыдущаяДата", ПредыдущийМесяц);

			РезультатЗапроса = Запрос.Выполнить();

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

			Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
				Объект.Руководитель = Неопределено;
				Объект.ДолжностьРуководителя= Неопределено;
				Объект.РаботникКадровойСлужбы= Неопределено;
				Объект.ДолжностьРаботникаКадровойСлужбы= Неопределено;
				Объект.Исполнитель= Неопределено;
				Объект.ДолжностьИсполнителя= Неопределено;
				Объект.Ответственный= Неопределено;

				Объект.Руководитель = ВыборкаДетальныеЗаписи.Руководитель;
				Объект.ДолжностьРуководителя = ВыборкаДетальныеЗаписи.ДолжностьРуководителя;
				Объект.РаботникКадровойСлужбы = ВыборкаДетальныеЗаписи.РаботникКадровойСлужбы;
				Объект.ДолжностьРаботникаКадровойСлужбы = ВыборкаДетальныеЗаписи.ДолжностьРаботникаКадровойСлужбы;
				Объект.Исполнитель = ВыборкаДетальныеЗаписи.Исполнитель;
				Объект.ДолжностьИсполнителя = ВыборкаДетальныеЗаписи.ДолжностьИсполнителя;
				Объект.Ответственный = ВыборкаДетальныеЗаписи.Ответственный;
			КонецЦикла;
		КонецЕсли;
	КонецЕсли;
	КонецЕсли;
КонецПроцедуры