Процедура Выполнить()
Перем НачалоТекущегоПериода, КонецТекущегоПериода;
НачалоТекущегоПериода = Дата1;
КонецТекущегоПериода = Дата2 + 1;
таб=СоздатьОбъект("Таблица");
таб.ИсходнаяТаблица("Результаты");
ФизЛицо=СоздатьОбъект("Справочник.ФизическиеЛица");
Сотр=СоздатьОбъект("Справочник.Сотрудники");
Назнач=СоздатьОбъект("Справочник.Назначения");
Сотр.ВыбратьЭлементы();
кол=0;
Пока Сотр.ПолучитьЭлемент()>0 Цикл
Если (ПустоеЗначение(Сотр.ДатаОкончанияДействия)=0) Тогда
кол=кол+1;
ФизЛицо.НайтиЭлемент(Сотр.ТекущийЭлемент().ФизическоеЛицо);
Если ((Сотр.ДатаОкончанияДействия>=НачалоТекущегоПериода) И (Сотр.ДатаОкончанияДействия<КонецТекущегоПериода)) Тогда
Назнач.ИспользоватьВладельца(Сотр);
Назнач.ВыбратьЭлементы();
Пока Назнач.ПолучитьЭлемент()>0 Цикл
Если (Сотр.Подразделение=Подразделение) Тогда
таб.ВывестиСекцию("Результат");