Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
13 дек 2024, 12:50

НачатьГруппуСтрок

Автор 1cwiki, 25 июл 2015, 14:03

0 Пользователей и 1 гость просматривают эту тему.

1cwiki

Раздел
Общие объекты
Подразделы
Табличный документ
ТипСтатьи
Методы
Синтаксис:

НачатьГруппуСтрок(<ИмяГруппы>, <ОткрытаЛиГруппа>)
Параметры:

<ИмяГруппы> (необязательный)

Тип: Строка.
Название группы.
<ОткрытаЛиГруппа> (необязательный)

Тип: Булево.
Определяет необходимость открытия группы. Истина - выведенная группа будет открыта; Ложь - группа будет выведена в свернутом виде.
Значение по умолчанию: Истина.
Описание:

Начинает новую группу строк. Можно создавать вложенные группы строк.

Доступность:

Сервер, толстый клиент, внешнее соединение, мобильное приложение(сервер).
Пример:

ТабДок = Новый ТабличныйДокумент;
Секция = ТабДок.ПолучитьОбласть("R1");
Секция.Область("R1C1").Текст = "Численность сотрудников";
ТабДок.Вывести(Секция);
ТабДок.НачатьГруппуСтрок("По всем подразделениям", Истина);
Всего = 0;
Для Н=1 По 3 Цикл   
    Значение = Н; Итог = 0; 
    Секция.Область("R1C1").Текст = "Отдел "+Н;
    Секция.Область("R1C2").Текст = "";
    ТабДок.Вывести(Секция);
    ТабДок.НачатьГруппуСтрок("Отдел"+Н, Истина);
    Секция.Область("R1C1").Текст = "Группа";
    Секция.Область("R1C2").Текст = "Численность";
    Секция.Область("R1C2").ГоризонтальноеПоложение =
        ГоризонтальноеПоложение.Авто;
    ТабДок.Вывести(Секция);
    ТабДок.НачатьГруппуСтрок("Группа "+Н, Истина);
    Для К=1 По 4 Цикл
        Секция.Область("R1C1").Текст = "А"+Н+К;
        Секция.Область("R1C2").Текст = Значение;
        ТабДок.Вывести(Секция);
        Итог = Итог + Значение;
        Значение = Значение + 10;
    КонецЦикла;
    ТабДок.ЗакончитьГруппуСтрок(); // окончить группу "Группа"
    ТабДок.ЗакончитьГруппуСтрок(); // окончить группу "Отдел"
    Секция.Область("R1C1").Текст = "Итого"+Н;
    Секция.Область("R1C2").Текст = Итог;
    ТабДок.Вывести(Секция);
    Секция.Область("R1C1:R1C2").Текст = "";
    ТабДок.Вывести(Секция);
    Всего = Всего + Итог;
КонецЦикла;
ТабДок.ЗакончитьГруппуСтрок(); // окончить группу "По всем отделам"
Секция.Область("R1C1").Текст = "Всего:";
Секция.Область("R1C2").Текст = Всего;
ТабДок.Вывести(Секция);
ТабДок.ИтогиСнизу = Ложь;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Показать("Пример использования метода НачатьГруппуСтрок");



Теги:
Рейтинг@Mail.ru

Поиск