option explicit

const DS_CAPTION = "Executive Dashboard"
const DS_FORMNAME = "frmExecutiveDashboard"

Sub Main
    Dim mvCurrent
    dim i

    Dim strDashboard
    Dim objOWC

    On Error Resume Next

    'check the mainviews collection to see if the dashboard form is already open
    'NOTE - current SLX bug nulls out the mainview caption and name, so we cannot inspect
    'those.  We must inspect the details form name instead, which is saved as
    '"frmExecutiveDashboard" in the plugin

    For i = 0 to Application.MainViews.Count - 1
        If (Application.MainViews.Item(i).DetailsView.Name = DS_FORMNAME) Then
            If (Err.Number = 0) Then
                Application.MainViews.Item(i).Caption = DS_CAPTION
                Application.MainViews.Item(i).BringToFront
                Exit Sub
            Else
                Call Err.Clear()
            End If
        End If
    Next

    ' Form not found in collection - create a new instance
    Set mvCurrent = Application.MainViews.Add("Dashboard:Executive Dashboard", 1, true)
    mvCurrent.name = "Dashboard:Executive Dashboard"
    mvCurrent.Caption = DS_CAPTION
    mvCurrent.DisplayMode = 1 ' Detail
    Call mvCurrent.DetailsView.Script.InitializeForm()
    Call mvCurrent.Show()
    Set mvCurrent = Nothing

    Call ErrorCheckSLX("Executive Dashboard - Show had an error:", vbExclamation, "Dashboard:Executive Dashboard - Show")
End Sub