Lotus Domino Designer 7 ヘルプ - 例:Web エージェント

WEB アプリケーション用に DOMINO をプログラミングする

例:Web エージェント
1 このエージェントの名前は「Change Status to Closed」です。選択条件を満たすすべての文書の [Status] フィールドに値「Closed」を設定します。実行対象は、[データベースのすべての文書] です。

FIELD Status := "Closed";
SELECT @All

エージェントを実行するには、URL が許可される箇所に OpenAgent URL コマンドを入力します。たとえば次のようになります。

http://localhost/Web+test.nsf/Change+Status+to+Closed?OpenAgent

あるいは次のコードを含むアクションまたはホットスポットを実行します。

@Command([ToolsRunMacro]; "(Change Status to Closed)")

2 HeadText という名前の [表示用の計算結果] フィールドは、最初は次の値を含んでいます。

"This document is being opened from Notes at " + @Text(@Now)

フォームの WebQueryOpen イベントで「ChangeHeadText」エージェントを呼び出します。実行対象は、[None] です。次のようなコードになります。

@Command([ToolsRunMacro]; "ChangeHeadText")

ChangeHeadText には次の式が含まれています。このフォームを使った文書がブラウザから開かれると、WebQueryOpen によって HeadText が変更されます。Notes Client から開かれると HeadText への変更はありません。

FIELD HeadText :=
"This document is being opened from a browser at " + @Text(@Now);
@All

3 次の例は LotusScript 版の「Change Status to Closed」エージェントです。実行対象は [データベースのすべての文書] で処理する文書の取得には UnprocessedDocuments を使用します。Print ステートメントは [Agent done] ページを指定テキストで置き換えます。

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Do While Not(doc Is Nothing)
doc.Status = "Closed"
Call doc.Save(False, True)
Set doc = dc.GetNextDocument(doc)
Loop
Print "<B>All Status fields set to 'Closed'</B>"
End Sub

4 次の例は LotusScript 版の「Change Status to Closed」エージェントです。エージェントの終了時にブラウザで「Main View」を表示します。

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Do While Not(doc Is Nothing)
doc.Status = "Closed"
Call doc.Save(False, True)
Set doc = dc.GetNextDocument(doc)
Loop
dbname$ = Evaluate("@WebDbName")
Print "[/" + dbname$ + "/Main+View?OpenView]"
End Sub

5 次の例は Java 版の「Change Status to Closed」エージェントです。

import lotus.domino.*;
import java.io.PrintWriter;
import java.util.Vector;

public class JavaAgent extends AgentBase {

public void NotesMain() {

try {
Session session = getSession();
AgentContext agentContext = session.getAgentContext();

// (Your code goes here)
DocumentCollection dc =
agentContext.getUnprocessedDocuments();
Document doc = dc.getFirstDocument();
while (doc != null) {
doc.replaceItemValue("Status", "Closed");
doc.save(false, true);
doc = dc.getNextDocument(doc);
}
PrintWriter pw = getAgentOutput();
Vector v = session.evaluate("@WebDbName");
pw.println("[/" + v.firstElement() + "/Main+View?OpenView]");

} catch(Exception e) {
e.printStackTrace();
}
}
}

6 次のエージェントは、「Open」または「Closed」である 1 つの引数を抽出するために Query_String を解析します。OpenAgent URL コマンドなどと共に実行しなければなりません。

http://localhost/Web+test.nsf/Change+Status?OpenAgent&Closed

次のようなコードになります。

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim arg As String, p1 As Long
arg = s.DocumentContext.Query_String(0)
p1 = Instr(arg, "&")
If p1 = 0 Then
Print "Need argument 'Open' or 'Closed'"
Exit Sub
Else
arg = Lcase(Mid$(arg, p1 + 1))
If arg <> "open" And arg <> "closed" Then
Print "Argument must be 'Open' or 'Closed'"
Exit Sub
End If
End If
arg = Ucase(Left$(arg, 1)) + Right$(arg, Len(arg) - 1)
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Do While Not(doc Is Nothing)
doc.Status = arg
Call doc.Save(False, True)
Set doc = dc.GetNextDocument(doc)
Loop
Print "<B>Status changed to "+ arg + " in all documents</B>"
End Sub

関連項目

用語集

用語集