fbpx
  • slide microsft
  • slide aida64
  • Дергается курсор мышки в Windows 7. Решение
  • Мой плановый выходной
  • Лучший тест стабильности ПК - Prime95
  • С Днем Программиста 2012
  • С днем системного администратора !
  • Зачем на самом деле нужны встроенные игры в Windows
  • Медленная скорость Интернет/RDP соединения Windows
  • Российская Госдума приняла закон о блокировке сайтов с пиратскими фильмами
  • Установка стандартного набора Windows шрифтов в Linux
  • Немного о глобальных аватарах
  • Впечатляющая демонстрация Epic Unreal Engine 4
  • Dj Tro - TO [2008]
  • Печать табличного документа через общую форму печати в УНФ
  • GeForce Experience
  • У iPhone больше уязвимостей, чем у всех остальных.
  • Pinnacle и телепатический модуль
  • DirectX 11.2 был показан в Windows 8.1
  • Увеличение размера виртуального и системного диска в Windows Server без остановки VMWare
  • Беспроводная зарядка в телефоне, где ее быть не должно :)
  • Поднимаем FPS в играх в Windows 10
  • В сеть просочилась предположительно финальная версия Windows 10
  • Новый Unreal Tournament 4 будет распространяться бесплатно
  • Знакомство с Windows 8. Взгляд с близка.
  • Восстановление разделов на USB флешке
  • Перезагрузка или завершение работы удаленного компьютера с Windows
  • Обход пароля на IPad touch
  • Lineage OS не будет предоставлять пользователям root-права
Jun20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

Leave a comment

Please login to leave a comment.