Flynet Viewer Developer User Guide

Option Explicit

Dim objCon As New HostConnection   'Connection object

Dim objScr As HostScreen           'Screen object

Dim strSessionKey As String                     'SessionKey

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

' Connect to the host, navigate to AcctTrans,

' and retrieve the data from the table.

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Sub MultiRowFieldMap()

'try to connect

connect

If objCon.connected Then

If navigateToAcctTrans() = "AcctTrans" Then

showMultiRowData

navigateToPolicySelect

Else

Debug.Print "Navigation to AcctTrans screen failed!" & vbCrLf

End If

disconnect

Else

Debug.Print "Connect to host failed!" & vbCrLf

End If

Set objScr = Nothing

Set objCon = Nothing

End Sub

'

'Connect to the host

Private Sub connect()

On Error Resume Next

objCon.HostName = "Insure" 'set to match the hostname settings in admin console

objCon.connect "standard"

If Err.Number > 0 Then

Debug.Print "Error: " & Err.Description & vbCrLf

Exit Sub

End If

Set objScr = objCon.getScreen

strSessionKey = objCon.sessionKey

End Sub

'

'Disconnect from the host

Private Sub disconnect()

objCon.disconnect "stop"

strSessionKey = ""

End Sub

'

'Navigate to the AcctTrans screen.

'Handle the signon process if required.

Function navigateToAcctTrans()

Dim strScrName As String   'Name of screen

Dim count As Integer       'Avoid infinite loop in navigation

count = 0

strScrName = objScr.getScreenName()

Do Until strScrName = "AcctTrans" Or count > 10

Select Case strScrName

Case "Start"

objScr.mappedSet "Username", "simmy"

objScr.putCommand "[enter]", 2000

Case "SysSelect"

objScr.mappedSet "Selection", "2"

objScr.putCommand "[enter]", 2000

Case "Signon"

objScr.mappedSet "Userid", "simmy"

objScr.mappedSet "Password", "host"

objScr.putCommand "[enter]", 2000

Case "SignonComplete"

objScr.putCommand "[esc]", 2000

Case "MyClearScreen"     'A special screen - refer to definitions help

objScr.putKeys "info"

objScr.putCommand "[enter]", 2000

Case "PolicySelect"

objScr.mappedSet "Company", "50"

objScr.mappedSet "AccountOrPolicy", "12345678"

objScr.mappedSet "Select", "1"

objScr.putCommand "[enter]", 2000

Case "AcctSummary"

objScr.putCommand "[pf11]", 2000

Case Else

Exit Do

End Select

strScrName = specialWait()   'wait for a different screen

count = count + 1

If strScrName = "" Then

Exit Do

End If

Loop

navigateToAcctTrans = objScr.getScreenName()

End Function

'

'Navigate back to the 'root' screen of the application

Sub navigateToPolicySelect()

Dim count

Dim strScrName

count = 0

strScrName = objScr.getScreenName()

Do Until strScrName = "PolicySelect" Or count > 5

Select Case strScrName

Case "AcctTrans"

objScr.putCommand "[pf3]", 2000

Case "AcctSummary"

objScr.putCommand "[pf3]", 2000

Case Else

Exit Do

End Select

strScrName = specialWait()   'wait for a different screen

count = count + 1

If strScrName = "" Then

Exit Do

End If

Loop

End Sub

'

'Wait for any screen that is not the current.

'Throw an error if still on the same screen.

Function specialWait()

On Error Resume Next

Dim strScrName

strScrName = objScr.waitForScreen("*!, [error Not on a different screen]", 2000)

If Err.Number > 0 Then

Debug.Print "Error thrown: " & Err.Description & vbCrLf

strScrName = ""

End If

specialWait = strScrName

End Function

'

'Display the data from the screen

Sub showMultiRowData()

On Error Resume Next

Dim i As Integer

objScr.activeMapName = "rowData"   'set the field map

If Err.Number > 0 Then

Response.Write 'Error: ' & Err.Description

Exit Sub

End If

Debug.Print "Date" & vbTab & "Action" & vbTab & "Amount" & vbCrLf

For i = 0 To 13

Debug.Print objScr.mappedRowGet("Date", i) & vbTab _

& objScr.mappedRowGet("Action", i) & vbTab _

& objScr.mappedRowGet("Amount", i) & vbCrLf

Next

Debug.Print vbCrLf

End Sub

public class FSCProFunctions

{

private HostConnection con = new HostConnection();

private HostScreen scr;

private string sessionKey;

/// <summary>

/// Connect to the host, navigate to AcctTrans,

/// and retrieve the data from the table.

/// </summary>

public void MultiRowFieldMap()

{

//try to connect

connect();

if(con.connected)

{

if(navigateToAcctTrans() == "AcctTrans")

{

showMultiRowData();

navigateToPolicySelect();

}

else

Debug.WriteLine("Navigation to AcctTrans screen failed!");

disconnect();

}

else

Debug.WriteLine("Connect to host failed!");

}                        

/// <summary>

/// Connect to the host

/// </summary>

private void connect()

{

con.hostName = "Insure";        //set to match the hostname settings in admin console

con.connect("standard");

scr = con.getScreen();

sessionKey = con.sessionKey;

}

/// <summary>

/// Disconnect from the host

/// </summary>

private void disconnect()

{

con.disconnect("stop");

sessionKey = "";

}

/// <summary>

/// Navigate to the AcctTrans screen.

/// Handle the signon process if required.

/// </summary>

/// <returns>The name of the current screen.</returns>

private string navigateToAcctTrans()

{

string scrName;        //Name of screen

int count;                        //Avoid infinite loop in navigation

count = 0;

scrName = scr.getScreenName();

while(scrName != "AcctTrans" && count <= 10)

{

switch(scrName)

{

case "Start":

scr.mappedSet("Username", "simmy");

scr.putCommand("[enter]", 2000);

break;

case "SysSelect":

scr.mappedSet("Selection", "2");

scr.putCommand("[enter]", 2000);

break;

case "Signon":

scr.mappedSet("Userid", "simmy");

scr.mappedSet("Password", "host");

scr.putCommand("[enter]", 2000);

break;

case "SignonComplete":

scr.putCommand("[esc]", 2000);

break;

case "MyClearScreen":     //A special screen - refer to definitions help

scr.putKeys("info");

scr.putCommand("[enter]", 2000);

break;

case "PolicySelect":

scr.mappedSet("Company", "50");

scr.mappedSet("AccountOrPolicy", "12345678");

scr.mappedSet("Select", "1");

scr.putCommand("[enter]", 2000);

break;

case "AcctSummary":

scr.putCommand("[pf11]", 2000);

break;

default:

return "";

}

scrName = specialWait();   //wait for a different screen

count++;

if(scrName == "")

break;

}

return scr.getScreenName();

}

/// <summary>

/// Navigate back to the //root// screen of the application

/// </summary>

private void navigateToPolicySelect()

{

int count;

string scrName;

count = 0;

scrName = scr.getScreenName();

while(scrName != "PolicySelect" && count <= 5)

{

switch(scrName)

{

case "AcctTrans":

scr.putCommand("[pf3]", 2000);

break;

case "AcctSummary":

scr.putCommand("[pf3]", 2000);

break;

default:

return;

}

scrName = specialWait();   //wait for a different screen

count++;

if(scrName == "")

break;

}

}

/// <summary>

/// Wait for any screen that is not the current.

/// </summary>

/// <returns>The name of the current screen.</returns>

private string specialWait()

{

string scrName;

try

{

scrName = scr.waitForScreen("*!, [error Not on a different screen]", 2000);

}

catch(System.Exception ex)

{

Debug.WriteLine(ex.Message, "Error thrown:");

return "";

}

return scrName;

}

/// <summary>

/// Display the data from the screen

/// </summary>

private void showMultiRowData()

{

try

{

scr.activeMapName = "rowData";   //set the field map

}

catch(System.Exception ex)

{

Debug.WriteLine(ex.Message);

return;

}

Debug.WriteLine("DATE\tACTION\t\t\t\tAMOUNT");

for(int i=0; i<=13; i++)

{

Debug.WriteLine(scr.mappedRowGet("Date", i) + "\t"

+ scr.mappedRowGet("Action", i) + "\t\t"

+ scr.mappedRowGet("Amount", i));

}

}

}