Как правильно добавить контактную информацию (БСП)

Иван Гордынец 6 1

Фрагмент программного добавления контактной информации

//вид контактной информации (адрес партнера, адрес контрагента, телефон партнера и т.д.)
ВидКИ = Справочники.ВидыКонтактнойИнформации.АдресПартнера;
//тип контактной информации (Адрес, Телефон, ЭлектроннаяПочта)
ТипКИ = ВидКИ.Тип;
			
//получение объекта XDTO по представлению контактной информации
ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению("г. Минск, ул. Пинская, 28А", ТипКИ);
ЗначенияПолей = 

//преобразование объекта XDTO в xml
УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);

//запись контактной информации в табличную часть объекта
//ПартнерОбъект - тип СправочникОбъект.ИмяСправочника
УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(ПартнерОбъект, ЗначенияПолей, ВидКИ, ТипКИ);

//вид контактной информации (адрес партнера, адрес контрагента, телефон партнера и т.д.)
ВидКИ = Справочники.ВидыКонтактнойИнформации.АдресПартнера;
//тип контактной информации (Адрес, Телефон, ЭлектроннаяПочта)
ТипКИ = ВидКИ.Тип;
			
//получение объекта XDTO по представлению контактной информации
ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению("г. Минск, ул. Пинская, 28А", ТипКИ);
ЗначенияПолей = 

//преобразование объекта XDTO в xml
УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);

//запись контактной информации в табличную часть объекта
//ПартнерОбъект - тип СправочникОбъект.ИмяСправочника
УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(ПартнерОбъект, ЗначенияПолей, ВидКИ, ТипКИ);

ред. 3 года назад

Недостаточно рейтинга для добавления отрицательного голоса. Шаблон будет скрыт из ваших результатов поиска.

‹ ›

для каждого СтрокаФЛ из Объект.ФизическиеЛица цикл

		ПочтаСтруктура = Новый Структура;
	    Вид = Справочники.ВидыКонтактнойИнформации.EMailФизическиеЛица;
		ВидДляФЛ = Справочники.ВидыКонтактнойИнформации.EmailФизическиеЛица;
	    ПочтаСтруктура.Вставить("Представление",  СтрокаФЛ.emailИзФайла);
		ПочтаСтруктура.Вставить("АдресЭП", СтрокаФЛ.emailИзФайла);
	    ЭПАДРЕС_XML = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияВXML(ПочтаСтруктура,"", Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
	    ЭПАДРЕС_JSON = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияВJSON(ЭПАДРЕС_XML);
		УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(СтрокаФЛ.ФизЛицо, ЭПАДРЕС_JSON, ВидДляФЛ, ТекущаяДата(), Истина);
		

конеццикла;