次元内の特定の世代の名前を取得します。世代名は、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)を保存するのに十分な大きさである必要があります。 |
備考
世代名はメンバー名と同じルールに従い、メンバー名全体で一意性が必要です。他の世代、レベル、メンバー名、または別名と重複できません。重複した名前を追加しようとすると、エラーが発生します。
世代名は自動的には付与されません。この関数で名前を戻すには、名前を割り当てておく必要があります。名前はEsbOtlSetGenNameで割り当てられます
戻り値
正常終了の場合は0が戻されます。それ以外の場合は、次の値が戻されます:
OTLAPI_NO_GENLEVELNAME
OTLAPI_ERR_NOTADIM
例
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
関連トピック