Lotus Notes/Domino是Lotus公司推出的群件系统。通过Lotus Notes的支持，Domino能够为Internet/Intrannet用户提供强大的工作流、消息传递、协同计算、信息检索和信息发布等应用。目前，已经有越来越多公司企业、政府机关使用Lotus Notes/Domino作为工作的平台，以有效实现办公自动化。 在办公应用中，大量的文档处理不可避免要碰到多页格式文本。例如：合同的正本有相应的幅面尺寸规定，一张合同只能输入有限的信息量，因此会碰到一个合同里的交易产品种 类数量过多，必须用多页文本显示。在以文档为主要处理对象的应用程序里，也会碰到这一 问题，但由于文档在电脑中不受纸面的限制，可以通过对表格增行以得到足够的空间，这就 节省了存储空间，而不重复存储单据的头信息。 Lotus Notes的应用程序中，表单是生成文档的模板，如果要在文档中增加表格行，就必须动态改变表单。因为Lotus Notes应用程序中的表单是静态的，故动态增删表格行不太方便。另外，考虑到网络普及的今天仍然脱离不了必要的纸面凭证，有时仍需打印出大量的文件，所以在Lotus Notes中实现格式文档多页显示仍有其实用意义。 实现文档的多页显示的前提是：在信息量超过一个表单页面所能显示的信息的时候，能够产生下一页，并将文档的上一页的头信息内容复制到当前页（以一个合同为例，合同的供方及相关信息、需方及相关信息、签订时间、合同号、合同细则都属于头信息，对于一次交易而言，每页合同的这些信息应该相同），同时能增加当前页的页码，并保证一次交易有一个唯一标识（通常可用合同号），以确保在浏览上下页时可以打开正确的文档。 上述过程如下图所示： 现假设合同表单域值为“Contract”，页码域名为“pageNo”，页数域名为“pages”，合同号域名为“contractNo”。 为了保证填写下一张页面时，能得到上一张页面的值，必须在“Contract”表单的属性里选择“公式继承选定文档的数值”。这里最关键的是要继承合同号、页码和页数信息。为了在新的页面里得到上述信息的正确值，还应再在上述域的缺省值里加上一些公式。在 “contractNo”域里的缺省值为：contractNo。可以原封不动的把上一页的合同号拷贝到新的页面，以保证是同一笔交易。在“pageNo”域里的缺省值为： @if(@environment("isNext")="True"; @do(@environment("isNext";"");pageNo+1);1)。这一句公式，可以区别是第一页还是继续填写的页。“pages”域里的缺省值为：pageno。 需要注意的是，虽然继续填写的新页的页数已经增加了，但是并没有改变前面所填页面上的页数值。从符合逻辑的角度来说，前面已填写页面的页数，应该在最后所有页面填完之后才添加上去，所以在新填写的页面未保存时不能将页数统一为新页上的页数。 在“继续填写下一页”按钮按下的时候，执行的操作包括两个：保存并关闭当前页面，打开新的页面。这里采用Lotus Script编写代码。代码如下： Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim session As NotesSession Set uidoc = workspace.CurrentDocument If uidoc.editmode=True Then Call uidoc.save End If Call session.SetEnvironmentVar("isNext","True") '设置用于区分是否下一页的标志 Call uidoc.close Call workspace.ComposeDocument("","","Contract") 这里在保存的时候还得使某些信息（如页数）在该笔交易下的所有页面同步。这就需要在保存完当前页面后修改其他页面的相应信息。这些操作的代码可以在合同表单的“postsave”事件里写。具体代码如下： Sub Postsave(Source As Notesuidocument) Dim session As New notessession Dim db As notesdatabase Dim doccol As notesdocumentcollection Dim datetime As notesdatetime Dim doc As notesdocument Set db=session.currentdatabase formsearch$="form=""Contract""&contractNo="""+source.document.contractN o(0)+"""" Set doccol=db.search(formsearch$,datetime,0) If doccol.count>0 Then For i=1 To doccol.count If i=1 Then Set doc=doccol.getfirstdocument Else Set doc=doccol.getnextdocument(doc) End If If doc.universalid<>source.document.universalid Then doc.pages=source.document.pages(0) '可以设置其他需要字段的值 Call doc.save(True,False) '使之与所有页面统一 End If Next End If End Sub 现在，多页文档已经建立好了，还需要对它进行浏览。浏览的方式可以为“上下翻页式”或“到指定页式”，两者原理是一样的，这里以浏览下一页为例说明。 首先，创建一个按钮“浏览下一页"，并在按钮的click事件里写以下Lotus Script代码： Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim doccol As NotesDocumentCollection Dim datetime As Notesdatetime Set uidoc=workspace.CurrentDocument Set db=session.currentdatabase SearchFormula="Form=""Contract""&contractNo="""+uidoc.document.contract No(0)+"""&p ageNo="""+Cstr(uidoc.document.pageNo(0)+1)+"""" '可以指定任意页 If uidoc.editmode=True Then Call uidoc.save End If Call uidoc.close Set doccol= db.search(SearchFormula,datetime,0) Set doc=doccol.getfirstDocument Set uidoc=workspace.EditDocument( False , doc) 至此，多页文本的创建与浏览已经介绍完，但是考虑到有删除部分页的可能，所以对于删除指定页的处理也是需要的。删除指定页的基本过程应包括：删除指定页的文档，查找所有该交易的文档，修改这些文档的页数域，修改页码域值大于删除页页码的文档页码域。 以下是实现这一过程的一个Lotus Script函数： Function deletedocument(doc As notesdocument) Dim session As New notessession Dim db As notesdatabase Dim doccol As notesdocumentcollection Dim datetime As notesdatetime Set db=session.currentdatabase contractno$=doc.contractNo(0) pageno=doc.pageNo(0) If doc.remove(0) Then formsearch$="form=""contract""&contractNo="""+contractno$+"""" Set doccol=db.search(formsearch$,datetime,0) For i=1 To doccol.count If i=1 Then Set doc=doccol.getfirstdocument Else Set doc=doccol.getnextdocument(doc) End If doc.pages=doc.pages(0)-1 If doc.pageNo(0)>pageno Then doc.pageNo=doc.pageNo(0)-1 End If Call doc.save(True,False) Next End If End Function 以上就是在Lotus Notes应用中，对多页文本的一种处理方法。
相关文章