fbpx
  • slide microsft
  • slide aida64
  • AMD представила первые настольные процессоры с частотой до 5,0 ГГц
  • Dj TRO  vs Dj Celeron - Atomix Wars [2003]
  • GeForce Experience
  • Семь мифов о сисадминах
  • Перенос контактов с WinMobile на Android и не только
  • C Днем Системного Администратора !
  • Что означают тесты в AIDA64
  • Рейтинги защиты IP
  • Разблокировка функции DSR в драйверах Nvidia для старых карт
  • Умер Ральф Баер, родитель игровых консолей
  • С Днем системного администратора !!!
  • Скрипт для выгрузки базы 1С в DT
  • Wi-Fi интернет ограниченный доступ. Решение.
  • Грядущий новый формат изображений от Google
  • NVIDIA представила технологию симуляции и рендеринга реалистичной травы - TurfEffects
  • Свернуть массив в 1С
  • Основные команды в Linux
  • Borderlands 2 заработал на Windows 8
  • Перезагрузка или завершение работы удаленного компьютера с Windows
  • Функция хеширования (конвертирования) строки в MD5 для 1С
  • Названа дата выхода Windows 10
  • Зачем нужна кнопка
  • Доступ к рабочему столу пользователя Windows из 1С
  • 5 неудачных антипиратских решений
  • Что нас ждет в грядущих драйверах NVidia 300.**
  • Анонсирован Mortal Kombat X
  • Как начать вести учет в малом бизнесе ?
Jun20

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

Троцкий Юрий

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

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

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

 

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

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


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

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

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

Leave a comment

Please login to leave a comment.