示例代码-获取当前流程文档对象-工作流开发示例

以下是一个示例代码,用于获取当前流程下的所有文档对象,并在流程节点的After Send Accept处执行操作:

Public Function WriteNodeInfoToExbDoc(FlowSession As Object, FlowProcess As Object, Node As Object) As Integer
    Dim Session As ISmSession
    Set Session = FlowSession.FlowStore.Session

    Dim Objs As ISmMultiObjects
    Set Objs = FlowProcess.ObjectsData

    Dim SinObj As ISmObject
    Set SinObj = InObjs.Item(0).Clone
    SinObj.Retrieve
    MsgBox SinObj.Data.Value("TDM_ID")
End Function

此函数通过FlowSessionFlowProcessNode获取并展示与流程相关的文档对象信息,调用MsgBox显示当前文档的TDM_ID。

ppt 文件大小:1.49MB