GetCellJournalEntries

Returns arrays containing the data in and IDs of the journal entries for a cell. The data is returned in two arrays; one array returns the data as a Double subtype and the second array returns the data as a String subtype.

The arrays have a one-to-one correspondence. For example, the third element in the journal ID array identifies the journal entry that contains the data in the third elements of the data arrays.

Syntax

<HsvData>.GetCellJournalEntries lScenario, lYear, lPeriod, lEntity, lParent, lValue, lAccount, lICP, lCustom1, lCustom2, lCustom3, lCustom4, pvaradData, pvarabstrData, pvaralJournalIDs

Argument	Description
lScenario	Long (ByVal). The member ID of the cell's Scenario dimension member.
lYear	Long (ByVal). The member ID of the cell's Year dimension member.
lPeriod	Long (ByVal). The member ID of the cell's Period dimension member.
lEntity	Long (ByVal). The member ID of the cell's Entity dimension member.
lParent	Long (ByVal). The member ID of the parent of the lEntity argument's entity.
lValue	Long (ByVal). The member ID of the cell's Value dimension member.
lAccount	Long (ByVal). The member ID of the cell's Account dimension member.
lICP	Long (ByVal). The member ID of the cell's Intercompany Partner dimension member.
lCustom1	Long (ByVal). The member ID of the cell's Custom 1 dimension member.
lCustom2	Long (ByVal). The member ID of the cell's Custom 2 dimension member.
lCustom3	Long (ByVal). The member ID of the cell's Custom 3 dimension member.
lCustom4	Long (ByVal). The member ID of the cell's Custom 4 dimension member.
pvaradData	Variant array. Returns the data in the cell’s journal entries as a Double subtype.
pvarabstrData	Variant array. Returns the data in the cell’s journal entries as a String subtype.
pvaralJournalIDs	Variant array. Returns the IDs of the cell’s journal entries. The array items are returned as a Long subtype.

Example

The following example prints a cell’s journal IDs and data to the Immediate window. The example gets the member IDs of the cell’s dimension members with calls to the user-defined GetMemberID function; for details on GetMemberID, see the example for GetItemID. These member IDs are then passed to GetCellJournalEntries.

Dim lScen As Long, lYear As Long, lPer As Long, lView As Long
Dim lEnt As Long, lPar As Long, lVal As Long, lICP As Long
Dim lCust1 As Long, lCust2 As Long, lCust3 As Long, lCust4 As Long
Dim lAcct As Long, vadData, vasData, vaIds
lScen = GetMemberID(DIMENSIONSCENARIO, "Actual")
lYear = GetMemberID(DIMENSIONYEAR, "2000")
lPer = GetMemberID(DIMENSIONPERIOD, "July")
lView = GetMemberID(DIMENSIONVIEW, "YTD")
lEnt = GetMemberID(DIMENSIONENTITY, "Connecticut")
lPar = GetMemberID(DIMENSIONENTITY, "UnitedStates")
lAcct = GetMemberID(DIMENSIONACCOUNT, "Sales")
lVal = GetMemberID(DIMENSIONVALUE, "<Entity Curr Adjs>")
lICP = GetMemberID(DIMENSIONICP, "[ICP None]")
lCust1 = GetMemberID(DIMENSIONCUSTOM1, "GolfBalls")
lCust2 = GetMemberID(DIMENSIONCUSTOM2, "Customer2")
lCust3 = GetMemberID(DIMENSIONCUSTOM3, "[None]")
lCust4 = GetMemberID(DIMENSIONCUSTOM4, "Increases")
m_cHsvData.GetCellJournalEntries lScen, lYear, lPer, lEnt, _ 
lPar, lVal, lAcct, lICP, lCust1, lCust2, lCust3, lCust4, _ 
vadData, vasData, vaIds
' Make sure an array is returned.
If IsArray(vaIds) = True Then
  For i = LBound(vaIds) To UBound(vaIds)
    Debug.Print CStr(vaIds(i)) & " ID: " & vasData(i)
  Next i
End If