Кто нибудь делал перенос сотрудников из .dbf в 1с?

Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
     Для Каждого Стр из ФизическиеЛица цикл
        Спр = ФизическиеЛица.Получить(ФизическиеЛица.Индекс(Стр));
        Сообщить(Спр.Наименование);
        Сообщить(Спр.ИНН);
        ТСпр = Справочники.ФизическиеЛица;
        ТекЭлем = ТСпр.СоздатьЭлемент();
        ТекЭлем.Наименование  = Спр.Наименование;
        ТекЭлем.ИНН = Спр.ИНН;
         
        
          ТекЭлем.Записать();
          Сообщить("Элемент записан");
     КонецЦикла;                        
КонецПроцедуры
 
Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
    // Вставить содержимое обработчика.
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Фильтр = "Таблицы баз данных *.dbf (*.dbf)|*.dbf";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите таблицу базы данных *.dbf";
    
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ИмяФайла = ДиалогОткрытияФайла.ПолноеИмяФайла;
    КонецЕсли;
КонецПроцедуры
 
Процедура ОсновныеДействияФормыЗаполнить(Кнопка)
Если ПустаяСтрока(ИмяФайла) = Ложь тогда
        Путь =  ИмяФайла;
        База= Новый XBase;
        База.Кодировка = КодировкаXBase.ANSI;
        //Открываем файл для чтения
        
        База.ОткрытьФайл(ИмяФайла,,Истина);
        Если База.Открыта() = Истина тогда        // проверяем открыта ли база
            Сообщить("База отрыта!");           // выводим сообщение в слечае если база открыта
        КонецЕсли;
        
        
        База.Первая();                            // позиционируем на первой записи открытой базы
        //Цикл по записям DBF файла
        Пока НЕ База.ВКонце() Цикл   
            Стр = ФизическиеЛица.Добавить();
            Стр.Группа = Ложь;
            Стр.Код = База.tabn;      
            Стр.Наименование = СокрЛП(База.fio);
    //      Стр.ГоловнойКонтрагент = "";
            Стр.ДатаРождения = База.datrojden;
            Стр.ИНН = СокрЛП(База.inn);
            Стр.СтраховойНомерПФР = СокрЛП(База.pens_strah);
             Если СокрЛП(База.Pol)="Мужской" Тогда  Стр.Пол = Перечисления.ПолФизическихЛиц.Мужской ;
             ИначеЕсли СокрЛП(База.Pol)="Женский" Тогда Стр.Пол = Перечисления.ПолФизическихЛиц.Женский ;
           //  Иначе
             КонецЕсли ;
            Стр.МестоРождения = СокрЛП(База.me_rozd);
            
            База.Следующая();                    // переходим к следуей записи
        КонецЦикла;
        База.ЗакрытьФайл();                        // закрываем файл базы данных
        Сообщить("База закрыта!");
    иначе 
        ОчиститьСообщения();
        Сообщить("Не выбран файл источник");
        Возврат;
    КонецЕсли;
КонецПроцедуры