VPF::Как программно задать адрес контрагента? (1Сv8)

Zerstroer

Дата 21.10.2010, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.8.2007
Где: Алма-Ата

Репутация: нет
Всего: 3

Приветствую всех!
Сам я программистом 1С не являюсь, поэтому обращаюсь за помощью.
Занимаюсь экспортом информации из другой прогарммы в 1С.
Столкнулся с такой задачей - экспорт справочника контрагентов из проги в 1С версии 8.1. Точнее, адреса контрагента.
Для выполнения этой задачи, мне нужно знать код 1С, который создает для заданного контрагента адрес (или другую контактную информацию).
Порылся в 1Ске, нашел, что контактная информация хранится в Регистре Сведений "КонтактнаяИнформация", но как задать туда данные и пришить их к конкретному контрагенту, я так и не смог понять.
В связи с чем, прошу показать пример программного задания адреса указанному контрагенту.

Заранее спасибо.

--------------------

In silico

Itsys

Дата 21.10.2010, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 7
Всего: 34

Когда-то делал так (пример загрузки из 7.7.)

Присоединённый файл ( Кол-во скачиваний: 30 )

__________________________.epf 7,60 Kb

Zerstroer

Дата 27.10.2010, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.8.2007
Где: Алма-Ата

Репутация: нет
Всего: 3

Спасибо! Помогло.
Хотя я воспользовался алтернативным способом.
У itsys было так:

Код


Если НЕ ПустаяСтрока(СокрЛП(Спр77.ЮридическийАдрес)) Тогда

                                               Отбор = Новый Структура;

                                               Отбор.Вставить("Объект", Спр.Ссылка);

                                               Отбор.Вставить("Тип", Перечисления.ТипыКонтактнойИнформации.Адрес);

                                               Отбор.Вставить("Вид", Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);

                                               Реквизиты = РегистрыСведений.КонтактнаяИнформация.Получить(Отбор);

                                               Если ПустаяСтрока(Реквизиты.Представление) Тогда

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

                                                           ЗаписьРег.Объект = Спр.Ссылка;

                                                           ЗаписьРег.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;

                                                           ЗаписьРег.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;

                                                           ЗаписьРег.Представление = СокрЛП(Спр77.ЮридическийАдрес);

                                                           ЗаписьРег.Записать();

                                               КонецЕсли;

                                   КонецЕсли;

Я воспользовался этим:

Код


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

        НаборЗаписей.Прочитать();

        флЗаписи = Ложь;

        Если ЗначениеЗаполнено(БД.address) Тогда

            ЗаписьАдрес          = НаборЗаписей.Добавить();           

            ЗаписьАдрес.Объект = СпрЭлем.Ссылка;

            ЗаписьАдрес.Тип      = Перечисления.ТипыКонтактнойИнформации.Адрес;

            ЗаписьАдрес.Вид      = Справочники.ВидыКонтактнойИнформации.ЮридическийАдрес;

            ЗаписьАдрес.Представление = СокрЛП(БД.address);

            флЗаписи = Истина;

        КонецЕсли;         

        Если флЗаписи Тогда

            НаборЗаписей.Записать();

        КонецЕсли;

В конечном итоге задача была выполнена! Спасибо!

Это сообщение отредактировал(а) Zerstroer - 27.10.2010, 06:58

--------------------

In silico

Itsys

Дата 27.10.2010, 09:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 7
Всего: 34

В вашем варианте при повторной загрузке адреса задвоятся.

Zerstroer

Дата 27.10.2010, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.8.2007
Где: Алма-Ата

Репутация: нет
Всего: 3

Я знаю)), исключение задвоения адресов предусмотрено. 1С-ный код который я искал (и нашел!) используется не напрямую в 1С, а преобразуется в специальный программный код, который я использую в программе, экспортирующей данные из прочих систем в 1С.

--------------------

In silico

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »