VPF::не работает OLE - Форум программистов

Itsys

Дата 30.10.2008, 10:40 (ссылка)

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

Загрузка ...

Эксперт

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

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

Добрый день,

Есть код:

Код


    СерверOLE = СоздатьОбъект("V77.Application");
    СерверОткрыт = СерверOLE.Initialize(СерверOLE.RMTrade, "/D""" + СокрЛП(ПутьAccMosNWS) + """", "NO_SPLASH_SHOW");
    
    Если СерверОткрыт = 0 Тогда 
        Предупреждение("Подключиться к Acc Mos NWS не удалось, обратитесь в службу поддержки."); 
        Возврат; 
    КонецЕсли;
    
    Попытка
        СпрОС = СерверOLE.CreateObject("Справочник.ОсновныеСредства");
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;

При подклбючении выдает:

Код


Поле агрегатного объекта не обнаружено (CreateObject)

т.е., загрузка БД произошла без ошибок, но создать объект не получается. Права на папки с БД полные. В чем еще может быть проблема?

AkelaSQL

Дата 30.10.2008, 12:18 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

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

Вот живой код:

/

Код


/_____________________________________________________________________________
Процедура Connect() 
    
    Попытка
        База=СоздатьОбъект("V77.Application"); 
        
    Исключение 
        Сообщить(Строка(Error), "!!!");
        СтатусВозврата(0);
        Возврат;    
    КонецПопытки;
    
    Состояние("Подключение к базе данных по OLE. Пожалуйста подождите..."); 
    
    Открыта=База.Initialize(База.RMTrade,,"NO_SPLASH_SHOW");
    
    Попытка
        Если ПустоеЗначение(База.Метаданные) = 1 Тогда
            Предупреждение("Ошибка открытия информационной базы!");
            Возврат;
        КонецЕсли; 
        Состояние("База подключена успешно");
    Исключение
        База="";
        Состояние("Ошибка подключения! Искреннне сожалею...");
        Возврат;
    КонецПопытки;
КонецПроцедуры //Connect
//_____________________________________________________________________________

Процедура Disconnect()
    Попытка 
        База = 0;
        База = "";
        Открыта = 0;
    Исключение
        СтатусВозврата(0);
        Возврат;
    КонецПопытки;
    
КонецПроцедуры //Disconnect
//*******************************************
Процедура Сформировать()
    
    //Если ПустоеЗначение(Клиент) = 0 Тогда
    //    Если ПустаяСтрока(Клиент.КодПоТорговле) = 1 Тогда
    //        Предупреждение("У контрагента не заполнен код клиента по другой базе!" + РазделительСтрок + "Выборка невозможна!", 15);
    //        Возврат;
    //    КонецЕсли;
    //КонецЕсли;
    
    Если Открыта = -1 Тогда
    Иначе
        Connect();
    КонецЕсли;
    
    Если Открыта = -1 Тогда
        //отбор по контрагенту
        //заполнение текста запроса
        ОтборПоКонтрагенту = "";
        Если ПустоеЗначение(Клиент) = 0 Тогда
            КодКонтрагентаВБазеИмпорта = База.глВернутьКодКонтрагентаПоИНН(НомерКлиента);
            
            Если СокрЛП(КодКонтрагентаВБазеИмпорта) = "0" Тогда
                Сообщить("Контрагент с указанным ИНН  в базе импорта, не найден");
                Сообщить("(Возможно в номере указан 'ИНН/КПП' вместо 'ИНН\КПП'(Правильный вариант 'ИНН\КПП'), либо номер отсутсвует совсем)");
                Возврат;
            КонецЕсли;
            
            ОтборПоКонтрагенту = "Условие (КонтрагентКод = " + Кавычка  + КодКонтрагентаВБазеИмпорта + Кавычка + ");";
        КонецЕсли;
        
        Запрос = База.CreateObject("Query");
        ТекстЗапроса = "
        |Обрабатывать НеПомеченныеНаУдаление;
        |Наименование = Справочник.Фирмы.Наименование;
        |Код = Справочник.Фирмы.Код;
        |Группировка Код Без Групп Все;
        |";
        
        Запрос.ВключитьSQL(1);
        Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
            Возврат;
        КонецЕсли;
        
        СЗ = СоздатьОбъект("СписокЗначений");
        СЗ.УдалитьВсе();
        Пока Запрос.Группировка(1) = 1 Цикл
            СЗ.ДобавитьЗначение(Запрос.Код,Запрос.Наименование);
        КонецЦикла;
        
        КодФирмаТорг = "";
        Если СЗ.ВыбратьЗначение(КодФирмаТорг,"Выберите фирму для импорта",,,0) = 0 Тогда
            Предупреждение("Импорт невозможен не выбрана фирма!",45);
            Возврат;
        КонецЕсли;

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

Itsys

Дата 30.10.2008, 14:19 (ссылка)

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

Загрузка ...

Эксперт

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

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

Проблема была в том, что в правах былы отключена права доступа как OLE Automation smile

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