Embedded Files
If BillingCycle = "M" Then
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)
ElseIf BillingCycle = "Q" Or BillingCycle = "S" Or BillingCycle = "A" Then
If FirstPaymentDateMM = "01" Then
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "02" Then
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "03" Then
For x = 1 To 2
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "04" Then
For x = 1 To 3
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "05" Then
For x = 1 To 4
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "06" Then
For x = 1 To 5
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "07" Then
For x = 1 To 6
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "08" Then
For x = 1 To 7
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "09" Then
For x = 1 To 8
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "10" Then
For x = 1 To 9
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "11" Then
For x = 1 To 10
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If FirstPaymentDateMM = "12" Then
For x = 1 To 11
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
Next x
If BillingCycle = "Q" Then
osCurrentScreen.SendKeys "Q"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "S" Then
osCurrentScreen.SendKeys "S"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
If BillingCycle = "A" Then
osCurrentScreen.SendKeys "A"
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
osCurrentScreen.SendControlKey ControlKeyCode_Enter
'Wait for host to 'be quiet' before continuing
returnValue = osCurrentScreen.WaitForHostSettle(50)
End If
End If
Page updated
Google Sites
Report abuse