1С 8.3 Конвертировать объект в Структуру

Данные > Примеры кода 1С > 1С 8.3 Cтруктура

ПРИМЕРЫ КОДА 1С

Перейти в основной раздел:

1С 8.3 Структура

Документы

Справочники

Конвертировать Документ/Справочник в Структуру в 1С 8.3:

Функция КонвертироватьОбъектВСтруктуру(ВходящийОбъект) Экспорт

   СтрукутраОбъекта = Новый Структура;

   СтандартныеРеквизитыОбъекта = ВходящийОбъект.Метаданные().СтандартныеРеквизиты;
   Для Каждого СтандартныйРеквизит Из СтандартныеРеквизитыОбъекта Цикл
       СтрукутраОбъекта.Вставить(СтандартныйРеквизит.Имя, ВходящийОбъект[СтандартныйРеквизит.Имя]);
   КонецЦикла;

   РеквизитыОбъекта = ВходящийОбъект.Метаданные().Реквизиты;
   Для Каждого Реквизит Из РеквизитыОбъекта Цикл
       СтрукутраОбъекта.Вставить(Реквизит.Имя, ВходящийОбъект[Реквизит.Имя]);
   КонецЦикла;

   ТЧ = ВходящийОбъект.Метаданные().ТабличныеЧасти;
   Для Каждого ТаблЧасть Из ТЧ Цикл
       ТЗ = ВходящийОбъект[ТаблЧасть.Имя].Выгрузить();
       Массив = ОбщегоНазначения.ТаблицаЗначенийВМассив(ТЗ);
       СтрукутраОбъекта.Вставить(ТаблЧасть.Имя, Массив);
   КонецЦикла;

   Возврат СтрукутраОбъекта;

КонецФункции

отзывы

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник