Пример дерева справочника с пометками (через AktiveX)

09.04.08

Разработка - Инструментарий разработчика

Пример построения дерева справочника с пометками и с последующей обработкой только помеченных элементов.

Скачать исходный код

Наименование Файл Версия Размер
axTree
.1207743117 410,61Kb
139
.1207743117 410,61Kb 139 Скачать
возможное решение проблем
.1207743213 474,45Kb
109
.1207743213 474,45Kb 109 Скачать

Решение не оптимальное и вряд ли применимо к большим справочникам, зато наглядное.
Делалось для конкретной ситуации, поэтому решение не универсальное
Требует вк 1С++ (2.5.0.6)

Без помощи http://www.1cpp.ru/forum/YaBB.pl ничего бы не получилось, спасибо всем, кто помог, за советы и примеры

АктивИкс вроде стандартный MS-овский, но похоже появляется только с установкой Офиса.
Возможное решение проблемы прилагается ( опять же найдено на http://www.1cpp.ru/forum/YaBB.pl )

ps. это только пример, но уже применяемый на практике

См. также

Консоль запросов

Инструментарий разработчика Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Консоль запросов к базе SQL, не требующая внешних компонент

10 стартмани

29.04.2015    21651    54    Gvozdod    8    

15

StartManager 1.4 - Развитие альтернативного стартера

Инструментарий разработчика Платформа 1С v7.7 Платформа 1С v8.3 Абонемент ($m)

Очередная редакция альтернативного стартера, являющегося продолжением StartManager 1.3. Спасибо всем, кто присылал свои замечания и пожелания, и тем, кто перечислял финансы на поддержку проекта. С учетом накопленного опыта, стартер был достаточно сильно переработан в плане архитектуры. В основном сделан упор на масштабируемость, для способности программы быстро адаптироваться к расширению предъявляемых требований (т.к. довольно часто просят добавить ту или иную хотелку). Было пересмотрено внешнее оформление, переработан существующий и добавлен новый функционал. В общем можно сказать, что стартер эволюционировал, по сравнению с предыдущей редакцией. Однако пока не всё реализовано, что планировалось, поэтому еще есть куда развиваться в плане функциональности.

1 стартмани

23.04.2014    166187    1868    Alexoniq    1596    

496

Tray Informer

Инструментарий разработчика Платформа 1С v7.7 Платформа 1С v8.3 Россия Абонемент ($m)

Согласитесь, что окно стандартное сообщений в 1С иногда приносит больше неудобств, чем пользы. И тем более разные "Предупредить"... Что с этим окном только не делают! Его отцепают от формы, делают маленьким, умудряются спрятать за границы экрана. А потом звонят программистам с претензией, что документ почему-то не проводится, отя ничего и не пишет. У вас такого не было? А вот у нас было и не раз )))

1 стартмани

04.09.2013    32968    61    O-Planet    78    

49

Изменение структуры баз 1С 7.7 без долгой реструктуризации. Часть 1. Справочники

Инструментарий разработчика Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

На днях встретил вопрос на форуме про возможность внесения изменений в конфигурацию без долгого сохранения в рабочей базе большого объема. Вот решил поделиться опытом, как это делал я. База у нас была объемом порядка 120 Гб. К базе обращался сайт в режиме 24/7, поэтому важно было быстро сохранять изменения и желательно без последующего монопольного запуска для восстановления индексов и процедур и без отключения пользователей от базы. Это первая часть статьи и посвящена она справочникам. С одной стороны - это самый простой объект, с другой стороны, именно про справочник спрашивалось на форуме. Если статья будет востребована, то я напишу аналогичные про документы, регистры и может еще что.

1 стартмани

13.08.2013    21277    Reptile    5    

35

v7.7 1CDialogControls: Инструмент в помощь разработчику на 7.7.

Инструментарий разработчика Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Давным давно, когда я еще плотно писал на 7.7 работа с формами была мучительной и неудобной. Приходилось каждый элемент выкладывать, выравнивать на форме ручками, прописывать код в модуле. Иногда при разработке очередной формы приходила в голову мысль: "а где-то я уже похожее делал..." и начинался мучительный поиск подходящего кода в своих запасах........

1 стартмани

21.02.2013    18073    36    MarSeN    14    

16

[Разработчику] Любая таблица значений в OLAP

Инструментарий разработчика Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Анализируем различные данные в 1С, используя OLAP-технологии со всеми прелестями. Т.е. наглядное отображение данных, быстрые расчеты, горизонтальные и вертикальные группировки любой вложенности, удобная фильтрация, Drag'n'Drop и ещё много приятных вещей от MS. Обработка на входе принимает практически любую таблицу значений (ТЗ в которой колонкам указаны типы значений, строка, число и т.п.), на выходе имеем на форме 1С сводную таблицу и график по этой ТЗ, с которой работаем, как и в Excel со сводной таблицей и диаграммой. Взял за основу разработку «OLAP Анализ счёта» ( http://infostart.ru/public/14964/ ) от JohnyDeath и переделал под любую ТЗ. Опционально используется «Прогресс бар для 1С 77» (http://infostart.ru/public/14061/ ) от Gmix.

1 стартмани

21.12.2012    36137    51    venger    7    

23

Библиотека кода 1С 7.7 (накопленная за 8 лет)

Инструментарий разработчика Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Весь код на 1С 7.7, собранный для повторного использования за 8 лет работы.

10 стартмани

25.11.2012    35038    248    adhocprog    51    

70
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. ivsher 27.01.12 12:48 Сейчас в теме
Хороший пример для начала работы с активиксом, и достаточно полезный. Немного подправил процедуру для атоматической пометки всех потомков выбранного узла, так как оригинальня процедура на моем справочнике работала с ошибками, да и в моем варианте получилось поменьше строк...
Процедура ПометитьВходящие(Node)
//проверяем есть ли у обрабатваемого узла потомки
//если есть то выполняем пометку всех потомков
//если потомков нет, то никаких действий выполнять ненадо
Если Node.Children > 0 Тогда
Пометка = Node.Checked;
//позицианируемся на первый элемент узла
NodeCh = Node.Child;
NodeCh.Checked = Пометка;
//если у текущего узла есть потомки
Если NodeCh.Children > 0 Тогда
ПометитьВходящие(NodeCh);
КонецЕсли;
//пока не достигнем последнего узла цикл
Пока NodeCh.Key<>NodeCh.LastSibling.Key Цикл
NodeCh = NodeCh.Next;
NodeCh.Checked = Пометка;
//если у текущего узла есть потомки
Если NodeCh.Children > 0 Тогда
ПометитьВходящие(NodeCh);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Оставьте свое сообщение