Автоматическое подтверждение легальности обновления базы или как обновить 100 типовых баз 1С за 5 часов

 1) Сначала надо зайти на сервер и завершить все сеансы оставленные пользователями.

2) Запустить написанную предшественниками не знаю на чем программку по блокировке регламентных заданий на сервере

3) Скачать новый  *.cfu файл обновления для типовых баз 

3а) Обновить изменную базу в хранилище из скачанного cfu файла

4) Сформировать пакетные bat файлы (обычно делим на 4 потока - 4 файла)

5) Запустить  пакетные файлы и дождаться их завершения.

6) Запустить каждый экземпляр базы в режиме Предприятия, подтвердить легальность и закрыть базу.

7) Запустить программку по разблокировке регламентных заданий.

Готово !!!  Мы провели незабываемое время у компа и обновили 80 типовых баз, потратив на это все выходные. 

 1)  В обработке обновления выбираем тип базы ( Бухгалтерия ) и номер потока  (все базы в конфе обслуживания уже поделены на потоки )

2) Нажимаем кнопку "Выполнить"  

и ...  ложимся спать.    Все базы выбранного потока обновлены, Легальность обновления подтверждена, Обработчики обновления выполнены. 

Что делает обработка автоматически сама:

1) Определяет текущий релиз базы

2) Скачивает с сайта 1с файл с информацией об обновлении данного типа конфигурации. (Бух, ЗУП, УТ...)

3) Проверяет наличие в каталоге конфигураций доступного обновления из списка.

4) Если нужного обновления нет, скачивает его автоматически с сайта 1С (нужен логин и пароль для доступа на сайт 1С) и размещает его в каталог обновлений.

5) Отрубает на сервере 1С все сеансы пользователей от текущей базы

6) Запускает обновление конфигурации и базы данных.

7) Если обновились до последнего релиза и больше обновлять не надо, запускает 1С в режиме Предприятия для подтверждения легальности обновления и выполнения отложенных обработчиков обновления

и так по кругу пока не кончится список баз. 

        // Прверка наличия обновлений
        МассивОбновлений = ВыполнитьЗагрузкуСпискаОбновлений(ПараметрыComБазы.ТекущаяВерсия);
        Если МассивОбновлений = Неопределено Тогда 
            Возврат;
        КонецЕсли;     

        КоличествоДоступныхОбновлений = МассивОбновлений.Количество(); 
        Если КоличествоДоступныхОбновлений = 0 Тогда
            Если ОбновлениеБыло Тогда
                СообщитьПользователю(НСтр("ru = 'Обработчики обновления информационной базы.'"));
                КомандаПакетногоОбновления = СтрШаблон("""%1"" ENTERPRISE %2 /RunModeManagedApplication",
                ПараметрыComБазы.ПутьКПлатформе, СтрокаСоединения);
                ЗапуститьПриложение(КомандаПакетногоОбновления, , Истина, КодВозврата);
                Если КодВозврата = 0 Тогда
                    СообщитьПользователю(НСтр("ru = 'Обработчики выполнены.'"));
                Иначе
                    СообщитьПользователю(НСтр("ru = 'Ошибка при выполнении обработчиков.'"));
                 //   Возврат;
                КонецЕсли;
            КонецЕсли; 
            
            СообщитьПользователю(СтрШаблон(НСтр("ru = 'Текущая версия: %1. Обновление не требуется.'"), ПараметрыComБазы.ТекущаяВерсия));
            Прервать;
        КонецЕсли;
        
        ЗагруженноеОбновлениеНайдено = Ложь;
        Для Сч = 1 По КоличествоДоступныхОбновлений Цикл
            ВерсияДляОбновления = МассивОбновлений[КоличествоДоступныхОбновлений - Сч]; 
            ФайлОбновленияВерсии = СтрШаблон("%1\%2\%3\1cv8.cfu", ПараметрыОбновления.КаталогФайловОбновления, ТипКонфигурации, ВерсияДляОбновления.Версия);
            ФайлОбновленияВерсииОбъект = Новый Файл(ФайлОбновленияВерсии);
            Если ФайлОбновленияВерсииОбъект.Существует() Тогда
                ЗагруженноеОбновлениеНайдено = Истина;
                СообщитьПользователю(СтрШаблон(НСтр("ru = 'Текущая версия: %1. Доступна для обновления версия: %2.'"), 
                    ПараметрыComБазы.ТекущаяВерсия, ВерсияДляОбновления.Версия));
                Прервать;
            КонецЕсли;
        КонецЦикла;
        
        // Загрузка файлов обновления
        Если Не ЗагруженноеОбновлениеНайдено Тогда
            ВерсияДляОбновления = МассивОбновлений[КоличествоДоступныхОбновлений - 1]; 
            ФайлОбновленияВерсии = СтрШаблон("%1\%2\%3\1cv8.cfu", ПараметрыОбновления.КаталогФайловОбновления, ТипКонфигурации, ВерсияДляОбновления.Версия);
            СообщитьПользователю(СтрШаблон(НСтр("ru = 'Текущая версия: %1. Доступна для загрузки версия: %2 (Поставщик %3, размер %4).'"), 
            ПараметрыComБазы.ТекущаяВерсия, ВерсияДляОбновления.Версия, ВерсияДляОбновления.Поставщик, ВерсияДляОбновления.РазмерФайлаОбновления));
            Если НЕ ПолучитьФайлыОбновлений(ТипКонфигурации, ВерсияДляОбновления) Тогда
                Возврат;
            КонецЕсли;
        КонецЕсли;
        
        
        // Отрубим сеансы пользователей для серверной базы 
        Если ПараметрыПодключения.ВариантРаботыИнформационнойБазы = 1 Тогда
            Попытка
                СообщитьПользователю(НСтр("ru = 'Отрубаем все сеансы пользователей с информационной базой.'"));
                Коннектор = Новый COMОбъект("v83.COMConnector");
                Если СтрНайти(ИмяСервера1СПредприятия,":")>0 Тогда    // Если используется не стандартный порт 1541 или он передан в имени сервера, то в номере порта "1" надо заменить на "0"
                      Конект = Лев(ИмяСервера1СПредприятия,СтрДлина(ИмяСервера1СПредприятия)-1) + "0";
                Иначе
                    Конект = строка(ИмяСервера1СПредприятия);
                КонецЕсли; 
                Агент = Коннектор.ConnectAgent(Конект);

                Кластеры = Агент.GetClusters();
                Для каждого Кластер из Кластеры Цикл
                    Агент.Authenticate(Кластер,,);
                    Процессы = Агент.GetWorkingProcesses(Кластер);
                    
.......

.......

        
        // Создание резервной копии выгрузкой DT
        // В нашем варианте нет смысла в использовании
                    //СообщитьПользователю(СтрШаблон(НСтр("ru = 'Создание резервной копии информационной базы (%1).'"), ИмяВременногоФайла));
                    //КомандаПакетногоАрхивирования = СтрШаблон("""%1"" CONFIG %2 /DumpIB %3 /OUT %4 -NoTruncate",
                    //ПараметрыComБазы.ПутьКПлатформе, СтрокаСоединения, СтрокаДампа, СтрокаЛогов);
                    //ЗапуститьПриложение(КомандаПакетногоАрхивирования, , Истина, КодВозврата);
                    //Если КодВозврата = 0  Тогда
                    //    СообщитьПользователю(НСтр("ru = 'Резервная копия информационной базы успешно создана.'"));
                    //Иначе
                    //    СообщитьПользователю(НСтр("ru = 'Ошибка при создании резервной копии информационной базы.'"));
                    //    Возврат;
                    //КонецЕсли;
        
        // Обновление информационной базы                                                                                                                                                              
        СообщитьПользователю(НСтр("ru = 'Обновление информационной базы.'"));
        КомандаПакетногоОбновления = СтрШаблон("""%1"" CONFIG %2 /UpdateCfg ""%3"" /UpdateDBCfg /DisableStartupMessages /OUT %4 -NoTruncate",
        ПараметрыComБазы.ПутьКПлатформе, СтрокаСоединения, ФайлОбновленияВерсии, СтрокаЛогов);
        ЗапуститьПриложение(КомандаПакетногоОбновления, , Истина, КодВозврата);
        Если КодВозврата = 0 Тогда
            СообщитьПользователю(НСтр("ru = 'Информационная база успешно обновлена.'"));
            ОбновлениеБыло = Истина;
        Иначе
            СообщитьПользователю(НСтр("ru = 'Ошибка при обновлении информационной базы.'"));
            Возврат;
        КонецЕсли;
        
    КонецЦикла;
    
КонецПроцедуры