#Область ПрограммныйИнтерфейс

&НаКлиенте
Функция Отладить() Экспорт

	ПоказатьПредупреждение(, "Я форма теста: я поддерживаю отладку");

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

#КонецОбласти

#Область ОбработчикиКомандФормы

&НаКлиенте
Процедура НайтиФормыСПодержкойОтладки(Команда)

	Для Каждого ТекОкно Из ПолучитьОкна() Цикл
		ТекФорма = ТекОкно.ПолучитьСодержимое();
		Если ЭтаФормаПоддерживаетОтладку(ТекФорма) Тогда
			ТекФорма.Отладить();
		КонецЕсли;
	КонецЦикла;

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

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

&НаКлиенте
Функция ЭтаФормаПоддерживаетОтладку(Знач Форма)

	Если ТипЗнч(Форма) <> Тип("УправляемаяФорма") Тогда
		Возврат Ложь;
	КонецЕсли;

	ИзвлекаемыеРеквизитыФормы = Новый Структура;
	ИзвлекаемыеРеквизитыФормы.Вставить("Тесты_РазрешенаОтладка", Ложь);

	ЗаполнитьЗначенияСвойств(ИзвлекаемыеРеквизитыФормы, Форма);

	Возврат ИзвлекаемыеРеквизитыФормы.Тесты_РазрешенаОтладка = Истина;

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

#КонецОбласти

Тесты_РазрешенаОтладка = Истина;