Вариант работы ИБ клиент-сервер, где сервер Linux(COM-объект недоступен). Т.к. обмен через подключение к информационной базе недоступно, используем обмен через файловый ресурс. Для облегчения загрузки выгруженной информации, в ИБ приёмнике настраиваем "Автоматический обмен при появлении файла" который в свою очередь запускается через регламентное задание. Как оказалось, регламентное задание отрабатывает, ИБ приёмник не видит файла для загрузки, но при этом - каждую попытку проверки файла создаёт файл выгрузки(для чего??? от меня ускользает). Если внести эти изменения, то ответный файл из ИБ приёмника создастся только после появления файла загрузки. Что на мой взгляд более чем логично.
Общий модуль - ПроцедурыОбменаДанными
Процедура ВыполнитьОбменПоНастройкеАвтоматическогоОбмена()
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//88(
// Если это Автообмен = ВыполнятьОбменПриПоявленииФайла(РучнойЗапускОбменов = Ложь) и ВыполняемоеДействие = ЗагрузкаДанных,
// тогда файл после "Чтения изменений" удаляется, после чего ВыполняемоеДействие = ВыгрузкаДанных
// каждый раз по РегламентномуЗаданию "Записывает изменения", даже если файл не появлялся.
// Данная переменная проверяет ДоступностьФайлаПриЗагрузкеДанных, и не даёт "Записывать изменения" без "Чтения изменений".
ДоступностьФайлаПриЗагрузкеДанных = Ложь;
//88)
Для Каждого СтрокаТабЧасти Из ОбъектНастройки.НастройкиОбмена Цикл
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Если ВыполняемоеДействие = Перечисления.ДействиеПриОбмене.ВыгрузкаДанных Тогда
СтруктураНастроекОбмена.Вставить("ПроизводитьЧтениеДанных", Ложь);
//881СтруктураНастроекОбмена.Вставить("ПроизводитьЗаписьДанных", Истина);
//88(
СтруктураНастроекОбмена.Вставить("ПроизводитьЗаписьДанных", ?(Не РучнойЗапускОбменов И Не ПустаяСтрока(ОбъектНастройки.ВыполнятьОбменПриПоявленииФайла), ДоступностьФайлаПриЗагрузкеДанных, Истина));
//88)
ИначеЕсли ВыполняемоеДействие = Перечисления.ДействиеПриОбмене.ЗагрузкаДанных Тогда
СтруктураНастроекОбмена.Вставить("ПроизводитьЧтениеДанных", Истина);
СтруктураНастроекОбмена.Вставить("ПроизводитьЗаписьДанных", ЛОЖЬ);
//88(
ДоступностьФайлаПриЗагрузкеДанных = СтруктураНастроекОбмена.ДоступностьФайла;
//88)
Иначе
Продолжить;
КонецЕсли;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
КонецПроцедуры
Для удобства в РС "История обмена данными" в "Информацию о выгрузке данных" будем писать "Недоступен файл для загрузки данных! Обмен отменен.", вместо "В настройке обмена не взведены флаги загрузки и выгрузки данных! Обмен отменен.". Для этого
Функция ВыполнитьДействияПередНачаломОбменаДанными()
/////////////////////////////////////////////////////////////////////////////////////////////////////
Если НЕ СтруктураНастроекОбменаДанными.ПроизводитьЧтениеДанных
И НЕ СтруктураНастроекОбменаДанными.ПроизводитьЗаписьДанных Тогда
//881ЗафиксироватьЗавершениеОбмена(СтруктураНастроекОбменаДанными, "В настройке обмена не взведены флаги загрузки и выгрузки данных! Обмен отменен.");
//88(
ЗафиксироватьЗавершениеОбмена(СтруктураНастроекОбменаДанными, ?(Не СтруктураНастроекОбменаДанными.РучнойРежимЗапуска И Не ПустаяСтрока(СтруктураНастроекОбменаДанными.ВыполнятьОбменПриПоявленииФайла), "Недоступен файл для загрузки данных! Обмен отменен.", "В настройке обмена не взведены флаги загрузки и выгрузки данных! Обмен отменен."));
//88)
Возврат Ложь;
КонецЕсли;
/////////////////////////////////////////////////////////////////////////////////////////////////////
КонецФункции
p.s.
Вот и всё, после чего файл выгрузки данных создастся только после появления файла для загрузки. а не каждый раз при проверке появления.
upd 20240117
Те изменения которые выше нужно удалить.
Фаил не перезаписывается, но записи в РегистрыСведений.ИсторияОбменаДанными о неудачной попытке Загрузки раздули регистр до восьми миллионов записей за пару лет, в каждой ИБ где выполнялось РегламентноеЗадание, и выполнение запроса, которое происходит при каждом открытии(обновлении отображения) списка обменов или при инициализации обмена занимает примерно столько же времени сколько и обмен.
Так вообще автоматический обмен не начинается пока нет файла обмена из источника. Как следствие в РегистрыСведений.ИсторияОбменаДанными не попадают четные попытки начать обмен, да и в ЖурналРегистрации попадает минимум записей о выполнении фонового задания.
Общий модуль - ПроцедурыОбменаДанными
Процедура ВыполнитьОбменПоНастройкеАвтоматическогоОбмена()
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Для Каждого СтрокаТабЧасти Из ОбъектНастройки.НастройкиОбмена Цикл
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Если ВыполняемоеДействие = Перечисления.ДействиеПриОбмене.ВыгрузкаДанных Тогда
СтруктураНастроекОбмена.Вставить("ПроизводитьЧтениеДанных", Ложь);
СтруктураНастроекОбмена.Вставить("ПроизводитьЗаписьДанных", Истина);
ИначеЕсли ВыполняемоеДействие = Перечисления.ДействиеПриОбмене.ЗагрузкаДанных Тогда
СтруктураНастроекОбмена.Вставить("ПроизводитьЧтениеДанных", Истина);
СтруктураНастроекОбмена.Вставить("ПроизводитьЗаписьДанных", ЛОЖЬ);
//88( Администратор 17.01.2024 14:06:06
// Обмен на Клиенте делается очень долго, пустой около 20сек., на сервере время выполнения сокращается до 3сек., упирается в скорость сети.
// На Linux сервере обмен по COM-объект не доступен, поэтому инициализация обмена происходит в источнике Клиентом вручную.
// Для автоматической загрузки в приёмнике выполняется РегламентноеЗадание каждые 10сек., по проверке появления файла обмена из источника в приёмник.
// Если РегламентноеЗадание выполняется, то каждые 10сек. перезаписывается фаил обмена из приёмника в источник, даже если файл обмена из источника в приёмник отсутствует,
// и делаются записи в РегистрыСведений.ИсторияОбменаДанными, с информацией что обмен не произведён.
// За 2 года РегистрыСведений.ИсторияОбменаДанными разросся до восьми миллионов записей, в каждой ИБ где выполнялось РегламентноеЗадание,
// и при каждом открытии списка обменов или при инициализации обмена, выполнялся запрос с чтением этого регистра сведений,
// время выполнения каждого запроса занимало примерно 5сек. за два года.
Если Не РучнойЗапускОбменов
И Не ПустаяСтрока(ОбъектНастройки.ВыполнятьОбменПриПоявленииФайла)
И СтруктураНастроекОбмена.ДоступностьФайла = Ложь
Тогда
Прервать;
КонецЕсли;
//)88 Администратор 17.01.2024 14:06:14
Иначе
Продолжить;
КонецЕсли;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
КонецПроцедуры
