【搞定】关于计划中心和任务中心的需求（急）**

lxs202

昨天我先试过了，我把{ 2. 与部门相关的计划 }这部份注释掉后。可以达到效果，但是
在计划中心只选择“本部门”时报错。并停留在“  Assert(SysUtils.Trim(lWhere) <> '', 'Error: TPlanFilterManage.GetSQLFilter');”

lxs202

顶

lxs202

再顶

lxs202

......

aPanther

晕，alang没看。
我今天联系他哈，一定让他看看这个。

lxs202

好的谢谢！

lxs202

.............................................................


............................................................

atiger

楼主，因为alang在外出差（下周一应该上班），他修改的这部分和你们的业务需求我们都不熟悉，所以可能要下周才能给答复了

lxs202

还是要顶起来

aPanther

来了，别着急
这里给一个方法你，把本部门屏蔽掉

1   打开 协同系统\计划\计划中心资源\计划常用过滤
procedure TPLANFILTER.ToolBarModuleCreate(Sender: TObject);
中，把
  SetLength(FPersonNodes, 2);
  FPersonNodes[0] := TBizNode.Create;
  FPersonNodes[0].NodeKind := TOrgUnitKind.boPersonMember;
  FPersonNodes[0].ObjectKind := cPersonNodeKind;
  FPersonNodes[1] := TBizNode.Create;
  FPersonNodes[1].NodeKind := TOrgUnitKind.boDept;
  FPersonNodes[1].ObjectKind := cDeptNodeKind;

  SetLength(FPersonTreeNodes, 2);
改成
  SetLength(FPersonNodes, 1);
  FPersonNodes[0] := TBizNode.Create;
  FPersonNodes[0].NodeKind := TOrgUnitKind.boPersonMember;
  FPersonNodes[0].ObjectKind := cPersonNodeKind;

  SetLength(FPersonTreeNodes, 1);


2   procedure TPLANFILTER.LoadManage;
中，屏蔽掉
//    cbtvDept.SelectNode(FPersonTreeNodes[1], Manage.IncludeDept);


procedure TPLANFILTER.InitDeptListBox;
中，注释掉
{  FPersonTreeNodes[1] := cbtvDept.Items.AddNode(nil, nil, SDept, FPersonNodes[1], TNodeAttachMode.naAddFirst);
  FPersonTreeNodes[1].ImageIndex := BizObjComUtils.BizSysUtils.GetBizObjImageIndex(FPersonNodes[1]);
  FPersonTreeNodes[1].SelectedIndex := BizObjComUtils.BizSysUtils.GetBizObjSelectedImageIndex(FPersonNodes[1], FPersonTreeNodes[1].ImageIndex);
}


3   打开 协同系统\计划\计划中心资源
把
  Assert(SysUtils.Trim(lWhere) <> '', 'Error: TPlanFilterManage.GetSQLFilter');
    lWhere := SysUtils.Format(
      'FPLANID IN (SELECT DISTINCT TPLANEXECUTOR.FPLANID FROM TPLANEXECUTOR, TPLAN WHERE (TPLAN.FPLANID = TPLANEXECUTOR.FPLANID) AND (%s))',
      [lWhere]);
替换成
    if SysUtils.Trim(lWhere) <> '' then
      lWhere := 'FPLANID IN (SELECT DISTINCT TPLANEXECUTOR.FPLANID FROM TPLANEXECUTOR, TPLAN WHERE (TPLAN.FPLANID = TPLANEXECUTOR.FPLANID))'
    else
    lWhere := SysUtils.Format(
      'FPLANID IN (SELECT DISTINCT TPLANEXECUTOR.FPLANID FROM TPLANEXECUTOR, TPLAN WHERE (TPLAN.FPLANID = TPLANEXECUTOR.FPLANID) AND (%s))',
      [lWhere]);