VPF::Вывод Иерархического справочника

Berserk

Дата 21.4.2010, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 14.12.2006
Где: Столица Донбасса - Горловка

Репутация: нет
Всего: 2

Помогите вывести данные из иерархического справочника в виде

Код


Родитель
   Сын
      Внук
      Внук
   Сын
      Внук
Родитель
    Сын
       Внук

1С 8.1, конфигурация не типовая

Как это можно сделать?

На данный момент программа, которая выводит не совсем в приемлимом виде:

Код


Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |    СтатьиДвиженияДенежныхСредств.Ссылка КАК Ссылка
    |ИЗ
    |    Справочник.СтатьиДвиженияДенежныхСредств КАК СтатьиДвиженияДенежныхСредств
    |
    |УПОРЯДОЧИТЬ ПО
    |    Ссылка
    |ИТОГИ ПО
    |    ОБЩИЕ,
    |    Ссылка ИЕРАРХИЯ";
....
ВыборкаСсылка = ВыборкаОбщийИтог.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаСсылка.Следующий() Цикл
        Если ВыборкаСсылка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоИерархии Тогда
            Область = ОбластьСсылкаИерархия;
        Иначе
            Область = ОбластьСсылка;
        КонецЕсли;

        Область.Параметры.Заполнить(ВыборкаСсылка);
        ТабДок.Вывести(Область);
    КонецЦикла;

Спасибо.

--------------------

Zero

Дата 24.4.2010, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24

На закладке "группировка" конструктора запросов, выбери те поля по которым хочешь получить группировку в нужной последовательности иерархии

Berserk

Дата 27.4.2010, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Вот что получилось:

Запрос прост до безобразия:

Код


"ВЫБРАТЬ
    |    СтатьиДвиженияДенежныхСредств.Ссылка КАК Ссылка
    |ИЗ
    |    Справочник.СтатьиДвиженияДенежныхСредств КАК СтатьиДвиженияДенежныхСредств
    |ИТОГИ ПО
    |    Ссылка ИЕРАРХИЯ";

Ну и вывод в цикле:

Код


ВыборкаСсылка = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    Пока ВыборкаСсылка.Следующий() Цикл
        Если ВыборкаСсылка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоИерархии Тогда
            Область = ОбластьСсылкаИерархия;
        Иначе
            Область = ОбластьСсылка;
        КонецЕсли;

        Область.Параметры.Заполнить(ВыборкаСсылка);
        ТабДок.Вывести(Область, ВыборкаСсылка.Уровень());
    КонецЦикла;

Так же как и раньше но не пойму почему раньше не работало

Остался один не приятный момент:

Вывод в следующем виде:

Код


Родитель1
   Родитель1
   Сын1
      Сын1
      Внук1
      Внук2
   Сын2
       Сын2
      Внук
Родитель2
    Родитель2
    Сын3
       Сын3
       Внук3

Повторение как-то не по делу.

Всем спасибо.

Это сообщение отредактировал(а) Berserk - 27.4.2010, 15:32

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »