1С, Вывод структуры в Табличный документ, Структура, Табличный документ

Процедура ПоказатьСтруктуру(Структ) Экспорт
   ТабДок = Новый ТабличныйДокумент;
   ОбластьЗаголвка = ТабДок.ПолучитьОбласть(1, , 1, );
   ДетальнаяСтрока = ТабДок.ПолучитьОбласть(1, , 1, );
   КоличествоКолонок = 2;

   Область = ОбластьЗаголвка.Область(1, 1);
   Область.Текст = "Ключ";
   Область.ЦветФона = WEBЦвета.Желтый;

   Область = ОбластьЗаголвка.Область(1, 2);
   Область.Текст = "Значение";
   Область.ЦветФона = WEBЦвета.Желтый;

   ТабДок.Вывести(ОбластьЗаголвка);

   Для Каждого СтрокаСтруктуры Из Структ Цикл
       Область = ДетальнаяСтрока.Область(1, 1);
       Область.Текст = Строка(СтрокаСтруктуры.Ключ);

       Область = ДетальнаяСтрока.Область(1, 2);
       Область.Текст = Строка(СтрокаСтруктуры.Значение);

       ТабДок.Вывести(ДетальнаяСтрока);
   КонецЦикла;

   ТабДок.Показать();
КонецПроцедуры

Теги: 1С, Вывод структуры в Табличный документ, Структура, Табличный документ