【结贴】工作台**

vagrant

static function TRTLConsts.NewsDocURL: string;
begin
  // 兼容老系统
  if BizSys.BizSystem.URLExists('Biz:\OPERATION\OASpace') then
    Result := 'Biz:\OPERATION\OASPACE\NEWSPLACARD_NAVINFO.INFO\GRIDNAV.FORMDOC'
  else
    Result := 'Biz:\OPERATION\OASPACE2\NEWSPLACARD_NAVINFO.INFO\GRIDNAV.FORMDOC';
end;

static function TSystemConsts.OAURL: string;
begin
  Result := 'Biz:\OPERATION\OASpace';
end;

static function TSystemConsts.DefaultFuncs: TStringArray;
begin
  Result := ['Biz:\COLLABORATION\DesktopFunc.Func',
    CustomDesktopFunc,
    '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\CalendarFunc.Func',
    'Biz:\COLLABORATION\CalendarTempletMngFunc.Func',

    'Biz:\COLLABORATION\WorkCalendarFunc.Func',
    'Biz:\COLLABORATION\UserPanelSettingFunc.Func',
    'Biz:\COLLABORATION\WEBVIEWFUNC.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:\COLLABORATION\ShowDetails.Func',
    'Biz:\COLLABORATION\PanelDefineFunc.Func',
    'Biz:\COLLABORATION\CalendarDealFunc.Func',

    'Biz:\COLLABORATION\AddressListFunc.Func',
    'Biz:\COLLABORATION\JUSTEPMEMO.Func',
    'Biz:\COLLABORATION\JUSTEPNOTEBOOK.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 TSystemConsts.HasProjectSystem then
  begin
    SetLength(Result, High(Result) - Low(Result) + 1 + 1);
    Result[High(Result)] := 'Biz:\OPERATION\PROJECTSPACE\ProjectRelationBrowseFunc.Func';
  end;

  if TSystemConsts.HasDocSystem then
  begin
    SetLength(Result, High(Result) - Low(Result) + 1 + 1);
    Result[High(Result)] := TSystemConsts.DocCenterURL;
  end;

  if TSystemConsts.HasDecisionSystem then
  begin
    SetLength(Result, High(Result) - Low(Result) + 1  + 1);
    Result[High(Result)] := TSystemConsts.DecisionCenterURL;
  end;

  if TSystemConsts.HasOASystem then
  begin
    SetLength(Result, High(Result) - Low(Result) + 1  + 5);
    Result[High(Result) - 4] := TSystemConsts.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;


怎么会有这多的问题？

zfang

按我下面说的修改上面的代码。（这个其实在东莞的时候给过的。）
2、业务模型\协同系统\公共资源\协同常量库
static function TRTLConsts.NewsDocURL: string;
begin
  // 兼容老系统
  if BizSys.BizSystem.URLExists('Biz:\OPERATION\OASpace') then
    Result := 'Biz:\OPERATION\OASPACE\NEWSPLACARD_NAVINFO.INFO\GRIDNAV.FORMDOC'
  else
    Result := 'Biz:\OPERATION\OASPACE2\PRESSNAVINFO.INFO\PRESSNAVFORMDOC.FORMDOC';//修改这里
end;



3、业务模型\系统空间\系统运行库\配置库
a）
static function TSystemConsts.OAURL: string;
begin
  Result := 'Biz:\OPERATION\OASpace2';//修改
end;

b）
static function TSystemConsts.DefaultFuncs: TStringArray;  
  if TSystemConsts.HasOASystem then
  begin   exit;//增加的代码
    SetLength(Result, High(Result) - Low(Result) + 1  + 5);
    Result[High(Result) - 4] := TSystemConsts.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;

vagrant

这些应该你们发布包来给我们的时候就修改好了，为什么还要我们自己修改？

vagrant

真的很是想不通

zfang

楼主，是这样的，这个新闻公告的面板是一个淘汰的东西，所以默认不列在工作台中。
而如果非要列出来，那通过上面的修改方法就可以实现的。不知道楼主满意了没有？

vagrant

是这样，那结贴吧