【结贴】流程任务回收功能如何屏蔽？**

dupit

待办任务列表中：任务回收功能如何屏蔽？
就是不显示回收功能。

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=12619

dupit

新建了一个 继承‘任务中心信息’的信息， 在该信息中重载
procedure TTaskOperations.FixPopupMenu(APopupMenu: TPopupMenu; ActionList: TActionList;  AFilterType: TFilterType);  这个函数，屏蔽下面的代码:
if (OperatorBizOperations.IndexOf('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FetchBack.Operation') >= 0) then
    begin
      lMenuItem := TMenuItem.Create(APopupMenu);
      APopupMenu.Items.Insert(0, lMenuItem);
      lMenuItem.Action := GetBizOperationAction('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FetchBack.Operation', ActionList);
    end;

具体如何写？

dupit

重载下面函数：
procedure TRWZXXXINFO.FixPopupMenu(APopupMenu: TPopupMenu; ActionList: TActionList;  AFilterType: TFilterType);
var
  I: Integer;
  lMenuItem: TMenuItem;
  lTaskTypeInfo: TCMTaskTypeInfo;
begin
  if (AFilterType = TFilterType.ftPost) then
  begin
    for I := APopupMenu.Items.Count - 1 downto 0 do
      if (APopupMenu.Items[I].Action <> nil) and
        (FindBizOperation(APopupMenu.Items[I].Action as TAction) <> '') then
        APopupMenu.Items.Delete(I);
    if FTaskCenterInfo.Task = nil then
      Exit;
    if FTaskCenterInfo.Task.IsFlowTask then
    begin
      if OperatorBizOperations.IndexOf('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FetchBack.Operation') >= 0 then
      begin
        lMenuItem := TMenuItem.Create(APopupMenu);
        APopupMenu.Items.Insert(0, lMenuItem);
        lMenuItem.Action := GetBizOperationAction('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FetchBack.Operation', ActionList);
        Exit;
      end;
    end;
  end else
    FixPopupMenu(APopupMenu, ActionList);
end;

编译报错：TFilterType.ftPost   －－－ftPost 不存在

zfang

什么意思？写什么？

dupit

版本3012

dupit

屏蔽如下代码：
  OperatorBizOperations.Add(cOpenOperation);
  OperatorBizOperations.Add(cProcessOperation);
  OperatorBizOperations.Add(cFlowOutOperation);
  OperatorBizOperations.Add(cFlowBackOperation);
  OperatorBizOperations.Add(cAbortOperation);
  OperatorBizOperations.Add(cFinishOperation);
//  OperatorBizOperations.Add(cFetchBackOperation);     
//  OperatorBizOperations.Add(cDelOperation);         
OperatorBizOperations.Add(cReadFinishOperation);

  OperatorBizOperations.Add(cPlanReadFinishOperation);
// TODO:  OperatorBizOperations.Add(cAllocEditOperation);
  OperatorBizOperations.Add(cAgreeOperation);
  OperatorBizOperations.Add(cUnAgreeOperation);
  OperatorBizOperations.Add(cReportOperation);
//  OperatorBizOperations.Add(cTransmitOperation);      

待办任务中 ：终止，删除功能还是可以看见

zfang

最初由 dupit 发布
[B]待办任务列表中：任务回收功能如何屏蔽？
就是不显示回收功能。 [/B]

你一楼说的是回收。。。。。。

dupit

新建继承“任务中心信息”，想在这里屏蔽回收，终止，删除功能，代码如何写？

dupit

现在按  上面的问题，该如何修改？