УТ 11.3 как программно заполнить контактную информаию по контрагенту
Добрый день. Помогите, пожалуйста, разобраться. Программно заполняю контактную информацию в справочник Контрагенты (записываю в табличную часть). Если проверить результат с помощью запроса, то информация записывается в табл. часть Контактная информация. Но если в режиме Предприятия зайти в спр.Контрагенты на вкладке "Адреса, телефоны" данных НЕТ, т.е. их почему то не видно.
Найденные решения
(16)
Да, Ирина, Вы правы. Я сама эту ошибку увидела.
заработало вот так:
Да, Ирина, Вы правы. Я сама эту ошибку увидела.
заработало вот так:
Тел=НовПартнер.КонтактнаяИнформация.Добавить();
тел.тип=Перечисления.ТипыКонтактнойИнформации.Телефон ;
Тел.Вид=Справочники.ВидыКонтактнойИнформации.ТелефонПартнера ;
Тел.Представление= ЗначениеЯчейкиТелефон;
тел.ВидДляСписка=Справочники.ВидыКонтактнойИнформации.ТелефонПартнера;
тел.ЗначенияПолей="<КонтактнаяИнформация 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=""НомерТелефона"" КодСтраны="""" КодГорода="""" Номер="""+ЗначениеЯчейкиТелефон+""" Добавочный=""""/></КонтактнаяИнформация>";
тел.НомерТелефона=ЗначениеЯчейкиТелефон;
тел.НомерТелефонаБезКодов=ЗначениеЯчейкиТелефон;
НовПартнер.Записать();
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(10)
вот так:
вот так:
Тел=НовПартнер.КонтактнаяИнформация.Добавить();
тел.тип=Перечисления.ТипыКонтактнойИнформации.Телефон ;
Тел.Вид=Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента ;
Тел.Представление= ЗначениеЯчейкиТелефон;
тел.ВидДляСписка=Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;
тел.ЗначенияПолей="НомерТелефона="+ ЗначениеЯчейкиТелефон;
тел.НомерТелефона=ЗначениеЯчейкиТелефон;
тел.НомерТелефонаБезКодов=ЗначениеЯчейкиТелефон;
НовПартнер.Записать();
Показать
(11) я когда-то вносил так:
Где Выборка.Представление - строка с телефоном
СтрокаКИ = ИзменяемПартнер.КонтактнаяИнформация.Добавить();
СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
СтрокаКИ.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонПартнера;
СтрокаКИ.ЗначенияПолей = "<КонтактнаяИнформация 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=""НомерТелефона"" КодСтраны="""" КодГорода="""" Номер="""+Выборка.Представление+""" Добавочный=""""/></КонтактнаяИнформация>";
СтрокаКИ.НомерТелефона = Выборка.Представление;
СтрокаКИ.НомерТелефонаБезКодов = Выборка.Представление;
СтрокаКИ.Представление = Выборка.Представление;
Где Выборка.Представление - строка с телефоном
Партнеров используете? Если да, то вы видите там контактную информацию партнера(могу ошибаться)
Если нет то я, например, пишу так:
P.S^ Контактную информацию для партнера можно записать по аналогии, только изменить "Вид" и соответственно объектом передавать "партнера"
Если нет то я, например, пишу так:
АдресЭП = МылоКонтрагента;
Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагента;
Представление = АдресЭП;
ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(АдресЭП, Тип);
ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(ВашКонтрагентОбъект, ЗначенияПолей, Вид, Тип);
ПоказатьP.S^ Контактную информацию для партнера можно записать по аналогии, только изменить "Вид" и соответственно объектом передавать "партнера"
(2)
(2)
спасибо :), но не помогло
АдресЭП = МылоКонтрагента;
Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагента;
Представление = АдресЭП;
ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(АдресЭП, Тип);
ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(ВашКонтрагентОбъект, ЗначенияПолей, Вид, Тип);
Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагента;
Представление = АдресЭП;
ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(АдресЭП, Тип);
ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(ВашКонтрагентОбъект, ЗначенияПолей, Вид, Тип);
(2)
спасибо :), но не помогло
(7) Тебе кажется когда открываешь справочник "Контрагенты", чудеса творятся? Нет, не чудеса, и при открытии справочника выполняется запрос. Так что, у тебя что-то не хватает. Можешь из предприятия создавать контактную информацию и с помощью запроса сравнить своя запись.
Если у вас здесь Партнер
То тут, я думаю, должно быть Справочники.ВидыКонтактнойИнформации.ТелефонПартнера, а не Контрагента
А здесь
должно быть явно по-другому, к примеру
Тел=НовПартнер.КонтактнаяИнформация.Добавить();
То тут, я думаю, должно быть Справочники.ВидыКонтактнойИнформации.ТелефонПартнера, а не Контрагента
Тел.Вид=Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента ;
А здесь
тел.ЗначенияПолей="НомерТелефона="+ ЗначениеЯчейкиТелефон;
должно быть явно по-другому, к примеру
тел.ЗначенияПолей="<КонтактнаяИнформация 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=""НомерТелефона"" КодСтраны="""" КодГорода="""" Номер="""+ЗначениеЯчейкиТелефон+""" Добавочный=""""/></КонтактнаяИнформация>";
ЗначениеЯчейкиТелефон = ЗначениеЯчейкиТелефон;
(16)
Да, Ирина, Вы правы. Я сама эту ошибку увидела.
заработало вот так:
Да, Ирина, Вы правы. Я сама эту ошибку увидела.
заработало вот так:
Тел=НовПартнер.КонтактнаяИнформация.Добавить();
тел.тип=Перечисления.ТипыКонтактнойИнформации.Телефон ;
Тел.Вид=Справочники.ВидыКонтактнойИнформации.ТелефонПартнера ;
Тел.Представление= ЗначениеЯчейкиТелефон;
тел.ВидДляСписка=Справочники.ВидыКонтактнойИнформации.ТелефонПартнера;
тел.ЗначенияПолей="<КонтактнаяИнформация 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=""НомерТелефона"" КодСтраны="""" КодГорода="""" Номер="""+ЗначениеЯчейкиТелефон+""" Добавочный=""""/></КонтактнаяИнформация>";
тел.НомерТелефона=ЗначениеЯчейкиТелефон;
тел.НомерТелефонаБезКодов=ЗначениеЯчейкиТелефон;
НовПартнер.Записать();
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот