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