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