【结贴】关于计划审阅的问题**

liyegj

代办任务中的“计划审阅”任务没法消掉，具体如图：

liyegj

列表中:如图：

shangxy

计划审阅类型的都不可以阅毕么？
你们平台用的是哪个版本？记得以前有过这样的缺陷

liyegj

我们用的3012的版本，之前是因为计划协助都没法阅毕，后来计划协助的可以了，现在时计划审阅不可以阅毕

wuyginger

您好！请再创建一个计划审阅的任务，看是否同样无法阅毕。
如果新创建的计划审阅任务能够正常阅毕，或者同样无法阅毕，请再联系。

liyegj

创建了一个新的计划审阅的任务，还是不能毕阅！！

wuyginger

我们先再测试一下，看是否能还原该问题吧！

wuyginger

请把STUDIO里‘业务模型-协同系统-任务-任务中心信息’中的一段代码替换如下：
procedure TTaskOperations.DefaultExecuteTaskBizOperation(Sender: object; ATask: TTask;
  const ABizOperation: string);
begin
  Assert(ATask <> nil, '处理的任务不能为空');
  if SysUtils.SameText(ABizOperation, cOpenOperation) then
    FTaskCenterInfo.TaskOpen
  else if SysUtils.SameText(ABizOperation, cProcessOperation) then
    FTaskCenterInfo.TaskProcess
  else if SysUtils.SameText(ABizOperation, cFlowOutOperation) then
    FTaskCenterInfo.TaskFlowOut
  else if SysUtils.SameText(ABizOperation, cFlowBackOperation) then
    FTaskCenterInfo.TaskFlowBack
  else if SysUtils.SameText(ABizOperation, cAbortOperation) then
    FTaskCenterInfo.TaskAbort
  else if SysUtils.SameText(ABizOperation, cFinishOperation) then
    FTaskCenterInfo.TaskFinish(True)
  else if SysUtils.SameText(ABizOperation, cReadFinishOperation) or
    SysUtils.SameText(ABizOperation, cPlanReadFinishOperation) then
    FTaskCenterInfo.TaskFinish(False)
  else if SysUtils.SameText(ABizOperation, cFetchBackOperation) then
    FTaskCenterInfo.TaskFetchBack
  else if SysUtils.SameText(ABizOperation, cDelOperation) then
    FTaskCenterInfo.TaskDelete
  else if SysUtils.SameText(ABizOperation, cTransmitOperation) then
    FTaskCenterInfo.RunTaskByTransmit
  else
    ;
end;

liyegj

根据上面的代码，进行替换后，问题解决了，谢谢！