Багфикс (#164)

plugins/РекурсивныйПодсчетСерверныхВызововВМодуляхФорм/src/РекурсивныйПодсчетСерверныхВызововВМодуляхФорм/Ext/ObjectModule.bsl

@@ -12,6 +12,7 @@
 Перем Вызывающий, ВызывающийНаКлиенте;
 Перем ТаблицаВызовов;
 Перем Методы;
+Перем Стек;
 
 Процедура Инициализировать(Парсер, Параметры) Экспорт
 	Узлы = Парсер.Узлы();
@@ -23,6 +24,7 @@
 	ТаблицаВызовов.Колонки.Добавить("Метод");
 	ТаблицаВызовов.Колонки.Добавить("ВызовСервера", Новый ОписаниеТипов("Число"));
 	ТаблицаВызовов.Indexes.Добавить("Метод, НаКлиенте");
+	Стек = Новый Соответствие;
 	Методы = Новый Соответствие;
 КонецПроцедуры // Инициализировать()
 
@@ -71,9 +73,14 @@
 
 Процедура ПодсчитатьВызовыСервера(Метод)
 	Перем ВызовыНаКлиенте;
+	Если Стек[Метод.Имя] <> Неопределено Тогда
+		Возврат;
+	КонецЕсли; 
+	Стек[Метод.Имя] = Истина; 
 	ВызовыНаКлиенте = ТаблицаВызовов.НайтиСтроки(Новый Структура("Метод, НаКлиенте", Метод, Истина));
 	Для Каждого Строка Из ВызовыНаКлиенте Цикл
 		Строка.ВызовСервера = Строка.ВызовСервера + 1;
 		ПодсчитатьВызовыСервера(Строка.Вызывающий);
 	КонецЦикла;
+	Стек[Метод.Имя] = Неопределено;
 КонецПроцедуры // ПодсчитатьВызовыСервера()