Lotus Notes - 在数据库中创建多个新文档的脚本或公式
Lotus Notes - Script or formula to create multiple new documents within a database
我有以下情况:
目前,最终用户需要使用分步过程创建多个文档,但随着创建的一些新功能,用户将需要创建更多必需的文档。
恐怕他们会忘记创建一个重要的,最后会弄乱流程。
基于此,我想创建一个脚本,因为 Compose @Command(公式语言)允许我只创建一种形式。
请注意,这些文档将包含计算字段,因此无需在这些新表单中填写任何数据。
这是我到目前为止得到的结果,它正在运行,但我认为有人可以提供更好的主意。谢谢
Dim session As New notessession
Dim db As notesdatabase
Dim newdoc As notesdocument
Dim i%
Set db=session.currentdatabase
For i%=1 To 1 'or however many slots you want
Set newdoc=db.createdocument
newdoc.form= "Form1"
Call newdoc.save(True,True)
Set newdoc=db.createdocument
newdoc.form="Form2"
Call newdoc.save(True,True)
Set newdoc=db.createdocument
newdoc.form="Form3"
Call newdoc.save(True,True)
Next i%
End Sub
如果你想让文档像在前端打开一样进行计算,那么你需要告诉代码这样做:简单地保存文档不会进行前端计算。您需要在每次保存之前添加一个 ComputeWithForm 以执行此操作:使用分配的表单计算文档。看起来像这样:
Set newdoc=db.createdocument
newdoc.form= "Form1"
Call newdoc.ComputeWithForm( True, True )
Call newdoc.save(True,True)
注意:如果您的表单公式中存在任何错误,因为您忘记填写某些重要字段,则计算将无法完成,并且只会计算出现错误的字段之上的字段。此外,如果您必须在代码中发现错误,此函数可能会抛出错误(取决于参数,请查看文档)
我有以下情况:
目前,最终用户需要使用分步过程创建多个文档,但随着创建的一些新功能,用户将需要创建更多必需的文档。
恐怕他们会忘记创建一个重要的,最后会弄乱流程。
基于此,我想创建一个脚本,因为 Compose @Command(公式语言)允许我只创建一种形式。
请注意,这些文档将包含计算字段,因此无需在这些新表单中填写任何数据。
这是我到目前为止得到的结果,它正在运行,但我认为有人可以提供更好的主意。谢谢
Dim session As New notessession
Dim db As notesdatabase
Dim newdoc As notesdocument
Dim i%
Set db=session.currentdatabase
For i%=1 To 1 'or however many slots you want
Set newdoc=db.createdocument
newdoc.form= "Form1"
Call newdoc.save(True,True)
Set newdoc=db.createdocument
newdoc.form="Form2"
Call newdoc.save(True,True)
Set newdoc=db.createdocument
newdoc.form="Form3"
Call newdoc.save(True,True)
Next i%
End Sub
如果你想让文档像在前端打开一样进行计算,那么你需要告诉代码这样做:简单地保存文档不会进行前端计算。您需要在每次保存之前添加一个 ComputeWithForm 以执行此操作:使用分配的表单计算文档。看起来像这样:
Set newdoc=db.createdocument
newdoc.form= "Form1"
Call newdoc.ComputeWithForm( True, True )
Call newdoc.save(True,True)
注意:如果您的表单公式中存在任何错误,因为您忘记填写某些重要字段,则计算将无法完成,并且只会计算出现错误的字段之上的字段。此外,如果您必须在代码中发现错误,此函数可能会抛出错误(取决于参数,请查看文档)