工作台上的计划和客户最好用修改 协同系统\公共资源\协同常量库 来实现
static function TRTLConsts.DesktopColumnCount: Integer;
begin
Result := 2;
end;
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\GridNav_NeedProcess.FormDoc';
cPlanDocURL = 'Biz:\COLLABORATION\PlanCenterInfo.Info\GridNav.FormDoc';
cPostDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\GridNav_Post.FormDoc';
cCustomerDocURL = 'Biz:\OPERATION\CRMSPACE\CustomerInfo.Info\CustomerNav.FormDoc';
{//todo wdx 不要删除此注释,这里如果需要OA有新闻公告板,则需将此放开
cNewsDocURL = 'Biz:\OPERATION\OASPACE\NEWSPLACARD_NAVINFO.INFO\GRIDNAV.FORMDOC';
cNewsFuncURL = 'Biz:\OPERATION\OASPACE\TASKCENTERNEWSFUNC.Func';}
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, '')
{//todo wdx 不要删除此注释,这里如果需要OA有新闻公告板,则需将此放开
CreateDesktopPanel('新闻公告', cNewsDocURL, cNewsFuncURL, '')}
];
end;
static function TRTLConsts.DesktopUnionRect: TRectArray;
begin
Result := [];//[Classes.Rect(0, 1, 3, 2), Classes.Rect(1, 2, 3, 3)];
end; |