Получение иерархии справочника "Номенклатура"

17.05.12

Разработка - Универсальные функции

Элементарная обработка для получения иерархии групп справочника "Номенклатура" без дублей.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
ИерархияСправочника
.erf 8,30Kb
25 1 850 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

 Для запуска одна кнопка...

Легко перепишется под любой другой справочник. 

Первая публикация, - не судите строго... Отчет создал на скорую руку для себя, так как не нашел такого на инфостате, решил поделиться, чтоб народ мог легко получить иерархию справочника "Без дублей", тех, которые создаются при группировке итогов по иерархии. Очистка дублей производится дополнительной функцией. 

	 Функция обУбратьОшибкиИтоговПоИерархии(Строки, Поле="Ссылка", Родитель=Неопределено) Экспорт
    //Убираем все элементы, равные текущему
    Всего=Строки.Количество();
    Для Инд=1 По Всего Цикл
        Стр=Строки[Всего-Инд];
        Зн=Стр[Поле];
        Если Родитель<>Неопределено И Зн=Родитель Тогда
            Строки.Удалить(Стр);
            Иначе
            обУбратьОшибкиИтоговПоИерархии(Стр.Строки, Поле, Зн);
        КонецЕсли;
    КонецЦикла;
КонецФункции 

Вступайте в нашу телеграмм-группу Инфостарт

См. также

Универсальные функции Работа с интерфейсом Программист 1С v8.3 Бесплатно (free)

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

14.05.2025    4998    DeerCven    14    

57

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

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

21.05.2024    45228    dimanich70    83    

161

Универсальные функции Программист 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    6699    6    John_d    13    

59

Универсальные функции Программист Стажер 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    55784    atdonya    31    

68

Универсальные функции Программист 1С v8.3 Бесплатно (free)

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

30.11.2023    8442    ke.92@mail.ru    17    

67

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

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

28.08.2023    22387    YA_418728146    8    

174
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. anig99 2861 15.05.12 11:50 Сейчас в теме
Техническая сложность исполнения и практическая значимость данной обработки равно 0
2. snikers44 12 15.05.12 18:01 Сейчас в теме
(1) anig99, если для вас она не представляет практической значимости, - это не значит, что не представляет ни для кого... насчет технической сложности, - не все гуру программирования 1С и для кого-то это может представлять сложность...
5. anig99 2861 16.05.12 07:57 Сейчас в теме
(2) данная обработка не представляет ценности ни для кого, кроме Вас. Так как обучаться нужно по учебникам, курсам и гораздо более сложным разработкам.
3. cinfo 16.05.12 02:19 Сейчас в теме
скд вам в помощь
snikers44; +1 Ответить
4. Necytij 16.05.12 07:28 Сейчас в теме
К сожалению, у меня не достаточно рейтинга чтобы ставить минусы.
Ваш супер функционал не гуру может сформировать типовой отчет "универсальный", который в типовых уже очень давно в наличии...
6. kser87 2480 16.05.12 10:52 Сейчас в теме
А я скажу: спасибо за обработку.
7. V.Nikonov 124 16.05.12 12:23 Сейчас в теме
Элементарная обработка для получения иерархии групп справочника "Номенклатура" без дублей.

Вообще-то это отчет. А что Значит "БЕЗ ДУБЛЕЙ"?

Теоретически запуск мог бы встраиваться в какую нибудь форму-список или Форму элемента...(для справочников в которых отсутствует доп.окно с деревом). Или дополнение к обработке результатов запроса возвращающего список элементов, а просмотреть желательно иерархию этих элементов...

Только, если это есть учебное пособие, то удобнее опубликовать в тексте фрагменты кода с комментариями поясняющие логику...
Если это есть полезная примочка к программе, то есть смысл расписать случаи полезности...

P.S. Соответственно для Публикации в таком виде хочется поставить минус!
8. snikers44 12 16.05.12 13:09 Сейчас в теме
(7) V.Nikonov, Согласен, вид публикации оставляет желать лучшего, просто первая публикация, - не судите строго... Отчет создал на скорую руку для себя, так как не нашел такого на инфостате, решил поделиться, чтоб народ мог легко получить иерархию справочника "Без дублей", тех, которые создаются при группировке итогов по иерархии. Очистка дублей производится дополнительной функцией.
Функция обУбратьОшибкиИтоговПоИерархии(Строки, Поле="Ссылка", Родитель=Неопределено) Экспорт 
    //Убираем все элементы, равные текущему
    Всего=Строки.Количество();
    Для Инд=1 По Всего Цикл
        Стр=Строки[Всего-Инд];
        Зн=Стр[Поле];
        Если Родитель<>Неопределено И Зн=Родитель Тогда
            Строки.Удалить(Стр);
        Иначе
            обУбратьОшибкиИтоговПоИерархии(Стр.Строки, Поле, Зн);
        КонецЕсли;
    КонецЦикла;
КонецФункции
Показать
9. V.Nikonov 124 16.05.12 21:11 Сейчас в теме
(8) И что? Редактировать Публикацию не будем?

Оставим её для галочки? :-(
11. snikers44 12 17.05.12 13:30 Сейчас в теме
(9) V.Nikonov, Отредактировал чуток=) спасибо за адекватную помощь в публикации...
P.S. Просто от нахлынувших негативных отзывов хотелось просто закрыть публикацию, и, возможно, не сэкономить пару минут действительно нуждающимся людям...
10. DrAku1a 1776 17.05.12 02:39 Сейчас в теме
Ну-ка-дети-скажем-дружно "НА-ФИГА-НАМ ЭТО НУЖНО?"
Для отправки сообщения требуется регистрация/авторизация