这个是个缺陷,新版本已经解决,你可以自己修改一下
业务模型\协同系统\任务\任务中心信息\任务详细
把下边这个函数改成这样:
function TTASKSUMMARY.CanDelete: Boolean;
begin
Result := (CurrentFuncRunner <> nil) and CurrentFuncRunner.CanDelete and
// 流程任务不能删除
not Task.IsFlowTask and
// 计划相关的任务不允许删除,后续应该提供配置
not SysUtils.SameText(Task.TaskType, 'PLAN_ALLOCEDIT') and
not SysUtils.SameText(Task.TaskType, 'PLAN_TASTE') and
not SysUtils.SameText(Task.TaskType, 'PLAN_REMIND') and
not SysUtils.SameText(Task.TaskType, 'PLAN_AIDANCE') and
not SysUtils.SameText(Task.TaskType, 'PROJECT_ALLOCEDIT') and
not SysUtils.SameText(Task.TaskType, 'PROJECT_TASTE') and
not SysUtils.SameText(Task.TaskType, 'PROJECT_REMIND') and
not SysUtils.SameText(Task.TaskType, 'PROJECT_AIDANCE') and not
Task.IsFlowTask;
end; |