【搞定】关于已提交任务的查看问题

linson

我双击首页上“提交任务”列表中的任意一条数据，系统提示：您没有此功能权限：业务模型\协同系统\任务\我的任务！我用system用户再登录进行权限分配，结果在功能窗口列表中，根本就找不到：业务模型\协同系统\任务\我的任务，请问这是怎么回事？

alang

这个功能设置隐藏了，所以看不到，这个功能默认设置了功能权限的，在 协同系统\公共资源\协同常量库
你在修改这个函数时候，保留红色部分就可以了
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',   zhouxl
    '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', }
    'Biz:\OPERATION\OASPACE\Browse.Func',
//    'Biz:\OPERATION\OASPACE\GZDTBrowse.Func'
    // 'Biz:\OPERATION\OASPACE\TZTGINFO.INFO',
    'Biz:\OPERATION\OASPACE\NEWSBROWSER.FUNC',
    'Biz:\OPERATION\OASPACE\WORKINFOBROWSER.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;

linson

这是我的目前的代码：
Result := ['Biz:\COLLABORATION\DesktopFunc.Func',
    'Biz:\COLLABORATION\SchedulerFunc.Func',
    'Biz:\COLLABORATION\TaskCenterFunc.Func',
    'Biz:\COLLABORATION\PlanCenterFunc.Func',
    'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func',
    'Biz:\COLLABORATION\JustepMail.Func',
   // 'Biz:\COLLABORATION\DecisionCenterFunc.Func',

    'Biz:\OPERATION\CRMSPACE\UserMngFunc.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',

   // TRTLConsts.DocCenterURL,

    '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',
    {//todo wdx 不要删除此注释，这里如果需要OA有新闻公告板，则需将此放开
    'Biz:\OPERATION\OASPACE\TASKCENTERNEWSFUNC.FUNC',}
    'Biz:\OPERATION\CRMSPACE\DATEAPPLICATIONDEALFUNC.Func'
    ];

alang

那你编译一下这个协同常量库，然后从初始化运行看看

Akon

由于楼主长时间未跟贴,此帖先结,有问题请开新帖.