【搞定】代码启动流程问题？**

cxxwz123

用代码启动流程后，关闭这个界面。从待办任务中双击或右击出现这样错误：任务数据已经被修改。关了平台，重新进去后就没这个错误了。该怎么解决？？？？

cxxwz123

急！ 帮忙解决下

cxxwz123

顶上去，要沉了。。。

alang

把你的代码贴上来，出错的截图贴上来

cxxwz123

定义：
procedure TCGDDHQXX.UserStartFlow(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:string);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
begin
  lBizURL := TBizURL.Create;
  lFlowValue := TFlowValue.Create;
  lFlowControl := TFlowControl.Create(Self.Context);
  lExecutor := TOrgURL.Create(ADept, ARole, APerson);
  lBizURL.URL := AFlowUrl;
  try
   lFlowValue.IDs.Add(AFlowID);
   lFlowValue.Subject := ASubject;
   lFlowValue.Description := ADescription;
   lExecutor := TOrgURL.Create(ADept,ARole,APerson);  //传入发起者的部门、岗位、人员
   lFlowControl.StartupFlow(lBizURL, AStartProc, lExecutor, lFlowValue);
   //lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverID := BizUrlValue.ID; //传入接收者的人员ID
    //lFlowControl.FlowRunnerbyIndex[0].CurrentTask.PreemptMode := TTaskPreemptMode.omFirstProcess;
    //lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverDeptID := GGHS.TGGHS.GetDeptName(BizUrlValue.ID);//传入接收者的部门ID
    //lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverPositionID := GGHS.TGGHS.GetPositionName(BizUrlValue.ID); //传入接收者的岗位ID
    //lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverID := BizUrlValue.ID; //传入接收者的人员ID

    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
  finally
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;

  end;
end;
调用：
UserStartFlow('Biz:NBHLERPXTCGSPLC.PROC',lContextCurrent.Dept.ID,lContextCurrent.PositionMember.ID,lContextCurrent.PersonMember.ID,'BJCGDD',str,'采购审批流程','');
平台上点击待办任务时出现这样的问题

alang

为什么把定义接受者的地方都注释掉了？

cxxwz123

这三条编译有问题,BizUrlValue怎么定义？
还有 GGHS.TGGHS. 是调用什么？
lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverDeptID := GetDeptName(BizUrlValue.ID);//传入接收者的部门ID
   lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverPositionID := GGHS.TGGHS.GetPositionName(BizUrlValue.ID); //传入接收者的岗位ID
   lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverID := BizUrlValue.ID; //传入接收者的人员ID

cxxwz123

改成这样可以的吧？
procedure TCGDDHQXX.UserStartFlow(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:string);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
begin
  lBizURL := TBizURL.Create;
  lFlowValue := TFlowValue.Create;
  lFlowControl := TFlowControl.Create(Self.Context);
  lExecutor := TOrgURL.Create(ADept, ARole, APerson);
  lBizURL.URL := AFlowUrl;
  try
   lFlowValue.IDs.Add(AFlowID);
   lFlowValue.Subject := ASubject;
   lFlowValue.Description := ADescription;
   lExecutor := TOrgURL.Create(ADept,ARole,APerson);  //传入发起者的部门、岗位、人员
   lFlowControl.StartupFlow(lBizURL, AStartProc, lExecutor, lFlowValue);
   lFlowControl.FlowRunnerbyIndex[0].CurrentTask.PreemptMode := TTaskPreemptMode.omFirstProcess;
   lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverDeptID :=lExecutor.DeptID; //BJCGDD.TBJCGDD.GetDeptName(BizUrlValue.ID);//传入接收者的部门ID
   lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverPositionID :=lExecutor.PositionID; //GGHS.TGGHS.GetPositionName(BizUrlValue.ID); //传入接收者的岗位ID
   lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverID :=lExecutor.PersonID; //BizUrlValue.ID; //传入接收者的人员ID

    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
  finally
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;

  end;
end;

cxxwz123

还是出现那样的错误！

cxxwz123

这里出错