Предупреждение о превышении размера mlg
18.12.07
Разработка - Универсальные функции
Предупреждение о превышении размера mlg
Процедура ПроверимРазмер_mlg()
Перем РазмерФайла,АтрибутыФайла,ВремяСоздания,ВремяПоследнегоДоступа,ВремяПоследнейЗаписи,РасширенноеИмяФайла;
ИмяФ = каталогИб()+"Syslog\1cv7.mlg";
Фс.АтрибутыФайла(ИмяФ,РазмерФайла,АтрибутыФайла,ВремяСоздания,ВремяПоследнегоДоступа,ВремяПоследнейЗаписи,РасширенноеИмяФайла);
Если РазмерФайла > 1900000000 Тогда
Предупреждение("Текущий размер файла 1cv7.mlg : " + окр(РазмерФайла/1024/1024,2)+" Мбайт"+РазделительСтрок+РазделительСтрок+
"Допустимы размер файла 2048 Мбайт"+РазделительСтрок+
"Примите меры");
конецесли;
КонецПроцедуры
//-----------------------------------------------------
// Выполняется при старте
//-----------------------------------------------------
Процедура ПриНачалеРаботыСистемы()
ПроверимРазмер_mlg();
...
Перем РазмерФайла,АтрибутыФайла,ВремяСоздания,ВремяПоследнегоДоступа,ВремяПоследнейЗаписи,РасширенноеИмяФайла;
ИмяФ = каталогИб()+"Syslog\1cv7.mlg";
Фс.АтрибутыФайла(ИмяФ,РазмерФайла,АтрибутыФайла,ВремяСоздания,ВремяПоследнегоДоступа,ВремяПоследнейЗаписи,РасширенноеИмяФайла);
Если РазмерФайла > 1900000000 Тогда
Предупреждение("Текущий размер файла 1cv7.mlg : " + окр(РазмерФайла/1024/1024,2)+" Мбайт"+РазделительСтрок+РазделительСтрок+
"Допустимы размер файла 2048 Мбайт"+РазделительСтрок+
"Примите меры");
конецесли;
КонецПроцедуры
//-----------------------------------------------------
// Выполняется при старте
//-----------------------------------------------------
Процедура ПриНачалеРаботыСистемы()
ПроверимРазмер_mlg();
...
Вступайте в нашу телеграмм-группу Инфостарт
Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.