Embedded Files
'Created By:
'Date Created: FEBRUARY 14, 2017
'Date Revised: FEBRUARY 15, 2017
'Title: MSG_Loop
'C:\Users\" & myUser & "\Documents\AHK\Batch_Manipulator\Batch_Manipulator_File.txt
Sub MSG_Loop()
Dim hostSettleTimeout As Integer
Dim hostSettleTime As Integer
Dim osCurrentScreen As Screen
Dim osCurrentTerminal As Terminal
Dim returnValue As Integer
Dim hiddenTextEntry As String
hostSettleTimeout = 5000
hostSettleTime = 300
Const NEVER_TIME_OUT = 0
Dim ESC As String
Set osCurrentTerminal = ThisFrame.SelectedView.control
Set osCurrentScreen = osCurrentTerminal.Screen
Dim myUser As String
myUser = Environ("username")
ESC = Chr(27)
' ******** This is for Payables Set Up and IDC clearing.*************************
' Reading File from C:\Users\USERNAME\Documents\AHK\Batch_Manipulator\WorkFile.csv
Dim MyFile As String
MyFile = "C:\Users\" & myUser & "\Documents\AHK\Batch_Manipulator\Batch_Manipulator_File.txt"
Open MyFile For Input As #1 ' Open file for input.
Do While Not EOF(1) ' Loop until end of file.
Dim Message As String
Input #1, LessorVar, ContractVar, ScheduleVar, Message ' Read into variables.
'Format
LessorVar = Format(LessorVar, String(3, "0"))
ContractVar = Format(ContractVar, String(7, "0"))
ScheduleVar = Format(ScheduleVar, String(3, "0"))
For x = 1 To 10
osCurrentScreen.SendKeys "."
osCurrentScreen.SendControlKey ControlKeyCode_Enter
osCurrentScreen.SendKeys "/"
osCurrentScreen.SendControlKey ControlKeyCode_Enter
Next x
osCurrentScreen.SendKeys "MSG"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Call osCurrentScreen.SendKeys(LessorVar) ' Lessor
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Call osCurrentScreen.SendKeys(ContractVar) ' Contract Number
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendKeys "."
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Call osCurrentScreen.SendKeys(ScheduleVar) ' Contract Number
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
For x = 1 To 6
osCurrentScreen.SendKeys "."
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Next x
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendKeys "K"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendKeys "I"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_BackSpace
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Next x
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendKeys "I"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendControlKey ControlKeyCode_BackSpace
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Call osCurrentScreen.SendKeys(Message)
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Next x
osCurrentScreen.SendKeys "23"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
For x = 1 To 6
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Next x
osCurrentScreen.SendKeys "."
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(10)
Loop
Close #1 ' Close file.
End Sub
Page updated
Google Sites
Report abuse