Процедура ПередЗавершениемРаботыСистемы(Отказ)
Ответ = Вопрос("Завершить работу с программой?", РежимДиалогаВопрос.ДаНет);
Отказ = (Ответ = КодВозвратаДиалога.Нет);
//Выгрузка базы
Попытка
УстановитьМонопольныйРежим(Истина);
ИмяФайла=СокрЛП(СтрЗаменить(СокрЛП(ТекущаяДата()),":",""));
ИмяФайла=СокрЛП(СтрЗаменить(ИмяФайла,".",""));
ИмяФайла=СокрЛП(СтрЗаменить(ИмяФайла," ","_"));
Предупреждение("Выполняется архивирование данных. Не выключайте компьютер на 2 минуты!",5);
ЗапуститьПриложение("""C:\Program Files\1cv81\bin\1cv8.exe"""+" CONFIG /F \\1CSERVER\Bases\Base8\Base2012 /N Администратор /P 204639699 /DumpIB \\1CSERVER\Bases\Base8\Arxiv8\"+ИмяФайла+".dt");
Исключение
Не удалось Выгрузка базы другие ползователи работает
КонецПопытки;;
КонецПроцедуры