fbpx
  • slide microsft
  • slide aida64
  • Одна из первых реклам Microsoft
  • Серверные процессоры нового поколения Intel Xeon E7 v2
  • Перенос контактов с WinMobile на Android и не только
  • Открытие формы в режиме выбора с отбором и возвратом выбора в произвольную процедуру (тонкий клиент)
  • Бесплатные звонки с VIBER
  • Уникальный игровой сервис OnLive
  • Game Commander
  • Немного о глобальных аватарах
  • Мой плановый выходной
  • С Днем Программиста 2017
  • Warframe. Или как закалялась сталь.
  • Семь мифов о сисадминах
  • С днем системного администратора !
  • Как загрузить Windows 8.1/10 в безопасном режиме
  • Тормозит приложение почта (mail) на iMac
  • PDFZilla. Конвертор из PDF в Word.
  • Установка драйвера ATI Radeon 9000 на Windows 7
  • Иван Царевич,DjTro - Сталь манит кровь
  • Беспроводная зарядка в телефоне, где ее быть не должно :)
  • Как сделать перчатки сенсорными
  • Свернуть массив в 1С
  • 3DMark 1.0 (2013)
  • В России ФСБ добивается полного доступа к данным интернет-пользователей
  • Проблема при обновлении Kubuntu 11.10 desktop x86
  • Неожиданный предмет внутри коробки с монитором AOC F22+
  • Супер Wi-Fi на iPhone 5 :)
  • Установка стандартного набора Windows шрифтов в Linux
Jun20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

Leave a comment

Please login to leave a comment.