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