fbpx
  • slide microsft
  • slide aida64
  • Разблокировка функции DSR в драйверах Nvidia для старых карт
  • Драйвера Nvidia 295.73
  • Огромное облачное хранилище Yunpan 360 на 36Тб
  • Установка драйвера ATI Radeon 9000 на Windows 7
  • Решение ошибки Windows Server 2008 R2
  • Свернуть массив в 1С
  • Свет увидел ролик грядущего DOOM4
  • Лучший тест стабильности ПК - Prime95
  • Драйвера Nvidia 296.10
  • Установка стандартного набора Windows шрифтов в Linux
  • У iPhone больше уязвимостей, чем у всех остальных.
  • 5 неудачных антипиратских решений
  • Создаем свой караоке-видео
  • Скрипт установки принтеров Canon LBP на Linux Ubuntu (обновлено)
  • Тормозит приложение почта (mail) на iMac
  • Активация Windows 8 v.2
  • Разгон, изменение и прошивка BIOS видеокарт Nvidia
  • Медленная скорость Интернет/RDP соединения Windows
  • 3D контент на картах NVidia без 3D Vision
  • Создание загрузочной Windows USB-флешки
  • Вышла VMware vSphere 6.5
  • Свои подсказки для передаваемых параметров
  • Беспроводная зарядка в телефоне, где ее быть не должно :)
  • Как качать с торрента
  • Как обжимать витую пару (8P8C)
  • Принтер с бонусом внутри :)
  • Прошивка MAC-адресса в интегрированной сетевой карте
июнь20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

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

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