今週は明日の某社フォーラムや、金曜のノーツコンソーシアム ユーザー情報交換会と、私にとっては盛りだくさんな1週間です。
なんとなく上付いた気持ちに喝を入れつつ、本業に集中しております。
さて今回はいよいよワークフローに関わるアクションを作成して参ります。
まずは申請を送付するボタンです。
●申請 式: @Command([FileSave]); @MailSend(Sendto;"";"";createdby+"からの申請通知";"";createdby+"からのフロー申請が届きました。"+@NewLine+"こちらをご確認ください ⇒ ";[IncludeDoclink] ); @Command([FileCloseWindow]) プリビュー(読み込み)・読み込みモード時に非表示 式によりアクションを非表示にする: Status!="1.承認依頼中"|@IsDocBeingEdited=0 |
クリックすることで文書を保存し、承認者に文書リンク付のメールメッセージを送信します。
ステータスが「1.承認依頼中」の編集モード時に表示されるようにしています。
●承認 式: @If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 )); @SetDocField(@DocumentUniqueID;"Sign";@Name([CN];@UserName)); @SetDocField(@DocumentUniqueID;"Status";"2.承認済"); @Command([FileSave]); @MailSend(createdby;"";"";Sendto+"からの申請承認通知";"";Sendto+"からの申請承認通知が届きました。"+@NewLine+"こちらをご確認ください ⇒ ";[IncludeDoclink] ); @Command([FileCloseWindow]) 式によりアクションを非表示にする: Status!="1.承認依頼中"|@IsNewDoc=1 |
クリック時に承認者の氏名を「署名(Sign)」フィールドに登録し、ステータスを「2.承認済」に変更した上で文書を保存し、申請者へ承認されたというメールを送信します。
ステータスが「1.承認依頼中」且つ、新規文書でない場合に表示されます。
●却下 @If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 )); @SetDocField(@DocumentUniqueID;"Sign";@Name([CN];@UserName)); @SetDocField(@DocumentUniqueID;"Status";"3.却下"); @Command([FileSave]); @MailSend(createdby;"";"";Sendto+"からの申請却下通知";"";Sendto+"により、申請が却下されました。"+@NewLine+"こちらをご確認ください ⇒ ";[IncludeDoclink] ); @Command([FileCloseWindow]) 式によりアクションを非表示にする: Status!="1.承認依頼中"|@IsNewDoc=1 |
クリック時に却下者の氏名を「署名(Sign)」フィールドに登録し、ステータスを「3.却下」に変更した上で文書を保存し、申請者へ却下されたというメールを送信します。
こちらも承認同様、ステータスが「1.承認依頼中」且つ、新規文書でない場合に表示されます。
上記3つのアクションをフォームに加えます。
もちろん一般的な「編集」「戻る」「印刷」なども追加しておきます。
ビューには「終了」と「新規作成」ボタンを加えておきます。
以上でフローに関係するボタンの設計と表示が完了しました。
あとはフレームセットや、ナビゲータを加えれば、Notesクライアントとしての機能はほぼ完成となります。
申し訳ありません、確認時間が十分に取れないまま、公開してしまいました。
もし不備等ございましたら、修正させて頂きますので、ご了承ください。
0 件のコメント:
コメントを投稿