EnumMembersInList

Use a sub-rotina EnumMembersInList para adicionar membros a uma lista. Para uma lista de membros estática, liste todos os membros da lista no script. Na sub-rotina EnumMembersInList (), use a sintaxe e as funções desta tabela para definir os membros de cada lista de membros:

Para todas as dimensões, exceto Entidade, use a instrução da Lista HS.AddMemberTo, na qual você deverá especificar um membro. Para a dimensão Entidade, use a instrução HS.AddEntityToList, em que você deve especificar um membro e seu pai.

Tabela 5-1 Sintaxe de EnumMembersInList

Sintaxe	Descrição
HS.Dimension = "Element"	em que Elemento é o a dimensão. Por exemplo: If HS.Dimension = "Entity" Then
HS.MemberListID=n	Especifica a lista de membros por seu ID numérico em que n = o ID numérico atribuído à lista de membros na sub-rotina EnumMemberLists HS.MemberListID = 1
HS.AddEntityToList Member HS.AddMemberToList Member	Adiciona membros para uma lista de dimensões que não é Entidade em que Membro é o nome do membro HS.AddEntityToList "UnitedStates,""Maine" HS.AddMemberToList "July"
HS.AddEntityToList Parent, Member	Adiciona membros para uma lista da dimensão Entidade em que Parent é o pai do membro que você está adicinando e Member é um membro da dimensão Entidade. HS.AddEntityToList "UnitedStates", "California"
HS.Entity.List	Adiciona membros para uma lista da dimensão Entidade HS.Entity.List("""[Base])"
HS.MemberListEntity HS.MemberListScenario HS.MemberListYear HS.MemberListPeriod	Use para especificar a lista de membros dinâmicos.

Esta seção mostra um exemplo da seção EnumMembersInList do arquivo. Neste exemplo, são definidas as entidades de três listas de entidades. Também são definidos os membros da lista de Contas.

Sub EnumMembersInList()

If HS.Dimension = "Entity" Then

   If HS.MemberListID = 1 Then

      HS.AddEntityToList "United States", "Massachusetts"

      HS.AddEntityToList "United States", "Rhode Island"

      HS.AddEntityToList "United States", "Maine"

   ElseIf HS.MemberListID = 2 Then

      HS.AddEntityToList ,"United States" "Connecticut"

   ElseIf HS.MemberListID = 3 Then

      HS.AddEntityToList "United States", "California"

   End If

ElseIf HS.Dimension = "Account" Then

   If HS.MemberListID = 1 Then

      HS.AddMemberToList "Sales"

      HS.AddMemberToList "Purchases"

      HS.AddMemberToList "Salaries"

      HS.AddMemberToList "OtherCosts"

      HS.AddMemberToList "TotalCosts"

      HS.AddMemberToList "GrossMargin"

      HS.AddMemberToList "HeadCount"

      HS.AddMemberToList "AdminExpenses"

      HS.AddMemberToList "InterestCharges"

      HS.AddMemberToList "NetIncome"

      HS.AddMemberToList "Taxes"

      HS.AddMemberToList "NetProfit"

   End If

End If

End Sub

Nota:

Em cada dimensão, você pode ter quantas listas de membros precisar, e não precisa criar listas de membros em todas as dimensões.