УТ 11 адрес в свободной форме

Форум Программирование Общие вопросы программирования (Dev)

1С:Управление торговлей 11

1. mikit 71 18.02.21 16:44 Сейчас в теме

Данный код работает для телефона и email прекрасно, а вот адрес не заполняет. В чем может быть ошибка?

Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;

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

ОбъектПартнер.Записать();


Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;

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

ОбъектКонтрагент.Записать();

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. andy_zhav 197 19.02.21 09:06 Сейчас в теме

(1) Что вас смущает в результате? Как по мне - прекрасно работает код.

3. mikit 71 19.02.21 11:07 Сейчас в теме

(2)При открытии элемента партнёр. Адрес пустой:(

4. EVKash 14 19.02.21 11:29 Сейчас в теме

(3) писал давно. тонкостей не помню, но работает.

	Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
	Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента;
	Представление = лКонтрагент.ЮрФизЛицо.ФактАдрес;     
		            
	ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(Представление, Тип);
	ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
	УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(НовыйКонтрагент, ЗначенияПолей, Вид, Тип);

	СтрокаФактАдреса = НовыйКонтрагент.КонтактнаяИнформация.Найти(Вид, "Вид");
	
	Если НЕ СтрокаФактАдреса = Неопределено Тогда
		ДанныеАдреса = УправлениеКонтактнойИнформациейСлужебный.JSONВКонтактнуюИнформациюПоПолям(СтрокаФактАдреса.Значение, Перечисления.ТипыКонтактнойИнформации.Адрес);
		Если ДанныеАдреса.area = "" Тогда
			ДанныеАдреса.addressType = "ВСвободнойФорме";
			СтрокаФактАдреса.Значение = УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(ДанныеАдреса);
		Иначе
			РаботаСАдресамиКлиентСервер.ОбновитьПредставлениеАдреса(ДанныеАдреса, Ложь);
			СтрокаФактАдреса.Значение = УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(ДанныеАдреса);
			СтрокаФактАдреса.Представление = ДанныеАдреса.Value;
		КонецЕсли;
		
	КонецЕсли;

Показать

Оставьте свое сообщение

E-mail: