Заполнение контактной информации физического лица
Создание и заполнение карточки физ лица имеет некоторые особенности, в частности это заполнение контактной информации
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
Если ФизЛицо.Пустая() Тогда НовоеФизЛицо = Справочники.ФизическиеЛица.СоздатьЭлемент(); НовоеФизЛицо.Наименование = Выборка.ФИО; НовоеФизЛицо.ДатаРождения = Дата(Выборка.ДатаРождения); Если Выборка.Пол = "Мужской" Тогда НовоеФизЛицо.Пол = Перечисления.ПолФизическогоЛица.Мужской; Иначе НовоеФизЛицо.Пол = Перечисления.ПолФизическогоЛица.Женский; КонецЕсли; // Адрес как контактная информация Адрес = НовоеФизЛицо.КонтактнаяИнформация.Добавить(); Адрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Адрес.Вид = Справочники.ВидыКонтактнойИнформации.Справочники.ВидыКонтактнойИнформации.ДомашнийАдресФизическогоЛица; Адрес.Представление = Строка(Выборка.Адрес); Адрес.ЗначенияПолей = "<КонтактнаяИнформация 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=""Прочее"" Значение=""" + Выборка.Адрес + """/></КонтактнаяИнформация>"; // Почта как контактная информация ЭлПочта = НовоеФизЛицо.КонтактнаяИнформация.Добавить(); ЭлПочта.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты; ЭлПочта.Вид = Справочники.ВидыКонтактнойИнформации.EmailФизическогоЛица; ЭлПочта.ВидДляСписка = Справочники.ВидыКонтактнойИнформации.EmailФизическогоЛица; ЭлПочта.Представление = Строка(Выборка.Почта); ЭлПочта.ЗначенияПолей = "<КонтактнаяИнформация 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=""ЭлектроннаяПочта"" Значение=""" + Выборка.Почта + """/></КонтактнаяИнформация>"; ЭлПочта.АдресЭП = Выборка.Почта; // Телефон как контактная информация МобильныйТелефон = НовоеФизЛицо.КонтактнаяИнформация.Добавить(); МобильныйТелефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон; МобильныйТелефон.Вид = Справочники.ВидыКонтактнойИнформации.МобильныйТелефонФизическогоЛица; МобильныйТелефон.ВидДляСписка = Справочники.ВидыКонтактнойИнформации.МобильныйТелефонФизическогоЛица; МобильныйТелефон.Представление = Строка(Выборка.Телефон); МобильныйТелефон.ЗначенияПолей = "<КонтактнаяИнформация 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=""НомерТелефона"" КодСтраны="""" КодГорода="""" Номер=""" + Выборка.Телефон + """ Добавочный=""""/></КонтактнаяИнформация>"; МобильныйТелефон.НомерТелефона = Выборка.Телефон; МобильныйТелефон.НомерТелефонаБезКодов = Выборка.Телефон; НовоеФизЛицо.Комментарий = "Физическое лицо добавлено путём копирования из 1С ЗУП " + Строка(ТекущаяДата()); НовоеФизЛицо.Записать(); КонецЕсли; |
Типы контактной информации
Виды контактной информации (Вид и ВидДляСписка)
Выборка.ДатаРождения на стороне отправителя преобразована в строку
|
1 |
Формат(Выборка.ДатаРождения, "ггггММддЧЧммсс") |
Значения полей – заполняю аналогично имеющимся
Комментарии закрыты