【结贴】修改工作台问题**

cdz0451

我想在工作台上 添加一个 ‘信息浏览’项，就是像‘待办任务’一样，下面会显示出 信息，然后单击 进入 查看相信内容
怎么加？

cdz0451

顶下，不能沉帖

alang

看 协同系统\公共资源\协同常量库
static function TRTLConsts.DefaultDesktopPanelDesc: TDesktopPanelDescArray;
const
  cTaskFuncURL = 'Biz:\COLLABORATION\MyTaskFunc.Func';
  cPlanFuncURL = 'Biz:\COLLABORATION\PlanCenterFunc.Func';
  cCustomerFuncURL = 'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func';
  cFWXXDHNewFuncURL='Biz:\OPERATION\OASPACE\Browse.Func';
//  cGZDTBrowseFuncURL='Biz:\OPERATION\OASPACE\WORKINFOBROWSER.FUNC';

  cNeedProcessDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\NeedProcessNav.FormDoc';
  cPlanDocURL = 'Biz:\COLLABORATION\PlanCenterInfo.Info\PlanNav.FormDoc';
  cPostDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\PostNav.FormDoc';
  cCustomerDocURL = 'Biz:\OPERATION\CRMSPACE\CustomerInfo.Info\CustomerNav.FormDoc';
  cFWXXDHNewDocURL='Biz:\OPERATION\OASPACE\DISPATCHMOVEINFONAV.INFO\FWXXDHNew.FormDoc';
//  cGZDTBrowseDocURL='Biz:\OPERATION\OASPACE\WORKINFOPLACARDNew.Info\GZDTGRIDNAVNew.FormDoc';
begin
  Result := [CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p'),
             CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr])),
             //CreateDesktopPanel('工作信息', cGZDTBrowseDocURL, cGZDTBrowseFuncURL,''),
             //CreateDesktopPanel('发文信息', cFWXXDHNewDocURL, cFWXXDHNewFuncURL,'')
             CreateDesktopPanel('我的客户', cCustomerDocURL, cCustomerFuncURL, '')
             ];
end;

找到这个 协同系统\任务\任务中心信息\任务导航(待办) 参考看看吧

cdz0451

看了。。。没看明白。比如这个短的代码，什么意思没明白
procedure TNEEDPROCESSNAV.FormDocCreate(Sender: TObject);
begin
  Inherited;
  FilterTypeStr := TRTLConsts.NeedProcessTaskTypeStr;
end;

alang

这是具体的任务如何过滤，跟你要做的关系不大了

cdz0451

哦，麻烦教一下。。。怎么实现我要做的

alang

做一个文档显示一个列表，放在工作台上显示用的
做一个功能，显示所有的内容

然后在 协同常量库中定义一个DeskTopPanelDesc，类似 3 楼给的代码

chenliang82

能不能给一个例子，点击工作台信息标题，弹出新窗口的详细信息！拜托！

jiahaiminghr

业务模型\协同系统\任务\任务中心信息\任务导航(基类)
procedure TTASKNAV.actViewDetailExecute(Sender: TObject);
begin
  TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\COLLABORATION\MyTaskFunc.Func',
    SysUtils.Format('-vvmTaskDetail -f%s -l%s', [FilterTypeStr, TaskDataSet.FieldByName('FGUID').AsString]), False, nil, False);
end;

yancm

还有问题吗？楼主？