起步软件技术论坛-X3

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: 565118680

【结贴】如图我如何增加文件共享和新闻动态,两选项?**

[复制链接]
发表于 2007-8-17 14:26:48 | 显示全部楼层
你需要参考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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-17 15:39:02 | 显示全部楼层

好了,知道了!!

太谢谢你了,结贴吧
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-14 00:48 , Processed in 0.040268 second(s), 14 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表