【结贴】实现类似‘提交任务’的功能，中怎么判断要显示的内容。

lhb963

OK

lhb963

在1楼说的链接里，你们给了个改的方法，但是现在越到点问题。

业务模型\协同系统\任务\任务中心信息\任务导航(基类)
继承一个新的表单文档（假如叫：业务模型\协同系统\任务\任务中心信息\任务导航(完成)，Biz:\COLLABORATION\TASKCENTERINFO.INFO\RWDH_WC_.FormDoc）
unit TASKNAVChild;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TTASKNAVChild = class(TASKCENTERINFO.TTASKNAV)
    procedure FormDocCreate(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TTASKNAVChild.FormDocCreate(Sender: TObject);
begin
  Inherited;
  FilterTypeStr := TRTLConsts.FinishTaskTypeStr;
end;

end.
提示 FilterTypeStr := TRTLConsts.FinishTaskTypeStr;//暂定叫FinishTaskTypeStr行错。
请问是不是要引用下什么才能用TRTLConsts。是的话怎么弄？

jiahaiminghr

需要添加对‘协同系统\公共资源\协同常量库’的引入

lhb963

我已经在 项目管理 中我建的那个信息 配置属性中引用了，但是编译还是不行。请问怎么弄？

lixy

代码里面uses加了那个单元名了吗？

lhb963

这是那个代码：
unit TASKNAVChild;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TTASKNAVChild = class(TASKCENTERINFO.TTASKNAV)
    procedure FormDocCreate(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TTASKNAVChild.FormDocCreate(Sender: TObject);
begin
  Inherited;
  FilterTypeStr := TRTLConsts.FinishTaskTypeStr;
end;

end

lixy

协同常量库 按f12  看看单元名叫什么
copy
然后在
implementation  
下面加uses 单元名;

lhb963

继续问1楼的问题，我需要显示的任务是已经完成的，而且必须是结束环节前的那个功能的显示的名字，我实在是找不到要用那个字段判断了。
2.我在工作台上点击以后不想进入系统原有的‘我的任务’中，请问在那改链接？

lixy

问题1、不知道你是不是要找这个？

lixy

问题2
我不知道你怎么做的，你可以看看系统带的工作台如何工作的。这个是点击的执行的动作。
业务模型\协同系统\任务\任务中心信息\任务导航(基类)
procedure TTaskNav.GridClick(Sender: TObject);
procedure TTaskNav.actViewDetailExecute(Sender: TObject);