1С 7.x : Перебор Основных Реквизитов формы

 //Перебор Основных Реквизитов формы

	Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл

		Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип));

	КонецЦикла;

	// или так

	Для Каждого Рек из Метаданные().Реквизиты Цикл

		Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип));

	КонецЦикла;

	

	//Реквизиты формы - Надписи, Поля Ввода и т.д

	//можно и через ЭтаФорма.ЭлементыФормы

	Для Каждого Рек из ЭлементыФормы Цикл

		Сообщить(Строка(рек)+" - "+рек.имя);

    КонецЦикла;    

  //функция создаёт список реквизитов документа

Процедура гСписокРеквизитовДокумента(Список,Документ,ФлагПредставление=0) Экспорт

     //Шапка

     Для i=1 По Метаданные.Документ(Документ).РеквизитШапки() Цикл

          Ж=Метаданные.Документ(Документ).РеквизитШапки(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"Ш: "+Представление);

     КонецЦикла;

     //Табличная часть

     Для i=1 По Метаданные.Документ(Документ).РеквизитТабличнойЧасти() Цикл

          Ж=Метаданные.Документ(Документ).РеквизитТабличнойЧасти(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"Т: "+Представление);

     КонецЦикла;

     //Общие

     Для i=1 По Метаданные.ОбщийРеквизитДокумента() Цикл

          Ж=Метаданные.ОбщийРеквизитДокумента(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"О: "+Представление);

     КонецЦикла;

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