EsbOtlGetMemberAlias

指定された別名テーブルの指定されたメンバーに対する、デフォルトのメンバー別名を取得します。

構文

            EsbOtlGetMemberAlias
             (
            hOutline, hMember, pszAliasTable, pszAlias
            )
ByVal 
            hOutline
                  As Long
ByVal 
            hMember
                   As Long
ByVal 
            pszAliasTable
             As String
ByVal 
            pszAlias
                  As String

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
hMember	別名を取得するメンバーのハンドル。
pszAliasTable	別名を取得する別名テーブル。このパラメータが""の場合、デフォルトの別名テーブルが使用されます。
pszAlias	別名の戻り値が格納されるバッファ。バッファは呼出し元によって割り当てられます。

備考

pszAliasパラメータは呼出し元によって割り当てられるバッファで、少なくともESB_MBRNAMELENバイトの大きさが必要です。

戻り値

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

OTLAPI_BAD_ALIASTABLE

例

         Declare Function EsbOtlGetMemberAlias Lib 
"ESBOTLN" (ByVal hOutline As Long, ByVal hMember
As Long, ByVal pszAliasTable As String, ByVal pszAlias 
As String) As Long

Sub ESB_OtlGetMemberAlias()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMemberProfit As Long
Dim szAlias 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)
If sts = 0 Then
   sts = EsbOtlFindMember(hOutline, 
    "Profit", hMemberProfit) 
End If
If sts = 0 And hMemberProfit <> 0 Then
   sts = EsbOtlGetMemberAlias(hOutline,
    hMemberProfit, "Default", szAlias)
End If
End Sub