工作流模板设计文档

工作流模板设计文档

By Donald zhou

2003/2/12 一．设计目的

设计本工作流的模板，可以方便快速的生成工作流的应用系统，方便系统的升级维护。

二．设计思想

将特定的工作流系统和工作流系统的流程定义分开

三．设计概述―――流程定义数据库（workflowdefine.nsf）

1.概述：对于一个工作流，我们定义其Activity（状态），Relation（状态间的

联系），Mailnotify（邮件通知）。

2.表单：

(1) WorkflowDefineProfile:是Profile。存储工作流定义数据库的服务器

名和路径。如果以后这个工作流定义的数据库位置发生改变，需要

修改这个Profile。（具体方法见帮助文件）

(2)Workflow:用来生成一个Workflow的文档，里面存储Workflow系统

(3)Role:可以定义一些角色，比如在外出系统中，需要总务来填写机票

的一些信息，那我们可以定义一个角色（Role），将负责订票业务的

总务放到里面。如果以后负责订票业务的人员发生变动，我们只要更改这个角色中的人员就可以了。

(4)Activity:定义每一个状态的ID号，名称等。最重要的是定义了

(5)Relation:定义文档由一个Activity转换到另一个Activity的条件，以

及要发送的邮件。

注：以红颜色标明的字段的选择条件中，提供了两中形式的选择项，

@rolememberOf 和@field 。这是自己定义的“伪公式”，在程序中将

对这两种形式的公式进行计算。

3．View:视图(Profile)中有一个Action EditProfile，用来编辑Profile.

四．设计概述--------具体的工作流应用系统。这里以外出系统为例。（1.23.nsf）

1.概述：当员工因公司事务外出时，必须填写因公外出的申请单。外出类型分

两种：Loacl 和Other Place。当外出类型是Other Place时，在送交直属主管签核前，需要由总务部门来填写机票和酒店信息。

2.subform:

(1)WorkflowInfo:存放表示当前文档的状态以及Owner的信息。其中有

一个Authors的字段，用来控制谁可以编辑文档。

(2)ForWrite：用来给员工填写外出的一些信息。

(3)ForRead：用来显示员工填写的外出信息。

(4)GSWrite :总务用来填写机票酒店信息。

(5)GSRead

3.Form

(1)WorkflowProfile:是Profile，用来记录当前系统的编号，以及工作流

定义数据库的路径。在使用这个工作流之前，管理员必须填写好该

Profile。

(2)RequestForm:用来填写申请信息的表单，里面包括子表单和计算子表

单。

注：

A.表单中还有字段Manager2，Manager2Option，anager2OptionRead，GeneralManager，GeneralManangerOption，GeneralManangerOptionRead

与Manager1，Manager1Option，anager1OptionRead设置相似。

B.表单中使用计算子表单的目的：我们要求填表人在填写申请单时候，只能填写外出的时间等信息，而机票信息是由总务来填写的。总务在填写机票信息时，不能更改已经由填表人填写好的外出信息。子表单计算公式为：

@If(CurrentActivityName="FillRequestForm";"ForWrite";"ForRead")和

@If(CurrentActivityName="GSOperation";"GSWrite";"GSRead")。这样只

有在状态为FillRequestForm（填写外出申请单）时候，子表单为

ForWrite，这个子表单里面的字段时Editable，其他状态时为ForRead，

这个子表单里面的字段为Computed，且值为填写好的外出信息。同样的道理，只有在状态为GSOperation（总务填写外出信息）时候，是包含

Editable类型的的字段的子表单（GSWrite），在其他的时候在包含

Computed类型的字段的子表单（GSRead）。

4.Action:整个系统公用一个Action”送下一步处理”,在读的状态下隐藏。公

式：@Command([ToolsRunMacro];"ChangActivity");@Command([FileSave]);

@Command([FileCloseWindow])。

5.Agent:ChangActivity：改变文档的状态.代码：

(options)：

Option Declare

Use "ChangeActivity"（使用了代码库里的代码）

(Declarations)

Dim session As notessession

Dim CurrentDocument As notesdocument

Intialize：

Sub Initialize

Dim send As Variant

Set session =New notessession

Set CurrentDocument=session.documentcontext

Call ChangeActivity(session,CurrentDocument)

End Sub

6.Script libraries：”ChangeActivity”

(options)：

Option Public

Option Declare

(Declarations)

Dim CurrentDatabase As notesdatabase

Dim WorkflowDefine As notesdatabase'工作流定义的数据库

'Workflow的信息

Dim WorkflowId As String

Dim ServerName As String

Dim Path As String

ChangeActivity:

Sub ChangeActivity(Session As notessession,CurrentDocument As notesdocument) 'By Donald 2003/1/22

'功能：完成文档的状态转换

On Error Goto PrintError

Dim Profile As notesdocument

Dim CurrentActivityId As String

Dim RelationCollection As notesdocumentcollection

Dim Relation As notesdocument

Dim i As Integer

Dim evaluateResult As Variant

Dim ToActivityId As String

Dim MailNotifyId As String

Dim ToActivityName As String

Dim RountCondition As String

Dim tempOwner As Variant

Dim Ownerlist As Variant

Dim Mail As notesdocument

'取得工作流的Profile文档,从中得到当前工作流系统的编号以及工作流定义数据库的路径

Set CurrentDatabase=session.currentdatabase

Set Profile=CurrentDatabase.GetProfileDocument("WorkflowProfile")

WorkflowId=Profile.WorkflowId(0)

ServerName=Profile.ServerName(0)

Path=Profile.path(0)

'取得工作流定义数据库

Set WorkflowDefine=session.getdatabase(ServerName,Path)

'取得当前文档的状态编号

CurrentActivityId=CurrentDocument.CurrentActivityId(0)

'找下一个状态

Set

RelationCollection=WorkflowDefine.search("Form=""Relation""&WorkflowId="""+ WorkflowId+"""&@left(RelationId;2)="""+CurrentActivityId+"""",Nothing,0) If RelationCollection.count<1 Then

Msgbox ("工作流定义出错")

Exit Sub

Else

For i=1 To RelationCollection.count

Set Relation=RelationCollection.getnthdocument(i)

RountCondition=Trim(Relation.Condition(0))

If RountCondition="" Then'没有流转条件

ToActivityId=Trim(Right(Relation.RelationId(0),2))

MailNotifyId=Relation.MailNotifyId(0)

Exit For

Else

evaluateResult=Evaluate(RountCondition,CurrentDocument)

If evaluateResult(0) Then

ToActivityId=Trim(Right(Relation.RelationId(0),2))

MailNotifyId=Relation.MailNotifyId(0)

Exit For

End If

End If

Next

End If

'将本状态的CurrentActivityId放到PreviousActivityId中，

'将本状态的CurrentActivityName放到PreviousActivityName

CurrentDocument.PreviousActivityId=CurrentDocument.CurrentActivityId(0) CurrentDocument.PreviousActivityName=CurrentDocument.CurrentActivityNam e(0)

'计算下一个状态的Owner

tempOwner=Evaluate("@dblookup("""";"""+ServerName+""":"""+Path+""";""Al lActivity"";"""+WorkflowId+""+"-"+ToActivityId+""";4)")

Ownerlist=FormulaCalculate(tempOwner(0),CurrentDocument)

'将下一个状态的Owner放到CurrentActivityOwner中

'下一个状态的ActivityId放到CurrentActivityId中

'下一个状态的ActivityName放到CurrentActivityName中

Dim newfield As notesitem

Call CurrentDocument.Removeitem("CurrentActivityOwner")

Set newfield=New

notesitem(CurrentDocument,"CurrentActivityOwner",Ownerlist)

newfield.Isauthors=True

Dim tempToActivityName As Variant

tempToActivityName=Evaluate("@dblookup("""";"""+ServerName+""":"""+Path +""";""AllActivity"";"""+WorkflowId+""+"-"+ToActivityId+""";2)") ToActivityName=tempToActivityName(0)

CurrentDocument.CurrentActivityId=ToActivityId

CurrentDocument.CurrentActivityName=ToActivityName

'发送邮件

Dim tempRecipients As Variant

Dim tempSubject As Variant

Dim send As Variant

tempRecipients=Evaluate("@dblookup("""";"""+ServerName+""":"""+Path+""";" "AllMailNotify"";"""+WorkflowId+""+"-"+MailNotifyId+""";2)")

tempRecipients=FormulaCalculate(tempRecipients(0),CurrentDocument)

tempSubject=Evaluate("@dblookup("""";"""+ServerName+""":"""+Path+""";""A llMailNotify"";"""+WorkflowId+""+"-"+MailNotifyId+""";3)")

tempSubject=Evaluate(tempSubject(0),CurrentDocument)

Dim maildoc As notesdocument

Set maildoc=New notesdocument(CurrentDatabase)

maildoc.sendto=tempRecipients

maildoc.form="memo"

maildoc.ss="ded"

maildoc.Subject=tempSubject

Dim body As notesrichtextitem

Set body=New notesrichtextitem(maildoc,"Body")

Call body.Appenddoclink(CurrentDocument,"")

Call maildoc.send(False)

Call CurrentDocument.save(True,False)

Exit Sub

PrintError:

Messagebox "代码库中函数ChangeActivity出错,错误行号："+Cstr(Erl)+"错误类型："+Error,0,"出现错误"

Exit Sub

End Sub

FormulaCalculate:

Function FormulaCalculate(FormulaString As String,CurrentDocument As notesdocument)As Variant

On Error Goto PrintError

Dim temp As Variant

Dim Key As String

If Trim(Left(FormulaString,6))="@Field" Then

temp=Evaluate(Trim(Mid$(FormulaString,7)),CurrentDocument) End If

If Trim(Left(FormulaString,13))="@RoleMemberOf" Then

key=Trim(Mid$(FormulaString,14))

temp=Evaluate("@dblookup("""";"""+ServerName+""":"""+Path+""";""AllRoles "";"""+key+""";2)")

End If

'Forall element In temp

'FormulaCalculate=FormulaCalculate+Cstr(element)

'End Forall

FormulaCalculate=temp

Exit Function

PrintError:

Messagebox "代码库中函数FormulaCalculate出错,错误行号："+Cstr(Erl)+"错误类型："+Error,0,"出现错误"

Exit Function End Function