Категории статистического учета для должностей. ЗУП 3.1

Доброго времени суток!

Если Вы, как и я, столкнулись с необходимостью перенести данные по категориям должностей в ЗУП 3, то надеюсь Вам поможет моя публикация :) Изменение или снятие конфигурации с поддержки не требуется: категория будет храниться в дополнительном реквизите, а импорт осуществляться внешней обработкой посредством Com-объекта. 

Прежде всего, указываем в настройках возможность использования дополнительных реквизитов: Администрирование - Общие настройки - Дополнительные реквизиты и сведения

Далее добавляем дополнительный реквизит к справочнику Должности: Администрирование - Дополнительные реквизиты - В правой части добавляем реквизит, назовем его, к примеру,  "Категория статистического учета".

Развернем область "Для разработчика" внизу формы и впишем туда имя "КатегорияСтатистическогоУчета". Тип значения реквизита установим свой: на вкладке Значения добавим варианты категорий так, как они были заведены в зуп 2.5 (важно, что бы их наименования полностью совпадали, по ним будет производится сопоставление для импорта).

Сохраняем изменения по кнопке "Записать". 

Теперь у нас есть реквизит для хранения категории, если должностей совсем немного - на этом можно остановиться и забить их вручную. Однако если должностей очень много, либо вносить вручную просто не хочется, идем дальше - напишем обработку для подключение к базе зуп 2.5.

Устанавливаем соединение с базой ЗУП 2.5 посредством com-объекта: 

Функция УстановитьCOMСоединение()
     
    //Заменить слова сервер, база, пользователь и пароль на соответствующие значения   
    СтрокаПодключения = "Srvr=""сервер""; Ref=""база""; Usr=""пользователь""; Pwd=""пароль"";";     
    
    //Если вы подключаетесь к файловой базе, строка выглядит следующим образом:
    //СтрокаПодключения = "file=""D:\ПапкаСБазой""; Usr=""пользователь""; Pwd=""пароль"";"  
   

    Попытка
        Коннектор = Новый COMObject("V83.COMConnector");
        Соединение = Коннектор.Connect(СтрокаПодключения);
        Возврат Соединение;
    Исключение
        ТекстСообщенияОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
        ВызватьИсключение ТекстСообщенияОбОшибке;
    КонецПопытки;
    
КонецФункции

После успешного подключения получаем выборку данных по категориям должностей из базы зуп 2.5:

&НаСервере
Процедура КомандаВыполнитьНаСервере()
    
    Соединение = УстановитьCOMСоединение(); 
    
    Если Соединение = Неопределено тогда
        Возврат;
    КонецЕсли;
    
    Запрос = Соединение.NewObject("Запрос");
    Запрос.Текст = "
        |    ВЫБРАТЬ
        |        ДолжностиОрганизаций.Наименование КАК Наименование,
        |        ПРЕДСТАВЛЕНИЕ(ДолжностиОрганизаций.КатегорияСтатистическогоУчета) КАК КатегорияСтатистическогоУчета //превращаем тип перечисление в тип строка
        |    ИЗ
        |        Справочник.ДолжностиОрганизаций КАК ДолжностиОрганизаций
        |    ГДЕ
        |        НЕ ДолжностиОрганизаций.ПометкаУдаления";

    
    Выб = Запрос.выполнить().ВЫбрать();
    
    пока Выб.следующий() цикл
        
        Попытка    
            должность = Справочники.Должности.НайтиПоНаименованию(Выб.Наименование);
            долж = должность.ПолучитьОбъект();
             
            рекв = долж.ДополнительныеРеквизиты.Добавить();
            рекв.Свойство = Объект.Свойство; //реквизит обработки, создаем и выводим на форму реквизит с типом ПланВидовХарактеристик "Дополнительные реквизиты и сведения"
            
            Если выб.КатегорияСтатистическогоУчета = "Руководители" тогда
                рекв.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("Руководители");
            ИначеЕсли
                выб.КатегорияСтатистическогоУчета = "Специалисты" тогда
                рекв.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("Специалисты");
            ИначеЕсли
                выб.КатегорияСтатистическогоУчета = "Рабочие" тогда
                рекв.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("Рабочие");
            ИначеЕсли
                выб.КатегорияСтатистическогоУчета = "Научные и научно-педагогические работники" тогда
                рекв.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("Научные и научно-педагогические работники");    
            Иначе
                рекв.Значение = "Другие служащие";
            КонецЕсли;        
            
            долж.Записать();
        Исключение
            ошибка = ОписаниеОшибки();
            Сообщить(Выб.Наименование+ " " +ошибка);
        КонецПопытки;
    КонецЦикла;
        
КонецПроцедуры

Готово, теперь в наших дополнительных реквизитах хранятся категории! Данное поле можно выводить в отчеты посредством пользовательских настроек, устанавливать по нему отбор и т.д. Надеюсь, моя публикация была Вам полезна :)

Прилагаю также оригинал обработки - для использования необходимо выбрать из выпадающего списка вариант подключения - файловый(file..) или клиент-серверный(srvr..) и прописать параметры строки - имя базы и сервера для клиент-серверного, путь к базе для файлового, пользователь и пароль для подключения к вашей базе для экспорта. Обработка тестировалась на релизе ЗУП 3.1.6.37, платформа 8.3.10.2580