Embedded Files
'Created By:
'Date Created: DECEMBER 02, 2014
'Date Revised: DECEMBER 02, 2014
'Title: KEA_BATCH_LIFT_TRANS_Loop
'Reading File from S:\KEA\Financial_Adjustments\PROCESS_FILE.csv
Sub KEA_BATCH_LIFT_TRANS_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
Set osCurrentTerminal = ThisFrame.SelectedView.control
Set osCurrentScreen = osCurrentTerminal.Screen
Dim myUser2 As String
myUser = Environ("username")
' ******** This is for BATCH LIFT Trans Numb.*************************
' Reading File from S:\KEA\Financial_Adjustments\PROCESS_FILE.csv
Dim MyString1, MyString2
Dim MyFile As String
'**************************MENU ACCESS TO LIFT BATCH*******************************************************
MyFile = "S:\KEA\Financial_Adjustments\INFO_FILE.txt"
Open MyFile For Input As #1 ' Open file for input.
Input #1, BatchNumVar, EmailVar ' Read data into variables.
Reset_to_InfoLease_Master_Menu
osCurrentScreen.SendKeys "2"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "5"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "1"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(BatchNumVar) ' Batch Number
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "0"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "USD"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "8"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "2"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Close #1 ' Close file.
'**************************MENU ACCESS TO LIFT BATCH*******************************************************
MyFile2 = "S:\KEA\Financial_Adjustments\PROCESS_FILE.csv"
Open MyFile2 For Input As #1 ' Open file for input.
Do While Not EOF(1) ' Loop until end of file.
Input #1, TransNumVar, MemoVar ' Read data into variables.
Call osCurrentScreen.SendKeys(TransNumVar) ' Trans Number
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "1"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "20"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(MemoVar) ' Ticket Number
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(200)
Loop
Close #1 ' Close file.
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(200)
Next x
MyFile = "S:\KEA\Financial_Adjustments\INFO_FILE.txt"
Open MyFile For Input As #1 ' Open file for input.
Input #1, BatchNumVar, EmailVar ' Read data into variables.
Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0)
With MyItem
.To = (EmailVar)
.Subject = "BATCH " & (BatchNumVar) & " COMPLETED"
.ReadReceiptRequested = False
.HTMLBody = "The Process was completed. Please review and finish processing batch " & (BatchNumVar) & ". Thank You"
End With
MyItem.Send
Close #1 ' Close file.
End Sub
Page updated
Google Sites
Report abuse