EsbDefaultCalc

アクティブ・データベースのデフォルト計算を実行します。

構文

            EsbDefaultCalc
             (
            hCtx
            )
ByVal 
            hCtx
             As Long

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。

備考

この関数が正しく実行され、計算を開始すると、この呼出しから戻った後も、サーバー上で非同期プロセスとして続行します。呼出し元はESB_STATE_DONEが戻されるまでEsbGetProcessState()を呼び出して、プロセスが完了したことを定期的に確認する必要があります。
デフォルト計算スクリプトを取得および設定するには、関数EsbGetDefaultCalc()、EsbSetDefaultCalc()およびEsbSetDefaultCalcFile()を使用します。

戻り値

なし。

アクセス

この関数を使用するには、呼出し元はアクティブなデータベースに対して計算権限(ESB_PRIV_CALC)を持っている必要があります。

例

         Declare Function EsbDefaultCalc Lib "ESBAPIN" (ByVal hCtx As Long) As Long

Sub ESB_DefaultCalc ()
   Dim sts As Long
   Dim ProcState As ESB_PROCSTATE_T   '************************
   ' Run default calc script
   '************************
   sts = EsbDefaultCalc (hCtx)   '************************************
   ' Check process state till it is done 
   '************************************
   sts = EsbGetProcessState (hCtx, ProcState)
    Do Until ProcState.State = ESB_STATE_DONE 
      sts = EsbGetProcessState (hCtx, ProcState)
   Loop 
End Sub