MapPinPoint

Imports System
Imports System.Collections.Generic
Imports System.Data
Imports System.Data.Common
Imports System.Globalization
Imports System.IO
Imports System.Linq
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports OneStream.Finance.Database
Imports OneStream.Finance.Engine
Imports OneStream.Shared.Common
Imports OneStream.Shared.Database
Imports OneStream.Shared.Engine
Imports OneStream.Shared.Wcf
Imports OneStream.Stage.Database
Imports OneStream.Stage.Engine

Namespace OneStream.BusinessRule.DashboardDataSet.MapPinPoint
    Public Class MainClass
        Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As DashboardDataSetArgs) As Object
            Try
                Select Case args.FunctionType
                    Case Is = DashboardDataSetFunctionType.GetDataSet
                        If args.DataSetName.XFEqualsIgnoreCase("LocationPinPoints")
                            Dim tempDataSet As New XFDataSet
                            Dim collection As New XFMapItemCollection
                            collection = OneStream.Shared.Wcf.XFMapDataSetHelper.CreateXFMapItemCollection(si, tempDataSet)

                            Dim sSQL As String
                            sSQL = "SELECT a.OriginDestinationKey
                                   , a.Origin
                                   , a.Employee
                                   , CAST(LLo.Lat AS Decimal(8,6)) AS OriginLat
                                   , CAST(LLo.Long AS Decimal(9,6)) AS OriginLong
                                   , a.Destination
                                   , CAST(LLd.Lat AS Decimal(8,6)) AS DestinationLat
                                   , CAST(LLd.Long AS Decimal(9,6)) AS DestinationLong
                                   , a.iDistance
                                   , a.Distance
                                   , a.iTravelTime
                                   , a.TravelTime
                                   FROM aGoogleData a
                                LEFT OUTER JOIN aGoogleDataLatLong LLo
                                ON LLo.Location = a.Origin
                                    LEFT OUTER JOIN aGoogleDataLatLong LLd
                                    ON LLd.Location = a.Destination"

                            Using dbConnApp As DbConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)
                                Dim dt As DataTable = BRApi.Database.ExecuteSql(dbConnApp, sSQL, False)

                                If Not dt Is Nothing AndAlso dt.Rows.Count > 0

                                    For Each dr As DataRow In dt.Rows
                                        Dim pin As New XFMapPinPoint(dr("OriginLat"), dr("OriginLong"), dr("Origin"), _
                                                        XFImageFileSourceType.DashboardFile,"<Your PICTURE FILE>",0,0, dr("Employee"), XFImageFileSourceType.DashboardFile,"<YOUR PICTURE FILE>")
                                        Collection.AddPinPoint(pin)

                                    Next 'dr
                                End If 'Not dt Is Nothing AndAlso dt.Rows.Count > 0
                            End Using 'dbConnApp

                            Return collection.CreateDataSet(si)
                        End If 'args.DataSetName.XFEqualsIgnoreCase("LocationPinPoints")
                End Select 'Case args.FunctionType
                Return Nothing
            Catch ex As Exception
                Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
            End Try
        End Function
    End Class
End Namespace