Обработка загружается в дополнительные внешние обработки.
Далее нужно настроить расписание.
Принцип работы:
После выполнения обмена, при выполнении регламентного задания проверяется необходимость выполнения обновления.
Если нужно обновить - тогда всех выкинет из БД и запланирует задание на обновление конфигурации. Если обновление прошло удачно, тогда отключит выполнение задания.
Пароль администратора у меня хранится в константе, потому нужно в строке с установкой пароля ввести пароль вашего пользователя, ну и имя поменять.
Функция ЗавершитьСеансы()
Результат = Истина;
Блокировка = Новый БлокировкаСеансов;
Блокировка.Установлена = Истина;
Блокировка.Начало = ТекущаяДатаСеанса();
Блокировка.КодРазрешения = "КодРазрешения";
Блокировка.Сообщение = "Выполняется обновление. Сохраните данные и закройте 1С";
УстановитьБлокировкуСеансов(Блокировка);
Возврат Результат;
КонецФункции
Процедура ОбновлениеБД()
//Пропишем пароль пользователя
ПарольАдмина = Константы.Сударь_Администратор.Получить();
Результат = "";
Админ = Справочники.Пользователи.НайтиПоНаименованию("Администратор");
Если ЗначениеЗаполнено(Админ.ИдентификаторПользователяИБ) Тогда
ЗначХран = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(Админ.ИдентификаторПользователяИБ);
ЗначХран.Пароль = ПарольАдмина;
Попытка
ЗначХран.Записать();
Исключение
Результат = "Не удалось записать пользователя.";
Конецпопытки;
КонецЕсли;
//Запишем батник для обновления
Если Результат = "" Тогда
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
Если лев(СтрокаСоединения,4) = "Srvr" Тогда
Сервак = Лев(СтрокаСоединения,Найти(СтрокаСоединения,";Ref="));
НачалоИБ = Найти(СтрокаСоединения,";Ref=")+5;
НужноВзять = СтрДлина(СтрокаСоединения)- НачалоИБ;
База = Прав(СтрокаСоединения,НужноВзять);
Сервак = СтрЗаменить(Сервак, "Srvr=", "");
Сервак = СтрЗаменить(Сервак, ";", "");
База = СтрЗаменить(База, ";", "");
СтрокаСоединения = Сервак+"\"+База;
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, """", "");
КаталогПрограммы = КаталогПрограммы();
ИмяФайлаПрограммы = КаталогПрограммы + "\1cv8.exe";
КоманднаяСтрокаОбновления = "echo off
|cls
|"""+ИмяФайлаПрограммы+""" CONFIG /S"""+СтрокаСоединения+""" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /UpdateDBCfg /UC""КодРазрешения""
|"""+ИмяФайлаПрограммы+""" ENTERPRISE /S"""+СтрокаСоединения+""" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /C""РазрешитьРаботуПользователей"" /UC""КодРазрешения""";
Иначе
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, "File=", "");
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", "");
КаталогПрограммы = КаталогПрограммы();
ИмяФайлаПрограммы = КаталогПрограммы + "\1cv8.exe";
КоманднаяСтрокаОбновления = "echo off
|cls
|"""+ИмяФайлаПрограммы+""" CONFIG /F"+СтрокаСоединения+" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /UpdateDBCfg /UC""КодРазрешения""
|"""+ИмяФайлаПрограммы+""" ENTERPRISE /F"+СтрокаСоединения+" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /C""РазрешитьРаботуПользователей"" /UC""КодРазрешения""";
КонецЕсли;
ИмяФайлаСкрипта = "C:\run1С.bat";
Ф = Новый ТекстовыйДокумент();
Ф.УстановитьТекст(КоманднаяСтрокаОбновления);
Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.OEM);
Результат = "Выполнено";
КонецЕсли;
//Запишем схему для создания задания
Если Результат = "Выполнено" Тогда
WSH = Новый COMobject("wscript.network");
ИмяКомпьютера = WSH.ComputerName;
ИмяПользователя = WSH.UserName;
ТекстХМЛ = "<?xml version=""1.0"" encoding=""UTF-16""?>
|<Task version=""1.2"" xmlns=""http://schemas.microsoft.com/windows/2004/02/mit/task"">
| <RegistrationInfo>
| <Date>2017-04-05T16:11:32.542172</Date>
| <Author>"+ИмяКомпьютера+"\"+ИмяПользователя+"</Author>
| <Description>Запускаем обновление и затем пускаем пользователей и выполняем синхронизацию с центром</Description>
| </RegistrationInfo>
| <Triggers>
| <CalendarTrigger>
| <Repetition>
| <Interval>PT5M</Interval>
| <Duration>P1D</Duration>
| <StopAtDurationEnd>false</StopAtDurationEnd>
| </Repetition>
| <StartBoundary>2017-04-06T08:00:00</StartBoundary>
| <Enabled>true</Enabled>
| <ScheduleByDay>
| <DaysInterval>1</DaysInterval>
| </ScheduleByDay>
| </CalendarTrigger>
| <RegistrationTrigger>
| <Enabled>true</Enabled>
| <Delay>PT30S</Delay>
| </RegistrationTrigger>
| </Triggers>
| <Principals>
| <Principal id=""Author"">
| <UserId>"+ИмяКомпьютера+"\"+ИмяПользователя+"</UserId>
| <LogonType>InteractiveToken</LogonType>
| <RunLevel>HighestAvailable</RunLevel>
| </Principal>
| </Principals>
| <Settings>
| <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>
| <DisallowStartIfOnBatteries>true</DisallowStartIfOnBatteries>
| <StopIfGoingOnBatteries>true</StopIfGoingOnBatteries>
| <AllowHardTerminate>true</AllowHardTerminate>
| <StartWhenAvailable>true</StartWhenAvailable>
| <RunOnlyIfNetworkAvailable>false</RunOnlyIfNetworkAvailable>
| <IdleSettings>
| <StopOnIdleEnd>true</StopOnIdleEnd>
| <RestartOnIdle>false</RestartOnIdle>
| </IdleSettings>
| <AllowStartOnDemand>true</AllowStartOnDemand>
| <Enabled>true</Enabled>
| <Hidden>false</Hidden>
| <RunOnlyIfIdle>false</RunOnlyIfIdle>
| <WakeToRun>false</WakeToRun>
| <ExecutionTimeLimit>PT4H</ExecutionTimeLimit>
| <Priority>7</Priority>
| <RestartOnFailure>
| <Interval>PT1M</Interval>
| <Count>3</Count>
| </RestartOnFailure>
| </Settings>
| <Actions Context=""Author"">
| <Exec>
| <Command>C:\run1С.bat</Command>
| </Exec>
| </Actions>
|</Task>";
ИмяФайлаСкрипта = "C:\Run1C_Task.xml";
Ф = Новый ТекстовыйДокумент();
Ф.УстановитьТекст(ТекстХМЛ);
Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.UTF16);
Результат = "Записано";
КонецЕсли;
Если Результат = "Записано" Тогда
ТекстБатника ="
|@echo off
|Rem action - установка значение disable или enable
|set task_action=enable
|REM Проверка наличия прав администратора
|REM @WHOAMI /PRIV | find /i ""SeRemoteShutdownPrivilege"" > nul
|REM if %ERRORLEVEL% == 0 goto admin
|REM echo Execution aborted. Run this batch file AS Administrator !!!
|REM pause
|REM exit
|REM :admin
|REM @echo try %task_action% scheduled tasks ...
|schtasks /Create /XML c:\Run1C_Task.xml /TN ""Run1C_Task""
|schtasks /change /tn ""\Run1C_Task"" /%task_action% >> %~dn0.log";
ИмяФайлаСкрипта = "C:\schtasks.bat";
Ф = Новый ТекстовыйДокумент();
Ф.УстановитьТекст(ТекстБатника);
Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.OEM);
Результат = "Можно запускать";
КонецЕсли;
Если Результат = "Можно запускать" Тогда
Попытка
ЗапуститьПриложение(ИмяФайлаСкрипта,,ложь);
Исключение
КонецПопытки;
КонецЕсли;
КонецПроцедуры
Процедура ОтключитьПланировщик()
ТекстБатника ="
|@echo off
|Rem action - установка значение disable или enable
|set task_action=disable
|REM Проверка наличия прав администратора
|REM @WHOAMI /PRIV | find /i ""SeRemoteShutdownPrivilege"" > nul
|REM if %ERRORLEVEL% == 0 goto admin
|REM echo Execution aborted. Run this batch file AS Administrator !!!
|REM pause
|REM exit
|REM :admin
|REM @echo try %task_action% scheduled tasks ...
|schtasks /Create /XML c:\Run1C_Task.xml /TN ""Run1C_Task""
|schtasks /change /tn ""\Run1C_Task"" /%task_action% >> %~dn0.log";
ИмяФайлаСкрипта = "C:\schtasks.bat";
Ф = Новый ТекстовыйДокумент();
Ф.УстановитьТекст(ТекстБатника);
Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.OEM);
Попытка
ЗапуститьПриложение(ИмяФайлаСкрипта,,ложь);
Исключение
КонецПопытки;
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт
