1С 8.3 Конвертировать объект в Структуру
Данные > Примеры кода 1С > 1С 8.3 Cтруктура
Перейти в основной раздел:

Конвертировать Документ/Справочник в Структуру в 1С 8.3:
Функция КонвертироватьОбъектВСтруктуру(ВходящийОбъект) Экспорт
СтрукутраОбъекта = Новый Структура;
СтандартныеРеквизитыОбъекта = ВходящийОбъект.Метаданные().СтандартныеРеквизиты;
Для Каждого СтандартныйРеквизит Из СтандартныеРеквизитыОбъекта Цикл
СтрукутраОбъекта.Вставить(СтандартныйРеквизит.Имя, ВходящийОбъект[СтандартныйРеквизит.Имя]);
КонецЦикла;
РеквизитыОбъекта = ВходящийОбъект.Метаданные().Реквизиты;
Для Каждого Реквизит Из РеквизитыОбъекта Цикл
СтрукутраОбъекта.Вставить(Реквизит.Имя, ВходящийОбъект[Реквизит.Имя]);
КонецЦикла;
ТЧ = ВходящийОбъект.Метаданные().ТабличныеЧасти;
Для Каждого ТаблЧасть Из ТЧ Цикл
ТЗ = ВходящийОбъект[ТаблЧасть.Имя].Выгрузить();
Массив = ОбщегоНазначения.ТаблицаЗначенийВМассив(ТЗ);
СтрукутраОбъекта.Вставить(ТаблЧасть.Имя, Массив);
КонецЦикла;
Возврат СтрукутраОбъекта;
КонецФункции
СтрукутраОбъекта = Новый Структура;
СтандартныеРеквизитыОбъекта = ВходящийОбъект.Метаданные().СтандартныеРеквизиты;
Для Каждого СтандартныйРеквизит Из СтандартныеРеквизитыОбъекта Цикл
СтрукутраОбъекта.Вставить(СтандартныйРеквизит.Имя, ВходящийОбъект[СтандартныйРеквизит.Имя]);
КонецЦикла;
РеквизитыОбъекта = ВходящийОбъект.Метаданные().Реквизиты;
Для Каждого Реквизит Из РеквизитыОбъекта Цикл
СтрукутраОбъекта.Вставить(Реквизит.Имя, ВходящийОбъект[Реквизит.Имя]);
КонецЦикла;
ТЧ = ВходящийОбъект.Метаданные().ТабличныеЧасти;
Для Каждого ТаблЧасть Из ТЧ Цикл
ТЗ = ВходящийОбъект[ТаблЧасть.Имя].Выгрузить();
Массив = ОбщегоНазначения.ТаблицаЗначенийВМассив(ТЗ);
СтрукутраОбъекта.Вставить(ТаблЧасть.Имя, Массив);
КонецЦикла;
Возврат СтрукутраОбъекта;
КонецФункции
0
отзывы
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник