Имя: Пароль:
1C
 
Ошибка при подключении внешней компоненты 1с 81
0 1сПупс
 
13.04.17
07:45
добрый день!
подключаю кассу с передачей данных к 8.1:

        ПодключитьВнешнююКомпоненту("AddIn.ATOL_KKM_1C82_54FZ");
        Драйвер = Новый COMОбъект ("AddIn.ATOL_KKM_1C82_54FZ");
        Драйвер.Password = 30;

на 1 строчке ругается на код, уходит в Исключение. Что подправить?
1 Mankubus
 
13.04.17
07:50
(0) а ругается какими словами?
2 Рэйв
 
13.04.17
07:50
А что пишет в ОписаниеОшибки() предлагаешь догадаться телепатически?
3 1сПупс
 
13.04.17
07:52
(1)         ПодключитьВнешнююКомпоненту("AddIn.ATOL_KKM_1C82_54FZ");
        Драйвер = Новый COMОбъект ("AddIn.ATOL_KKM_1C82_54FZ");
        Драйвер.Password = 30;

        
        
          Исключение
        Инфо = ИнформацияОбОшибке();
        Результат = мОшибкаЗагрузкиДрайвера;
        ОписаниеОшибки = "Невозможно подключить внешнюю компоненту.
        | Проверьте, что внешняя компонента корректно установлена и имеет ту же версию,
        | что и требуемая обработкой обслуживания.";
4 1сПупс
 
13.04.17
07:52
(2) написал
5 1сПупс
 
13.04.17
07:53
REGSVR32 FprnM1C82_54FZ.dll делал
6 Рэйв
 
13.04.17
07:54
(4)>>подключаю кассу с передачей данных к 8.1:

AddIn.ATOL_KKM_1C82

Ничего не смущает?
7 1сПупс
 
13.04.17
08:12
должно же подключать? не?
8 Рэйв
 
13.04.17
08:26
(7)"...1C82" не зря же написали.  
А ты пытаешься натянуть на 8.1
Так что резонно что оно тебя посылает
9 1сПупс
 
13.04.17
08:28
А как натянуть кассу с передачей данных на 8.1
10 1сПупс
 
13.04.17
08:28
?
11 Рэйв
 
13.04.17
08:29
(9)переведи на 8.2 и должно заработать
12 rozer76
 
13.04.17
09:15
(0) Функция СоздатьОбъектДрайвера(Объект, Модель, Параметры) Экспорт

    Результат = мНетОшибки;
    ОписаниеОшибки = "";
    ИДУстройства   = Неопределено;

    Попытка
        ПрогИД = "AddIn.ATOL_KKM_1C82_54FZ";
        ПодключитьВнешнююКомпоненту(ПрогИД);
        Драйвер = Новый (ПрогИД);
    Исключение
        Инфо = ИнформацияОбОшибке();
        Результат = мОшибкаЗагрузкиДрайвера;
        ОписаниеОшибки = "Невозможно подключить внешнюю компоненту.
        | Проверьте, что внешняя компонента корректно установлена и имеет ту же версию,
        | что и требуемая обработкой обслуживания.";
    КонецПопытки;
        
    Если Результат = мНетОшибки Тогда
        Попытка
            мВерсияИзДрайвера = Драйвер.ПолучитьНомерВерсии();
        Исключение
            Сообщить("""" + Модель + """:" + Символы.ПС +
            "Внимание! Невозможно определить версию драйвера." + Символы.ПС +
            "Корректная работа драйвера не гарантируется", СтатусСообщения.Внимание);
        КонецПопытки;
        
        Объект = Новый Структура("Модель, Параметры, Драйвер, ОписаниеОшибки, ИДУстройства",
                                  Модель, Параметры, Драйвер, ОписаниеОшибки, ИДУстройства);
    КонецЕсли;

    Возврат Результат;

КонецФункции // СоздатьОбъектДрайвера()
13 1сПупс
 
13.04.17
09:17
ок, спасибо за совет.
так победили. Просто запускали на 7ке 64 битной, запустили на 32 битном сервере и заработало.
14 1сПупс
 
13.04.17
09:18
(12) спасибо, именно этот код пользовали.