Вот код а ФИО по полям не раскидывается!!!Я понимаю что надо делать запись в реестр сведений а как не понимаю!!!ПОМОГИТЕ а!

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

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

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

           База.Следующая();                    // переходим к следуей записи
       КонецЦикла;
       База.ЗакрытьФайл();                          // закрываем файл базы данных
       Сообщить("База закрыта!");
   иначе
       ОчиститьСообщения();
       Сообщить("Не выбран файл источник");
       Возврат;
   КонецЕсли;
   
КонецПроцедуры

по колено в коде...

что за конфа и что нужно получить в итоге ?

8.2

я чето вообще не вижу где ты фио получаешь

      СтрФИО =  ВыделитьСлово(ИсходнаяСтрока);
           Стр.Фамилия = СокрЛП(СтрФИО);

придумываем отчество для ребенка?

комплексная автоматизация

да я в DBF все сделал отдельно и есть строкой целой там

(5)"Я понимаю что надо делать запись в РЕЕСТР сведений..."
ещё спрашиваеш...

да в реестр не делал так никогда

структура РЕГИСТРА сведений стандартная?

вроде да

(0) Если сотрудников не много можно сделать так
СпСотрудники.Записать();
ФормаСотр = СпСотрудники.ПолучитьФорму("ФормаЭлемента");
ФормаСотр.ОткрытьМодально();
И прощелкать всех сотрудников вручную ЗуП сам запишет

их не так много 2500 голов

(12) злой ты

(13) Посмотри как в конфе сделано. По моему это
   Если мЭтоНовый Тогда
       // запись в регистр ФИО, делаем только для нового сотрудника
       Если мНаборЗаписейФИО.Количество() = 0 Тогда
           ЗаписьНабора = мНаборЗаписейФИО.Добавить();
           ЗаписьНабора.Период        = ?(ЗначениеЗаполнено(ФизлицоОбъект.ДатаРождения),ФизлицоОбъект.ДатаРождения,'19800101');
           ЗаписьНабора.Фамилия    = Фамилия;
           ЗаписьНабора.Имя        = Имя;
           ЗаписьНабора.Отчество    = Отчество;
       КонецЕсли;
       
       Если мНаборЗаписейФИО.Количество() > 0 И ЗначениеЗаполнено(мНаборЗаписейФИО[0].Период) Тогда
           мНаборЗаписейФИО[0].Физлицо = Физлицо;
           мНаборЗаписейФИО.Отбор.Физлицо.Использование    = Истина;
           мНаборЗаписейФИО.Отбор.Физлицо.Значение            = мНаборЗаписейФИО[0].Физлицо;
           мНаборЗаписейФИО.Отбор.Период.Использование        = Истина;
           мНаборЗаписейФИО.Отбор.Период.Значение            = мНаборЗаписейФИО[0].Период;
           мНаборЗаписейФИО.Записать(Истина);
       КонецЕсли;
   КонецЕсли;

мНаборЗаписейФИО =РегистрыСведений.ФИОФизЛиц.СоздатьНаборЗаписей();

мНаборЗаписейФИО = РегистрыСведений.ФИОФизЛиц.СоздатьНаборЗаписей();

:)

это куда вставить такой надо

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

Физлицо = ТекЭлем.Ссылка;

ЗаписьНабора = мНаборЗаписейФИО.Добавить();
           ЗаписьНабора.Период        = ?(ЗначениеЗаполнено(ФизлицоОбъект.ДатаРождения),ФизлицоОбъект.ДатаРождения,'19800101');
           ЗаписьНабора.Фамилия    = Фамилия;
           ЗаписьНабора.Имя        = Имя;
           ЗаписьНабора.Отчество    = Отчество;

мНаборЗаписейФИО[0].Физлицо = Физлицо;
           мНаборЗаписейФИО.Отбор.Физлицо.Использование    = Истина;
           мНаборЗаписейФИО.Отбор.Физлицо.Значение            = мНаборЗаписейФИО[0].Физлицо;
           мНаборЗаписейФИО.Отбор.Период.Использование        = Истина;
           мНаборЗаписейФИО.Отбор.Период.Значение            = мНаборЗаписейФИО[0].Период;
           мНаборЗаписейФИО.Записать(Истина);
   КонецЦикла;

Что-то типа такого

счас прогоню

ЗаписьНабора.Период        = ?(ЗначениеЗаполнено(ФизлицоОбъект.ДатаРождения),<<?>>ФизлицоОбъект.ДатаРождения,'19800101'); (Проверка: Толстый клиент (обычное приложение))
{Форма.Форма.Форма(22,39)}: Переменная не определена (Фамилия)
           ЗаписьНабора.Фамилия    = <<?>>Фамилия; (Проверка: Толстый клиент (обычное приложение))
{Форма.Форма.Форма(23,39)}: Переменная не определена (Имя)
           ЗаписьНабора.Имя        = <<?>>Имя; (Проверка: Толстый клиент (обычное приложение))
{Форма.Форма.Форма(24,40)}: Переменная не определена (Отчество)
           ЗаписьНабора.Отчество    = <<?>>Отчество; (Проверка: Толстый клиент (обычное приложение))

ошибки такой вышла

ты где получаешь фио из файла?

(23) >>да я в DBF все сделал отдельно и есть строкой целой там в (7)
Ну отдельно сначала и получи из dbf фамилию имя и отчество.
А вместо
ЗаписьНабора.Период        = ?(ЗначениеЗаполнено(ФизлицоОбъект.ДатаРождения),ФизлицоОбъект.ДатаРождения,'19800101');
напиши просто
ЗаписьНабора.Период        = '19800101';

Запись не верна!Значение поля "Физическое лицо" не может быть пустым!:ФИОФизЛиц: 01.01.1980.(Регистр сведений: Фамилия,Имя,Отчество физического лица)

ну все вариантов неть?

(26) :)
мНаборЗаписейФИО[0].Физлицо = Физлицо;
Присвайвай туда ссылку на только что тобой созданный элемент справочник с физлицом

Смотри в отладчике что там присваивается

В модуле формы разделяешь ФИО

&НаКлиенте
Функция ВыделитьСлово(ИсходнаяСтрока)    
   Буфер = СокрЛ(ИсходнаяСтрока);
   ПозицияПослПробела = Найти(Буфер, " ");
   Если ПозицияПослПробела = 0 Тогда
       ИсходнаяСтрока = "";
       Возврат Буфер;
   КонецЕсли;
   ВыделенноеСлово = СокрЛП(Лев(Буфер, ПозицияПослПробела));
   ИсходнаяСтрока = СокрЛП(Сред(ИсходнаяСтрока, ПозицияПослПробела + 1));
   Возврат ВыделенноеСлово;    
КонецФункции

&НаКлиенте
Процедура РазделитьФИО()
   ФИО = Объект.Наименование;
   Фамилия  = ВыделитьСлово(ФИО);
   Имя      = ВыделитьСлово(ФИО);
   Отчество = ВыделитьСлово(ФИО);    
КонецПроцедуры    

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
   ПроцедурыУправленияПерсоналом.ЗаписатьФИО(Объект.Ссылка,Фамилия,Имя,Отчество);
КонецПроцедуры

В общем модуле ПроцедурыУправленияПерсоналом:
&НаСервере
Процедура ЗаписатьФИО(Ссылка,Фамилия,Имя,Отчество) Экспорт        
   ФИОСрез = РегистрыСведений.ФИОФизЛиц.Получить(Новый Структура("ФизЛицо",Ссылка));
   СтрокаСреза = ФИОСрез.Фамилия + ФИОСрез.Имя + ФИОСрез.Отчество;
   Если СтрокаСреза <> (Фамилия + Имя + Отчество) Тогда
       МенеджерЗаписи = РегистрыСведений.ФИОФизЛиц.СоздатьМенеджерЗаписи();
       МенеджерЗаписи.ФизЛицо = Ссылка;
       МенеджерЗаписи.Фамилия = Фамилия;
       МенеджерЗаписи.Имя = Имя;
       МенеджерЗаписи.Отчество = Отчество;
       МенеджерЗаписи.Записать(Истина);
   КонецЕсли;
КонецПроцедуры

а это в какое место вставить то

(31) Добавь эту процедуру и вместо того что я написал напиши
ЗаписатьФИО(Ссылка,Фамилия,Имя,Отчество)
В переменную ссылка присвой ссылку на созданный тобой элемент в справочнике физлица, в переменные фамилия, имя, отчество, значения из твоего dbf файла

Не понимаю ничерта:



{Форма.Форма.Форма(145,9)}: Процедура или функция с указанным именем уже определена (ВыделитьСлово)
Функция <<?>>ВыделитьСлово(ИсходнаяСтрока) (Проверка: Толстый клиент (обычное приложение))

(33) В меню нажимаешь правка - глобальный поиск - задаешь ВыделитьСлово и видишь что в Общем модуле ОбщегоНазначения уже определена функция
// Функция выделяет первое слово в предложении
Функция ВыделитьСлово(ИсходнаяСтрока) Экспорт
Т.е. тебе с таким именем нельзя создавать свою функцию

а можешь мне это показать куда и что сунуть???

(35) Напиши свой текущий код который сейчас у тебя не работает весь

Это полный код:


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


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

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

&НаСервере
Процедура ЗаписатьФИО(Ссылка,Фамилия,Имя,Отчество) Экспорт        
   ФИОСрез = РегистрыСведений.ФИОФизЛиц.Получить(Новый Структура("ФизЛицо",Ссылка));
   СтрокаСреза = ФИОСрез.Фамилия + ФИОСрез.Имя + ФИОСрез.Отчество;
   Если СтрокаСреза <> (Фамилия + Имя + Отчество) Тогда
       МенеджерЗаписи = РегистрыСведений.ФИОФизЛиц.СоздатьМенеджерЗаписи();
       МенеджерЗаписи.ФизЛицо = Ссылка;
       МенеджерЗаписи.Фамилия = Фамилия;
       МенеджерЗаписи.Имя = Имя;
       МенеджерЗаписи.Отчество = Отчество;
       МенеджерЗаписи.Записать(Истина);
   КонецЕсли;
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)

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


Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
   // Вставить содержимое обработчика.

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

Процедура ОсновныеДействияФормыЗаполнить(Кнопка)
   Если ПустаяСтрока(ИмяФайла) = Ложь тогда
       Путь =  ИмяФайла;
       База= Новый XBase;
       База.Кодировка = КодировкаXBase.ANSI;       //Открываем файл для чтения

       База.ОткрытьФайл(ИмяФайла,,Истина);
       Если База.Открыта() = Истина тогда        // проверяем открыта ли база

           Сообщить("База отрыта!");              // выводим сообщение в слечае если база открыта

       КонецЕсли;
       База.Первая();                            // позиционируем на первой записи открытой базы

       //Цикл по записям DBF файла

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

       КонецЦикла;
       База.ЗакрытьФайл();                          // закрываем файл базы данных

       Сообщить("База закрыта!");
   иначе
       ОчиститьСообщения();
       Сообщить("Не выбран файл источник");
       Возврат;
   КонецЕсли;
   
КонецПроцедуры

{Форма.Форма.Форма(89,22)}: Переменная не определена (СтрФИО)
           Сообщить(<<?>>СтрФИО); (Проверка: Толстый клиент (обычное приложение))

А если убираю эту строку то пишет-Ошибка при выводе контекста "Получить"

не кидает

Ну это же твой код. Убери Сообщить(СтрФИО);. Где выдает ошибку на какой строке?

Вообще посмотри какой нибудь курс по программированию, например Чистова

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

это работает все кидает тока в реестр ФИО не кидает

может кто глянет у себя а???

(46) Посмотри пример здесь http://infostart.ru/public/88341/
Никто не будет тут полностью все делать за тебя. Обозначь задачу и выложи на каком нибудь ресурсе для фрилансеров.

Ну а это что за хрень то???


{Форма.Форма.Форма(3)}: Ошибка при вызове метода контекста (Получить)
   ФИОСрез = РегистрыСведений.ФИОФизЛиц.Получить(Новый Структура("ФизЛицо",Ссылка));
по причине:
Несоответствие типов (параметр номер ""1"")

СПАСИБО ВСЕМ СДЕЛАЛ САМ

Ребят а вопрос еще а табельный номер можно пульнуть сюдой???