Question

我希望以下代理在单击按钮时运行，该代理的工作是检查用户是否希望文档（在本例中为“日记帐分录”）具有重复性。因此，我尝试一次创建多个文档。我在Notes应用程序中运行了一个模拟Lotusscript，它似乎可以正常运行，但是我不知道如何在Xpage上运行它。代码：

Sub Initialize
Dim session As New NotesSession 
Dim db As NotesDatabase
Dim UIdoc As NotesUIDocument
Dim doc As NotesDocument 
Dim Workspace As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set UIdoc = workspace.CurrentDocument
Dim Radio As String
Dim String1 As String
Dim Counter As Integer
Print("Repeat Agent Triggered and Variables Initialized")
String1 = UIdoc.FieldGetText("SubjectTX")
Radio = UIdoc.FieldGetText( "RepeatValueTX" )
Dim ret As Variant 
Dim Newdate As New NotesDateTime(UIdoc.FieldGetText("DiaryDateDT")) 
Print(Radio)
Print(String1)
Print("Select Case...")
Select Case Radio
    Case "Day": 
        Print("Case Day in use")
        For Counter = 1 To 7
            Call Newdate.AdjustDay( 1 )
            Set doc = db.CreateDocument
            doc.SubjectTX = "Day Revision " + String1
            doc.DiaryDateDT = NewDate
            Call doc.Save( True, True )
        Next
    Case "Week":
        Print("Case Week in use")
        For Counter = 1 To 4
            Call Newdate.AdjustDay( 7 )
            Set doc = db.CreateDocument
            doc.SubjectTX = "Week Revision:" + String1
            doc.DiaryDateDT = NewDate
            Call doc.Save( True, True )
        Next
    Case Else: 
        Print("No Case or Saving and Closing")
End Select
   Print("exited switch, Saving and Closing now")
   Call UIdoc.Save()
   Call UIdoc.Close()

结束子

代理设置为“允许受限操作”，“以Web用户身份运行”，“目标：无”，“代理列表选择”。

应该执行代理的Javascript

database.getAgent("Repeatagent").run()

也许我在这里缺少一些重要的东西，如果有更好的方法可以做到这一点，请告诉我！

我对笔记还很陌生，并且可以从帮助菜单中将它们汇总在一起，因此，如果您有解决方案，请尝试进行广泛的解释。

谢谢

Answer 1

我建议将此代理转换为Java Bean并直接从Xpage的querysave事件中调用它。

如果您仍然喜欢Lotusscript代理，则需要将UI类更改为后端（NotesUIDocument-> NotesDocument），因为您无权访问backendagent中的NotesUIWorkspace。在这种情况下，请看一下如何将documentcontext传递给代理

Answer 2

您需要解决几个问题：

代理只能包含后端类。您的代理包含uidoc，它仅是NotesClient
您尝试从ui类中获取值

如果您想避免麻烦，可以使用JavaScript或Java将该代码重写为简单功能。您将会话和数据库作为顶级对象。从XPage上的按钮调用它们，并将值作为参数移交给。

在Xpage

2 个答案: