ApproveJournals

Approves one or more journals. The vararlJournalIDs argument takes the IDs of the journals that are being approved.

Caution!

The user must be assigned to the Journals Administrator or Approve Journals role, otherwise error number 40D (hexadecimal) will occur.

Syntax

<IHsvJournalsEx>.ApproveJournals lScenario, lYear, vararlJournalIDs, pvararnRc

Argument	Description
lScenario	Long (ByVal). The member ID of the Scenario dimension member.
lYear	Long (ByVal). The member ID of the Year dimension member.
vararlJournalIDs	Long array (ByVal). The IDs of the journals to be approved. Get these IDs with the HsvJournals object’s GetItemID method; for more information, see GetItemID.
pvararnRc	Variant array. Returns codes that identify the success or failure of the journal approvals. The elements in this array have a one-to-one correspondence with the journal IDs passed in the vararlJournalIDs argument. Successfully approved journals return 0. The array is returned as an Integer subtype.

Example

This example approves two journals. The calls to the user-defined GetMemberID function get the example’s dimension member IDs; for details on GetMemberID, see the Examples for IHsvTreeInfo.GetItemID. The laJnlIDs array variable is then populated with the journal IDs by HsvJournals.GetItemID. The member IDs for the Scenario and Year dimension are passed along with this array to ApproveJournals.

Dim lScen As Long, lYear As Long, lPer As Long
Dim laJnlIDs(1) As Long, vaRetVal
lScen = GetMemberID(DIMENSIONSCENARIO, "Actual")
lYear = GetMemberID(DIMENSIONYEAR, "2000")
lPer = GetMemberID(DIMENSIONPERIOD, "July")
laJnlIDs(0) = m_cHsvJournals.GetItemID(lScen, lYear, lPer, _ 
"Jnl230")
laJnlIDs(1) = m_cHsvJournals.GetItemID(lScen, lYear, lPer, _ 
"Jnl231")
m_cIHsvJournalEx.ApproveJournals lScen, lYear, laJnlIDs, _ 
vaRetVal