WorkFlowクラスのconstatationメソッド
ワークフローを開始するためのダイアログボックスを表示します。
通常タイプ時は[OK][ｷｬﾝｾﾙ]ボタンのメッセージボックス型を表示。
却下タイプ時は却下コメントを入力するインプットボックス型を表示。
通常タイプ時は[OK][ｷｬﾝｾﾙ]ボタンのメッセージボックス型を表示。
却下タイプ時は却下コメントを入力するインプットボックス型を表示。
構文
strRetuen = SendHandle.constatation(intStatus)
引数
- intStatus
integer型（0：通常 / 1：却下）
通常メールタイプか却下メールタイプかを宣言
戻り値
- strReturn
string型
intStatusが0の場合、
[OK]クリックで"OK"。[ｷｬﾝｾﾙ]クリックで"STOP"。
intStatusが1の場合、
却下コメントがない場合および[ｷｬﾝｾﾙ]クリックで"STOP"
それ以外の場合は却下コメントが戻り値にセットされる
使用例
WorkFlowクラスからインスタンスを作成し、
ワークフローを開始するかどうかのダイアログボックスを表示させます。
ダイアログボックスで[ｷｬﾝｾﾙ]ボタンがクリックされた場合に、
スクリプトを停止させます。
ワークフローを開始するかどうかのダイアログボックスを表示させます。
ダイアログボックスで[ｷｬﾝｾﾙ]ボタンがクリックされた場合に、
スクリプトを停止させます。
Dim strMailTitle As String
strMailTitle = "<責任者>へ承認依頼"
'WKFL用ｲﾝｽﾀﾝｽ作成
Dim SendHandle As New WorkFlow(strMailTitle)
If SendHandle.constatation(0) = "STOP" Then
'[ｷｬﾝｾﾙ]ﾎﾞﾀﾝ押下時、PGを停止する
Exit Sub
End If
'[OK]ﾎﾞﾀﾝ押下時にはこの後の処理を続ける・・・
strMailTitle = "<責任者>へ承認依頼"
'WKFL用ｲﾝｽﾀﾝｽ作成
Dim SendHandle As New WorkFlow(strMailTitle)
If SendHandle.constatation(0) = "STOP" Then
'[ｷｬﾝｾﾙ]ﾎﾞﾀﾝ押下時、PGを停止する
Exit Sub
End If
'[OK]ﾎﾞﾀﾝ押下時にはこの後の処理を続ける・・・
