Здравствуйте, подскажите пожалуйста что делаю не так.
Создаю программно контрагента. Добавляю в табличную часть(Контактная информация)
запись с имейлом.
На выходе пусто.
В чем беда?
скриншоты прикрепил. Создаю и в партере и в контрагенте.
На выходе пусто(эта табличная часть пустая).

Вот код

```1c
    стрТЧКИ = СоздатьНовогоКонтрагента.КонтактнаяИнформация.Добавить();
    стрТЧКИ.АдресЭП = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].АдресЭП;
    стрТЧКИ.Вид = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Вид;
    стрТЧКИ.ВидДляСписка = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ВидДляСписка;
    стрТЧКИ.ДействуетС = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ДействуетС;
    стрТЧКИ.ДоменноеИмяСервера = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ДоменноеИмяСервера;
    стрТЧКИ.Значение = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Значение;
    стрТЧКИ.ЗначенияПолей = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ЗначенияПолей;
    стрТЧКИ.Представление = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Представление;
    стрТЧКИ.Тип = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Тип;
    СоздатьНовогоКонтрагента.Записать();
```

и так пробовал

```1c
    УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(СоздатьНовогоКонтрагента,
    "123@mail.ru",
    Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Электронная почта"),
    ТекущаяДатаСеанса());
```

и так пробовал

```1c
    УправлениеКонтактнойИнформацией.УстановитьКонтактнуюИнформациюОбъекта(СоздатьНовогоКонтрагента, КонтрактнаяИнформация);
    ПартнерыИКонтрагенты.ЗаполнитьКонтактнуюИнформациюКонтрагентаПартнера(СоздатьНовогоКонтрагента, СоздатьНовогоКонтрагента, СоздатьНовогоКонтрагента.КонтактнаяИнформация, Ложь);
```

На этипе отладки запись есть, захожу в этого контрагента, пусто, ставлю точку, пусто.
---
для партнера

```1c
    Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
    Вид = Справочники.ВидыКонтактнойИнформации.EmailПартнера;
    Представление = "123@mail.ru";

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

Для контрагента
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагента;
---
стрТЧКИ = СоздатьНовогоКонтрагента.КонтактнаяИнформация.Добавить();
        стрТЧКИ.АдресЭП = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].АдресЭП;
        стрТЧКИ.Вид = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Вид;
        стрТЧКИ.ВидДляСписка = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ВидДляСписка;
        стрТЧКИ.ДействуетС = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ДействуетС;
        стрТЧКИ.ДоменноеИмяСервера = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ДоменноеИмяСервера;
        стрТЧКИ.Значение = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Значение;
        стрТЧКИ.ЗначенияПолей = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].ЗначенияПолей;
        стрТЧКИ.Представление = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Представление;
        стрТЧКИ.Тип = СоздатьНовогоКонтрагента.КонтактнаяИнформация[0].Тип;
        СоздатьНовогоКонтрагента.Записать();

Что - то тут не то...
Ты хочешь перезаписать строки получается?
---
для партнера

```1c
    Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
    Вид = Справочники.ВидыКонтактнойИнформации.EmailПартнера;
    Представление = "123@mail.ru";

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

Для контрагента
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагента;
---
ктнойИнформацией.ЗаписатьКонтактнуюИнформацию(НовыйПартнер, ЗначенияПолей, Вид, Тип);

бле)) всеж так просто было.) Спасибо.
---
Только я немного по своему сделал.

```1c
    УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(СоздатьНовогоКонтрагента,
    "123@mail.ru",
    Справочники.ВидыКонтактнойИнформации.EmailКонтрагента,
    ТекущаяДатаСеанса());
```

Тобишь я не правильно вид передавал))
---
До
---
После
---
Две записи потому что я до записи впиндюрил и после записи( для теста.))
---
СоздатьНовогоКонтрагента.КонтактнаяИнформация - это табличная часть.
СоздатьНовогоКонтрагента.КонтактнаяИнформация[0] - это 1 строка этой же табличной части ...
---
Это моя 2-ая строка.

Значения теже поэтому я решил их тупо взять с 1 строки.
---
создается в ручную?
 программно скорее всего при записи очищается тч, посмотри отладчиком шаги (f11) при записи поставь точку
---
Перед записью на сервере есть

Если СкрываемыеВиды.Количество() = 0 Тогда
  Объект.КонтактнаяИнформация.Очистить();
 Иначе
---
ну вот, добавь сюда запись - СкрываемыеВиды
---
не не, если не программно, а так..через форму добавить, все равно там пусто в этих
СкрываемыеВиды
---
Если СкрываемыеВиды.Количество() = 0 Тогда
Объект.КонтактнаяИнформация.Очистить();
Иначе
тогда после этого условия заново перезаполни ) либо добавь параметр типа: процедура ааа(ПрограммноеЗаполнение = ложь )

Если СкрываемыеВиды.Количество() = 0 И ПрограммноеЗаполнение = ложь тогда
Объект.КонтактнаяИнформация.Очистить();

Далее думаю понятно )
---
ну если я ручками запишу то собственно все равно он очищает и дальше добавляет..
---
Что-то я не врубаюсь)) а как быть то тогда? все равно же нужно записать(), а как я запишу если он ее очищает)
---
можно еще сравнить отладчиком ручную запись с программной )
---
я вот и сравнил))