Имя: Пароль:
1C
1С v8
УТ 11. Проблема с программным созданием клиента
0 usa223
 
21.02.17
17:58
Здравствуйте!
Программно создаю партнёра (справочник Партнёры). Устанавливаю признак клиента в Истина. Но почему-то новый партнёр в УТ 11.3 (в режиме предприятие) в клиентах (CRM и маркетинг | Клиенты) не отображается, а отображается только в партнёрах. При этом, галка Клиенты у него установлена (при просмотре из УТ). Ещё если из УТ явно снять и установить галку и сохранить, то партнёр появляется и в клиентах. Вероятно, помимо галки необходимо что-то ещё сделать. Может кто знает, что именно? Ниже привожу код.

Функция прНайтиСоздатьПартнера(ДанныеКонтрагент, Контрагент)

ПартнерОбъект = Справочники.Партнеры.СоздатьЭлемент();    
ПартнерОбъект.УстановитьНовыйКод();
ПартнерОбъект.Наименование = СокрЛП(ДанныеКонтрагент.Наименование);
ПартнерОбъект.НаименованиеПолное = ПартнерОбъект.Наименование;
ПартнерОбъект.ЮрФизЛицо = Перечисления.КомпанияЧастноеЛицо.ЧастноеЛицо;
ПартнерОбъект.Клиент = Истина;
ПартнерОбъект.ДатаРегистрации = ТекущаяДата();    
ПартнерОбъект.Комментарий = "Создан автоматически при загрузке заказов";
ПартнерОбъект.ОбменДанными.Загрузка = Истина;
ПартнерОбъект.Записать();

КонецФункции
1 Mort
 
21.02.17
18:01
А контрагент для этого партнера уже создан?
2 ВРедная
 
21.02.17
18:01
*Хинт*
Чтобы узнать, что надо сделать еще, нужно посмотреть в коде к процедуре обработки изменения флага "клиент" на форме.
3 h-sp
 
21.02.17
18:02
и вот это

ПартнерОбъект.ОбменДанными.Загрузка = Истина;

ни к чему здесь. Вы процедуры ПриЗаписи и ПередЗаписью вырубаете, а может там что-то важное.
4 usa223
 
21.02.17
18:04
Контрагент к этому моменту уже создан.
5 usa223
 
21.02.17
18:07
RE: ВРедная
Да я чего-то полез в код УТ 11, но там разобраться непросто. Обработчиков при записи куча вызывается, для меня найти нужный код в этой куча - это задача надолго.
6 anatoly
 
21.02.17
18:20
(5) тренируйся разбираться, пригодится...

зы: ты еще не видел запросы формирования табеля Т-13 в ЗУПе ))
7 usa223
 
21.02.17
18:30
(3) Ух ты, закомментировал:
ПартнерОбъект.ОбменДанными.Загрузка = Истина;
После этого всё сработало.  H-sp, спасибо!!!