102
ВыборкаДетальныеЗаписи = ВыборкаФизлицо.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьДетальныхЗаписей,
ВыборкаДетальныеЗаписи.Уровень());
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
КонецПроцедуры
Процедура ВыбПериодНажатие(Элемент)
НастройкаПериода = Новый НастройкаПериода;
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Истина;
НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
НастройкаПериода.УстановитьПериод(Дата1, ?(Дата2='0001-01-01', Дата2,
КонецДня(Дата2)));
Если НастройкаПериода.Редактировать() Тогда
Дата1 = НастройкаПериода.ПолучитьДатуНачала();
Дата2 = НастройкаПериода.ПолучитьДатуОкончания();
КонецЕсли;
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый запрос;
Запрос.Текст =
103
"ВЫБРАТЬ
| ФизическиеЛица.Ссылка
|ИЗ
| Справочник.ФизическиеЛица КАК ФизическиеЛица
|ГДЕ
| ФизическиеЛица.Ссылка В ИЕРАРХИИ(&группа)
| И ФизическиеЛица.ЭтоГруппа = ЛОЖЬ";
Запрос.УстановитьПараметр("группа",ЭтаФорма.Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Ссылка = Выборка.Ссылка;
Объект = Ссылка.ПолучитьОбъект();
Объект.Отдел = ЭтаФорма.ЭлементыФормы.ОтделФЛ.Значение.Ссылка;
Объект.Записать();
КонецЦикла;
КонецПроцедуры
