【结帖】工作台刷新的问题**

caoyeziqq

工作台刷新的问题.
http://bbs.justep.com/forum.php?mod=viewthread&tid=14250
参考以上八楼的帖子,但是在我的编程环境中只能刷新提交任务,不能刷新代办任务.

yancm

用下面的代码即可
const
  cDesktopURL = 'Biz:\COLLABORATION\DesktopFunc.Func';
  cTaskCenterURL = 'Biz:\COLLABORATION\TASKCENTERINFO.INFO';
var
  lBizObject: TBizObject;
  i: Integer;
  lContext: TContext;
begin
  lContext := Context.FindParentContext(BizSys.IL_PERSON);    //人员环境
  //在人员环境找工作台功能
  for i:=0 to lContext.ChildCount-1 do
  try
    if SysUtils.SameText(cDesktopURL, (lContext.Children.Owner as TFunc).BizClassURL.BizURL.URL) then
      lBizObject := lContext.Children.Owner;
  except
  end;
  if lBizObject=nil then exit;
  //在工作台功能上找任务中心信息
  lContext := lBizObject.Context;
  for i:=0 to lContext.ChildCount-1 do
  try
    if SysUtils.SameText(cTaskCenterURL, (lContext.Children.Owner as TInfo).BizClassURL.BizURL.URL) then
      lBizObject := lContext.Children.Owner;
      (lBizObject as TInfo).DataSetByID('TaskIndex').Refresh; //刷新数据集
  except
  end;

caoyeziqq

好的，结贴吧。谢谢yancm