【搞定】2401升级到2617的问题**

atiger

按住 Ctrl + 鼠标（点击TRTLConsts），你就会切换到这个对象上了

对了，你用的是2619版本，是新初始化的马？如果是，你登陆后，应该看不到 “我的桌面”“我的功能”和“我的管理” 这些吧

comqing

切换到这个对象上,之后干什么?屏蔽
static function TRTLConsts.DefaultFuncs: TStringArray;
begin
  ..........
end
么?
我的是2617啊,怎么有了2619新版本吗?

atiger

这两个是不需要升级，就是修正一个缺陷。

你把 TRTLConsts 整个代码贴出来看看

atiger

不过2617应该没有默认加上这些功能了

comqing

但是我看到的是加了这些功能的
unit COLLABORATIONCONSTS;

interface

uses
  Business.System, Business.Model;

type
  TCOLLABORATIONCONSTS = class(TBizLibrary)
  end;

  TStringArray = array of string;

  TDesktopPanelDesc = record
    Caption: string;
    DocURL: string;
    MoreFuncURL: string;
    MoreFuncParam: string;
  end;

  TDesktopPanelDescArray = array of TDesktopPanelDesc;

  TRectArray = array of TRect;

{ 关联业务系统常量 }

  TRTLConsts = class
  public
    { 数据库URL }
    static function SystemDatabaseURL: string;
    static function CollaborationDatabaseURL: string;
    static function OperationDatabaseURL: string;

    { 业务库表和字段 }
    static function CRMTableName: string;
    static function CRMKeyFieldName: string;
    static function CRMDisplayFieldName: string;

    { 功能相关 }
    static function TaskCenterURL: string;
    static function PlanCenterURL: string;
    static function DecisionCenterURL: string;
    static function CustomerCenterURL: string;
    static function MailURL: string;
    static function DocCenterURL: string;
    static function DocDecisionCenterURL: string;
    // 默认功能
    static function DefaultFuncs: TStringArray;
    // 默认快捷键
    static function DefaultShortcuts: TStringArray;
    // 以人的身份运行的功能
    static function PersonFuncs: TStringArray;
    // 主界面默认运行的功能
    static function RunFuncs: string;

    { 工作台相关常量 }
    static function DesktopColumnCount: Integer;
    static function DefaultDesktopPanelDesc: TDesktopPanelDescArray;
    static function DesktopUnionRect: TRectArray;

    { 元素URL }
    static function PartyURL: string;

    { 通用编码表类别 }
    static function AutoIncreaseScope: string;

    { 任务和计划相关常量 }
    static function DefaultTaskType: string;
    static function DefaultPlanType: string;
    static function NeedProcessTaskTypeStr: string;
    static function PostTaskTypeStr: string;

    { 文档相关常量 }
    static function CacheIndicesValue: Boolean;
    static function AllowContentType: string;
    {设置文档系统的表现方式，1 - 信息树表现， 0 - 文档中心方式表现，暂时以常量表示，可做配置}
    static function DocViewType: Integer;
  end;

implementation

{ TODO: 本单元信息可以扩展了通过表动态配置 }
static function TRTLConsts.SystemDatabaseURL: string;
begin
  Result := 'Biz:\SYSTEM\System.DataBase';
end;

static function TRTLConsts.CollaborationDatabaseURL: string;
begin
  Result := 'Biz:\COLLABORATION\Collaboration.Database';
end;

static function TRTLConsts.OperationDatabaseURL: string;
begin
  Result := 'Biz:\JUSTEPINNERSYSTEM\INNERDB.Database';
end;

static function TRTLConsts.CRMTableName: string;
begin
  Result := 'JSCUSTOMER';
end;

static function TRTLConsts.CRMKeyFieldName: string;
begin
  Result := 'CustomerID';
end;

static function TRTLConsts.CRMDisplayFieldName: string;
begin
  Result := 'Name';
end;

static function TRTLConsts.TaskCenterURL: string;
begin
  Result := 'Biz:\COLLABORATION\TaskCenterFunc.Func';
end;

static function TRTLConsts.PlanCenterURL: string;
begin
  Result := 'Biz:\COLLABORATION\PlanCenterFunc.Func';
end;

static function TRTLConsts.DecisionCenterURL: string;
begin
  Result := 'Biz:\COLLABORATION\DecisionCenterFunc.Func';
end;

static function TRTLConsts.CustomerCenterURL: string;
begin
  Result := 'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func';
end;

static function TRTLConsts.MailURL: string;
begin
  Result := 'Biz:\COLLABORATION\JustepMail.Func';
end;

static function TRTLConsts.DocCenterURL: string;
begin
  Result := 'Biz:\COLLABORATION\DocCenterFunc.Func';
end;

static function TRTLConsts.DocDecisionCenterURL: string;
begin
  Result := 'Biz:\COLLABORATION\DocDecisionCenterFunc.Func';
end;

static function TRTLConsts.DefaultShortcuts: TStringArray;
begin
  Result := [TRTLConsts.TaskCenterURL,
    TRTLConsts.PlanCenterURL,
    TRTLConsts.CustomerCenterURL,
    TRTLConsts.MailURL
   // TRTLConsts.DocCenterURL,
   // TRTLConsts.DocDecisionCenterURL
    ];
end;

static function TRTLConsts.PersonFuncs: TStringArray;
begin
  Result := ['Biz:\COLLABORATION\DesktopFunc.Func',
    'Biz:\COLLABORATION\SchedulerFunc.Func',
    'Biz:\COLLABORATION\TaskCenterFunc.Func',
    'Biz:\COLLABORATION\MyTaskFunc.Func',
    'Biz:\COLLABORATION\TaskRelationViewFunc.Func',
    'Biz:\COLLABORATION\PlanCenterFunc.Func',
    'Biz:\COLLABORATION\PlanBrowseFunc.Func',
    'Biz:\SYSTEM\DeptFuncManage.Func',
    'Biz:\SYSTEM\DeptManageAuthority.Func',
    'Biz:\SYSTEM\DeptOrganDesignForm.Func',
    'Biz:\SYSTEM\DeptPersonDesignForm.Func',
    'Biz:\SYSTEM\DEPTORGSETTING.FUNC',
    'Biz:\JUSTEP\JUSTEPMAIL.Func'
    ];
end;

static function TRTLConsts.DefaultFuncs: TStringArray;
begin
  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'
    ];
end;

static function TRTLConsts.RunFuncs: string;
begin
  Result := 'Biz:\COLLABORATION\DesktopFunc.Func;' +
    'Biz:\COLLABORATION\SchedulerFunc.Func';
end;

function CreateDesktopPanel(const Caption, DocURL, MoreFuncURL, MoreFuncParam: string): TDesktopPanelDesc;
begin
  Result.Caption := Caption;
  Result.DocURL := DocURL;
  Result.MoreFuncURL := MoreFuncURL;
  Result.MoreFuncParam := MoreFuncParam;
end;

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;

static function TRTLConsts.PartyURL: string;
begin
  Result := 'Biz:\SYSTEM\SysElements.ElementGroup\Party.Element'
end;

static function TRTLConsts.AutoIncreaseScope: string;
begin
  Result := '自动递增序列';
end;

static function TRTLConsts.DefaultTaskType: string;
begin
  Result := 'WORKRECORD'; // 工作记录
end;

static function TRTLConsts.DefaultPlanType: string;
begin
  Result := '0102'; // 工作计划
end;

static function TRTLConsts.NeedProcessTaskTypeStr: string;
begin
  Result := 'ftNeedProcess';
end;

static function TRTLConsts.PostTaskTypeStr: string;
begin
  Result := 'ftPost';
end;

static function TRTLConsts.CacheIndicesValue: Boolean;
begin
  Result := False; // 不缓存指标值
end;

static function TRTLConsts.AllowContentType: string;
begin
  Result := 'Indices;Decision;BizDoc;Web';
end;

static function TRTLConsts.DocViewType: Integer;
begin
  Result := 0;
end;

end.

atiger

哦，有，对，你根据中文在业务模型上搜索一下，找到功能的ID或者BizURL，把它取消就可以了

comqing

贴了图,再结合下曹工掌握的数据库,你们说注释哪些代码呢?

atiger

哥哥，

例如，你用“我的桌面”这个词在设计环节下搜索一下，就会看到该功能的BIZRrl，这样根据这个BIzUrl屏蔽它就可以了，

comqing

姐姐,能找到还要请你帮忙啊!
"我的桌面"ID是MYDESKTOPFUNC,BizUrl是Biz:\COLLABORATION\UITHEME\COMPACTSTYLE\MyDesktopFunc.Func
可我搜不到那串.
啊,拜托拜托!你不是有我们的库么?能在哪里找到?
2619是不是休整好了的版本

atiger

我看到你们的数据库，“业务模型协同系统\公共资源协同常量库”这个资源集中没有在15楼贴出的这么多代码
且用2401和2619的版本运行后也没有你这么多的功能，见附件图片（用demo账户登陆的）

这是协同常量库中的代码
unit CollaborationConsts;

interface

uses
  Business.System, Business.Model;

type
  TCollaborationConsts = class(TBizLibrary)
  end;

{ 关联业务系统常量 }

  TRTLConsts = class
  public
    { 数据库URL }
    static function SystemDatabaseURL: string;
    static function CollaborationDatabaseURL: string;
    static function OperationDatabaseURL: string;

    { 业务库表和字段 }
    static function CRMTableName: string;
    static function CRMKeyFieldName: string;
    static function CRMDisplayFieldName: string;

    { 默认功能 }
    static function TaskCenterURL: string;
    static function PlanCenterURL: string;
    static function DecisionCenterURL: string;
    static function CustomerCenterURL: string;
    static function MailURL: string;

    { 元素URL }
    static function PartyURL: string;

    { 通用编码表类别 }
    static function AutoIncreaseScope: string;

    { 任务和计划相关常量 }
    static function DefaultTaskType: string;
    static function DefaultPlanType: string;
  end;

implementation

{ TODO: 本单元信息可以扩展了通过表动态配置 }
static function TRTLConsts.SystemDatabaseURL: string;
begin
  Result := 'Biz:SYSTEMSystem.DataBase';
end;

static function TRTLConsts.CollaborationDatabaseURL: string;
begin
  Result := 'Biz:COLLABORATIONCollaboration.Database';
end;

static function TRTLConsts.OperationDatabaseURL: string;
begin
  Result := 'Biz:JUSTEPINNERSYSTEMINNERDB.Database';
end;

static function TRTLConsts.CRMTableName: string;
begin
  Result := 'JSCUSTOMER';
end;

static function TRTLConsts.CRMKeyFieldName: string;
begin
  Result := 'CustomerID';
end;

static function TRTLConsts.CRMDisplayFieldName: string;
begin
  Result := 'Name';
end;

static function TRTLConsts.TaskCenterURL: string;
begin
  Result := 'Biz:COLLABORATIONTaskCenterFunc.Func';
end;

static function TRTLConsts.PlanCenterURL: string;
begin
  Result := 'Biz:COLLABORATIONPlanCenterFunc.Func';
end;

static function TRTLConsts.DecisionCenterURL: string;
begin
  Result := 'Biz:COLLABORATIONDecisionCenterFunc.Func';
end;

static function TRTLConsts.CustomerCenterURL: string;
begin
  Result := 'Biz:OPERATIONCRMSPACECustomerMngFunc.Func';
end;

static function TRTLConsts.MailURL: string;
begin
  Result := 'Biz:COLLABORATIONJustepMail.Func';
end;

static function TRTLConsts.PartyURL: string;
begin
  Result := 'Biz:SYSTEMSysElements.ElementGroupParty.Element'
end;

static function TRTLConsts.AutoIncreaseScope: string;
begin
  Result := '自动递增序列';
end;

static function TRTLConsts.DefaultTaskType: string;
begin
  Result := 'WORKRECORD'; // 工作记录
end;

static function TRTLConsts.DefaultPlanType: string;
begin
  Result := '0102'; // 工作计划
end;

end.