if Command.FlowControl.Flow.Parent <> nil then //子流程找到主流程
for i :=0 to Command.FlowControl.Flow.Parent.Tasks.Count - 1 do //得到主流程的任务列表
begin
lTask := Command.FlowControl.Flow.Parent.Tasks;
if lTask <> nil then
begin
if SysUtils.SameText(lTask.ProcUnitID,'LR' ) then //是否是你要的主流程的环节任务
begin
for j := 0 to lTask.TaskMessages.Count - 1 do
begin
lTaskMessage := lTask.TaskMessages[j];
if lTaskMessage <> nil then
begin
lOrgUrl := Org.TOrgURL.Create(lTaskMessage.ReceiverDeptID,
lTaskMessage.ReceiverPositionID,lTaskMessage.ReceiverID);