Импорт из DBF файла в групповой справочник

[Милуччи]

Имеется dbf файл-1.dbf.Его структура следующая:

______________________________________________
|----------------FIO-----------------|--DOLZN------|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|---------------Иванов И.И. ---------|-Программист-|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|----------------Петров П.П.---------| -Бухгалтер---|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|---------------Сидоров С.С---------|-Экономист---|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|-------------Петренко А.А----------|-Программист-|
и т.д

Необходимо содержимое этого файла импортировать в справочник "Сотрудники",причем при импортировании разбить сотрудников по группам(Программист,Экономист,Инженер,Бухгалтер и.т),т.е создать столько групп сколько неповторяющихся должностей в файле в поле "DOLZN ".Я импортировал просто без создания групп.Вот код:

Код:

Код Выделить Развернуть


Файл1=СоздатьОбъект("XBase");   
Файл1.ОткрытьФайл("1.dbf");   
Для ит=1 По Файл1.КоличествоЗаписей() Цикл
         Файл1.Перейти(ит);
         Спр1=СоздатьОбъект("Справочник.Сотрудники");
         Спр1.Новый();
         Спр1.ФИО=Файл1.FIO;
         Спр1.Должность=Файл1.DOLZN;
         Спр1.Записать();
КонецЦикла;
Файл1.ЗакрытьФайл();


Помогите симпортиовать с созданием групп.
Спасибо!

[prog1c7.7]

потом пишешь обработку заполнения СЗ с должностями без повторений,потом перебор СЗ
и создание. используй СпрСотр.НоваяГруппа();
Дальше разжевать?

[Милуччи]

Разжуйте,если не сложно?!

[prog1c7.7]

в какой части не понятно?

[Милуччи]

Разобрался уже.Вот код,если кому понадобится:
Создание группы:

Код Выделить Развернуть


СпрМат = СоздатьОбъект("Справочник.Сотрудники");     
СпрМат.НоваяГруппа();
СпрМат.Код = НомерГруппы;
СпрМат.Наименование = Название;
СпрМат.Записать();


Запись элемента в нужную группу

Код Выделить Развернуть


Файл1=СоздатьОбъект("XBase");   
Файл1.ОткрытьФайл("1.dbf");   
Для ит=1 По Файл1.КоличествоЗаписей() Цикл
         Файл1.Перейти(ит);
         Спр1=СоздатьОбъект("Справочник.Сотрудники");
         Спр1.Новый();
         Спр1.ФИО=Файл1.FIO;
         Спр1.Должность=Файл1.DOLZN;
         Спр1.Родитель= НомерГруппы;
         Спр1.Записать();
КонецЦикла;
Файл1.ЗакрытьФайл();


[Милуччи]

Назрел другой вопрос:

Как организовать поиск элемента в групповом справочнике по наименованию,которое берется из таблицы значений.Вот это почемуто не работает

Код Выделить Развернуть


Спр1.НайтиПоНаименованию(ТабСот.Наименование);
ДокСот.ПРО=Спр1.ТекущийЭлемент();


[Милуччи]

Оказалось все просто:

Код Выделить Развернуть



Спр1.НайтиПоНаименованию(ТабСот.Наименование,0);//По умолчанию стоит 1,т.е поиск внутри текущей группы,0-поиск
                                                                            //во всем справочнике независимо от группы.
ДокСот.ПРО=Спр1.ТекущийЭлемент();


[Qubex]

Доброго времени суток. Вопрос существует ли возможность импорт в 8.2 из других баз??!!

[espero2000]

Доброго времени суток. Вопрос существует ли возможность импорт в 8.2 из других баз??!!

Почему бы и нет? Можно написать обработку для любого импорта...