-
Был взят классификатор стран со страницы https://classifikators.ru/oksm
-
Скопированный классификатор вставлен в Excel, затем загружен в ТаблицуЗначений в 1C
-
ТаблицаЗначений сохранена в файл
-
В базу добавлена константа - "Путь к классификатору стран мира" (Константа.ПутьОКСМ)
-
В форму списка справочника ОКСМ добавлена кнопка "Добавить из классификатора стран мира" с формулой "ПриВводеСтроки()"
-
В модуль формы списка добавлен следующий код:
Процедура ПриВводеСтроки()
Если ФС.СуществуетФайл(Константа.ПутьОКСМ) = 0 Тогда
Сообщить("Не найден классификатор стран!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
ЗначениеИзФайла(Константа.ПутьОКСМ, ТабЗнач, 0);
СпрСтрана = СоздатьОбъект("Справочник.ОКСМ");
СпрСтрана.ВыбратьЭлементы();
Пока СпрСтрана.ПолучитьЭлемент() = 1 Цикл
Стр = "";
Если ТабЗнач.НайтиЗначение(СпрСтрана.Код, Стр, "Код") <> 0 Тогда
ТабЗнач.УдалитьСтроку(Стр);
КонецЕсли;
КонецЦикла;
ВыбСтрока = "";
Если ТабЗнач.ВыбратьСтроку(ВыбСтрока, "Выберите страну для добавления") <> 1 Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ВыбСтрока = 0 Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
СпрСтрана.Новый();
СпрСтрана.Код = ТабЗнач.ПолучитьЗначение(ВыбСтрока, "Код");
СпрСтрана.Наименование = ТабЗнач.ПолучитьЗначение(ВыбСтрока, "Страна");
СпрСтрана.Записать();
Форма.Обновить();
КонецПроцедуры
Теперь пользователи могут добавлять страны только из классификатора:
Из открывающейся для выбора таблицы убраны уже присутствующие в справочнике страны - для исключения добавления повторов.
Прилагаю таблицу значений, выгруженную в файл.
Надеюсь, кому-нибудь поможет.
