【结帖】关于“任务中心”的“详细”**

afatdog

协同空间里面的“任务中心”，是在具体哪步代码将“详细”页面关联到具体的INFO的
我想在该步骤完成后截获该具体的INFO，然后再做点其他操作。谢谢

afatdog

大概找到了位置：
Biz:\COLLABORATION\MYFUNCINFO.INFO\MYTASKDOC.FORMDOC.PAS的TMYTASKDOC.DoTaskOpen(...)

比如说我自定义个了一个INFO，类名叫TINFO_Test，里面定义了一个函数ShowMessage，正常的用法是：
INFO_Test.TINFO_Test(dvTaskDetail.Info).ShowMessage(...)

但是在“任务中心”里面是个通用的INFO，
xxxx(dvTaskDetail.Info).ShowMessage(...)

xxxx部分就不知道怎么写了

jiahaiminghr

xxxx(dvTaskDetail.Info).ShowMessage(...)

xxxx应该是你信息的类型名吧。

yancm

您可以在您文档的oncreate事件里面添加您需要的动作。

yancm

我们不建议修改系统空间下面的代码。也不提供对此部分修改的支持。

关联到具体INFO的代码在 业务模型\协同系统\任务\任务中心信息\任务详细 中下面的方法里面。


procedure TTASKSUMMARY.Reload;
var
  lDocURL, lFuncURL: string;
  lTypeInfo: TCMTaskTypeInfo;
  lReadOnly: Boolean;
  lHasSummaryDoc: Boolean;
begin
  if FTask <> nil then
  begin
    if FTask.IsFlowTask then
    begin
      lDocURL := '';
      lFuncURL := '';
      lReadOnly := True;
    end
    else
    begin
      lTypeInfo := TTASKDEFINEINFO.Instance(Context).GetTaskTypeInfo(FTask.TaskType);
      lDocURL := lTypeInfo.SummaryDocURL;
      lFuncURL := lTypeInfo.SummaryFuncURL;
      lReadOnly := not lTypeInfo.DirectProcess;
    end;
    if (lFuncURL = '') then
      lFuncURL := FTask.FuncURL;
    if (lFuncURL <> '') and (lDocURL = '') then
      lDocURL := Func.GetFuncSummaryDocURL(lFuncURL);
    if (lFuncURL <> '') and (lDocURL = '') then
      lDocURL := cDefaultDoc;
    lHasSummaryDoc := (lFuncURL <> '') and (lDocURL <> '');
    if lHasSummaryDoc then
      RunFunc(lFuncURL, lDocURL, FTask, lReadOnly)
    else
      ClearRunFunc;
  end
  else
    ClearRunFunc;
  RealRefreshRelevancyBar;
end;

afatdog

首先，我改的是协同空间的东西，不是系统空间的东西；另外我已经知道怎么改了

jiahaiminghr

恭喜楼主。没有问题，那就结帖了！