OneStream.BusinessRule.DashboardDataSet.MapLoc

If args.FunctionType = DashboardDataSetFunctionType.GetDataSet AndAlso args.DataSetName.XFEqualsIgnoreCase("Locations") Then
                    Dim tempDataSet As New XFDataSet
                    Dim collection As XFMapItemCollection = OneStream.Shared.Wcf.XFMapDataSetHelper.CreateXFMapItemCollection(si, tempDataSet)
                    ' Nederland is de naam van de parent entiteit.
                    Dim EDimPK As DimPk = BRApi.Finance.Dim.GetDimPk(si, "Nederland")
                    ' Nederland.Base is de entiteit filter voor de map.
                    Dim LCList As List(Of MemberInfo) = BRApi.Finance.Members.GetMembersUsingFilter(si, EDimPK, "E#Nederland.base", True)
                    For Each LC As MemberInfo In LCList
                        Dim entityID As Integer = BRApi.Finance.Members.GetMemberId(si, DimType.Entity.Id, LC.Member.Name)
                        ' Text5 is waar de GPS-coördinaten zijn opgeslagen.
                        Dim LatLong As String = BRApi.Finance.Entity.Text(si, entityID, 5, False, False)
                        If LatLong.Length > 1 Then
                            Dim LocationList As String() = LatLong.Split(",")
                            Dim LCLat As String = LocationList(0)
                            Dim LCLong As String = LocationList(1)
                            ' Het eerste bestand geeft de locatieafbeelding weer. Het tweede bestand is de hoverafbeelding.
                            Dim pin As New XFMapPinPoint(LCLat, LCLong, LC.Member.Description, XFIMageFileSourceType.ClientImage, "StatusBlueBall", 0, 0, LC.Member.Name, XFImageFileSourceType.ClientImage, "StatusGreenCheckMark")
                            collection.AddPinPoint(pin)
                        End If
                    Next
                    Return collection.CreateDataSet(si)
                End If