Вытащить данные из Регистра Сведений

1С v8

15.02.17

✎

20:52

Необходимо по оле передать Адреса (Юр,Физический) и телефоны Контрагента Вот как пытаюсь, не находит

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

            Для каждого Запись Из НаборЗаписей Цикл
              олеКл.ЮридическийАдрес=Запись.Представление;

            КонецЦикла;

1 Лефмихалыч

15.02.17

✎

21:15

Кл - это что? COMОбъект из другой базы?

2 Serg_1960

15.02.17

✎

21:16

Это наверное от слова "клиент"

3 Лефмихалыч

15.02.17

✎

21:17

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

(2) спасибо, кэп!

4 Aldnepr

15.02.17

✎

21:18

Нет Кл объявлен ранее, это Клиент в текущей базе

Выборка=Справочники.Контрагенты.Выбрать();
Пока Выборка.Следующий()=1 Цикл
Кл=Выборка.ПолучитьОбъект();

5 Лефмихалыч

15.02.17

✎

21:19

(4) шлёпни себя линейкой по пальцам.
ПолучитьОбъект() - накуя?

6 Лефмихалыч

15.02.17

✎

21:20

да и вообще, закрой нафиг конфигуратор - с запросами в цикле нефиг тебе там делать

7 Aldnepr

15.02.17

✎

21:21

(5) далее передаю по ОЛЕ все таим образом

олеКЛ.Наименование= Кл.Наименование; // и т.д.

8 Serg_1960

15.02.17

✎

21:21

(4) Тогда можно проще :)

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

Если Запись.Выбран() Тогда
Сообщить("Ага, я гений. Я нашёл запись");
...

9 Жан Пердежон

15.02.17

✎

21:44

(5) походу семёрожник

10 Aldnepr

16.02.17

✎

10:21

(3) Метод объекта не обнаружен (СоздатьМенежерЗаписи)
Запись = РегистрыСведений.КонтактнаяИнформация.СоздатьМенежерЗаписи();

11 Lexey_

16.02.17