1с ЗУП Запись адреса проживания "Физическому лицу"

naïve

21.02.24

✎

12:43

Добрый день. создаю программно физ.лицо и заполняю у него адрес проживания программно

Стр.АдресПоПропискеПредставление = "РОССИЯ, 142000, Московская обл, г.о. Домодедово, ул Большая 1, д. 1"

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

Программа берет и в адресе убирает Россию и соответственно не правильный адрес.

1 illiona

naïve

21.02.24

✎

12:43

Может кто подскажет более правильно формирование адреса

2 Волшебник

21.02.24

✎

12:57

Вот Вы говорите, что заполняете "адрес проживания", а сами заполняете "АдресПоПрописке".
Из-за таких вот несоответствий первый залетевший дятел разрушит цивилизацию.

3 illiona

naïve

21.02.24

✎

13:00

Вообще и то и то заполняю, заполняются они идентично.

4 illiona

naïve

21.02.24

✎

13:01

В обоих случаях заполняется не корректно

5 Momus

21.02.24

✎

13:04

Почему просто не использовать УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию() ? (0)

6 illiona

naïve

21.02.24

✎

13:23

(5) а как адрес при этом разберётся, если передавать представление?

7 Momus

21.02.24

✎

13:31

(6) мб посмотреть реализацию функции, которую я привел?

8 illiona

naïve

21.02.24

✎

14:39

(7) посмотрю сейчас

9 MaximSh

21.02.24

✎

15:59

(8) если не заработает то примерно так (у меня БСП уже довольно старая)





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



Если ОбъектXDTOКИ.Представление <> "" Тогда

    



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

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

    

    

КонецЕсли;