管理ポイントで指定した条件を一時変更します。管理ポイントの条件は、問い合わせファイルの作成時に、管理ポイントの内訳であるカテゴリ一覧に対して、各カテゴリに該当するデータを対象としないように、または対象としないカテゴリを対象とするように、指定を変更することができます。
【例】
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub MyFunc( )
Dim rc As Integer
Dim hCatalog As Integer
Dim hCPoint As Integer
Dim number As Integer
Call NaviOpenSession ( rc, "userid", "password", "server")
Call NaviConnectOracle (rc, "oracle_userid", "oracle_password" )
Call NaviConnectResourceNoAuth(rc)
hCatalog = NaviOpenCatalog ( rc, "filepath")
hCPoint = NaviGetControlPoint (hCatalog, rc, "label", NAVI_COND, 0)
‘管理ポイントのハンドルを取得
‘ hCatalog : 問い合わせファイルのハンドル
‘ rc : 返却コード
‘"label" : 管理ポイントの項目名
‘ NAVI_COND : 条件として指定されている管理ポイント
‘ 0 : 同じ管理ポイントがある場合は、最初に見つかった管理ポイント
Call NaviChangeConditionCP (hCPoint, rc, "category", NAVI_LABEL, NAVI_IN_TARGET)
‘管理ポイントのカテゴリの指定を変更
‘ hCPoint : 管理ポイントへのハンドル
‘ rc : 返却コード
‘"category" : 変更するカテゴリ
‘ NAVI_LABEL : 変更するカテゴリをラベルで指定
‘ NAVI_IN_TARGET : カテゴリを対象とするに変更
Call NaviExecuteCatalog ( hCatalog, rc, number, NAVI_DOWNLOADNOW, 0 )
Call NaviSaveData ( hCatalog, rc, "xlsx_filepath", NAVI_XLSX, NAVI_NOCHANGE)
Call NaviCloseCatalog (hCatalog) ‘問い合わせファイルをクローズします
Call NaviCloseSession ‘ログオフ
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝