////////Телефоны = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
////////ТелефонКонтрагента = Телефоны.Добавить();
////////ТелефонКонтрагента.Объект = Контрагент.Ссылка;
////////ТелефонКонтрагента.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("00005").Ссылка;
////////ТелефонКонтрагента.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
////////ТелефонКонтрагента.Представление = СокрЛП(КлиентКонтрагент.ПолучитьЗначение(4));
////////
//////////Емейл = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
//////////ЕмейлКонтрагента = Телефоны.Добавить();
//////////ЕмейлКонтрагента.Объект = Контрагент.ПолучитьСсылку();
//////////ЕмейлКонтрагента.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("00021");
//////////ЕмейлКонтрагента.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
//////////ЕмейлКонтрагента.Представление = КлиентКонтрагент.ПолучитьЗначение(0);
//////////ФизическийАдрес = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
////////ФизическийАдресКонтрагента = Телефоны.Добавить();
////////ФизическийАдресКонтрагента.Объект = Контрагент.Ссылка;
////////ФизическийАдресКонтрагента.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("00008").Ссылка;
////////ФизическийАдресКонтрагента.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
////////ФизическийАдресКонтрагента.Представление = СокрЛП(КлиентКонтрагент.ПолучитьЗначение(5));
////////
//////////ЮридическийАдрес = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
////////ЮридическийАдресКонтрагента = Телефоны.Добавить();
////////ЮридическийАдресКонтрагента.Объект = Контрагент.Ссылка;
////////ЮридическийАдресКонтрагента.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("00010").Ссылка;
////////ЮридическийАдресКонтрагента.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
////////ЮридическийАдресКонтрагента.Представление = СокрЛП(КлиентКонтрагент.ПолучитьЗначение(5));
////////Телефоны.Записать();
НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Владелец.Установить(Контрагент);
НаборЗаписей.Прочитать();
СтрокаЗаписи = НаборЗаписей.Добавить();
...
НаборЗаписей.Записать();
НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Владелец.Установить(Контрагент);
НаборЗаписей.Прочитать();
СтрокаЗаписи = НаборЗаписей.Добавить();
...
НаборЗаписей.Записать();
НаборЗаписей.Записать(Ложь);