ЗиК. Проблема с переносом данных

gorlanovmax

Well-known member
19.06.2008
286
0
#1
Переношу данные из БухСофт Предприятие 2009 в Стандартную ЗиК 7.70.260

Возникла проблема:
Все данные записывает, вроде все ОК. Но, при просмотре справочника сотрудники в графе "Состояние" вижу "Не принят на внутренне совместительство". Хотя очень сильно хочу увидеть там "Физическое лицо".

При записи нового сотрудника реквизиту "СостояниеФизЛица" пытался присваивать значение "СотрудникОсновной" - не помогает.
Облазил уже все.

Может быть кто-нибудь из гуру просветит как решить эту проблему, остался всего один день. В понедельник необходимо отдать готовую базу. А ручками перебивать 90 сотрудников лень :)
 

vbs

Well-known member
18.02.2007
1 708
1
#2
Есть у этого справочника реквизит
ОсновнойЭлемент
Он для своих сотрудников должен быть равен самому себе.
Недавно что-то подобное мелькало на форуме, как мне помнится

А то звони - зашлю тебе пару обработок. Они 4-х летней давности, но вроде живут.
Не рано только ! (никак не до матча "Локомотив" - "Рубин") :)
 

gorlanovmax

Well-known member
19.06.2008
286
0
#3
Есть у этого справочника реквизит
ОсновнойЭлемент
Он для своих сотрудников должен быть равен самому себе.
Все вроде решил.

Ошибся в следующем:
Было так:
Код:
			Спр.Новый();
Спр.Код=дбф.TABN;
Спр.ИНН=дбф.INN;
Страх=дбф.STRAX;
Страх=СТРЗаменить(Страх,"-","");
Страх=СтрЗаменить(Страх," ","");
Спр.СтраховойНомерПФР=Страх;
Спр.КодИМНС=дбф.KODIFNS;
Спр.Наименование=СокрЛП(дбф.FAM)+" "+СокрЛП(дбф.IM)+" "+СокрЛП(дбф.OT);
Докум=дбф.PASPORT;
Докум=СтрЗаменить(Докум," ",РазделительСтрок);
Спр.ДокументУдЛичность="Паспорт гражданина России,"+СтрПолучитьСтроку(Докум,1)+СтрПолучитьСтроку(Докум,2)+","+СтрПолучитьСтроку(Докум,3)
+","+Строка(дбф.DATAV)+","+СокрЛП(дбф.KEMV);
Спр.ДатаРождения=дбф.DATAROZH;
Спр.АдресПрописка=дбф.ADRESS;
Спр.ДатаРегистрации=дбф.DATAREG;
Спр.Телефон=дбф.TEL;
СпрПол=СоздатьОбъект("Справочник.ОКИН");
Если СокрЛП(дбф.POL)="М" Тогда
СпрПол.НайтиПоКоду(1);
Иначе
СпрПол.НайтиПоКоду(2);
КонецЕсли;
Спр.Пол=СпрПол.ТекущийЭлемент();
Спр.ОсновнойЭлемент=Спр.ТекущийЭлемент();
Спр.Записать();
А надо было так:
Код:
			Спр.Новый();
Спр.Код=дбф.TABN;
Спр.ИНН=дбф.INN;
Страх=дбф.STRAX;
Страх=СТРЗаменить(Страх,"-","");
Страх=СтрЗаменить(Страх," ","");
Спр.СтраховойНомерПФР=Страх;
Спр.КодИМНС=дбф.KODIFNS;
Спр.Наименование=СокрЛП(дбф.FAM)+" "+СокрЛП(дбф.IM)+" "+СокрЛП(дбф.OT);
Докум=дбф.PASPORT;
Докум=СтрЗаменить(Докум," ",РазделительСтрок);
Спр.ДокументУдЛичность="Паспорт гражданина России,"+СтрПолучитьСтроку(Докум,1)+СтрПолучитьСтроку(Докум,2)+","+СтрПолучитьСтроку(Докум,3)
+","+Строка(дбф.DATAV)+","+СокрЛП(дбф.KEMV);
Спр.ДатаРождения=дбф.DATAROZH;
Спр.АдресПрописка=дбф.ADRESS;
Спр.ДатаРегистрации=дбф.DATAREG;
Спр.Телефон=дбф.TEL;
СпрПол=СоздатьОбъект("Справочник.ОКИН");
Если СокрЛП(дбф.POL)="М" Тогда
СпрПол.НайтиПоКоду(1);
Иначе
СпрПол.НайтиПоКоду(2);
КонецЕсли;
Спр.Пол=СпрПол.ТекущийЭлемент();
Спр.Записать();
Спр.ОсновнойЭлемент=Спр.ТекущийЭлемент();
Спр.Записать();