Запрос через функцию

Запрос через функцию

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