Имя: Пароль:
1C
1С v8
Программный перенос контрагентов в УТ 11.1
,
0 Wefast
 
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));
        КонецЕсли;
        
        Если Строка.Город <> Неопределено И Строка.Город <> "" Тогда
            ДобавитьАдрес(НовыйПартнер,СокрЛП(Строка.Город));
        КонецЕсли;
        
        
        НовыйПартнер.Записать();
        
        НовыйКонтрагент = Справочники.Контрагенты.СоздатьЭлемент();
        НовыйКонтрагент.Наименование = Лицо;
        НовыйКонтрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо;
        НовыйКонтрагент.Партнер = НовыйПартнер.Ссылка;
        НовыйКонтрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮрФизЛицо.ФизЛицо;
        НовыйКонтрагент.НаименованиеПолное = Лицо;
        
        НовыйКонтрагент.Записать();
        
        
    КонецЦикла;