【结】急急急！！发到岗位的任务看不到！！！**

iamzf

流程流转的时候发现问题

如果下一步流程的接收者是挂载到岗位的，但是使用该岗位的人员登录系统，在待办任务里面看不到信息，必须进入到任务中心，把范围改成本部门，才能在任务中心看到改条待办，请高手帮忙处理一下。

atiger

对，平台就是这样实现。代办任务只能看到直接发到这个人的任务，发到部门或者岗位上的任务只能通过在任务中心，修改范围来查看

shuzheng

但是以前不是这样的啊，以前发到岗位的也是可以看到的啊

atiger

那你们应该修改过代码
你对比一下

atiger

需要修改两个地方
1. 业务模型\协同系统\任务\任务中心信息\任务导航(基类)

procedure TTaskNav.FormDocCreate(Sender: TObject);
begin
  inherited;
  FFilterBuilder := TFilterBuilder.Create(Context);
下面增加一句
FFilterBuilder.OrgTypes := [TOrgType.otPerson, TOrgType.otDept];

2. 业务模型\协同系统\任务\我的任务\主窗体

procedure TMainForm.BizFormCreate(Sender: TObject);
{var
  lDataSets: TBizDataSetList;
  lTaskDoc: MyFuncInfo.TMyTaskDoc;
begin
  MyTaskDoc.FilterToAutoFill := True;
  MyTaskDoc.RightsFilter := False;
  MyTaskDoc.DateRange := TDateRange.drAll;}
var
  lViewMode: string;
  lFilterType: string;
  lFilterDesc: string;
  lLocateID: string;
begin
  ParserRunParams(lViewMode, lFilterType, lFilterDesc, lLocateID);

  MyTaskDoc.FilterBeginUpdate;
  try
    MyTaskDoc.DocBarTask.ShowMaxButton := False;
    MyTaskDoc.FilterToAutoFill := True;
    // MyTaskDoc.RightsFilter := False;
    if lViewMode <> '' then
      MyTaskDoc.ViewMode := TMyFuncInfo.StrToViewMode(lViewMode)
    else
      MyTaskDoc.ViewMode := TViewMode.vmTaskGrid;
    if SysUtils.SameText(lFilterType, TRTLConsts.NeedProcessTaskTypeStr) then
      MyTaskDoc.ProcessStates := [TProcessState.psProcess]
    else if SysUtils.SameText(lFilterType, TRTLConsts.PostTaskTypeStr) then
      MyTaskDoc.ProcessStates := [TProcessState.psPost]
    else
      MyTaskDoc.ProcessStates := [TProcessState.psProcess, TProcessState.psFinish, TProcessState.psPost, TProcessState.psPostFinished];
    MyTaskDoc.DateRange := TDateRange.drAll;
下面这句
MyTaskDoc.OrgTypes := [TOrgType.otPerson{, TOrgType.otDept}];
修改为
MyTaskDoc.OrgTypes := [TOrgType.otPerson, TOrgType.otDept];


请楼主记录一下，下次我们再给你们补丁包后，检查一下是否有这两个对象，如果有，需要检查一下这两个地方的代码。

shuzheng

恢复到以前的包，问题解决了，呵呵，结贴了

shangxy

记得以前给你们修改过，
位置是在任 务中心信息 单元下面 代码类似于5楼

atiger

楼主，3000以后是在

业务模型\协同系统\任务\任务中心信息 中修改
static function TTASKCENTERINFO.DefaultDesktopTaskOrgRange: TOrgTypes;
begin
// Result := [TOrgType.otPerson]; 修改为
  Result := := [TOrgType.otPerson, TOrgType.otDept];
end;