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

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

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

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

Как правильно присвоить родителя новому элементу спр. в Бухе?
MATEVI
Найти родителя по коду или наименованию. Если нет создать и присвоить.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.