Версия для печати темы (https://pro1c.org.ua/index.php?s=d2f190ce47cdd20423792b61f3d5b1cf&showtopic=67857)

Автор: andytg 06.07.25, 1:23

приветствую, коллеги

возникла следующая задача: есть несколько баз -- управленческая (старая и очень сильно переделанная под наши нужды УНФ 1.5.4.40 на управляемых формах) и несколько бухгалтерких баз БАС бухгалтерия КОРП, тоже на управляемых, понятное дело, формах, со всеми последними обновлениями (тоже слегка переделанных для корректного взаимодействия с измененной же УНФ, ну да не суть...)

из УНФ идет импорт данных в бухгалтерии через вызов com-объекта на сервере, сервер крутится на windows 2008R2

все это написано давно и работает корректно много лет и вопросов не вызывает (а ранее работало еще в такой связке 7.7 (комплексная) --> 7.7 (бух), потом было 7.7 (комплексная) --> 8.3 (бух) и наконец все пришло к 8.3 (унф) --> 8.3 (бух))

сейчас возникла мысль перенести серверную часть на линукс с выносом этого всего в какой-то ДЦ где-то не в Украине (оно и сейчас в ДЦ, только там недалеко на днях очень сильно прилетело, откуда и возникли мысли убраться отсюда от греха подальше )

так вот, поскольку в линуксе никаких com-объектов нет, решено реорганизовать com-обмен не на сервере, а на клиенте (который все равно на windows, т.к. Fredo и все такое...), с переносом на клиент никаких проблем нет -- вызываем из "тонкого" клиента (бух. КОРП) "толстый" клиент (УНФ), читаем данные в таблицу значений, закрываем com-объект на клиенте, таблицу значений передаем на сервер и там производим создание новых объектов
на клиенте вместо v83.ComConneсtor вызываем v83.Application -- и все работает, не так быстро, но приемлемо

однако, возникла проблема -- вызываемый com-объект после отработки не хочет закрываться никак

платформа БАФ 8.3.15.1887 x64

&НаКлиенте
Процедура _ИмпортДанныхНаКлиенте()

    Попытка
        _V7 = Новый COMObject("V83.Application");    // _V7 -- это на самом деле v83
    Исключение
        ПоказатьПредупреждение( ,"Ошибка установки соединения");
        Возврат;
    КонецПопытки;

    СтрокаСоединения = "Srvr=" + _IP_адрес_сервера + "; Ref=" + _Имя_БД + "; Usr=" + _Имя_Пользователя + "; Pwd=" + _Пароль_Пользователя;
    
    Попытка 
        _V7.Connect(СтрокаСоединения);
    Исключение 
        ПоказатьПредупреждение( ,"Не удалось подключиться к базе");
        Возврат;
    КонецПопытки;

// дальше читаем данные на клиенте и грузим их в ТЗ, а потом пытаемся закрыть ставщий ненужным com-объект


_V7._ЗавершитьРаботуСистемы(Истина);  // вот это не срабатывает, com-объект не закрывается и висит окно подтверждения выхода из программы (как при обычном интерактивном закрытии)

всевозможные варианты с объявлением в модуле прикладной программы (мы ж вызываем толстый клиент) экспортной процедуры

Процедура _ЗавершитьРаботуСистемыПриВызовеИзБухКОРП()    Экспорт

    ЗавершитьРаботуСистемы(Ложь);

КонецПроцедуры

и последующем вызове её на клиенте вместо

_V7._ЗавершитьРаботуСистемы(Истина);

как

_V7._ЗавершитьРаботуСистемыПриВызовеИзБухКОРП();

тоже ни к чему не приводят (хотя при точно таком же вызове этой же УНФ из другой БД на старой бухгалтерии 7.7 этот второй вариант нормально отрабатывает)

вопрос -- как в этом случае заставить закрыться com-объект без вывода окна запроса подтверждения закрытия программы?

перепробовал разные варианты -- ни один ни помогает

спасибо

p.s. конвертацию данных не предлагать -- я её не знаю, за 25+ лет работы с 1с никогда с ней не сталкивался и не планирую



прошу прщения, не Истина, а конечно же Ложь в качестве аргумента

но все равно не работает

Автор: xlmel 06.07.25, 10:51

Для пользователя под которым выполняется подключение должен быть отключен флажок «Запрашивать подтверждение при закрытии программы» в его настройках. Для конфигураций, построенных на БСП: Главное -> Настройки -> Персональные настройки и там есть флажок. В старых конфигурациях через Настройки пользователя.
Насколько необходимо использовать "V83.Application"? Фактически, происходит запуск полноценного клиента. Я всегда все задачи решал через "V83.COMConnector", он сам закрывает соединение.

Автор: andytg 06.07.25, 11:15

я сейчас и использую V83.COMConnector и всегда использовал (ну, кроме 7.7, где его не было, а был только V77.Application) -- он в разы быстрее и удобнее

но мысль такая -- попробовать использовать сервер 1c не на windows, а на линукс, где com-технология не поддерживается -- поэтому возникла мысль перенести обмен с сервера на клиентскую машину, где windows есть и будет в любом случае (точнее, ту часть обмена, которая читает данные из вызываемой базы, потом com-соединение закрываем, считанные данные передаем на сервер и там обрабатываем уже без всяких com-технологий)

за идею про флажок спасибо, как-то упустил из виду

Автор: andytg 07.07.25, 14:34

увы, не помогает
ни снятие флажка, ни даже такое

    _V8.СтандартныеПодсистемыКлиент.ПропуститьПредупреждениеПередЗавершениемРаботыСистемы();
    _V8.ЗавершитьРаботуСистемы(Ложь);

при этом ровно с этой же конфигурацией, но вызываемой из 7.7, нормально работает такой вариант:

// это 7.7
    V8._ЗавершитьРаботуСистемыПриВызовеИз77();
    V8 = 0;

при этом в восьмерке, в модуле клиентского приложения

// это модуль клиентского приложения УНФ на 8.3
Процедура _ЗавершитьРаботуСистемыПриВызовеИз77()    Экспорт
    Выполнить("ЗавершитьРаботуСистемы(Ложь)");  // т.к. в 7.7 нет булевых значений
КонецПроцедуры

одна и та же база при вызове из 7.7 не задает никаких вопросов и корректно закрывается, а при вызове из 8.3 выводит окно запроса

Автор: andytg 07.07.25, 18:45

andytg @ Сегодня, 15:34 ,
вопрос решен (не так, как рекомендовали, но решен )

Автор: Vofka 08.07.25, 7:18

andytg @ Вчера, 19:45 ,
может расскажете как?

Автор: andytg 08.07.25, 12:07

Vofka @ Сегодня, 8:18 ,
да вобщем-то элементарно

в УНФ в модуле клиентского приложения в процедуре ПередЗавершениемРаботыСистемы(Отказ, ТекстПредупреждения)

добавил такое

Процедура ПередЗавершениемРаботыСистемы(Отказ, ТекстПредупреждения)

    Если Не ИмяПользователя() = "1С" Тогда
        // служебный пользователь, который используется только для операций экспорта-импорта

                // ..тут старндартное завершение...
        
    Иначе
        
        ТекстПредупреждения = "";
        Отказ = Ложь;

        КонецЕсли;
КонецПроцедуры

ну и соответственно, обработка экспорта-импорта запускается от имени пользователя с именем "1С"

Автор: andytg 10.07.25, 19:04

andytg @ 08.07.25, 13:07 ,
upd: на всякий случай (вроде узелка на память )
в такой комбинации не работает присваивание вида

_Соединение = Новый COMObject("V83.Application");
_Соединение .Connect(_СтрокаСоединения);
БазаOLE = _Соединение;
//    ^^^^ здесь ошибки не будет...
_Док = БазаOLE.Документы.ЗаказПокупателя.НайтиПоНомеру(_НомерДок, _ДатаДок);
//   ^^^^ ...но здесь вылетит ошибка, т.к. на тонком клиенте не доступен менеджер документов

но если присваивание не использовать, а вместо этого везде писать, например, так

_Док = _Соединение.Документы.ЗаказПокупателя.НайтиПоНомеру(_НомерДок, _ДатаДок);

обращаясь к менеджеру документов толстого клиента, то все работает нормально и всевозможные обращения вида

_Запрос = _Соединение.NewObject("Запрос");
// или
_Отбор = _Соединение.NewObject("Структура");

работают нормально, т.е. менеджер объектов из толстого клиента успешно возвращает все, что требуется, в тонкий клиент
хотя, скорость, конечно, в разы медленнее, чем при использовании com-коннектора на сервере
но требуемый результат успешно достигнут