fbpx
  • slide microsft
  • slide aida64
  • Открытие формы в режиме выбора с отбором и возвратом выбора в произвольную процедуру (тонкий клиент)
  • Mortal Kombat Komplete Edition официально анонсирован для PC
  • Мягкий жесткий диск
  • Новый 3D алгоритм симуляции воды
  • Создание своего Ubuntu Live CD
  • Сервис VirusTotal и его возможности
  • Ролик про Крым
  • Microsoft предлагает заменить маму смартфоном
  • Восстановление разделов на USB флешке
  • Microsoft Windows 8.1 Preview доступен для бесплатного скачивания
  • Иван Царевич,Dj Tro - Твой свет
  • Серверные процессоры нового поколения Intel Xeon E7 v2
  • Создание загрузочной/установочной USB-Флешки c Linux
  • Обзор эволюции ОС Microsoft Windows
  • Мой плановый выходной
  • Вывод изображения их Хранилища Значений на форму
  • Установка драйвера ATI Radeon 9000 на Windows 7
  • Проблема при обновлении Kubuntu 11.10 desktop x86
  • Zalman начала процедуру банкротства
  • Чумной барак для сумасшедших фриков
  • Winamp прекращает свое существование
  • Sandboxie. Работаем в
  • Звездочки
  • Первое впечатление о Windows 8 Beta
  • Как говорить с техподдержкой
  • Как отключить надпись
  • Как отключить легкую установку (easy install) в VMWare Workstation
июнь20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

Оставить комментарий

Пожалуйста, войдите, чтобы комментировать.