【搞定】[请求]如何把工作台中的我的客户功能屏蔽掉**

cdz0451 · 发表于 2007-10-8 10:29:32

如何把工作台中的我的客户功能屏蔽掉

lixy · 发表于 2007-10-8 10:31:53

搜索下旧帖子，有很多的。

lisb · 发表于 2007-10-8 14:29:21

修改业务模型\协同系统\公共资源\协同常量库，注掉红字部分

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, '')
         ];
end;

cdz0451 · 发表于 2007-10-8 15:25:23

我的公共资源里没有这项啊，都是图片啊

lisb · 发表于 2007-10-8 15:47:21

按 F12切换到代码页面。

cdz0451 · 发表于 2007-10-8 16:29:00

注释了以后报错什么原因？

lixy · 发表于 2007-10-8 16:30:37

[TRTLConsts.PostTaskTypeStr])), 这个后面的逗号也注释掉

cdz0451 · 发表于 2007-10-8 16:56:55

OK了

		自动登录	找回密码
密码			立即注册

【搞定】[请求]如何把工作台中的我的客户功能屏蔽掉**

[问题]