CreateJournal

説明

CreateJournal()は、空の仕訳あるいは標準テンプレートまたは繰返しテンプレートに基づいた仕訳を作成します。

構文

Function CreateJournal(

dims() As String,

dimVals () As String,

templateType As String,

templateNames() As String

) As Long

パラメータ

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

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

templateType: 入力引数。値は次のいずれかです。

• HFM_JOURNAL_TEMPLATE_TYPE_BLANK

• HFM_JOURNAL_TEMPLATE_TYPE_STANDARD

• HFM_JOURNAL_TEMPLATE_TYPE_RECURRING

これらは、HFMJournalVBA.basで定義されています。

templateNames: 入力引数。テンプレート名を文字列の配列として指定します。

戻り値

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

例

Sub CreateJournal
‘Connect to an HFM data source
HypConnect “Sheet1”, “admin”, “password”, “connName”

Set jObj = New JournalVBA
jObj.UseActiveConnectionContext

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) = "January"
dimVals(3) = "<Entity Curr Adjs>"

    	Dim templateNames(0) As String
    	templateNames(0) = "Template1"
retVal = jObj.CreateJournal(dims, dimVals, HFM_JOURNAL_TEMPLATE_TYPE_STANDARD, templateNames)
    
    	If retVal = 0 Then
        Debug.Print "Create Journal from Template Succeeded"
    	Else
        Debug.Print "Create Journal from Template Failed!!!"
    	End If
End Sub