Продвинутый курс. Занятие №6

Один Ответ на “Продвинутый курс. Занятие №6”

1. 

   Urgat 29.09.2013 в 14:43

   пришлось воспользоваться интернетом, и подсмотреть какие дополнительные параметры надо прописывать в строку запуска

   &НаКлиенте
   Процедура СинтаксическийКонтроль(Команда)
       КодВозврата = "";
       Путь = ПутьКБазе();
       Попытка        
           ЗапуститьПриложение("C:\Program Files\1cv82\common\1cestart.exe DESIGNER " + Путь + " /N""Администратор"" /CheckModules",, Истина, КодВозврата);
       Исключение
           Сообщить("ВозниклаОшибка");
       КонецПопытки;
   КонецПроцедуры
   
   &НаКлиенте
   Процедура СохранитьБазу(Команда)
       КодВозврата = "";
       Путь = ПутьКБазе();
       Попытка
           ЗапуститьПриложение("C:\Program Files\1cv82\common\1cestart.exe DESIGNER " + Путь + " /N""Администратор"" /DumpIB C:\bdc\BackUp\Base.dt",, Истина, КодВозврата);
           ЗавершитьРаботуСистемы(Истина, Истина);
       Исключение
           Сообщить("ВозниклаОшибка");
       КонецПопытки;
   КонецПроцедуры
   
   &НаКлиенте
   Процедура ТестированиеИИсправление(Команда)
       КодВозврата = "";
       Путь = ПутьКБазе();
       Попытка
           ЗапуститьПриложение("C:\Program Files\1cv82\common\1cestart.exe DESIGNER " + Путь + " /N""Администратор"" /IBCheckAndRepair",, Истина, КодВозврата);
       Исключение
           Сообщить("ВозниклаОшибка");
       КонецПопытки;
   КонецПроцедуры
   
   &НаСервереБезКонтекста
   Функция ПутьКБазе()
       СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
       Если Найти(СтрокаСоединения, "File") Тогда
           СтрокаПути = Сред(СтрокаСоединения, 7);
           СтрокаПути = "/F " + Лев(СтрокаПути, Найти(СтрокаПути, """")-1);
       Иначе
           СтрокаПути = "/S " + Сред(СтрокаСоединения, 6);
       КонецЕсли;
       Возврат СтрокаПути;
   КонецФункции