SaveJournal
Describes the Oracle Smart View for Office VBA function, SaveJournal.
Description
SaveJournal() saves a journal on the Oracle Hyperion Financial Management server.
Syntax
Function SaveJournal(
props() As String,
propVals() As String,
dims() As String,
dimVals () As String
) As Long
Parameters
props: An input argument. Provide the list of properties as an array of strings.
propVals: An input argument. Provide the list of property values as an array of strings.
dims: An input argument. Provide the list of dimensions as an array of strings.
dimVals: An input argument. Provide the list of dimension values as an array of strings.
Return Value
Returns 0 if successful; otherwise, returns the appropriate error code.
Example
Sub SaveJournal()
Connect to an HFM data source
HypConnect "Sheet1", "admin", "password", "connName"
Set jObj = New JournalVBA
jObj.UseActiveConnectionContext
Dim props(6) As String
props(0) = HFM_JOURNALPROP_LABEL
props(1) = HFM_JOURNALPROP_DESCRIPTION
props(2) = HFM_JOURNALPROP_TYPE
props(3) = HFM_JOURNALPROP_BALANCE_TYPE
props(4) = HFM_JOURNALPROP_GROUP
props(5) = HFM_JOURNALPROP_SECURITY
props(6) = HFM_JOURNALPROP_READONLY
Dim propVals(6) As String
propVals(0) = "J001"
propVals(1) = "Test1"
propVals(2) = HFM_JOURNALPROP_TYPE_REGULAR
propVals(3) = HFM_JOURNALPROP_BALANCETYPE_BALANCED
propVals(4) = HFM_JOURNALPROP_GROUP_ALLOCATION
propVals(5) = HFM_JOURNALPROP_SECURITY_ACCOUNTS
propVals(6) = "0"
dims(0) = HFM_JOURNAL_DIM_SCENARIO
dims(1) = HFM_JOURNAL_DIM_YEAR
dims(2) = HFM_JOURNAL_DIM_PERIOD
dims(3) = HFM_JOURNAL_DIM_VALUE
dimVals(0) = "Actual"
dimVals(1) = "2007"
dimVals(2) = "March"
dimVals(3) = "<Entity Curr Adjs>"
retVal = jObj.SaveJournal(props, propVals, dims, dimVals)
If retVal = 0 Then
Debug.Print "SaveJournal Succeeded"
Else
Debug.Print "SaveJournal Failed!!!"
End If
End Sub