SaveJournal

説明

SaveJournal()は、Oracle Hyperion Financial Managementサーバーに仕訳を保存します。

構文

Function SaveJournal(

props() As String,

propVals() As String,

dims() As String,

dimVals () As String

) As Long

パラメータ

props: 入力引数。プロパティのリストを文字列の配列として指定します。

propVals: 入力引数。プロパティ値のリストを文字列の配列として指定します。

dims: 入力引数。ディメンションのリストを文字列の配列として指定します。

dimVals: 入力引数。ディメンション値のリストを文字列の配列として指定します。

戻り値

正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。

例

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