Отключение пользователей 1С с помощью отчета(обработки)

в ГМ вот такая процедурка

Процедура Чат() Экспорт
Перем КонтекстФормы;

//ЧАТ
Текст = СоздатьОбъект("Текст");
Каталог=КаталогИБ()+"Chat\";
User=ИмяПользователя();

Если ФС.СуществуетФайл(Каталог+User+".ch")=1 Тогда
Текст.Открыть(Каталог+User+".ch");
Если Текст.КоличествоСтрок()>0 Тогда
Для Стр=1 По Текст.КоличествоСтрок() Цикл
с = СокрЛП(Текст.ПолучитьСтроку(Стр));
маркер = ".";
Если с<>"" Тогда
Если Найти(с,"(i)")<>0 ТОгда
маркер = "i";
КонецЕсли;
Если Найти(с,"(!)")<>0 ТОгда
маркер = "!";
КонецЕсли;
Если Найти(с,"(!!)")<>0 ТОгда
маркер = "!!";
КонецЕсли;
Если Найти(с,"(!!!)")<>0 ТОгда
маркер = "!!!";
КонецЕсли;
Сообщить(с,маркер);
Сигнал();
Если Найти(с,"ЗавершитьРаботуСистемы")<>0 Тогда
предупреждение("Выполняется принудительный выход из системы",5);
пар = сред(с,найти(с,"(")+1,найти(с,")")-найти(с,"(")-1);
ЗавершитьРаботуСистемы(число(пар));
ИначеЕсли Найти(с,"ЗапуститьПриложение")<>0 Тогда
пар = сред(с,найти(с,"(")+1,найти(с,")")-найти(с,"(")-1);
ЗапуститьПриложение(пар);
ИначеЕсли Найти(с,"ОчиститьОкноСообщений")<>0 Тогда
пар = сред(с,найти(с,"(")+1,найти(с,")")-найти(с,"(")-1);
ОчиститьОкноСообщений();
КонецЕсли;
КонецЕсли;
КонецЦикла;
Текст.Очистить();
Текст.Записать(Каталог+User+".ch");
КонецЕсли;
Иначе
ФС.КопироватьФайл(КаталогПользователя()+"1Cv7.LCK", Каталог+User+".ch", 1);
КонецЕсли;

Если БлокнотРедактируется=1 Тогда
Возврат;
КонецЕсли;

Блокнот=СоздатьОбъект("Справочник.Блокнот");
Надо=0;

Блокнот.НайтиПоКоду(ИмяПользователя());
Если (Блокнот.Выбран()=0) ИЛИ (Блокнот.ЭтоГруппа()=0) Тогда
Возврат;
КонецЕсли;
Блокнот.ИспользоватьРодителя(Блокнот.ТекущийЭлемент());
Блокнот.ВыбратьЭлементы();
ТД = ТекущаяДата();
Пока Блокнот.ПолучитьЭлемент()=1 Цикл
Если (Блокнот.Повторить=1) И (ТекущееВремя()>=Блокнот.ВремяПовтора) Тогда
Надо=1;
Прервать;
КонецЕсли;
Если ТД > Блокнот.__ДатаПоказа Тогда
ДатаОчередногоПоказа = ДатаОчередногоПоказа(Блокнот.ТекущийЭлемент());
Если (ДатаОчередногоПоказа=ТД)И(ТекущееВремя()>=Блокнот.Время) Тогда
Надо = 1;
Прервать;
ИначеЕсли (ТД>ДатаОчередногоПоказа)И((Блокнот.Периодичность<>0)ИЛИ(Число(Блокнот.__ДатаПоказа)=0)) Тогда
Надо = 1;
Прервать;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Если Надо=1 Тогда
Блокнот.__ДатаПоказа = ТекущаяДата();
Блокнот.Повторить=0;
Блокнот.Записать();
ОткрытьФорму(Блокнот.ТекущийЭлемент(),КонтекстФормы);
КонтекстФормы.Форма.ИспользоватьСлой("Просмотр",1);
КонецЕсли;
КонецПроцедуры

и все дружно покидают 1С