ФормаТестаПоддерживаетОтладку.bsl

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

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

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

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

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

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

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

&НаКлиенте
Функция ЭтаФормаПоддерживаетОтладку(Знач Форма)
	
	Если ТипЗнч(Форма) <> Тип("УправляемаяФорма") Тогда
		Возврат Ложь;
	КонецЕсли;
	
	ИзвлекаемыеРеквизитыФормы = Новый Структура;
	ИзвлекаемыеРеквизитыФормы.Вставить("Тесты_РазрешенаОтладка", Ложь);
	
	ЗаполнитьЗначенияСвойств(ИзвлекаемыеРеквизитыФормы, Форма);
	
	Возврат ИзвлекаемыеРеквизитыФормы.Тесты_РазрешенаОтладка = Истина;
	
КонецФункции

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

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