【结】待办任务范围**

zhdkelly

如下截图部分，一打开工作台部门√也打上。
待办任务拷贝的代码：业务模型协同系统\面板功能我的功能\我的待办

zhdkelly

?

shangxy

楼主用的是那个版本？
新版本用system登陆以后如下图配置就可以了：

zhdkelly

我的版本是3102，按照你的设置还是没有显示本部门的待办任务，需要把部门√打上才能显示那条任务~~

shangxy

你保存了么？如果保存，你在打开3楼的功能看看是否已经选上了，如果没有选上按照下面连接中的方法试试：
http://bbs.justep.com/forum.php?mod=viewthread&tid=27509

zhdkelly

已经保存了，√选上了，还是存在问题

shangxy

参考一下 业务模型\协同系统\任务\我的任务 这个功能
在你功能的BizFormCreate事件中加入类似这样的代码：
MyTaskDoc.OrgTypes := [TOrgType.otPerson, TOrgType.otDept];

shangxy

这个是我做的功能，引用的是我的代办的文档，楼主可以参考一下：
unit MainForm;

interface

uses
  Business.System, Business.Model, Business.Forms,TASKCENTERRESOURCE;

type
  TMainForm = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerMYFUNCINFO: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    Panel: TPanel;
    DocViewMYFUNCINFO_MYTASKDOC: TDocView;
    procedure BizFormCreate(Sender: TObject);
  private
      function GetMyTaskDoc: MyFuncInfo.TMyTaskDoc;
    {private declarations}
  public
      property MyTaskDoc: MyFuncInfo.TMyTaskDoc read GetMyTaskDoc;
    {public declarations}
  end;

implementation


procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  MyTaskDoc.OrgTypes := [TOrgType.otPerson, TOrgType.otDept];
end;
function TMAINFORM.GetMyTaskDoc: MyFuncInfo.TMyTaskDoc;
begin
  Result := DocViewMYFUNCINFO_MYTASKDOC.Doc as MyFuncInfo.TMyTaskDoc;
end;
end.

shangxy

楼主反馈一下问题解决了么？

zhdkelly

解决了，谢谢