Доброго времени суток, уважаемые коллеги.
Начну с небольшого предисловия. Недавно обновил базу бухгалтерии до последнего релиза и встала задача об обновлении классификатора, но делать данную работу монотонно для 3-х баз руками хотелось не очень. Тем более давно хотел попробовать для себя на практике oScript и его библиотеки.
Вот и родилась идея помочь не только себе, но и другим людям.
Идея скрипта очень проста: скачиваем с сайта https://its.1c.ru БД ФИАС с поддержкой адресов по муниципальному делению, распаковываем и запускаем 1С с обработкой, которая уже определяет, что нам нужно обновлять.
В обработке добавлен код для определения, какие регионы загружать в классификатор:
&НаКлиенте
Процедура _ПриОткрытии(Отказ)
ПриОткрытии(Отказ);
Попытка
КодИсточникаЗагрузки = "КАТАЛОГ";
Для Каждого стр ИЗ СубъектыРФ Цикл
Если стр.КодСубъектаРФ = 45 //Курганская обл
ИЛИ стр.КодСубъектаРФ = 47 //Ленинградская обл
ИЛИ стр.КодСубъектаРФ = 50 //Московская область
ИЛИ стр.КодСубъектаРФ = 59 //Пермский край
ИЛИ стр.КодСубъектаРФ = 66 //Свердловская обл
ИЛИ стр.КодСубъектаРФ = 72 //Тюменкская обл
ИЛИ стр.КодСубъектаРФ = 74 //Челябинская обл
ИЛИ стр.КодСубъектаРФ = 77 //Город Москва
ИЛИ стр.КодСубъектаРФ = 78 //Город СанктПетербург
Тогда
стр.Загружать = Истина;
Иначе
стр.Загружать = Ложь;
КонецЕсли;
КонецЦикла;
АдресЗагрузки = "D:\Script\download";
ОбновитьИнтерфейсПоКоличествуЗагружаемых();
Загрузить(Неопределено);
Исключение
ЗаписатьОшибкуВЖурнал(ОписаниеОшибки());
ЗавершитьРаботуСистемы(Ложь);
КонецПопытки;
КонецПроцедуры //_ПриОткрытии
Также обращу внимание на то, что в коде также жестко прописано, куда будут распакованы, скачанные скриптом файлы.
Тестирование проводилось на библиотеке стандартных подсистем версии 3.0.1.349, а именно на конфигурации 1С: Бухгалтерия 3.0 (3.0.67.54)
UPD. 2023.11.16:
Изменена ссылка загрузки на адресный классификатор ГАР: https://its.1c.ru/download/gar
Доработана форма обработки.
Проверено на версии БСП: 3.1.9.144
Проверено на конфигурации: Бухгалтерия предприятия, редакция 3.0 (3.0.143.32)
Вступайте в нашу телеграмм-группу Инфостарт