Код

Процедура ПослеОткрытия()

	РасширениеФормы = СоздатьОбъект("РасширениеФормы");
	РасширениеФормы.УстановитьФорму(Форма);

	Для Индекс = 0 По РасширениеФормы.КоличествоАтрибутов() - 1 Цикл
		Тип = РасширениеФормы.ПолучитьАтрибут(Индекс).Тип;
		Если Тип <> 2 Тогда Продолжить КонецЕсли;
		Реквизит = РасширениеФормы.ПолучитьАтрибут(Индекс);
		Сообщить("Атрибут '" + Реквизит.Идентификатор + "' " + ?(Реквизит.Видимость = 1, "Видимый", "Невидимый") + " " + ?(Реквизит.Доступность = 1, "Доступный", "Недоступный"), "!");
	КонецЦикла;
КонецПроцедуры
 

Код

Процедура ПослеОткрытия() Экспорт
	Сообщить("форма ПослеОткрытия");
	РасширениеФормы = СоздатьОбъект("РасширениеФормы");
	Для Индекс = 0 По РасширениеФормы.КоличествоАтрибутов() - 1 Цикл
		Тип = РасширениеФормы.ПолучитьАтрибут(Индекс).Тип;
		//Если Тип <> 2 Тогда Продолжить КонецЕсли;
		Реквизит = РасширениеФормы.ПолучитьАтрибут(Индекс);
		Сообщить("Атрибут '" + Реквизит.Идентификатор + "' " + ?(Реквизит.Видимость = 1, "Видимый", "Невидимый") + " " + ?(Реквизит.Доступность = 1, "Доступный", "Недоступный"), "!");

// -- Артур --  а так все работает !!
		Если Реквизит.Идентификатор <> "" Тогда
			АтрибутЧерезФорму = Форма.ПолучитьАтрибут(Реквизит.Идентификатор);
			Сообщить("через Форму Атрибут '" + Реквизит.Идентификатор + "' " + ?(АтрибутЧерезФорму.Видимость() = 1, "Видимый", "Невидимый") + " " + ?(АтрибутЧерезФорму.Доступность() = 1, "Доступный", "Недоступный"), "!");
		КонецЕсли;
// -- завершение

	КонецЦикла;
КонецПроцедуры