|
发表于 2008-5-26 08:57:48
|
显示全部楼层
楼主,这应该是个缺陷,已经提交。
目前您可以手工修改一下:
协同系统\任务\任务中心信息
function TTASKCENTERINFO.CanTaskDelete: Boolean;
begin
//TODO: 未实现删除 //只能删除活动的流程通知任务
try
Result := (Task <> nil) and (Task.State in [TTaskState.tsStarted, TTaskState.tsProcessing, TTaskState.tsWaiting]) and SysUtils.SameText(Task.Kind, 'ftkNotify');
except
//jhm 任务被改变时,报错:任务数据已经被修改
on E: Exception do
begin
//jsDialogs.ShowMsg(e.message, '');
TaskRefresh;
if FTask <> nil then
ReLoadTask;
Result := False;
end;
end;
end;
procedure TTASKCENTERINFO.UpdateTaskState;
begin
// TODO: 需要做效率优化
// FTaskCanProcess := FTask <> nil;
try
FTaskCanProcess := (FTask <> nil) and TTaskServices.GetTaskCanRun(Context, FTask);
except
//jhm 任务被改变时,报错:任务数据已经被修改
on E: Exception do
begin
//jsDialogs.ShowMsg(e.message, '');
TaskRefresh;
if FTask <> nil then
ReLoadTask;
FTaskCanProcess := False;
end;
end; |
|