gifts2017

Еще один (:-)) простейший алгоритм определения итогов по группировкам для произвольных таблиц значений.

Опубликовал Владимир (Strange Device) в раздел Программирование - Практика программирования

Простой и быстрый алгоритм получения итогов по произвольному числу группировок таблицы значений.
Еще один (:-)) простейший алгоритм определения итогов по группировкам для произвольных таблиц значений.

Обозначенная выше задача, увы, не блещет оригинальностью – с подобной задачей рано или поздно сталкивается любой 1С-ник, более того даже на данном сайте можно найти не менее десятка вариантов решения указанной проблемы. Тем не менее какого-либо общего, всеми признанного по красоте и скорости решения данной задачи нет до сих пор (если, конечно, не говорить об использовании внешних компонент). Поэтому автор не считает зазорным оказаться в длинной очереди изобретателей жаждущих зарегистрировать свое рацпредложение :-).
Приведу суть алгоритма на простейшем примере. Допустим, что мы имеем таблицу значений с нечисловыми колонками "А", "Б", "В" и "Г" и некоторым количеством числовых колонок, пусть это будут колонки "Сумма1", "Сумма2", "Сумма3" (считаем, что порядок колонок в ТЗ соответствует порядку их перечисления, для рассматриваемого алгоритма этот порядок важен. Кроме того крайне желательно, чтобы колонки были типизированы). Будем считать, что перед нами стоит задача определения итоговых сумм числовых колонок по группировкам "А" и "Б" соответственно.
Добавим в уже существующую таблицу колонку "Уровень":

ТЗ.НоваяКолонка("Уровень","Число",9,0);

Будем считать, что данные необработанной таблицы соответствуют третьему уровню, тогда как данные группировок – уровням 1 и 2.

ТЗ.Заполнить(3,,, "Уровень");

Создадим копию имеющейся таблицы:
ТЗДоп = СоздатьОбъект("ТаблицаЗначений");
ТЗ.Выгрузить(ТЗДоп);

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

ТЗДоп.Свернуть("А,Б","Сумма1,Сумма2,Сумма3");
Поскольку при свертке ТЗДоп колонка "Уровень" была уничтожена добавим ее:

ТЗДоп.НоваяКолонка("Уровень", "Число", 9,0);
Получили результаты второго уровня:

ТЗДоп.Заполнить(2,,, "Уровень");

Добавим полученные результаты к первоначальной ТЗ следующим образом:
ВсегоСтрокВТЗ = ТЗ.КоличествоСтрок();
ВсегоСтрокВТЗДоп = ТЗДоп.КоличествоСтрок();

ТЗ.КоличествоСтрок(ВсегоСтрокВТЗ + ВсегоСтрокВТЗДоп);
ТЗ.Заполнить(ТЗДоп,(ВсегоСтрокВТЗ + 1), (ВсегоСтрокВТЗ + ВсегоСтрокВТЗДоп), "А,Б,Сумма1,Сумма2,Сумма3,Уровень");

Здесь необходимо заметить, что порядок колонок в операторе Заполнить должен совпадать с порядком колонок в ТЗДоп, в противном случае результат окажется некорректен.

То же самое проделаем для определения группировок первого уровня:
ТЗДоп.Свернуть("А", "Сумма1,Сумма2,Сумма3");
ТЗДоп.НоваяКолонка("Уровень", "Число", 9, 0);
ТЗДоп.Заполнить(1,,,"Уровень");

ВсегоСтрокВТЗ = ТЗ.КоличествоСтрок();
ВсегоСтрокВТЗДоп = ТЗДоп.КоличествоСтрок();

ТЗ.КоличествоСтрок(ВсегоСтрокВТЗ + ВсегоСтрокВТЗДоп);
ТЗ.Заполнить(ТЗДоп,(ВсегоСтрокВТЗ + 1), (ВсегоСтрокВТЗ + ВсегоСтрокВТЗДоп), "А,Сумма1,Сумма2,Сумма3,Уровень")

Наконец, для определения окончательного результата достаточно отсортировать полученную ТЗ:
ТЗ.Сортировать("*А,*Б,Уровень");

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

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Владислав Чинючин (vcv) 14.06.07 06:30
Сортировать можно по спец. колонкам для сортировки, которые в цикле заполнить значениями:
- для документа - позицией
- для справочника - полным наименованием или полным кодом
- для всего прочего - строковым представлением.
2. Евгений Мартыненков (JohnyDeath) 14.06.07 10:17
Такие вот разработки - это, конечно, хорошо с одной стороны: мол, автор не поленился и т.п. НО! Зачем? Боязнь ВК? В 1с++ это реализуется в одну строку: http://www.1cpp.ru/docum/html/IndexedTable.html#group
3. Владимир (Strange Device) 14.06.07 11:00
Все просто, описанный алгоритм был придуман года три назад, когда в 1С++ не было возможности работать без регистрации dll в системе, а регистрация этих самых dll на нашем серваке по какой-то неясной причине постоянно сбивалась :-(. Поэтому стоял вопрос либо сидеть и ежедневно руками регистрить dll на сотню пользователей либо написать самому, при этом написать так чтобы работало по возможности быстро. Эта задача и была решена. При этом была написана маленькая процедура (около сотни строк), производящая описанные действия в общем виде. Учитывая же тот факт, что для вызова описанной процедуры было достаточно написать одну единственную строку это не слишком отличалось от вызова внешних компонент.
Что касается сортировок - я не сказал, что это очень трудно, сказанное мной означало лишь то, что для построения сортировки, скажем, по алфавиту необходим, как минимум еще один проход по ТЗ, что несколько замедляет достаточно быстрый алгоритм.
4. Станислав (zalst) 14.06.07 17:08
1c++ не всегда приемлема!
автору респект за идею, очень интересно почитать :)
5. Вадим 1С911.BY (Вадимко) 23.06.07 02:02
Время позднее, с трудом осиливаю... кажецо идея не нова? :)
В любом случае интересно, плюсанул
JohnyDeath, не ворчи :)
6. Доржи Цыденов (support) 12.07.07 10:26
за аватар пять с плюсом :)
7. kairat primbetov (karat60) 01.10.07 12:32
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа