Dear all,
I am currently looking for a list of RESOURCEID DESCRIPTIONS so that I can print out a user friendly list of Authorisation Groups.
After Searching the web, I found an answer from Jay Converse saying that such information is contained within the AS0001 view.
I have tried to extract the RESOURCEID DESCRIPTIONS from this view, however, no luck so far. In other words I can extract all the information from this view using a macro except for RESOURCEID DESCRIPTION.
Below code only provides me with ResourceID and other data. How can I get the RESOURCEID DEscription? I am looking in the wrong place?
I am currently looking for a list of RESOURCEID DESCRIPTIONS so that I can print out a user friendly list of Authorisation Groups.
After Searching the web, I found an answer from Jay Converse saying that such information is contained within the AS0001 view.
I have tried to extract the RESOURCEID DESCRIPTIONS from this view, however, no luck so far. In other words I can extract all the information from this view using a macro except for RESOURCEID DESCRIPTION.
Below code only provides me with ResourceID and other data. How can I get the RESOURCEID DEscription? I am looking in the wrong place?
Code:
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)
Dim temp As Boolean
Dim ASSEC2 As AccpacCOMAPI.AccpacView
Dim ASSEC2Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkSysRW.OpenView "AS0001", ASSEC2
Set ASSEC2Fields = ASSEC2.Fields
Dim i As Integer
i = 0
Do While ASSEC2.GoNext
grid.TextMatrix(i, 1) = ASSEC2.Fields("RESOURCEID").Value
grid.TextMatrix(i, 2) = ASSEC2Fields.FieldByID(1)
grid.TextMatrix(i, 3) = ASSEC2Fields.FieldByID(2)
grid.TextMatrix(i, 4) = ASSEC2Fields.FieldByID(3)
grid.TextMatrix(i, 5) = ASSEC2Fields.FieldByID(4)
grid.TextMatrix(i, 6) = ASSEC2Fields.FieldByID(5)
grid.TextMatrix(i, 7) = ASSEC2Fields.Item(1).Description
grid.TextMatrix(i, 8) = ASSEC2Fields.Item(2).Description
grid.TextMatrix(i, 9) = ASSEC2Fields.Item(3).View.Fields(3).View.Fields(3).Value
i = i + 1
Loop