|
|
发表于 2007-6-19 10:14:08
|
显示全部楼层
有些功能是系统用代码默认分配的，代码位置在：
协同系统\公共资源\协同常量库
static function TRTLConsts.DefaultFuncs: TStringArray;
begin
Result := ['Biz:\COLLABORATION\DesktopFunc.Func',
'Biz:\COLLABORATION\SchedulerFunc.Func',
'Biz:\COLLABORATION\TaskCenterFunc.Func',
'Biz:\COLLABORATION\PlanCenterFunc.Func',
'Biz:\COLLABORATION\JustepMail.Func',
'Biz:\COLLABORATION\MyTaskFunc.Func',
'Biz:\COLLABORATION\TaskRelationViewFunc.Func',
'Biz:\COLLABORATION\PlanBrowseFunc.Func',
'Biz:\COLLABORATION\WorkRecordFunc.Func',
'Biz:\COLLABORATION\WORKTASKFUNC.Func',
'Biz:\COLLABORATION\WorkRemindFunc.Func',
'Biz:\COLLABORATION\WorkLogFunc.Func',
'Biz:\COLLABORATION\WorkAdviceFunc.Func',
'Biz:\COLLABORATION\WorkWeekPlanFunc.Func',
'Biz:\COLLABORATION\WorkAdviceDealFunc.Func',
'Biz:\COLLABORATION\WorkLogDealFunc.Func',
'Biz:\COLLABORATION\WorkRecordDealFunc.Func',
'Biz:\COLLABORATION\WorkRemindDealFunc.Func',
'Biz:\COLLABORATION\WorkTaskDealFunc.Func',
'Biz:\COLLABORATION\WorkWeekPlanDealFunc.Func',
'Biz:\OPERATION\CRMSPACE\UserMngFunc.Func',
'Biz:\OPERATION\CRMSPACE\CstmCommRecordFunc.Func',
'Biz:\OPERATION\CRMSPACE\CSTMTRACKTFUNC.Func',
'Biz:\OPERATION\CRMSPACE\PresaleWorkTaskFunc.Func',
'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func',
'Biz:\OPERATION\CRMSPACE\UserCommRecordFunc.Func',
'Biz:\OPERATION\CRMSPACE\UserTrackRecordFunc.Func',
'Biz:\OPERATION\CRMSPACE\CHIEFMEETINGRECFUNC.Func',
'Biz:\OPERATION\CRMSPACE\WORKWEEKREPORTFunc.Func',
'Biz:\OPERATION\CRMSPACE\ProductDemandFUNC.Func',
'Biz:\OPERATION\CRMSPACE\ProductQuestionFunc.Func',
'Biz:\OPERATION\CRMSPACE\ProductQuestionFunc.Func',
'Biz:\OPERATION\CRMSPACE\DATEAPPLICATIONFunc.Func',
'Biz:\OPERATION\CRMSPACE\CstmCommRecordDealFunc.Func',
'Biz:\OPERATION\CRMSPACE\CSTMTRACKDEALFUNC.Func',
'Biz:\OPERATION\CRMSPACE\PresaleWorkTaskDealFunc.Func',
'Biz:\OPERATION\CRMSPACE\UserCommRecordDealFunc.Func',
'Biz:\OPERATION\CRMSPACE\UserTrackRecordDealFunc.Func',
'Biz:\OPERATION\CRMSPACE\CHIEFMEETINGRECDEALFUNC.Func',
'Biz:\OPERATION\CRMSPACE\WORKWEEKREPORTDEALfunc.Func',
'Biz:\OPERATION\CRMSPACE\ProductDemandDealFunc.Func',
'Biz:\OPERATION\CRMSPACE\ProductQuestionDealFunc.Func',
'Biz:\OPERATION\CRMSPACE\DATEAPPLICATIONDEALFUNC.Func'
];
if TRTLConsts.HasDocSystem then
begin
SetLength(Result, High(Result) - Low(Result) + 1);
Result[High(Result)] := TRTLConsts.DocCenterURL;
end;
if TRTLConsts.HasDecisionSystem then
begin
SetLength(Result, High(Result) - Low(Result) + 1);
Result[High(Result)] := TRTLConsts.DecisionCenterURL;
end;
if TRTLConsts.HasOASystem then
begin
SetLength(Result, High(Result) - Low(Result) + 5);
Result[High(Result) - 4] := TRTLConsts.NewsCenterURL;
Result[High(Result) - 3] := 'Biz:\OPERATION\OASPACE\LetterVisitDealFunc.Func';
Result[High(Result) - 2] := 'Biz:\OPERATION\OASPACE\LetterDisposalDealFunc.Func';
Result[High(Result) - 1] := 'Biz:\OPERATION\OASPACE\DailyChargeBxDealFunc.Func';
Result[High(Result)] := 'Biz:\OPERATION\OASPACE\EvectionChargeBxDealFunc.Func';
end;
end; |
|
楼主