Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   переношу через оле контактрую информацию (http://forums.kuban.ru/f1040/perenoshu_cherez_ole_kontaktruyu_informaciyu-7314347.html)

vin1c 12.11.2015 21:18

переношу через оле контактрую информацию
 
НоваяКИ=РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
НоваяКИ.Объект=Контрагент;
НоваяКИ.Тип=Перечисления.ТипыКонтактнойИнформации.Адрес;

Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию(ВыборкаБД.Вид.Наименование);
НоваяКИ.Вид = Вид;


НоваяКИ.Представление=ВыборкаБД.Представление;
НоваяКИ.Поле1=ВыборкаБД.Поле1;
НоваяКИ.Поле2=ВыборкаБД.Поле2;
НоваяКИ.Поле3=ВыборкаБД.Поле3;
НоваяКИ.Поле4=ВыборкаБД.Поле4;
НоваяКИ.Поле5=ВыборкаБД.Поле5;
НоваяКИ.Поле6=ВыборкаБД.Поле6;
НоваяКИ.Поле7=ВыборкаБД.Поле7;
НоваяКИ.Поле8=ВыборкаБД.Поле8;
НоваяКИ.Поле9=ВыборкаБД.Поле9;
НоваяКИ.Поле10=ВыборкаБД.Поле10;
НоваяКИ.Комментарий= ВыборкаБД.Комментарий;
НоваяКИ.ЗначениеПоУмолчанию= Истина;
НоваяКИ.ТипДома= Перечисления.ТипыДомов.Дом;// ВыборкаБД.ТипДома;
НоваяКИ.ТипКорпуса= Перечисления.ТипыКорпусов.Корпус;
НоваяКИ.ТипКвартиры=Перечисления.ТипыКвартир.Квартира;
НоваяКИ.Записать();

создает в реристре запись, но в контрагенте не отображается в поле юрадрес или физадрес.

roma n 12.11.2015 21:34

Создай интерактивно и сравни поля

vin1c 12.11.2015 22:39

он не все поля показывает в регистре и в настройках не выставляется если только потом прочитать по новой в обработке и сравнить?

roma n 12.11.2015 22:55

[em]Не все поля показывает[/em]
Ты разраб или где? Купите одинэсника

vin1c 13.11.2015 02:25

сравнил все поля, все совпадает и при интерактивном заполнении и при программном в отладчике затык идет в форме контрагента при чтении регистра сведений
Отбор = Новый Структура;
Отбор.Вставить("Вид", Запись.Вид);
Отбор.Вставить("Тип", Запись.Тип);
Строки = СтруктураДляРедактирования.Настройки.НайтиСтроки(Отбор);

seugenys 13.11.2015 09:41

4-vin1c > Хм, это что за конфа?

Климов Сергей 13.11.2015 09:51

После этой строки

Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаимен ованию(ВыборкаБД.Вид.Наименование);

чему равен Вид?


Текущее время: 07:47. Часовой пояс GMT +3.