fbpx
  • slide microsft
  • slide aida64
  • Мой плановый выходной
  • Увеличение размера виртуального и системного диска в Windows Server без остановки VMWare
  • В сеть просочилась предположительно финальная версия Windows 10
  • Тормозит приложение почта (mail) на iMac
  • Рейтинги защиты IP
  • Game Commander
  • Бесплатные звонки с VIBER
  • Mortal Kombat Komplete Edition официально анонсирован для PC
  • Семь мифов о сисадминах
  • Неожиданный предмет внутри коробки с монитором AOC F22+
  • Проблема при обновлении Kubuntu 11.10 desktop x86
  • Создание внешней печатной формы по стандарту БСП (тонкий клиент)
  • Обзор телефона Sony Ericsson Zylo
  • Apple лишает работоспособности iPhone и iPad после неофициального ремонта
  • Немного о глобальных аватарах
  • XCOM Enemy Unknown (2012)
  • Доступ к рабочему столу пользователя Windows из 1С
  • Dj Tro - For my sole love [2002]
  • Не запускается Pinnacle Studio 16 на Windows 8.1
  • GeForce Experience
  • Поднимаем FPS в играх в Windows 10
  • Вышел в свет Windows 8.1
  • Звездочки
  • Восстановление БД 1С (SQL) после динамического обновления
  • Обзор эволюции ОС Microsoft Windows
  • Первое впечатление о Windows 8 Beta
Jun20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

Leave a comment

Please login to leave a comment.