1С 7.7, Зарплата+Кадры.Редакция 2.3, Создание нового элемента справочника "Сотрудники".

Добрый день!

Проблема вот в чём:
создаю программно новый элемент справочника "Сотрудники", но в платформе, когда открываем этот самый справочник, у созданного элемента состояние обозначенно "Не принят на внутреннее совместительство", а надо что бы было "Физическое лицо".
Заранее благодарю.

Как именно создаете?

"Вот код:

сотр = СоздатьОбъект("Справочник.Сотрудники");
буф = СоздатьОбъект("Справочник.ОКИН");

наимен = Врег(СокрЛП(Лист.Cells(17, х).Value));
ПФР = СокрЛП(Лист.Cells(35, х).Value);
поиск = сотр.НайтиПоНаименованию(наимен);

Если (наимен = """") ИЛИ (ПФР = """") Тогда
   Прервать;
КонецЕсли;
Если поиск = 0 Тогда
   сотр.Новый();
   сотр.Наименование = наимен;
   Если Лист.Cells(21, х).Value = "Женский" Тогда
       буф.НайтиПоНаименованию("Женский");
       сотр.Пол = буф.ТекущийЭлемент();
   Иначе
буф.НайтиПоНаименованию("Мужской");
сотр.Пол = буф.ТекущийЭлемент();
   КонецЕсли;
   сотр.ДатаРождения = Лист.Cells(22, х).Value;
   сотр.СтраховойНомерПФР = ПФР;
   сотр.ИНН = Лист.Cells(34, х).Value;
   сотр.АдресПрописка = Лист.Cells(27, х).Value;
   сотр.АдресФакт = Лист.Cells(28, х).Value;  

   пред = "Паспорт гражданина России,";
   пред = пред + СокрЛП(Лист.Cells(24, х).Value) + ",";
   пред = пред + СокрЛП(Лист.Cells(25, х).Value) + ",";
   пред = пред + Формат(ТекущаяДата(),"ДДДММГГГГ") + ",";
   пред = пред + СокрЛП(Лист.Cells(26, х).Value);
   сотр.ДокументУдЛичность = пред;

   сотр.ДатаРегистрации = ТекущаяДата();
   сотр.Записать();
"

Не увидел где состояние физ.лица устанавливается?

"> поиск = сотр.НайтиПоНаименованию(наимен);

вынесите за проверку на заполненность наименования и ПФР!"

"сотр.СостояниеФизлица = Перечисление.СостояниеФизлица.СотрудникНеосновной;

Раньше выставлял так, но в этом случае он при запуске обработки выдавал ошибку "Отсутствует дата". Я так понимаю ему надо знать дату когда происходит выставление состояния.
"

Извините, не понял Вас.

"После
сотр.Записать();
Добавьте
Сотр.ОсновнойЭлемент=Сотр.ТекущийЭлемент();
сотр.Записать();"

Сначала ищите, а потом проверяете по чем ищите! Ерунда получается!

Нет, не помогло.