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

Тема в разделе "1C и всё что с ней связано", создана пользователем gorlanovmax, 3 окт 2009.

  1. gorlanovmax

    gorlanovmax Well-Known Member
    1C Team

    Регистрация:
    19 июн 2008
    Сообщения:
    286
    Симпатии:
    0
    Переношу данные из БухСофт Предприятие 2009 в Стандартную ЗиК 7.70.260

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

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

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

    vbs Well-Known Member

    Регистрация:
    18 фев 2007
    Сообщения:
    1.708
    Симпатии:
    3
    Есть у этого справочника реквизит
    ОсновнойЭлемент
    Он для своих сотрудников должен быть равен самому себе.
    Недавно что-то подобное мелькало на форуме, как мне помнится

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

    gorlanovmax Well-Known Member
    1C Team

    Регистрация:
    19 июн 2008
    Сообщения:
    286
    Симпатии:
    0
    Все вроде решил.

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

Поделиться этой страницей