ПриВыполненииСтандартныхПериодическихПроверокНаКлиенте (БСП)

При выполнении стандартных периодических проверок на клиенте.

Процедура ПриВыполненииСтандартныхПериодическихПроверокНаКлиенте(Параметры) Экспорт
    
    Окна = ПолучитьОкна();
    АктивныхОкон = 0;
	Если Окна <> Неопределено Тогда
		Для Каждого ТекОкно Из Окна Цикл
	        Если Не ТекОкно.Основное Тогда
	            АктивныхОкон = АктивныхОкон + 1;
	        КонецЕсли;
		КонецЦикла;
	КонецЕсли;
    
    ПараметрыПриложенияЦентрМониторинга = ПолучитьПараметрыПриложения();
    ПараметрыПриложенияЦентрМониторинга["ИнформацияКлиента"].Вставить("АктивныхОкон", АктивныхОкон);
    
    Параметры.Вставить("ЦентрМониторинга", Новый ФиксированноеСоответствие(ПараметрыПриложенияЦентрМониторинга));
    
    Замеры = Новый Соответствие;
    Замеры.Вставить(0, Новый Массив);
    Замеры.Вставить(1, Новый Соответствие);
    Замеры.Вставить(2, Новый Соответствие);
    ПараметрыПриложенияЦентрМониторинга.Вставить("Замеры", Замеры);
    
КонецПроцедуры

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

Процедура ПриВыполненииСтандартныхПериодическихПроверокНаКлиенте(Параметры) Экспорт
    
    Окна = ПолучитьОкна();
    АктивныхОкон = 0;
	Если Окна <> Неопределено Тогда
		Для Каждого ТекОкно Из Окна Цикл
	        Если Не ТекОкно.Основное Тогда
	            АктивныхОкон = АктивныхОкон + 1;
	        КонецЕсли;
		КонецЦикла;
	КонецЕсли;
    
    ПараметрыПриложенияЦентрМониторинга = ПолучитьПараметрыПриложения();
    ПараметрыПриложенияЦентрМониторинга["ИнформацияКлиента"].Вставить("АктивныхОкон", АктивныхОкон);
    
    Параметры.Вставить("ЦентрМониторинга", Новый ФиксированноеСоответствие(ПараметрыПриложенияЦентрМониторинга));
    
    Замеры = Новый Соответствие;
    Замеры.Вставить(0, Новый Массив);
    Замеры.Вставить(1, Новый Соответствие);
    Замеры.Вставить(2, Новый Соответствие);
    ПараметрыПриложенияЦентрМониторинга.Вставить("Замеры", Замеры);
    
КонецПроцедуры

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////