Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.
    Для Каждого Стр из ФизическиеЛица цикл
       Спр = ФизическиеЛица.Получить(ФизическиеЛица.Индекс(Стр));
       Сообщить(Спр.Наименование);
       Сообщить(Спр.ИНН);
       ТСпр = Справочники.ФизическиеЛица;
       ТекЭлем = ТСпр.СоздатьЭлемент();
       ТекЭлем.Наименование  = Спр.Наименование;
       ТекЭлем.ИНН = Спр.ИНН;
       ТекЭлем.Записать();
       Сообщить("Элемент записан");
    КонецЦикла;                        
КонецПроцедуры

Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
   // Вставить содержимое обработчика.
   Режим = РежимДиалогаВыбораФайла.Открытие;
   ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
   ДиалогОткрытияФайла.ПолноеИмяФайла = "";
   Фильтр = "Таблицы баз данных *.dbf (*.dbf)|*.dbf";
   ДиалогОткрытияФайла.Фильтр = Фильтр;
   ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
   ДиалогОткрытияФайла.Заголовок = "Выберите таблицу базы данных *.dbf";
   Если ДиалогОткрытияФайла.Выбрать() Тогда
       ИмяФайла = ДиалогОткрытияФайла.ПолноеИмяФайла;
   КонецЕсли;
КонецПроцедуры

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


Это перенос с DBF в 1с баз Физических лиц. Все должно работать но пол,дата рождения и пенсномер не идут в 1с почему то и ошибок нет вроде!!!

Нет ошибок в синтаксических - ищи логическую.

а Стр.Записать()

где?

(0) Ну ты же в базу их не записываешь )

3+ в КнопкаВыполнитьНажатие

Что это? О_о
ФизическиеЛица.Получить(ФизическиеЛица.Индекс(Стр));

В данном коде у тебя нет Пола, ДатыРождения и пенсномер:

       ТекЭлем = ТСпр.СоздатьЭлемент();
       ТекЭлем.Наименование  = Спр.Наименование;
       ТекЭлем.ИНН = Спр.ИНН;
       ТекЭлем.Записать();

а как должно то быть,это в форме же

(7)
    Для Каждого Стр из ФизическиеЛица цикл
       Спр = ФизическиеЛица.Получить(ФизическиеЛица.Индекс(Стр));

Чем будет отличаться "Стр" от "Спр" в данной строчке?

не знаю если честно

(9) Ничем.

    Для Каждого Стр из ФизическиеЛица цикл
       Спр = ФизическиеЛица.Получить(ФизическиеЛица.Индекс(Стр));
       Сообщить(Спр.Наименование);

И

    Для Каждого Стр из ФизическиеЛица цикл
       Сообщить(Стр.Наименование);

Одинаково

И где ответ на (6) ?

спасибо тупил я

Осталось одна проблема ФИО не раскидывается по строкам!
А все отично!!!А вопрос можно еще???
Я переношу сотрудников с dbf в базу с
мне сказали проще делать через Физ лиц это,но это как то гиморойно а можно сделать сразу в 1с сотрудники???

(13)
1. см РС ФизФизЛиц
2. не потянешь сотрудники... тогда тебе нужно изучить БП ПриемНаРаботуСотрудника

а ФИО почему кидает но по полям отдельно не кидает тока после того как поставлю продел в поле тока тогда кидает

потому что регистр сведений надо заполнять

ФИОФизЛиц называется

Этого нет в справочнике

понял прости

это же не таблица а ресурс какойто а можно его в код мой добавить?

(20) Всё можно, но перед этим лучше книжку почитай.

а есть разница,если я забью тудой все возможные имена и фамилии или тока мои  должны быть?

(22) Есть. Да.

к в мой код это можно встроить? или отдельно писать надо