你需要参考3楼所说的 任务导航(待办)做一个表单文档,这个文档就是用来在工作台上显示内容的,显示的是什么内容就看你的文档是怎么做的了。还要做一个功能,跟普通功能没有什么区别,用来点“更多”按钮时打开。
然后在协同常量库里改这个函数
static function TRTLConsts.DefaultDesktopPanelDesc: TDesktopPanelDescArray;
const
cTaskFuncURL = 'Biz:\COLLABORATION\MyTaskFunc.Func';
cPlanFuncURL = 'Biz:\COLLABORATION\PlanCenterFunc.Func';
cCustomerFuncURL = 'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.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';
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('我的客户', cCustomerDocURL, cCustomerFuncURL, '') //参考这句加一句就行了cCustomerDocURL就是文档的URL,cCustomerFuncURL就是功能的URL
];
end; |