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. Это вызывает проблемы или какая-либо конфигурация?