Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Global g_HostSettleTime%
Global g_szPassword$
Sub Main()
'--------------------------------------------------------------------------------
' Get the main system object
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System") ' Gets the system object
If (System Is Nothing) Then
MsgBox "Could not create the EXTRA System object. Stopping macro playback."
Stop
End If
Set Sessions = System.Sessions
If (Sessions Is Nothing) Then
MsgBox "Could not create the Sessions collection object. Stopping macro playback."
Stop
End If
'--------------------------------------------------------------------------------
' Set the default wait timeout value
g_HostSettleTime = 0 ' milliseconds
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
' Get the necessary Session Object
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then
MsgBox "Could not create the Session object. Stopping macro playback."
Stop
End If
If Not Sess0.Visible Then Sess0.Visible = True
Sess0.Screen.WaitHostQuiet (0)
Dim fso As Object
Dim ts As Object
Dim obj As Object
Dim i
Dim strCBName
Dim blnHasMoreLines
Set obj = GetObject("C:\Template.xlsm") 'File is already open
[COLOR=#EF2929]Do
Sess0.Screen.WaitHostQuiet (0)
For i = 8 To 17
WorksheetFunction.Max = Sess0.Screen.GetString(i, 54, 8)
Next i
If Sess0.Screen.GetString(23, 2, 4) = ("4941") Then Exit Do
'Sends the next page command
Sess0.Screen.SendKeys ("<Pf8>")
Sess0.Screen.WaitHostQuiet (0)
Loop[/color]
End Sub
T581 AAAA ON V937 AT 11:09:35
AP85FPC -LOAN T581 - LIST OF ACCOUNTS 06/18/15
1111111111 SMITH J Location 11111111111111
CERT. NO STATUS AWARD DISB'D LOAN NO. [COLOR=#EF2929]DATE ISS[/color] DATE CAN AAA DATE
_ A-1111111 ACTIVE 1,111.00 1,111.00 11111111 01/17/15 00/00/00 08/17/15
[COLOR=#8AE234]_[/color] A-1111111 ACTIVE 1,111.00 1,111.00 11111111 [COLOR=#EF2929]05/01/15[/color] 00/00/00 08/17/15
TOTAL : 2,222.00 2,222.00
PF7/8 - BWD/FWD: E - VIEW: S - CHANGE STATUS: L - INFORMATION:
Dim dMaxDTE As Date, rw As Integer
Do
For i = 8 To 17
If dMaxDTE < DateValue(Sess0.Screen.GetString(i, 54, 8)) Then
dMaxDTE = DateValue(Sess0.Screen.GetString(i, 54, 8))
rw = i
End If
Next i
' entering "E" at location (x,02).
Sess0.Screen.PutString(rw, 2) = "E"
If Sess0.Screen.GetString(23, 2, 4) = ("4941") Then Exit Do
'Sends the next page command
Sess0.Screen.SendKeys ("<Pf8>")
Do Until (Sess0.Screen.WaitForCursor(r, c)) 'r,c is screen cursor rest coordinates
DoEvents
Loop
Loop
Dim dMaxDTE As Date, rw As Integer
Do
For i = 8 To 17
[COLOR=#EF2929] If dMaxDTE < DateValue(Sess0.Screen.GetString(i, 54, 8)) Then[/color]
dMaxDTE = DateValue(Sess0.Screen.GetString(i, 54, 8))
rw = i
End If
Next i
' entering "E" at location (x,02).
Sess0.Screen.PutString(rw, 2) = "E"
If Sess0.Screen.GetString(23, 2, 4) = ("4941") Then Exit Do
'Sends the next page command
Sess0.Screen.SendKeys ("<Pf8>")
Do Until (Sess0.Screen.WaitForCursor(r, c)) 'r,c is screen cursor rest coordinates
DoEvents
Loop
Loop