IsCustom1AggregationEnabled

Returns the value to which an account’s EnableCustom1Aggr attribute has been set.

Syntax

<HsvAccounts>.IsCustom1AggregationEnabled lItemID, pbIsEnabled

Argument	Description
lItemID	Long. The member ID of the account.
pbIsEnabled	Boolean. Returns TRUE if the EnableCustom1Aggr attribute is enabled, FALSE if it is disabled.

Example

The following example tests whether the EnableCustom1Aggr attribute of the account specified in the comboAcct combo box is enabled. If this attribute is enabled, any code placed within the If structure would be executed.

Dim cAccounts As HsvAccounts, cTreeInfo As IHsvTreeInfo
Dim lAcctID As Long, bIsEnabled As Boolean
Dim sAcctLabel As String
Set cAccounts = m_cMetadata.Accounts
Set cTreeInfo = m_cMetadata.Accounts
sAcctLabel = comboAcct.Text
lAcctID = cTreeInfo.GetItemID(sAcctLabel)
cAccounts.IsCustom1AggregationEnabled lAcctID, bIsEnabled
If bIsEnabled = True Then
  …
End If