|

楼主 |
发表于 2008-2-26 15:06:43
|
显示全部楼层
[请求]
协同常量库中修改的代码
static function TRTLConsts.DefaultDesktopPanelDesc: TDesktopPanelDescArray;
const
cTaskFuncURL = 'Biz:COLLABORATIONMyTaskFunc.Func';
cPlanFuncURL = 'Biz:COLLABORATIONPlanCenterFunc.Func';
// cCustomerFuncURL = 'Biz:OPERATIONCRMSPACECustomerMngFunc.Func';
cNoticeFuncURL='Biz:Biz:TZTZGN.Func';
cNeedProcessDocURL = 'Biz:COLLABORATIONTaskCenterInfo.InfoNeedProcessNav.FormDoc';
cPlanDocURL = 'Biz:COLLABORATIONPlanCenterInfo.InfoPlanNav.FormDoc';
cPostDocURL = 'Biz:COLLABORATIONTaskCenterInfo.InfoPostNav.FormDoc';
// cCustomerDocURL = 'Biz:OPERATIONCRMSPACECustomerInfo.InfoCustomerNav.FormDoc';
cNoticeDocUrl='Biz:TZTZXX.InfoTZLRJWH.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, '')
CreateDesktopPanel('通知', cNoticeDocUrl, cNoticeFuncURL, '')
];
end;
|
|