fbpx
  • slide microsft
  • slide aida64
  • Что, еще и место выбирать ?!
  • Нововведения в новой мобильной ОС Android 4.3
  • Dj Tro - TO [2008]
  • Свернуть массив в 1С
  • Что означают тесты в AIDA64
  • Microsoft прекращает развитие графического редактора Paint
  • Решение ATI Radeon HD3000/4000 Overscan/Underscan
  • Свои подсказки для передаваемых параметров
  • Анонсирован Mortal Kombat X
  • Установка стандартного набора Windows шрифтов в Linux
  • Стал тормозить SSD ? А у вас есть trim ?
  • Как обжимать витую пару (8P8C)
  • Немного о глобальных аватарах
  • Dj Tro - Just a fool [2011]
  • Обзор телефона Sony Ericsson Zylo
  • Решение ошибки Windows Server 2008 R2
  • Borderlands 2 заработал на Windows 8
  • Восстановление разделов на USB флешке
  • Windows 8.1 вышла в свет
  • Принтер с бонусом внутри :)
  • Активация Windows 8 v.2
  • 5 неудачных антипиратских решений
  • Рейтинги защиты IP
  • Печать табличного документа через общую форму печати в УНФ
  • GeForce Experience
  • Как сделать перчатки сенсорными
Jun20

Свернуть массив в 1С

Троцкий Юрий

Свернуть массив в 1С

Один из вариантов решения свертки массива в 1С.

толстый клиент, тонкий клиент

 

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

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


Фунцкция СвернутьМассив (МойМассивДляСвертки)

НовыйМассив = Новый Массив; Соответствие = Новый Соответствие; Для каждого ЭлементМассива Из МойМассивДляСвертки Цикл Соответствие.Вставить(ЭлементМассива); КонецЦикла; Для каждого КлючИЗначение Из Соответствие Цикл НовыйМассив.Добавить(КлючИЗначение.Значение); КонецЦикла; Возврат НовыйМассив; КонецФункции

P.S. Так-же мы предоставлям надежное обланое хранилище для ваших баз 1С. Подробнее...

Leave a comment

Please login to leave a comment.