Программный перенос контрагентов в УТ 11.1

1С v8

10.07.15

✎

15:55

Есть УТ 11.1
Есть таблица значений со списком контрагентов.
Не могу программно никак создать этих контрагентов. Они как то переплетены с партнерами. И формы что в конфигураторе совсем другие что при создании. Найти нужные мне реквизиты чтобы их заполнить не могу.

Может кто уже разбирался или сталкивался этим?

1 Timon1405

10.07.15

✎

15:57

(0) Сами ищем спецов(( по отпускам все

2 Звездец

10.07.15

✎

16:29

сколько?

3 ДенисЧ

10.07.15

✎

16:30

(0) в допреквизиты смотрел?

4 НеБорис Нуралиев

10.07.15

✎

16:38

Да нет там ничего сверхестественного.
Нужно создать элементы в двух справочниках:
1. Партнеры. Тут только названия должно хватить и галочки "Клиент", "Поставщик" и т.д.
2. Контрагенты: Тут уже все реквизиты и ссылка на партнера.

5 delavar

10.07.15

✎

16:47

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

6 ДенисЧ

10.07.15

✎

16:50

(5) Так это думать же надо...

7 Windyhead

10.07.15

✎

16:54

То что формы отличаются... так это у вас вероятнее всего помощник ввода нового запускается.
в (4) и (5) все правильно говорят.

8 Wefast

12.07.15

✎

00:40

Ок. созда. Партнера. Потом контрагента и партнера указываю вот только что созданного. Он создается.

У них есть табличная часть с КИ
У обоих своя и одинаковые.

Заполняю все что могу
Тип, Вид, Номер, Представление, НомерБезКодов

Записываю.

Открываю контрагента. все есть. Жму "Записать и закрыть". Открываю заново и ничего уже нет.

9 vicof

12.07.15

✎

00:56

криво записал справочник виды КИ

10 Wefast

12.07.15

✎

02:28

Номер = ПодготовкаНомер(Строка);
    НоваяКИ                         = НовыйПартнер.КонтактнаяИнформация.Добавить();
    НоваяКИ.Вид                     = Справочники.ВидыКонтактнойИнформации.ТелефонПартнера;
    НоваяКИ.Тип                     = Перечисления.ТипыКонтактнойИнформации.Телефон;
    НоваяКИ.НомерТелефона             = Номер;
    НоваяКИ.Представление             = Строка;
    НоваяКИ.НомерТелефонаБезКодов     = Номер;

    НоваяКИ.ЗначенияПолей     = "<КонтактнаяИнформация xmlns=""http://www.v8.1c.ru/ssl/contactinfo""; xmlns:xs=""http://www.w3.org/2001/XMLSchema""; xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""; Представление=""%Представление%""><Комментарий/><Состав xsi:type=""НомерТелефона"" КодСтраны="""" КодГорода="""" Номер=""%Представление%"" Добавочный=""""/></КонтактнаяИнформация>";
    НоваяКИ.ЗначенияПолей     = СтрЗаменить(НоваяКИ.ЗначенияПолей, "%Представление%", НоваяКИ.Представление);


Так это делается.

11 Wefast

12.07.15

✎

02:32

ТаблицаЗначений = ПреобразованиеТабличногоДокументаВТЗ(ТабДок);

    Для Каждого Строка Из ТаблицаЗначений Цикл

        Лицо = СокрЛП(Строка.Имя);

        НовыйПартнер = Справочники.Партнеры.СоздатьЭлемент();
        НовыйПартнер.Клиент             = ИСТИНА;
        НовыйПартнер.Наименование         = Лицо;
        НовыйПартнер.НаименованиеПолное = Лицо;

        Если СокрЛП(Строка.Пол) = "Мужской" Тогда
            НовыйПартнер.Пол = Перечисления.ПолФизическогоЛица.Мужской;
        Иначе
            НовыйПартнер.Пол = Перечисления.ПолФизическогоЛица.Женский;
        КонецЕсли;
        НовыйПартнер.ЮрФизЛицо     = Перечисления.КомпанияЧастноеЛицо.ЧастноеЛицо;

        Если Строка.Телефон1 <> Неопределено И Строка.Телефон1 <> "" Тогда
            ДобавитьНомер(НовыйПартнер,СокрЛП(Строка.Телефон1));
        КонецЕсли;

        Если Строка.Телефон2 <> Неопределено И Строка.Телефон2 <> "" Тогда
            ДобавитьНомер(НовыйПартнер,СокрЛП(Строка.Телефон2));
        КонецЕсли;

        Если Строка.Телефон3 <> Неопределено И Строка.Телефон3 <> "" Тогда
            ДобавитьНомер(НовыйПартнер,СокрЛП(Строка.Телефон3));
        КонецЕсли;

        Если Строка.Город <> Неопределено И Строка.Город <> "" Тогда
            ДобавитьАдрес(НовыйПартнер,СокрЛП(Строка.Город));
        КонецЕсли;


        НовыйПартнер.Записать();

        НовыйКонтрагент = Справочники.Контрагенты.СоздатьЭлемент();
        НовыйКонтрагент.Наименование = Лицо;
        НовыйКонтрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо;
        НовыйКонтрагент.Партнер = НовыйПартнер.Ссылка;
        НовыйКонтрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮрФизЛицо.ФизЛицо;
        НовыйКонтрагент.НаименованиеПолное = Лицо;

        НовыйКонтрагент.Записать();


    КонецЦикла;