1С 8.3 Заменить ссылки на навигационные - Программист 1С Минск. Автоматизация бизнеса.

Перейти к контенту

1С 8.3 Заменить ссылки на навигационные

Заменить ссылки на навигационные в 1С 8.3:
// Заменяет в объекте все ссылки на элементы на их навигационные ссылки
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/127
//
// Параметры:
//  Объект - Массив из Произвольный
//         - Структура
//         - Соответствие из КлючИЗначение
//         - Произвольный
//
// Пример:
//
//  ПараметрыВыполнения = ПараметрыВыполненияСуперМетода();
//  //... Выполняем метод ...
//  ЗаменитьСсылкиНаНавигационные(ПараметрыВыполнения);
//  ЧитабельныйТекст = ОбщегоНазначения.ЗначениеВСтрокуXML(ПараметрыВыполнения);
//  ЗаписьЖурналаРегистрации("Лог", УровеньЖурналаРегистрации.Информация,,,ЧитабельныйТекст);
//
Процедура ЗаменитьСсылкиНаНавигационные(Объект) Экспорт

   Если ТипЗнч(Объект) = Тип("Массив") Тогда

       Для Индекс = 0 По Объект.Количество() - 1 Цикл
           Значение = Объект[Индекс];
           ЗаменитьСсылкиНаНавигационные(Значение);
           Объект[Индекс] = Значение;
       КонецЦикла;

   ИначеЕсли ТипЗнч(Объект) = Тип("Структура")
       Или ТипЗнч(Объект) = Тип("Соответствие") Тогда

       Для Каждого КлючИЗначение Из Объект Цикл
           Значение = КлючИЗначение.Значение;
           ЗаменитьСсылкиНаНавигационные(Значение);
           Объект[КлючИЗначение.Ключ] = Значение;
       КонецЦикла;

   Иначе

       ОбъектМетаданных = Метаданные.НайтиПоТипу(ТипЗнч(Объект));
       Если ОбъектМетаданных <> Неопределено Тогда
           Объект = ПолучитьНавигационнуюСсылку(Объект);
       КонецЕсли;

   КонецЕсли;

КонецПроцедуры

// MIT License
//
// Copyright (c) 2024 SeiOkami
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in all
// copies or substantial portions of the Software.
0
комментарии
____________________
Copyright©, «Программист 1С в г.Минске», 02.08.2024
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник
Яндекс.Метрика
Защищенное соединение ssl
visa
mastercard
Maestro
Яндекс деньги
Назад к содержимому