Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Как присвоить родителя через Com - соединение , Как присвоить родителя через COM - соединение для элемента справочник          
poritskiy Подменю пользователя
сообщение 24.01.12, 11:49
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 1 раз
Рейтинг: 0

Есть две базы на платформе 8,1 УТП и БУХА переписные в хлам...
Захотели та куй фичу...
При нажатии на кнопочку в карточке Контрагента в УТП что бы все данные с УТП перенеслись в Бухгалтерию...то есть создался новый элемент спр. контрагенты в Бухе.
Пишу такой код:
     cntr = Новый COMObject("V81.COMConnector");
    Сообщить("Подождите, идет получение данных...", СтатусСообщения.Информация);
    // создается объект COM-соединение
    connection = cntr.Connect("File=""E:\Копия 29122011"";    Usr=""Admin""; Pwd="""";");
    ЕстьКодПоЕДРПОУ = connection.Справочники.Контрагенты.НайтиПоРеквизиту("КодПоЕДРПОУ",Ссылка.КодПоЕДРПОУ);
    Если не  ЗначениеЗаполнено(ЕстьКодПоЕДРПОУ.КодПоЕДРПОУ) Тогда
        НовЭлКонт = connection.Справочники.Контрагенты.СоздатьЭлемент();
        НовЭлКонт = Справочники.Контрагенты.СоздатьЭлемент();
        НовЭлКонт.Наименование = Ссылка.Наименование;
        НовЭлКонт.НаименованиеПолное = Ссылка.НаименованиеПолное;
        НовЭлКонт.КодПоЕДРПОУ = Ссылка.КодПоЕДРПОУ;
        НовЭлКонт.ИНН = Ссылка.ИНН;
        НовЭлКонт.НомерСвидетельства = Ссылка.НомерСвидетельства;
        НовЭлКонт.НеЯвляетсяРезидентом = Ссылка.НеЯвляетсяРезидентом;
        НовЭлКонт.Комментарий = Ссылка.Комментарий;

                            // нахожу по наименованию родителя в бухгалтерии
        Род = connection.Справочники.Контрагенты.НайтиПоНаименованию(Ссылка.Родитель.Наименование);

                            // проверяю на то что это папка
        Если Род.IsFolder  Тогда

                                          //Как  присвоить незнаю, потому как в переменной Род тип COMObject
            НовЭлКонт.Родитель =Род;     
        КонецЕсли;
        НовЭлКонт.Записать();
              КонецЕсли;

Как правильно присвоить родителя новому элементу спр. в Бухе?

MATEVI Подменю пользователя
сообщение 24.01.12, 11:53
Сообщение #2

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2203
Из: Одесса
Спасибо сказали: 968 раз
Рейтинг: 796.3

Найти родителя по коду или наименованию. Если нет создать и присвоить.

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 03.07.25, 9:13
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!