EsbOtlVerifyOutline

アウトラインが正しいことを確認します。グローバルなアウトライン・エラーと、不正なメンバーそれぞれのエラーの両方を戻します。

構文

            EsbOtlVerifyOutline
             (
            hOutline, pulErrors, pulCount
            )
ByVal 
            hOutline
              As Long
      
            pulErrors
             As Long
      
            pulCount
              As Long

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
pulErrors	グローバル・アウトライン・エラーの戻り値のビットマスクを示す戻り変数。現在、このフィールドには次の値のみがあります: ESB_OUTERROR_CURTOOMANYDIMS
pulCount	エラーのあるメンバーの数。

備考

この関数は、共有メンバーにおけるユーザー属性の重複、レベルまたは世代名、別名の重複がないかどうかを確認します。
サーバーへのアウトラインの保存は、そのアウトラインにエラーがない場合のみ成功します(*pulErrors == 0かつ*pulCount == 0)。

エラー値を取得するには、次の手順を実行します:

ESB_OUTERROR_T構造体を割り当てます。
各エラー・メンバーごとに1回EsbGetNextItem()を呼び出します(pulCount変数で戻されます)。
EsbGetNextItem()を呼び出すたびに、メンバーのエラー情報がESB_OUTERROR_T構造体で戻されます。

戻り値

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

ESB_OUTERROR_SHAREUDA
ESB_OUTERROR_DUPGENLEVNAME

例

         Declare Function EsbOtlVerifyOutline Lib 
"ESBOTLN" (ByVal hOutline As Long, pulErrors As Long,
pulCount As Long) As Long

Sub ESB_OtlVerifyOutline()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim ulErrors As Long
Dim ulCount As Long
Dim pOutError As ESB_OUTERROR_T
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)
'body of code
If sts = 0 Then
   sts = EsbOtlVerifyOutline(hOutline, 
    ulErrors, ulCount)
   Do While sts = 0 And ulCount > 0
     sts = EsbGetNextItem(hCtx, 
       ESB_OUTERROR_TYPE, pOutError)
       ulCount = ulCount - 1
       'do something with the error value
   Loop
End If
End Sub