Набор записей регистра в виде иерархии по одному из измерений

21.12.11

Разработка - Механизмы платформы 1С

Дано: Регистр сведений, одно из измерений которого - иерархический справочник.

Цель: Отображение в Управляемой форме данных регистра с группировкой по иерархии этого измерения. Причем отображаются только те группы, которые содержат элементы.

Пример: привяжем к справочнику "Организации" города , которые будем отображать с иерархией : Область/Город.

Создадим Р.С. (регистр сведений) с 2-мя измерениями : СтруктурнаяЕдиница (Тип:СправочникСсылка.Организации) у которого "включим" свойство "ведущий"  для того, чтобы можно было перейти из справочника Организации в набор записей Р.С.

Второе измерение: какой-нибудь иерархиический справочник городов.

В Управляемой форме Набора Записей Р.С. для основоного реквизита "Список" укажем, что это будет произвольный запрос, и в качестве Основной таблицы выберем наш справочник городов. (см.скрин). В модуле формы напишем несколько обработчиков событий формы.(см.листинг).

Ставим отображение в свойствах : список,  и при создании формы на сервере накладываем отбор на поле Ссылка списком родителей всех элементов справочника городов, принадлежащих конкретной Организации. Таким образом, при открытии мы видим самый верхний уровень справочника городов и только те группы, которые содержат города. При выборе элемента в списке проверяем : если это группа и текущее отображение - список, то меняем отображение на иерархический список и в качестве текущего родителя укажем выбранный элемент - эффект раскрытия группы, если же текущее отображение - иерархический список, меняем его на список и накладываем отбор списком родителей - переход на верхний уровень. Так же создадим команды добавление и удаление городов для конкретной Организации. Пример ,наверное, можно усложнить, если в справочнике городов уровней будет больше 2.

 

 

 


&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

   
//Вставить содержимое обработчика

   
Если Параметры.Отбор.Количество() > 0 Тогда



        Для каждого
пОтбор из Параметры.Отбор Цикл



            Если
пОтбор.Ключ = "СтруктурнаяЕдиница" Тогда

               
Параметры.СтруктурнаяЕдиница    =   пОтбор.Значение;

            КонецЕсли;

        КонецЦикла;

       
Параметры.Отбор.Очистить();

    КонецЕсли;

   
Параметры.СписокГородов.Очистить();

   
Параметры.списокГрупп.Очистить();

   
Параметры.СписокГородов.ЗагрузитьЗначения(УстановитьОтбор(Параметры.СтруктурнаяЕдиница,Параметры.списокГрупп));



   
Отбор   =   Список.Отбор.Элементы;

   
Отбор.Очистить();

   
УсловиеОтбора                   =   Отбор.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

   
УсловиеОтбора.ЛевоеЗначение     =   Новый ПолеКомпоновкиДанных("Ссылка");

   
УсловиеОтбора.ВидСравнения      =   ВидСравненияКомпоновкиДанных.ВСписке;

   
УсловиеОтбора.ПравоеЗначение    =   Параметры.списокГрупп;

КонецПроцедуры



&НаКлиенте

Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)

   
// Вставить содержимое обработчика.

   
СтандартнаяОбработка    =   Ложь;

    Если НЕ(
ВыбраннаяСтрока = Неопределено) И ЗначениеЗаполнено(ВыбраннаяСтрока) И ВыбраннаяСтрока.ЭтоГруппа Тогда

        Если
Элементы.Список.Отображение    = ОтображениеТаблицы.Список Тогда

           
Элементы.Список.Отображение = ОтображениеТаблицы.ИерархическийСписок;

           
Элементы.Список.ТекущийРодитель =   ВыбраннаяСтрока;

           
Отбор   =   Список.Отбор.Элементы;

           
Отбор.Очистить();

           
УсловиеОтбора                   =   Отбор.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

           
УсловиеОтбора.ЛевоеЗначение     =   Новый ПолеКомпоновкиДанных("Ссылка");

           
УсловиеОтбора.ВидСравнения      =   ВидСравненияКомпоновкиДанных.ВСписке;

           
УсловиеОтбора.ПравоеЗначение    =   Параметры.СписокГородов;

        ИначеЕсли
Элементы.Список.Отображение   = ОтображениеТаблицы.ИерархическийСписок Тогда

           
Элементы.Список.Отображение     =   ОтображениеТаблицы.Список;

           
Элементы.Список.ТекущийРодитель =   Неопределено;

           
Отбор                           =   Список.Отбор.Элементы;

           
Отбор.Очистить();

           
УсловиеОтбора                   =   Отбор.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

           
УсловиеОтбора.ЛевоеЗначение     =   Новый ПолеКомпоновкиДанных("Ссылка");

           
УсловиеОтбора.ВидСравнения      =   ВидСравненияКомпоновкиДанных.ВСписке;

           
УсловиеОтбора.ПравоеЗначение    =   Параметры.списокГрупп;



        КонецЕсли;

    КонецЕсли;

КонецПроцедуры





&НаКлиенте

Процедура Добавить(Команда)

   
// Вставить содержимое обработчика.

   
Форма   =   Справочники.КонтТерритории.ПолучитьФормуВыбора(,ЭтаФорма);

    Если НЕ
Элементы.Список.ТекущаяСтрока   =   Неопределено Тогда

        Если
Элементы.Список.ТекущаяСтрока.ЭтоГруппа Тогда

           
Спр =   Справочники.КонтТерритории.Выбрать(Элементы.Список.ТекущаяСтрока);

            Пока
Спр.Следующий() и НЕ СПР.ЭтоГруппа Цикл

               
Форма.ПараметрТекущаяСтрока = СПР.Ссылка;

                Прервать;

            КонецЦикла;

        КонецЕсли;



        Если НЕ
ЗначениеЗаполнено(Форма.ПараметрТекущаяСтрока) Тогда

           
Форма.ПараметрТекущаяСтрока = Элементы.Список.ТекущаяСтрока;

        КонецЕсли;

    КонецЕсли;

    Если НЕ
ЗначениеЗаполнено(Форма.ПараметрТекущаяСтрока) и ЗначениеЗаполнено(Элементы.Список.ТекущийРодитель) Тогда

       
Спр =   Справочники.КонтТерритории.Выбрать(Элементы.Список.ТекущийРодитель);

        Пока
Спр.Следующий() и НЕ СПР.ЭтоГруппа Цикл

           
Форма.ПараметрТекущаяСтрока = СПР.Ссылка;

            Прервать;

        КонецЦикла;

    КонецЕсли;



   
Форма.ПараметрВыборГруппИЭлементов =    ИспользованиеГруппИЭлементов.Элементы;

   
Выбор   =   Форма.ОткрытьМодально();

    Если НЕ(
Выбор   =   Неопределено) и НЕ(ВыБОР    =   Справочники.КонтТерритории.ПустаяСсылка()) Тогда

       
//Отбор                     =   Список.Отбор.Элементы;

       
Запись                      =   РегистрыСведений.ТН_ФилиалГород.СоздатьМенеджерЗаписи();

       
Запись.Город                =   Выбор;

       
Запись.СтруктурнаяЕдиница  =    Параметры.СтруктурнаяЕдиница;

       
Запись.Прочитать();

        Если НЕ
Запись.Выбран() Тогда

           
Запись                      =   РегистрыСведений.ТН_ФилиалГород.СоздатьМенеджерЗаписи();

           
Запись.Город                    =   Выбор;

           
Запись.СтруктурнаяЕдиница   =   Параметры.СтруктурнаяЕдиница;

           
Запись.Записать();

           
ОповеститьОбИзменении(Тип("СправочникСсылка.КонтТерритории"));

            Если
Элементы.Список.Отображение     =   ОтображениеТаблицы.ИерархическийСписок Тогда

               
Параметры.СписокГородов.Очистить();

               
Параметры.списокГрупп.Очистить();

               
Параметры.СписокГородов.ЗагрузитьЗначения(УстановитьОтбор(Параметры.СтруктурнаяЕдиница,Параметры.списокГрупп));

               
Элементы.Список.Отображение     =   ОтображениеТаблицы.ИерархическийСписок;

               
Элементы.Список.ТекущийРодитель =   Запись.Город.Родитель;

               
Элементы.Список.ТекущаяСтрока   =   Запись.Город;

               
Отбор   =   Список.Отбор.Элементы;

               
Отбор.Очистить();

               
УсловиеОтбора                   =   Отбор.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

               
УсловиеОтбора.ЛевоеЗначение     =   Новый ПолеКомпоновкиДанных("Ссылка");

               
УсловиеОтбора.ВидСравнения      =   ВидСравненияКомпоновкиДанных.ВСписке;

               
УсловиеОтбора.ПравоеЗначение    =   Параметры.СписокГородов;

            Иначе

               
Параметры.СписокГородов.Очистить();

               
Параметры.списокГрупп.Очистить();

               
Параметры.СписокГородов.ЗагрузитьЗначения(УстановитьОтбор(Параметры.СтруктурнаяЕдиница,Параметры.списокГрупп));
               
Элементы.Список.Отображение     =   ОтображениеТаблицы.Список;

               
Отбор   =   Список.Отбор.Элементы;

               
Отбор.Очистить();

               
УсловиеОтбора                   =   Отбор.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

               
УсловиеОтбора.ЛевоеЗначение     =   Новый ПолеКомпоновкиДанных("Ссылка");

               
УсловиеОтбора.ВидСравнения      =   ВидСравненияКомпоновкиДанных.ВСписке;

               
УсловиеОтбора.ПравоеЗначение    =   Параметры.списокГрупп;



            КонецЕсли;

        КонецЕсли;



    КонецЕсли;



КонецПроцедуры





&НаКлиенте

Процедура Удалить(Команда)

   
// Вставить содержимое обработчика.

   
Если НЕ(Элементы.Список.ТекущаяСтрока   =   Неопределено) и (НЕ Элементы.Список.ТекущаяСтрока.ЭтоГруппа) Тогда

       
//Отбор                     =   Список.Отбор.Элементы;

       
Запись                      =   РегистрыСведений.ТН_ФилиалГород.СоздатьМенеджерЗаписи();

       
Запись.Город                =   Элементы.Список.ТекущаяСтрока;

       
Запись.СтруктурнаяЕдиница  =    Параметры.СтруктурнаяЕдиница;

       
Запись.Прочитать();

        Если
Запись.Выбран() Тогда

           
Запись.Удалить();

           
ОповеститьОбИзменении(Тип("СправочникСсылка.КонтТерритории"));

           
Параметры.СписокГородов.Очистить();

           
Параметры.списокГрупп.Очистить();

           
Параметры.СписокГородов.ЗагрузитьЗначения(УстановитьОтбор(Параметры.СтруктурнаяЕдиница,Параметры.списокГрупп));

            Если
Элементы.Список.Отображение    = ОтображениеТаблицы.Список Тогда

                   
Отбор   =   Список.Отбор.Элементы;

                   
Отбор.Очистить();

                   
УсловиеОтбора                   =   Отбор.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

                   
УсловиеОтбора.ЛевоеЗначение     =   Новый ПолеКомпоновкиДанных("Ссылка");

                   
УсловиеОтбора.ВидСравнения      =   ВидСравненияКомпоновкиДанных.ВСписке;

                   
УсловиеОтбора.ПравоеЗначение    =   Параметры.списокГрупп;



            ИначеЕсли
Элементы.Список.Отображение   = ОтображениеТаблицы.ИерархическийСписок Тогда

                   
Отбор                           =   Список.Отбор.Элементы;

                   
Отбор.Очистить();

                   
УсловиеОтбора                   =   Отбор.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

                   
УсловиеОтбора.ЛевоеЗначение     =   Новый ПолеКомпоновкиДанных("Ссылка");

                   
УсловиеОтбора.ВидСравнения      =   ВидСравненияКомпоновкиДанных.ВСписке;

                   
УсловиеОтбора.ПравоеЗначение    =   Параметры.СписокГородов;



            КонецЕсли;

        КонецЕсли;



    КонецЕсли;

КонецПроцедуры





&НаСервереБезКонтекста

фУНКЦИЯ УстановитьОтбор(СтруктурнаяЕдиница,списокГрупп)

    Если
СтруктурнаяЕдиница =   Справочники.Организации.ПустаяСсылка() Тогда

        Возврат Новый
СписокЗначений;

    КонецЕсли;

   
Запрос  =   Новый Запрос;

   
Запрос.Текст    =   "ВЫБРАТЬ

                        |   ТН_ФилиалГород.Город,

                        |   ТН_ФилиалГород.Город.Родитель КАК Родитель

                        |ИЗ

                        |   РегистрСведений.ТН_ФилиалГород КАК ТН_ФилиалГород

                        |ГДЕ

                        |   ТН_ФилиалГород.СтруктурнаяЕдиница = &СтруктурнаяЕдиница

                        |   И (НЕ ТН_ФилиалГород.Город.ЭтоГруппа)"
;

   
Запрос.УстановитьПараметр("СтруктурнаяЕдиница",СтруктурнаяЕдиница);

   
табзн       =   Запрос.Выполнить().Выгрузить();

   
списокГрупп.Очистить();

   
списокГрупп.ЗагрузитьЗначения(табзн.ВыгрузитьКолонку("Родитель"));

    Возврат 
табзн.ВыгрузитьКолонку("Город");



КонецфУНКЦИИ







См. также

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    4431    dsdred    53    

69

Как готовить и есть массивы

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    5271    YA_418728146    25    

62

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6389    dsdred    36    

111

1С-ная магия

Механизмы платформы 1С Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    18463    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12073    human_new    27    

74

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8799    YA_418728146    6    

141

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6271    sebekerga    54    

94

Все скопируем и вставим! (Буфер обмена в 1С 8.3.24)

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Рассмотрим новую возможность 8.3.24 и как её можно эффективно использовать

27.06.2023    15959    SeiOkami    31    

103
Оставьте свое сообщение