Имя: Пароль:
1C
1С v8
Не работает код на сервере
0 breezee
 
02.09.16
08:27
Добрый день. Есть код, который выполняется в общем модуле. Модуль привелегированный, стоят галки "Сервер" и "Вызов сервера". Без отладки на сервере код выполяется 9 секунд. В самом коде идет обмен по com по правилам обмена. Сделал запись в журнал регистрации в конце модуля - в журнал пишет, значит код проходит. Если я запущу код под клиентом - он выполняется минут 40 и отрабатывает. Включили отладку на сервере -  код тоже выполняется в отладке. Т.е. без отладки на сервере код не выполняется, а с отладкой тот же код выполнятся. Подскажите, в чем может быть проблема? Сам код:

// Подключаемся к базе
    V8 = Новый COMОбъект("V83.ComConnector");
    
    Попытка
        Открытие = V8.Connect(СтрокаПараметровПодключения);
    Исключение
        ЗаписьЖурналаРегистрации("НЕ Создал обработку в БП программно");

            Возврат;                    
    КонецПопытки;
    
    ЗаписьЖурналаРегистрации("Создал обработку в БП программно");

    мУниверсальнаяВыгрузкаДанных    = Открытие.Обработки.УниверсальныйОбменДаннымиXML.Создать();
            
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
    ДвоичныеДанные = ПланыОбмена.КонсБух.ПолучитьМакет("КБух");
    ДвоичныеДанные.Записать(ИмяВременногоФайла);
    
    
    
    мУниверсальнаяВыгрузкаДанных.ИмяФайлаПравилОбмена = ИмяВременногоФайла;
    мУниверсальнаяВыгрузкаДанных.ЗагрузитьПравилаОбмена();
    
    ЗаписьЖурналаРегистрации("Загрузил правила обмена в созданную обработку");
    

    ИмяФайлаДанных         = ПолучитьИмяВременногоФайла("xml");
            
    //КонецПопытки;
    ВременнаяТаблицаПравил = мУниверсальнаяВыгрузкаДанных.ТаблицаПравилВыгрузки.Скопировать();
    
    Для Каждого Строка Из ВременнаяТаблицаПравил.Строки Цикл
        Для Каждого строка2 из Строка.Строки Цикл
            Строка2.Включить = 1;    
        КонецЦикла;
    КонецЦикла;    
    
    мУниверсальнаяВыгрузкаДанных.ИмяФайлаОбмена            = ИмяФайлаДанных;
    мУниверсальнаяВыгрузкаДанных.ДатаНачала             = НачалоДня(ТекущаяДата());
    мУниверсальнаяВыгрузкаДанных.ДатаОкончания            = КонецДня(ТекущаяДата());
    мУниверсальнаяВыгрузкаДанных.ТаблицаПравилВыгрузки    = ВременнаяТаблицаПравил.Скопировать();
    мУниверсальнаяВыгрузкаДанных.ВыполнитьВыгрузку();

    ЗаписьЖурналаРегистрации("Загрузил данные");

    
    мУниверсальнаяЗагрузкаДанных = Обработки.УниверсальныйОбменДаннымиXML.Создать();
    мУниверсальнаяЗагрузкаДанных.РежимОбмена = "Загрузка";
    мУниверсальнаяЗагрузкаДанных.ИмяФайлаОбмена = ИмяФайлаДанных;
    
    мУниверсальнаяЗагрузкаДанных.ВыполнитьЗагрузку();

    Попытка
        УдалитьФайлы(ИмяФайлаДанных);
    Исключение
    КонецПопытки;
1 Лефмихалыч
 
02.09.16
08:58
(0) какая запись в журнал регистрации последняя, если ВЫключить отладку?
2 DrZombi
 
гуру
02.09.16
09:00
(0) Ошибка V82.COMConnector на сервере 64. Решение проблемы
http://catalog.mista.ru/public/197627/

Сервер слева, Клиент справа :)