lotus代理

Notes

代理中内容：

Option Public
Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim agent As NotesAgent
	Dim doc As NotesDocument
	Set db = session.CurrentDatabase
	Set agent = session.CurrentAgent
	
	Set doc = db.GetDocumentByID(agent.ParameterDocID)
	If doc Is Nothing Then
		MessageBox "代理没有找到'"&doc.form(0)&"'文档!"
		Exit Sub
	End If
	Dim pdoc As NotesDocument
	Set pdoc = db.Getdocumentbyunid(doc.txtUnid(0))
	
	'更新借用数量
	If Not (pdoc Is Nothing) Then
		pdoc.numSpecies = pdoc.numSpecies(0) - doc.numSpecies(0)
		Call pdoc.save(True,True)
	End If 
	
	Call doc.Save(True,true)
End Sub

调用代理

	Dim agent As NotesAgent
	Set agent = db.GetAgent("(办公报废)")
	If Not(agent Is Nothing) Then
		If Not agent.RunOnServer(doc.NoteID) = 0 Then
			Msgbox "代理运行错误",48,"提示"
			Exit Sub
		End If
	Else
		Msgbox "代理未找到",16,"提示"
	End If

Xpage中代理的调用。。。。