Помогите пожалуйста с конвертацией

Делаю конвертацию для выгрузки данных из УТ в ТиС
В справочнике Контрагенты в 7-ке реквизит ЮрФИзЛицо - справочник (или ЮрЛица или ФизЛица). Пытаюсь выгрузить через узел: в ПКО Контрагенты при вырузке
ИнформацияОЮрФИзЛице = СоздатьУзел("ИнформацияОЮрФИзЛице");
УстановитьАтрибут(ИнформацияОЮрФИзЛице, "Наименование", Источник.Наименование);
УстановитьАтрибут(ИнформацияОЮрФИзЛице, "ИНН", Источник.ИНН);
ДобавитьПодчиненный(Приемник, ИнформацияОЮрФИзЛице);

Это выгружается в xml в таком виде

<ИнформацияОЮрФИзЛице Наименование="Воронин" ИНН="7716648250" />

В ПриЗагрузке пишу следующее

Если Объект.ЭтоГруппа() = 0 Тогда
Пока ФайлОбмена.Прочитать() Цикл
   ИмяУзла = ФайлОбмена.ЛокальноеИмя;
   ТипУзла = ФайлОбмена.ТипУзла;
   Если ИмяУзла = "ИнформацияОЮрФИзЛице" И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда
       Спр = СоздатьОбъект("Справочник.ЮрЛица");
       НовЮрФизЛицо = Спр.Новый();
       НовЮрФизЛицо.ИНН= одАтрибут(ФайлОбмена, одТипСтрока, "ИНН");
       НовЮрФизЛицо.Наименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование");
       НовЮрФизЛицо.ПолнНаименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование");
       НовЮрФизЛицо.Записать();
           
       Объект.ЮрФизЛицо = НовЮрФизЛицо;
       Объект.Записать();
   ИначеЕсли (ИмяУзла = "ИнформацияОЮрФИзЛице") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда
       Прервать;
   КонецЕсли;
КонецЦикла;  
КонецЕсли;

и вот тут почему-то ничего не загружается, ошибок не выдает.

Юридическое лицо не создается и естественно в реквизит Контрагента ничего не запсывается. Подскажите, может я не так эти значения как-то читаю...

Help!

помогите, кто можете

все ещё актуально

уже все домой

потопали :)

а вообще - отладчиком посмотри, попадает-ли вообще в ЕСЛИ..

(7) я вобще эту проверку на группу убирала - все-равно не воспринимает этот кусок, как будто его нет. Мож это какая-то особенность при загрузке в 7-ную конфу?

объект источник контрагенты, а объект приемник юрлица???

(8) сюда доходит, здесь поставь точку останова
Если ИмяУзла = "ИнформацияОЮрФИзЛице" И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда
(9) ну и что?

контр= СоздатьОбъект("Справочник.Контрагенты");
      Спр = СоздатьОбъект("Справочник.ЮрЛица");
       НовЮрФизЛицо = Спр.Новый();
       НовЮрФизЛицо.ИНН= одАтрибут(ФайлОбмена, одТипСтрока, "ИНН");
       НовЮрФизЛицо.Наименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование");
       НовЮрФизЛицо.ПолнНаименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование");
       НовЮрФизЛицо.Записать();
        контр.юрфизлицо= НовЮрФизЛицо ;  
       Объект.ЮрФизЛицо = контр;
       Объект.Записать();

(10) это ж в 7-ку загружается, там не знаю как отладить. Но в xml все выгружается нормально

(11) Это в ПриЗагрузке? сейчас попробую

както так..

короче сначала нужно создать и записать юрлицо с наименованием и инн из файла, потом создать новый элемент контрагента(луче его найти) присвоить ему реквизит юрфизлицо зхагруженное, и записать

стой!!!

(15) ааааааааааааааааа, что? куда бежать??? :))

(15) ой

Если Объект.ЭтоГруппа() = 0 Тогда
Пока ФайлОбмена.Прочитать() Цикл
   ИмяУзла = ФайлОбмена.ЛокальноеИмя;
   ТипУзла = ФайлОбмена.ТипУзла;
   Если ИмяУзла = "ИнформацияОЮрФИзЛице" И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда
       Спр = СоздатьОбъект("Справочник.ЮрЛица");
       НовЮрФизЛицо = Спр.Новый();
       НовЮрФизЛицо.ИНН= одАтрибут(ФайлОбмена, одТипСтрока, "ИНН");
       НовЮрФизЛицо.Наименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование");
       НовЮрФизЛицо.ПолнНаименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование");
       НовЮрФизЛицо.Записать();
       
контр= СоздатьОбъект("Справочник.Контрагенты");
контрагент=контр.Новый();
контрагент.наименование=НовЮрФизЛицо.наименование;
контрагент.Юрфизлицо=НовЮрФизЛицо;

   
       Объект = контрагент;
       Объект.Записать();
   ИначеЕсли (ИмяУзла = "ИнформацияОЮрФИзЛице") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда
       Прервать;
    КонецЕсли;
КонецЦикла;  
КонецЕсли;

вот теперь должно все появится по идее

пробывай!!!!

Зачем так сложно? А почему не сделать ПКО Контрагент->ЮрЛица

(18) не, ну ты даешь... а если "контр"  уже есть в базе?

(22) ну и че??? переприсвоится.

аа...понял)))) ну тогда нужно найти его

вместо контрагент=контр.Новый();

нашли=контр.найтипореквизиту("юрфизлицо",НовЮрФизЛицо);
если нашли = 0 тогда
контрагент=контр.Новый();
иначе
контрагент=контр.текущийэлемент();
конецесли;

(21)реквизит пко имееет тип контрагент.
а реквизит справочника контрагенты юрфизлицо имеет тип юрфизлицо

в общем ждем результата от (0)

не загружается :(

как будто этого ПриЗыгрузке вообще не видит

ничего в базе нет? ни контрагентов с пустыми юрфизлицами не юрлиц?

Контрагенты загружаются, а ЮрЛица нет

(26) Я прекрасно это знаю, ну и делайте два ПКО Контрагенты->Контрагенты, Контрагенты->ЮрЛица, в Справочнике Контрагенты Реквизит ЮрФизЛицо конвертить с помощью ПКО Контрагенты->ЮрЛица

блин!!! там реквизит неопределенный!!!! тип назначай реквизиту юрфизлицо при загрузке!

неее не поможет

короче вечерело..

Да, кстати там выбирать ИмяПКО надо, либо ЮрЛица, либо физ. лица

ну да, у меня все на самом деле сложнее написано, я сокращенный вариант выложила - там два справочника ЮрЛица и ФизЛица

Это ПриВыгрузке

ИнформацияОЮрФИзЛице = СоздатьУзел("ИнформацияОЮрФизЛице");
УстановитьАтрибут(ИнформацияОЮрФИзЛице, "Наименование", Источник.Наименование);
УстановитьАтрибут(ИнформацияОЮрФИзЛице, "ИНН", Источник.ИНН);
УстановитьАтрибут(ИнформацияОЮрФИзЛице, "НаименованиеПолное", Источник.НаименованиеПолное);
   
   Если Источник.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда
       УстановитьАтрибут(ИнформацияОЮрФИзЛице, "ОКПО", Источник.КодПоОКПО);
       УстановитьАтрибут(ИнформацияОЮрФИзЛице, "ЮрЛицо", "1");
   Иначе
       УстановитьАтрибут(ИнформацияОЮрФИзЛице, "ЮрЛицо", "0");    
   КонецЕсли;
   
ДобавитьПодчиненный(Приемник, ИнформацияОЮрФизЛице);

А это ПриЗагрузке

Пока ФайлОбмена.Прочитать() Цикл
   ИмяУзла = ФайлОбмена.ЛокальноеИмя;
   ТипУзла = ФайлОбмена.ТипУзла;
   Если ИмяУзла = "ИнформацияОЮрФизЛице" И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда
           ИНН = ФайлОбмена.ЗначениеАтрибута("ИНН");
       ОКПО = ФайлОбмена.ЗначениеАтрибута("ОКПО");

       ЮрЛицо =  одАтрибут(ФайлОбмена, одТипСтрока, "ЮрЛицо");
       Если ЮрЛицо = "1" Тогда
           Спр = СоздатьОбъект("Справочник.ЮрЛица");
           НовЮрФизЛицо = Спр.Новый();
           НовЮрФизЛицо.ОКПО = одАтрибут(ФайлОбмена, одТипСтрока, "ОКПО");
           Объект.ЮрФизЛицо = ПолучитьПустоеЗначение("Справочник.ЮрЛица");
       Иначе
           Спр = СоздатьОбъект("Справочник.ФизЛица");
           НовЮрФизЛицо = Спр.Новый();
           Объект.ЮрФизЛицо = ПолучитьПустоеЗначение("Справочник.ФизЛица");
       КонецЕсли;
       НовЮрФизЛицо.Наименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование");
       НовЮрФизЛицо.ПолнНаименование = одАтрибут(ФайлОбмена, одТипСтрока, "НаименованиеПолное");
       НовЮрФизЛицо.ОКПО = одАтрибут(ФайлОбмена, одТипСтрока, "ОКПО");
       НовЮрФизЛицо.ИНН = одАтрибут(ФайлОбмена, одТипСтрока, "ИНН");
       НовЮрФизЛицо.Записать();
       
       Контр= СоздатьОбъект("Справочник.Контрагенты");
       нашли=контр.найтипореквизиту("юрфизлицо",НовЮрФизЛицо);
       если нашли = 0 тогда
           контрагент=контр.Новый();
       иначе
           контрагент=контр.текущийэлемент();
       конецесли;
       контрагент.наименование=НовЮрФизЛицо.наименование;
       контрагент.Юрфизлицо=НовЮрФизЛицо;
         
       Объект = контрагент;
       Объект.Записать();
               
       Объект.ЮрФизЛицо = НовЮрФизЛицо;
       Объект.Записать();
   ИначеЕсли (ИмяУзла = "ИнформацияОЮрФИзЛице") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда
       Прервать;
   КонецЕсли;
КонецЦикла;

....и не повляются элементы в справочнике ЮрЛица и ФизЛица

Примерно так можно делать:
http://fotoifolder.ru/view_full_size/m6cq0fnvakwg
работает, хотя раньше делал криво, разделял контрагентов, которые делались из физ лиц и юр лиц. На самом деле этого делать не надо, достаточно программно выбирать ИмяПКО

(4) а как его программно выбрать?

(40) напиши плих ещё хоть чуть-чуть подробностей

Например в ПКС реквизита ЮрФизЛицо ПередВыгрузкой написать:
Если Условие на ЮрЛицо Тогда
Значение = Источник;
ИмяПКО = "ЮрЛица";
Иначе
Значение = Источник;
ИмяПКО = "ФизЛица";
КонецЕсли;

(43) о, спасибо. буду пробовать

(43) а в самом реквизите что писать в источнике?

мож ещё кто чего подскажет?

(45) см (43)
значение=источник

Что-то я вообще уже запуталась, до сих пор мучаюсь с жтими контрагентами... а ты можешь мне выслать те правила, которые у тебя?

Получилось с установкой ПКО! Спасибо!!!