fbpx
  • slide microsft
  • slide aida64
  • AMD представила первые настольные процессоры с частотой до 5,0 ГГц
  • Мягкий жесткий диск
  • Разгон, изменение и прошивка BIOS видеокарт Nvidia
  • SDI - все драйвера в одном пакете
  • Российская Госдума приняла закон о блокировке сайтов с пиратскими фильмами
  • 3D контент на картах NVidia без 3D Vision
  • Создание внешней печатной формы по стандарту БСП (тонкий клиент)
  • Dj TRO vol.1 (Альбом 2000 года)
  • Звездочки
  • Принтер с бонусом внутри :)
  • Скрипт установки принтеров Canon LBP на Linux Ubuntu (обновлено)
  • Вышел новый релиз языка программирования Go 1.1
  • Свои подсказки для передаваемых параметров
  • Рейтинги защиты IP
  • Свернуть массив в 1С
  • Движок Unreal Engine 4 переедет на HTML5
  • Анлок и джеилбрейк 3.1.2 на iPhone 2G/3G/3GS из-под Windows
  • Вывод изображения их Хранилища Значений на форму
  • Увеличение размера виртуального и системного диска в Windows Server без остановки VMWare
  • Сравнение графики PC и PS4 на новом движке Unreal Engine 4
  • Иван Царевич,DjTro - Сталь манит кровь
  • Обзор телефона Sony Ericsson Zylo
  • Почему-то камеры постоянно глючат
  • Стала доступна первая сборка Windows 10 с поддержкой Bash/Ubuntu
  • Серверные процессоры нового поколения Intel Xeon E7 v2
  • Китайцы назвали WINDOWS 8 угрозой для страны
  • Разблокировка функции DSR в драйверах Nvidia для старых карт
июнь20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

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

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