fbpx
  • slide microsft
  • slide aida64
  • Настройка и подключение Wi-Fi роутера D-Link DIR300
  • Как скачать с youtube бесплатно
  • Новое на сайте tro.net.ua
  • Как скрыть файлы в Linux MINT
  • Вышел новый релиз языка программирования Go 1.1
  • DirectX 11.2 был показан в Windows 8.1
  • Как отключить легкую установку (easy install) в VMWare Workstation
  • Российская Госдума приняла закон о блокировке сайтов с пиратскими фильмами
  • Бездонный телефон
  • Беспроводная зарядка в телефоне, где ее быть не должно :)
  • Как отключить тачпад ноутбука в Linux Ubuntu
  • Windows Server 2016 доступна
  • Полноценная ОС для слабых машин
  • Автозагрузка в Windows 10
  • Релиз KDE 4.8
  • Стал тормозить SSD ? А у вас есть trim ?
  • AMD представила первые настольные процессоры с частотой до 5,0 ГГц
  • GeForce Experience
  • Старый новый
  • Увеличение размера виртуального и системного диска в Windows Server без остановки VMWare
  • NVIDIA представила технологию симуляции и рендеринга реалистичной травы - TurfEffects
  • Зачем нужна кнопка
  • Свет в конце тоннеля для игр на Linux
  • В сеть просочилась предположительно финальная версия Windows 10
  • Облачное хранилище Hive прекращает деятельность
  • Borderlands 2 заработал на Windows 8
июнь20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

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

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