Memberlist based on Datatable returns nothing
Hi guru's
I have created some memberlist logic which should retrieve a list of entities from a datatable. So far so good, the code seems to work (logging returns my expected entities) but the return function doesn't do anything...
Looks like I'm missing something but I do not know what...If someone has the magic solution I'll give my kudos 🙂
Thanks alot!
Rgrds Jorrit
Case Is = FinanceFunctionType.MemberList
'BR String: E#Root.CustomMemberList(BRName=Mars_memberlists, MemberListName=[Mars_CustomMemberList], Striplist=|!prm_StriplistName!|)
If args.MemberListArgs.MemberListName.XFEqualsIgnoreCase("Mars_CustomMemberList") Then
Dim sStriplist As String = args.MemberListArgs.NameValuePairs("Striplist")
' Build the header
Dim listHeader As New MemberListHeader("Mars_CustomMemberList")
' Construct the SQL query
Dim tempsql As New Text.StringBuilder
tempsql.AppendLine("SELECT UN_ID")
tempsql.AppendLine("FROM XFC_Mars_Striplists")
tempsql.AppendLine("WHERE STRIPLIST_NAM = '" + sStripList + "'")
Dim listOfMemberInfos As New List(Of MemberInfo)()
' Retrieve the DataTable using the DBConnInfoApp object
Using dbConnApp As DBConnInfoApp = BRAPi.Database.CreateApplicationDbConnInfo(si)
Using dt As DataTable = BRAPi.Database.ExecuteSql(dbConnApp, tempsql.ToString(), True)
' Build the list of MemberInfos from the UN_ID column of the DataTable
For Each row As DataRow In dt.Rows
Dim unId As String = row("UN_ID").ToString()
Dim memberInfo As New MemberInfo(unId)
listOfMemberInfos.Add(memberInfo)
Next
End Using
End Using
' Log the list of member names
Dim memberNames As String = String.Join(System.Environment.NewLine, listOfMemberInfos.Select(Function(member) member.UN_ID))
api.logmessage("List of Membernames", memberNames)
' Build and return the member list
Dim memberList As New MemberList(listHeader, listOfMemberInfos)
Return memberList
End If
End Select
I think the problem is that it does not know what dimension the member info list is for. I haven't tested this but it should put you on the right path:
Dim unId As String = row("UN_ID").ToString() Dim EntMemID As Integer = api.Members.GetMemberId(DimType.Entity.Id, unID) Dim memInfo As MemberInfo = New MemberInfo(api.Members.GetMember(DimType.Entity.Id, EntMemID)) listOfMemberInfos.Add(memInfo)
