fbpx
  • slide microsft
  • slide aida64
  • Использование LiveCD для восстановления пароля суперпользователя root в Linux
  • Решение ATI Radeon HD3000/4000 Overscan/Underscan
  • Игрушка вертолет Angry Birds
  • Тест супер-кулера Noctua NH-D14
  • Дергается курсор мышки в Windows 7. Решение
  • Перезагрузка или завершение работы удаленного компьютера с Windows
  • Скрипт установки принтеров Canon LBP на Linux Ubuntu (обновлено)
  • В сеть просочилась предположительно финальная версия Windows 10
  • Microsoft Windows 8.1 Preview доступен для бесплатного скачивания
  • Иван Царевич,DjTro - Сталь манит кровь
  • Свич или магнитофон ?
  • Game Commander
  • Dj Tro - TO [2008]
  • Создание загрузочной MS-DOS USB-флешки
  • Windows 9
  • Вышло одно из самых ожидаемых дополнений к Mortal Kombat X
  • Сюжетный трейлер Mortal Kombat X
  • Вход под Администратором на Windows XP
  • Dirt Rally будет работает на Linux
  • На сайте открыт магазин
  • S.M.A.R.T. под VMware vSphere
  • Вышла VMware vSphere 6.5
  • Microsoft прекращает развитие графического редактора Paint
  • Заправка МФУ :)
  • Нововведения в новой мобильной ОС Android 4.3
  • Перенос контактов с WinMobile на Android и не только
  • Создание своего Ubuntu Live CD
июнь20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

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

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