Имя: Пароль:
1C
1С v8
Заполнение электронного адреса зуп 2.5
,
0 yyyuuu
 
20.12.18
10:08
Зарплата и Управление Персоналом, редакция 2.5 (2.5.130.2)
Здравствуйте, ребята подскажите пожалуйста как программно заполнить регистр сведений? А точнее как правильно сделать, где Я не так делаю
//***
         НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
         НаборЗаписей.Отбор.Объект.Установить(Сотрудник);
         НаборЗаписей.Отбор.Тип.Установить(перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
         НаборЗаписей.Отбор.Вид.Установить(справочники.ВидыКонтактнойИнформации.СлужебныйАдресЭлектроннойПочтыПользователя);
         НоваяЗапись = НаборЗаписей.Добавить();
         НоваяЗапись.Объект = Сотрудник;
         НоваяЗапись.Тип = перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
         НоваяЗапись.Вид = справочники.ВидыКонтактнойИнформации.СлужебныйАдресЭлектроннойПочтыПользователя;
         НоваяЗапись.Представление = "[email protected]";
         НаборЗаписей.Записать();
//****
1 hhhh
 
20.12.18
10:49
(0) что такое Сотрудник? для сотрудников вроде нет контактной информации. не бывает.
2 yyyuuu
 
20.12.18
10:53
(1)
Это с функции значение. ФИО сотрудника
3 yyyuuu
 
20.12.18
10:54
В карточке физ.лица есть Электронный адрес, если через регистр его заполняю Контактная Информация, появляется. Программно - Не появляется
4 Alexandr_U1982
 
20.12.18
10:54
(2) Должна быть ссылка на физлицо
5 hhhh
 
20.12.18
10:54
(2) ФИО - это чо вообще строка ???
6 yyyuuu
 
20.12.18
10:58
(5) ссылка на физ лицо
7 piter3
 
20.12.18
11:00
а в регистре программно запись появляется?
8 sandal_r
 
20.12.18
11:26
Попробуйте через менеджер записать


НоваяЗапись = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
НоваяЗапись.Объект = Сотрудник;
НоваяЗапись.Тип = перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
НоваяЗапись.Вид = справочники.ВидыКонтактнойИнформации.СлужебныйАдресЭлектроннойПочтыПользователя;
НоваяЗапись.Представление = "[email protected]";
НаборЗаписей.Записать(Истина);
9 sandal_r
 
20.12.18
11:27
+(8) в конце вместо НаборЗаписей подставить НоваяЗапись.

копипаст проклятый
10 yyyuuu
 
20.12.18
12:13
(9)
Завтра попробую, зупа под рукой нету.
11 yyyuuu
 
28.12.18
02:49
(8) все норм работает, даже для корпа. Ну так только немного изменить надо строчку)