EsbOtlGetGenName

次元内の特定の世代の名前を取得します。世代名は、EsbOtlSetGenNameを使用してアウトラインに明示的に追加されます。

構文

            EsbOtlGetGenName
             (
            hOutline, pszDimension, usGen, pszName
            )
ByVal 
            hOutline
                 As Long
ByVal 
            pszDimension
             As String
ByVal 
            usGen
                    As Integer
ByVal 
            pszName
                  As String
         
パラメータ説明

hOutline

アウトラインのコンテキスト・ハンドル。

pszDimension

対象の世代名を含む次元の名前。

usGen

名前を取得する世代の番号。次元は世代1です。

ppszName

呼出し元が割り当てた世代名を戻すためのバッファ。バッファは有効なメンバー名(ESB_MBRNAMELEN)を保存するのに十分な大きさである必要があります。

備考

戻り値

正常終了の場合は0が戻されます。それ以外の場合は、次の値が戻されます:

         Declare Function EsbOtlGetGenName Lib 
"ESBOTLN" (ByVal hOutline As Long, ByVal pszDimension
As String, ByVal usGen As Integer, ByVal pszName 
As String) As Long 

Sub ESB_OtlGetGenName()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim Dimension As String
Dim GenNum As Integer
Dim GenName As String * ESB_MBRNAMELEN
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object, ESB_YES,
ESB_YES, hOutline)
'**********************************************
'************** Get Gen Name ******************
'**********************************************
Dimension = "Year"
GenNum = 2
If Not sts Then
   sts = EsbOtlGetGenName(hOutline, Dimension,
    GenNum, GenName)
End If
End Sub
      

関連トピック