fbpx
  • slide microsft
  • slide aida64
  • Dj TRO  vs Dj Celeron - Atomix Wars [2003]
  • Как скрыть файлы в Linux MINT
  • Стал тормозить SSD ? А у вас есть trim ?
  • Умер Ральф Баер, родитель игровых консолей
  • С днем системного администратора !
  • AMD представила первые настольные процессоры с частотой до 5,0 ГГц
  • Dj Tro - The new trance [2013]
  • Облачное хранилище Hive прекращает деятельность
  • Как загрузить Windows 8.1/10 в безопасном режиме
  • Mortal Kombat Komplete Edition официально анонсирован для PC
  • Два диска
  • Ошибка 0x8000000000000002. Решение.
  • Скрипт для выгрузки базы 1С в DT
  • Заправка МФУ :)
  • Как обжимать витую пару (8P8C)
  • Как обойти экран блокировки в iOS
  • Китайцы назвали WINDOWS 8 угрозой для страны
  • Sandboxie. Работаем в
  • Что такое интернет
  • Старый новый
  • Как начать вести учет в малом бизнесе ?
  • Зачем нужна кнопка
  • Dj Tro - For my sole love [2002]
  • Печать табличного документа через общую форму печати в УНФ
  • Новый 3D алгоритм симуляции воды
  • Что такое UEFI
июнь20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

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

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