Регистрация текста окна сообщений
Для контроля работы пользователей потребовалось записывать текст окна сообщений в файл.
Получился простейший механизм регистрации лог-файла.
Удержать роста папки "Temp", в качестве рекомендации, может использование bat-файла, который будет чистить или архивировать получаемые логи. Таких батников в инете полным-полно.
P.S. Особо по форуму не смотрел, может, есть уже такое.
- Описание
- Подробнее
Описание
Перем Текст;
Перем ИмяЛогФайла;
Процедура ПриНачалеРаботыСистемы()
//Регистрация логов
Текст=СоздатьОбъект("Текст");
ИмяЛогФайла = КаталогИБ()+"Temp\"+Формат(ТекущаяДата(),"ДГГГГММДД")+".txt";
Попытка
Текст.Открыть(ИмяЛогФайла);
Исключение
КонецПопытки;
КонецПроцедуры //ПриНачалеРаботыСистемы()
Процедура ПриЗавершенииРаботыСистемы()
//Закрытие файла логов
Текст.Записать(ИмяЛогФайла);
КонецПроцедуры // ПриЗавершенииРаботыСистемы()
//Процедура, вызываемая вместо "Сообщить()"
Процедура ВыводСообщения(ТекстСообщения,Важн = "")
Сообщить(ТекстСообщения,Важн);
Текст.ДобавитьСтроку(?(Важн<>"",Важн+" ","") + Строка(ТекущаяДата())+" "+ Строка(ТекущееВремя())+" "+ ТекстСообщения);
КонецПроцедуры
//Пример вызова
Процедура МояПроцедура()
ВыводСообщения("Друзья-админы, я сделал что-то не так!","!!!");
КонецПроцедуры
