Embedded Files
'Created By: Xavier Arias
'Date Created: JULY 06, 2015
'Date Revised: JULY 08, 2015
'Title: RA_MANUAL_BOOKING2
'Reading File from S:\FinAdj\Master_Files\RA_BOOKING_FILE.csv
Sub RA_MANUAL_BOOKING2()
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 myUser As String
myUser = Environ("username")
'File Existance to work
Dim TicketNumberFile As String
TicketNumberFile = InputBox("Enter the CIT Ticket Number to work on")
If TicketNumberFile = vbNullString Then
MsgBox "A Ticket Number is required to process folder " & TicketNumberFile
Exit Sub
End If
Dim fso3
Dim folderTicketFilePath As String
Set fso3 = CreateObject("Scripting.FileSystemObject")
folderTicketFilePath = "S:\FinAdj\Master_Files\BOOKING\RA"
fileTicket = (TicketNumberFile)
FullPath = (folderTicketFilePath) & "\" & (fileTicket) & ".csv"
If fso3.FileExists(FullPath) Then
MsgBox "The CIT Ticket File exists!"
Else
MsgBox "The CIT Ticket File does not exist!"
Exit Sub
End If
' ******** Process.*************************
' Reading File from S:\FinAdj\Master_Files\RA_BOOKING_FILE.csv
MyFile = (FullPath)
Open MyFile For Input As #1 ' Open file for input.
Input #1, Lessor, BillingCustName, BillingAddress1A, BillingAddress1B, BillingAddress2, BillingAddress3, BillingCity, BillingZip, CountryCode, BillingAttn, ContactName, ContactEmail ' Read data into variables.
Input #1, GuarantorCode, GuarantorName, GuarantorAddress1A, GuarantorAddress1B, GuarantorAddress2, GuarantorAddress3, GuarantorCity, GuarantorState, GuarantorCountry, GurantorZip, GuarantorFEDID, ContactPhone ' Read data into variables.
Input #1, FEDID, SICCode, ContractType, CommencementDate, MaxCreditAmount, MaturityDate, InvoiceDescription, InvoiceCode, InvoiceFormat, LeadDays, InvoiceDueDay, FirstPaymentDate, GracePeriod ' Read data into variables.
Input #1, PrincipalFirst, DaysInMonth, DaysInYear, InterestFirstPaymentDate, RateChangeMethod, BaseRateCode, RateVarianceCd, RateVariance ' Read data into variables.
Input #1, ProductLine, ProgramType, RelationshipA, RelationshipB, Region, Branch, LeadBankA, LeadBankB, DealerIDA, DealerIDB, DealerCode, DPaymentPlan, PrivateLabel, RemitCode ' Read data into variables.
Input #1, ListPrice, AssetSerialNumber, AssetCode, AssetDescription, CountryAsset, AssetZip, AssetAddress1A, AssetAddress1B, AssetAddress2, OriginationCode, BookingCode ' Read data into variables.
Input #1, ApplicationNumber, CCEXVLCode, LGDIndicator, PDIndicator, LGDScore, PDScore, LGDDate, PDEffectiveDate, StopPastDueLtrs, BookedBy, CITTicket ' Read data into variables.
'Format Lessor
Lessor = Format(Lessor, String(3, "0"))
'Format Commencement Date
CommencementDate = Format(CommencementDate, String(8, "0"))
CommencementDateMM = Mid(CommencementDate, 1, 2)
CommencementDateDD = Mid(CommencementDate, 3, 2)
CommencementDateYYYY = Mid(CommencementDate, 5, 4)
'Format Maturity Date
MaturityDate = Format(MaturityDate, String(8, "0"))
MaturityDateMM = Mid(MaturityDate, 1, 2)
MaturityDateDD = Mid(MaturityDate, 3, 2)
MaturityDateYYYY = Mid(MaturityDate, 5, 4)
'Format First Payment Date
FirstPaymentDate = Format(FirstPaymentDate, String(8, "0"))
FirstPaymentDateMM = Mid(FirstPaymentDate, 1, 2)
FirstPaymentDateDD = Mid(FirstPaymentDate, 3, 2)
FirstPaymentDateYYYY = Mid(FirstPaymentDate, 5, 4)
'Format Interest First Payment Date
InterestFirstPaymentDate = Format(InterestFirstPaymentDate, String(8, "0"))
InterestFirstPaymentDateMM = Mid(InterestFirstPaymentDate, 1, 2)
InterestFirstPaymentDateDD = Mid(InterestFirstPaymentDate, 3, 2)
InterestFirstPaymentDateYYYY = Mid(InterestFirstPaymentDate, 5, 4)
'Format LGD Date
LGDDate = Format(LGDDate, String(8, "0"))
LGDDateMM = Mid(LGDDate, 1, 2)
LGDDateDD = Mid(LGDDate, 3, 2)
LGDDateYYYY = Mid(LGDDate, 5, 4)
'Format PD Effective Date
PDEffectiveDate = Format(PDEffectiveDate, String(8, "0"))
PDEffectiveDateMM = Mid(PDEffectiveDate, 1, 2)
PDEffectiveDateDD = Mid(PDEffectiveDate, 3, 2)
PDEffectiveDateYYYY = Mid(PDEffectiveDate, 5, 4)
'Format Stop Past Due Ltrs Date
StopPastDueLtrs = Format(StopPastDueLtrs, String(8, "0"))
StopPastDueLtrsMM = Mid(StopPastDueLtrs, 1, 2)
StopPastDueLtrsDD = Mid(StopPastDueLtrs, 3, 2)
StopPastDueLtrsYYYY = Mid(StopPastDueLtrs, 5, 4)
'Format Product Line
ProductLine = Format(ProductLine, String(4, "0"))
'Format Program Type
ProgramType = Format(ProgramType, String(4, "0"))
'Format Relationship
RelationshipA = Format(RelationshipA, String(4, "0"))
RelationshipB = Format(RelationshipB, String(4, "0"))
'Format Region
Region = Format(Region, String(3, "0"))
'Format Branch
Branch = Format(Branch, String(6, "0"))
'Format LeadBank
LeadBankA = Format(LeadBankA, String(3, "0"))
LeadBankB = Format(LeadBankB, String(2, "0"))
'Format DealerID
DealerIDA = Format(DealerIDA, String(6, "0"))
DealerIDB = Format(DealerIDB, String(4, "0"))
Call MAINT_Contract_Maintenance
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(Lessor) ' 1 Lessor
'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 "+"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(100)
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, Line1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\Users\" & myUser & "\Documents\AHK\Batch_Manipulator\GrabScreenFile.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
Dim ContractVar As String
ContractVar = Mid(Line4, 24, 7)
osCurrentScreen.SendKeys "/"
'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(ContractVar) ' Contract Var
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "."
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "901"
'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 "+"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(BillingCustName) ' 2 BillingCustName
'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(BillingAddress1A) ' 3 BillingAddress1A
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys " "
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(BillingAddress1B) ' 3 BillingAddress1A
'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(BillingAddress2) ' 4 BillingAddress2
'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(BillingAddress3) ' 5 BillingAddress3
'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(CountryCode) ' 8 CountryCode
'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(BillingZip) ' 7 BillingZip
'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(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*County*" Then
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)
End If
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*City*codes*" Then
osCurrentScreen.SendKeys "1"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 10
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*County*" Then
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)
End If
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*City*codes*" Then
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)
End If
Else
For x = 1 To 9
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
End If
Call osCurrentScreen.SendKeys(BillingAttn) ' 9 BillingAttn
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "+"
'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(GuarantorCode) ' 12 GuarantorCode
'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(GuarantorName) ' 13 GuarantorName
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(GuarantorAddress1A) ' 14 GuarantorAddress1A
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys " "
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(GuarantorAddress1B) ' 14 GuarantorAddress1B
'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(GuarantorAddress2) ' 15 GuarantorAddress2
'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(GuarantorAddress3) ' 16 GuarantorAddress3
'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(GuarantorCity) ' 17 GuarantorCity
'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(GuarantorState) ' 18 GuarantorState
'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(GuarantorCountry) ' 19 GuarantorCountry
'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(GurantorZip) ' 20 GurantorZip
'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(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*County*" Then
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)
End If
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*City*codes*" Then
osCurrentScreen.SendKeys "1"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 10
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*County*" Then
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)
End If
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*City*codes*" Then
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)
End If
Else
For x = 1 To 7
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
End If
Call osCurrentScreen.SendKeys(GuarantorFEDID) '23 GuarantorFEDID
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 11
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(ContactName) '10 ContactName
'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(ContactEmail) '11 ContactEmail
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(ContactPhone) '22 ContactPhone
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 6
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(FEDID) '23 FEDID
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 14
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(SICCode) '24 SICCode
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 9
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(ContractType) '25 ContractType
'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 "Y"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(CommencementDateMM) ' 26 CommencementDateMM
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(CommencementDateDD) ' 26 CommencementDateDD
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(CommencementDateYYYY) ' 26 CommencementDateYYYY
'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(MaxCreditAmount) '27 MaxCreditAmount
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(MaturityDateMM) '28 MaturityDateMM
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(MaturityDateDD) '28 MaturityDateDD
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(MaturityDateYYYY) '28 MaturityDateYYYY
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 8
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(InvoiceDescription) '29 InvoiceDescription
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(InvoiceCode) '30 InvoiceCode
'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(InvoiceFormat) '31 InvoiceFormat
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(LeadDays) '32 LeadDays
'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(InvoiceDueDay) '33 InvoiceDueDay
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(FirstPaymentDateMM) '34 FirstPaymentDateMM
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(FirstPaymentDateDD) '34 FirstPaymentDateDD
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(FirstPaymentDateYYYY) '34 FirstPaymentDateYYYY
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "N"
'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 "C"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 7
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(GracePeriod) '35 GracePeriod
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 10
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "M"
'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(PrincipalFirst) '36 PrincipalFirst
'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(DaysInMonth) '37 DaysInMonth
'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(DaysInYear) '38 DaysInYear
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 4
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(InterestFirstPaymentDateMM) '39 InterestFirstPaymentDateMM
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(InterestFirstPaymentDateDD) '39 InterestFirstPaymentDateDD
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(InterestFirstPaymentDateYYYY) '39 InterestFirstPaymentDateYYYY
'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(RateChangeMethod) '40 RateChangeMethod
'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(BaseRateCode) '41 BaseRateCode
'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(RateVarianceCd) '42 RateVarianceCd
'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(RateVariance) '43 RateVariance
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "M"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 7
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(ProductLine) '44 ProductLine
'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(ProgramType) '45 ProgramType
'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(RelationshipA) '46 RelationshipA
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "."
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(RelationshipB) '47 RelationshipB
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(Region) '48 Region
'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(Branch) '49 Branch
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(LeadBankA) '50 LeadBankA
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "."
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(LeadBankB) '51 LeadBankB
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 9
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(DealerIDA) '52 DealerIDA
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "."
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(DealerIDB) '53 DealerIDB
'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(DealerCode) '54 DealerCode
'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(DPaymentPlan) '55 DPaymentPlan
'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(PrivateLabel) '56 PrivateLabel
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 13
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "23"
'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(RemitCode) '57 RemitCode
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "+"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(ListPrice) '58 ListPrice
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 6
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(AssetSerialNumber) '59 AssetSerialNumber
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(AssetCode) '60 AssetCode
'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(AssetDescription) '61 AssetDescription
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 6
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "D"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 8
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "6"
'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(CountryAsset) '62 CountryAsset
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Call osCurrentScreen.SendKeys(AssetZip) '63 AssetZip
'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(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line14) Like "*County*" Then
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)
End If
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line14) Like "*City*codes*" Then
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)
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*County*" Then
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)
End If
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Call GrabScreen
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(300)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Line1 = ts.ReadLine ' First Line on File
Line2 = ts.ReadLine ' Second Line on File
line3 = ts.ReadLine ' Third Line on File
Line4 = ts.ReadLine ' Fourth Line on File
Line5 = ts.ReadLine ' Fifth Line on File
Line6 = ts.ReadLine ' Sixth Line on File
Line7 = ts.ReadLine ' Seventh Line on File
line8 = ts.ReadLine ' Eight Line on File
line9 = ts.ReadLine ' Nineth Line on File
line10 = ts.ReadLine ' Tenth Line on File
line11 = ts.ReadLine ' Eleventh Line on File
Line12 = ts.ReadLine ' Twelveth Line on File
Line13 = ts.ReadLine ' Thirteenth Line on File
Line14 = ts.ReadLine ' Fourteenth Line on File
line15 = ts.ReadLine ' Fifteenth Line on File
Line16 = ts.ReadLine ' Sixteenth Line on File
line17 = ts.ReadLine ' Seventeenth Line on File
line18 = ts.ReadLine ' Eighteenth Line on File
line19 = ts.ReadLine ' Nineteenth Line on File
Line20 = ts.ReadLine ' Twentyth Line on File
Line21 = ts.ReadLine ' Twenty-First Line on File
Line22 = ts.ReadLine ' Twentyth Line on File
Line23 = ts.ReadLine ' Twenty-First Line on File
Line24 = ts.ReadLine ' Twentyth Line on File
ts.Close
If (Line12) Like "*City*codes*" Then
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)
End If
End If
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(AssetAddress1A) '64 AssetAddress1A
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys " "
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(AssetAddress1B) '64 AssetAddress1B
'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)
Call osCurrentScreen.SendKeys(AssetAddress2) '65 AssetAddress2
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 15
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
osCurrentScreen.SendKeys "14"
'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)
osCurrentScreen.SendKeys "26"
'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(OriginationCode) '66 OriginationCode
'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 "27"
'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(BookingCode) '67 BookingCode
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
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 "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 "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)
Call osCurrentScreen.SendKeys(ApplicationNumber) '68 ApplicationNumber
'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 "4"
'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(CCEXVLCode) '69 CCEXVLCode
'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 "6"
'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(LGDIndicator) '70 LGDIndicator
'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 "10"
'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(PDIndicator) '71 PDIndicator
'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 "13"
'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(LGDScore) '72 LGDScore
'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 "14"
'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(PDScore) '73 PDScore
'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 "18"
'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(LGDDateMM) '74 LGDDateMM
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(LGDDateDD) '74 LGDDateDD
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(LGDDateYYYY) '74 LGDDateYYYY
'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 "19"
'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(StopPastDueLtrsMM) '76 StopPastDueLtrsMM
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(StopPastDueLtrsDD) '76 StopPastDueLtrsDD
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(StopPastDueLtrsYYYY) '76 StopPastDueLtrsYYYY
'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(PDEffectiveDateMM) '75 PDEffectiveDateMM
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(PDEffectiveDateDD) '75 PDEffectiveDateDD
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys "/"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(PDEffectiveDateYYYY) '75 PDEffectiveDateYYYY
'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 "9"
'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(BookedBy) '77 BookedBy
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
osCurrentScreen.SendKeys " TIC "
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Call osCurrentScreen.SendKeys(CITTicket) '78 CITTicket
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
For x = 1 To 7
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
Close #1 ' Close file.
'Log Report
'Delete Log
Dim fso
Dim sFilePath As String
Set fso = CreateObject("Scripting.FileSystemObject")
sFilePath = "C:\Users\" & myUser & "\Documents\Log_Reports\RA_Manual_Booking_Report.txt"
If fso.FileExists(sFilePath) Then
Kill (sFilePath)
End If
'Create Log
folderFilePath = "C:\Users\" & myUser & "\Documents\Log_Reports"
If fso.FolderExists(folderFilePath) Then
Dim fs1, f1, ts1
Set fs1 = CreateObject("Scripting.FileSystemObject")
Set f1 = fs1.CreateTextFile("C:\Users\" & myUser & "\Documents\Log_Reports\RA_Manual_Booking_Report.txt")
f1.Close
Else
Dim fs2, f2, ts2
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set f2 = fs2.CreateFolder("C:\Users\" & myUser & "\Documents\Log_Reports")
Set f2 = fs2.CreateTextFile("C:\Users\" & myUser & "\Documents\Log_Reports\RA_Manual_Booking_Report.txt")
f2.Close
End If
'Write Log
Dim MyDate
MyDate = Format(Date, "Long Date")
Open "C:\Users\" & myUser & "\Documents\Log_Reports\RA_Manual_Booking_Report.txt" For Append As #2 ' Open file for output.
Write #2, "Financial Adjustments Revolver Account (RA) Manual Booking" ' Write comma-delimited data.
Write #2, "Date : " & (MyDate) ' Write comma-delimited data.
Write #2, "Contract : " & (Lessor) & "-" & (ContractVar) & "-901" ' Write comma-delimited data.
Write #2, "****************************************************************************************" ' Write comma-delimited data.
Write #2, " " ' Write comma-delimited data.
Write #2, "01 Lessor : " & (Lessor) ' Write comma-delimited data.
Write #2, "02 Billing Cust Name : " & (BillingCustName) ' Write comma-delimited data.
Write #2, "03 Billing Address 1 : " & (BillingAddress1A) & " " & (BillingAddress1B) ' Write comma-delimited data.
Write #2, "04 Billing Address 2 : " & (BillingAddress2) ' Write comma-delimited data.
Write #2, "05 Billing Address 3 : " & (BillingAddress3) ' Write comma-delimited data.
Write #2, "06 Billing City : " & (BillingCity) ' Write comma-delimited data.
Write #2, "07 Billing Zip : " & (BillingZip) ' Write comma-delimited data.
Write #2, "08 Country Code : " & (CountryCode) ' Write comma-delimited data.
Write #2, "09 Billing Attn : " & (BillingAttn) ' Write comma-delimited data.
Write #2, "10 Contact Name : " & (ContactName) ' Write comma-delimited data.
Write #2, "11 Contact Email : " & (ContactEmail) ' Write comma-delimited data.
Write #2, "12 Guarantor Code : " & (GuarantorCode) ' Write comma-delimited data.
Write #2, "13 Guarantor Name : " & (GuarantorName) ' Write comma-delimited data.
Write #2, "14 Guarantor Address 1 : " & (GuarantorAddress1A) & " " & (GuarantorAddress1B) ' Write comma-delimited data.
Write #2, "15 Guarantor Address 2 : " & (GuarantorAddress2) ' Write comma-delimited data.
Write #2, "16 Guarantor Address 3 : " & (GuarantorAddress3) ' Write comma-delimited data.
Write #2, "17 Guarantor City : " & (GuarantorCity) ' Write comma-delimited data.
Write #2, "18 Guarantor State : " & (GuarantorState) ' Write comma-delimited data.
Write #2, "19 Guarantor Country : " & (GuarantorCountry) ' Write comma-delimited data.
Write #2, "20 Gurantor Zip : " & (GurantorZip) ' Write comma-delimited data.
Write #2, "21 Guarantor FEDID : " & (GuarantorFEDID) ' Write comma-delimited data.
Write #2, "22 Contact Phone : " & (ContactPhone) ' Write comma-delimited data.
Write #2, "23 FED ID : " & (FEDID) ' Write comma-delimited data.
Write #2, "24 SIC Code : " & (SICCode) ' Write comma-delimited data.
Write #2, "25 Contract Type : " & (ContractType) ' Write comma-delimited data.
Write #2, "26 Commencement Date : " & (CommencementDateMM) & "/" & (CommencementDateDD) & "/" & (CommencementDateYYYY) ' Write comma-delimited data.
Write #2, "27 MaxCredit Amount : " & (MaxCreditAmount) ' Write comma-delimited data.
Write #2, "28 Maturity Date : " & (MaturityDateMM) & "/" & (MaturityDateDD) & "/" & (MaturityDateYYYY) ' Write comma-delimited data.
Write #2, "29 Invoice Description : " & (InvoiceDescription) ' Write comma-delimited data.
Write #2, "30 Invoice Code : " & (InvoiceCode) ' Write comma-delimited data.
Write #2, "31 Invoice Format : " & (InvoiceFormat) ' Write comma-delimited data.
Write #2, "32 LeadDays : " & (LeadDays) ' Write comma-delimited data.
Write #2, "33 Invoice Due Day : " & (InvoiceDueDay) ' Write comma-delimited data.
Write #2, "34 First Payment Date : " & (FirstPaymentDate) ' Write comma-delimited data.
Write #2, "35 Grace Period : " & (GracePeriod) ' Write comma-delimited data.
Write #2, "36 Principal First : " & (PrincipalFirst) ' Write comma-delimited data.
Write #2, "37 Days In Month : " & (DaysInMonth) ' Write comma-delimited data.
Write #2, "38 Days In Year : " & (DaysInYear) ' Write comma-delimited data.
Write #2, "39 Interest First Payment Date : " & (InterestFirstPaymentDateMM) & "/" & (InterestFirstPaymentDateDD) & "/" & (InterestFirstPaymentDateYYYY) ' Write comma-delimited data.
Write #2, "40 Rate Change Method : " & (RateChangeMethod) ' Write comma-delimited data.
Write #2, "41 Base Rate Code : " & (BaseRateCode) ' Write comma-delimited data.
Write #2, "42 Rate Variance Cd : " & (RateVarianceCd) ' Write comma-delimited data.
Write #2, "43 Rate Variance : " & (RateVariance) ' Write comma-delimited data.
Write #2, "44 Product Line : " & (ProductLine) ' Write comma-delimited data.
Write #2, "45 Program Type : " & (ProgramType) ' Write comma-delimited data.
Write #2, "46/47 Relationship : " & (RelationshipA) & "." & (RelationshipB) ' Write comma-delimited data.
Write #2, "48 Region : " & (Region) ' Write comma-delimited data.
Write #2, "49 Branch : " & (Branch) ' Write comma-delimited data.
Write #2, "50/51 Lead Bank : " & (LeadBankA) & "." & (LeadBankB) ' Write comma-delimited data.
Write #2, "52/53 Dealer ID : " & (DealerIDA) & "." & (DealerIDB) ' Write comma-delimited data.
Write #2, "54 Dealer Code : " & (DealerCode) ' Write comma-delimited data.
Write #2, "55 DPayment Plan : " & (DPaymentPlan) ' Write comma-delimited data.
Write #2, "56 Private Label : " & (PrivateLabel) ' Write comma-delimited data.
Write #2, "57 Remit Code : " & (RemitCode) ' Write comma-delimited data.
Write #2, "58 List Price : " & (ListPrice) ' Write comma-delimited data.
Write #2, "59 Asset Serial Number : " & (AssetSerialNumber) ' Write comma-delimited data.
Write #2, "60 Asset Code : " & (AssetCode) ' Write comma-delimited data.
Write #2, "61 Asset Description : " & (AssetDescription) ' Write comma-delimited data.
Write #2, "62 Country Asset : " & (CountryAsset) ' Write comma-delimited data.
Write #2, "63 Asset Zip : " & (AssetZip) ' Write comma-delimited data.
Write #2, "64 Asset Address 1 : " & (AssetAddress1A) & " " & (AssetAddress1B) ' Write comma-delimited data.
Write #2, "65 Asset Address 2 : " & (AssetAddress2) ' Write comma-delimited data.
Write #2, "66 Origination Code : " & (OriginationCode) ' Write comma-delimited data.
Write #2, "67 Booking Code : " & (BookingCode) ' Write comma-delimited data.
Write #2, "68 Application Number : " & (ApplicationNumber) ' Write comma-delimited data.
Write #2, "69 CCEX/VL Code : " & (CCEXVLCode) ' Write comma-delimited data.
Write #2, "70 LGD Indicator : " & (LGDIndicator) ' Write comma-delimited data.
Write #2, "71 PD Indicator : " & (PDIndicator) ' Write comma-delimited data.
Write #2, "72 LGD Score : " & (LGDScore) ' Write comma-delimited data.
Write #2, "73 PD Score : " & (PDScore) ' Write comma-delimited data.
Write #2, "74 LGD Date : " & (LGDDateMM) & "/" & (LGDDateDD) & "/" & (LGDDateYYYY) ' Write comma-delimited data.
Write #2, "75 PD Effective Date : " & (PDEffectiveDateMM) & "/" & (PDEffectiveDateDD) & "/" & (PDEffectiveDateYYYY) ' Write comma-delimited data.
Write #2, "76 Stop Past Due Ltrs : " & (StopPastDueLtrsMM) & "/" & (StopPastDueLtrsDD) & "/" & (StopPastDueLtrsYYYY) ' Write comma-delimited data.
Write #2, "77 Booked By : " & (BookedBy) ' Write comma-delimited data.
Write #2, "78 CIT Ticket : " & (CITTicket) ' Write comma-delimited data.
Close #2
'Open Warning Report
RetVal = Shell("C:\Windows\Notepad.exe C:\Users\" & myUser & "\Documents\Log_Reports\RA_Manual_Booking_Report.txt", 1) ' Open Warning Report.
End Sub
Page updated
Google Sites
Report abuse