Есть ли в Rocket Bluezone какой-либо тайм-аут сеанса, чтобы он не работал после определенного времени? - PullRequest
0 голосов
/ 13 апреля 2020
Sub Fullflow()
Dim WorkBookName As String
Dim Host
bookname = Application.ThisWorkbook.Path
WorkBookName = "" & bookname & "\MasterSheetFetchJob.xlsm"
Set src = Workbooks.Open(WorkBookName, True, True)
iTotalRows = src.Worksheets("CardDetails").Cells(Rows.Count, 1).End(xlUp).row
GetCardNumber
'If GetCardNumber Returns atleast one card then run the rest of the jobs.
If iTotalRows > 1 Then
    GenerateCVV
    GeneratePINBLOCK
    GenerateATC
    GetNameAndCurrency
    updateTestData
    updateMaxAndMinAmountInTestDataSheet
    updatePinBlockCountInTestData
    updateChipFallbackinTestData
    updateAmountFieldForInsufficientFunds
    RestartLine
Else
    Set Host = CreateObject("BZWhll.WhllObj")
    Retval = Host.Connect("A")
    Host.WaitReady 10, 2000
    Host.Exit
End If
End Sub

Я написал несколько независимых функций, объединяющих все в одном потоке ..

GetCardNumber открывает только базовый блок Rocket Bluezone TN3270 Эмулятор .. Я не закрываюсь эмулятор до его запуска RestartLine ..

Кроме GetCardNumber каждая функция имеет эту функцию для подключения эмулятора мэйнфрейма.

Set Host = CreateObject("BZWhll.WhllObj")
Retval = Host.Connect("A")

В моем локальном режиме все функции работают отлично, если я запускаю макрос Fullflow ..

Но на одном из других компьютеров он работает до 15 минут (все 15 минут он выполняет работу и не находится в неактивном состоянии), после чего он не подключается к мэйнфрейму с использованием кода, а Я могу взаимодействовать с Emualtor вручную. Через 15 минут код не запускается. Существуют ли какие-либо параметры конфигурации или что-то, что мешает этому запускаться??

Я использую Bluezone 7.1.8 и на другом компьютере установлен 7.1.6. Это вызывает проблемы или какая-либо конфигурация?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...