【结贴】[请求]自己实现的工作台如何在保存后自动刷新待办列表**

newjack

曾经问过一个问题《自己实现的工作台如何在流转流程后自动刷新待办列表》

http://bbs.justep.com/forum.php?mod=viewthread&tid=21731

这个问题已经解决。

我们现在要实现一个效果，保存工作票以后，工作台待办列表也要更新。仅仅保存，没有流转。

lixy

用alang写的那个分享贴。x3平台 发送消息那个。

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=18518

jiahaiminghr

楼主，一楼的方法不适用你现在的需求。

如果想在一个功能中主动刺激工作刷新任务数据（从数据库刷新），可以考虑利用平台的业务消息机制。
http://bbs.justep.com/forum.php?mod=viewthread&tid=18235

newjack

上面的方法都比较麻烦，下面给出我的解决方法：

//更新
type
  TTaskUpdate = class(System.Object)
  public
    static function TaskUpdateNotifies : TDotNetObjectList;
    static procedure TaskUpdateNotify(name: string);
  end;

//更新回调(事件源功能名)
TTaskUpdateDelegate = procedure(name: string) of Object;

implementation
var
   FTaskUpdateNotifies: TDotNetObjectList;

static function TTaskUpdate.TaskUpdateNotifies : TDotNetObjectList;
begin
    if (FTaskUpdateNotifies = nil) then
        FTaskUpdateNotifies := TDotNetObjectList.Create;
    begin
        Result := FTaskUpdateNotifies;
        exit
    end
end;

static procedure TTaskUpdate.TaskUpdateNotify(name: string);
var
  i:integer;
  obj:Object;
  item:TTaskUpdateDelegate;
begin
  if TaskUpdateNotifies=nil then exit;
  for i:=0 to TaskUpdateNotifies.Count-1 do
  begin
    obj:=TaskUpdateNotifies.Items;
    if (obj is TTaskUpdateDelegate) then
    begin
      item:=obj as TTaskUpdateDelegate;
      item.Invoke(name);
    end;
  end;
end;


在工作票的主数据集的AfterCommit事件中：
TTaskUpdate.TaskUpdateNotify('');

仿任务库设计，比较简单一点

lixy

存储变量的方式。也行，谢谢楼主分享