ListJournals
説明
ListJournals()は、Oracle Hyperion Financial Managementの使用可能なすべての仕訳をリストします。
構文
Function ListJournals(
dims() As String,
dimVals() As String,
jrnlIDs() As String,
jrnlLabels() As String
) As Long
パラメータ
dims: 入力引数。ディメンションのリストを文字列の配列として指定します。
dimVals: 入力引数。ディメンション値のリストを文字列の配列として指定します。
jrnlIDs: 出力引数。仕訳IDを文字列の配列として戻します。
jrnlLabels: 出力引数。仕訳ラベルを文字列の配列として戻します。
戻り値
正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。
例
次の例では、メッセージを表示しないオプションを設定します。
Public Declare Function HypConnect Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long
Sub TestListJournals
‘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 jrnlIds() As String
Dim jrnlLabels() As String
Dim retVal as Long
retVal = jObj.ListJournals(dims, dimVals, jrnlIds, jrnlLabels)
If retVal = 0 Then
Debug.Print "Following are the Journal IDs and their Labels..."
Debug.Print "Journal Id Name"
Dim i As Integer
For i = 0 To UBound(jrnlIds)
Debug.Print Spc(5); jrnlIds(i); Spc(10); jrnlLabels(i)
Next
Else
Debug.Print "ListJournals Failed!!!"
End If
End Sub