【结贴】3102版本**

liubin

是

liubin

在平台的右下角弹出对话框提示，有这功能吗？

shangxy

3102版本有个缺陷
业务模型\系统空间\系统运行库\系统函数库
static function TSystemUtils.ReadUserInfo(const AScope, AID: string; var AValue: string; AStream: TStream): Boolean;
var
  lQuery: TQuery;
begin
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := cSysDatabaseConnectionString;
    if Assigned(AStream) then
      lQuery.CommandText := SysUtils.Format(cSQL_GetResInfo_2_ex, [BizSys.BizSystem.ClientAccount])
    else
      lQuery.CommandText := SysUtils.Format(cSQL_GetResInfo_1_ex, [BizSys.BizSystem.ClientAccount]);
    with lQuery.Params do
    begin
      ParamByName('SCOPE').AsString := cUserScope + AScope;
      ParamByName('ID').AsString := AID;
    end;
    lQuery.Open;
    if lQuery.IsEmpty then
      Result := False
    else
    begin
      AValue := lQuery.FieldByName('FINFOVALUE').AsString;
      if Assigned(AStream) then
        with TBlobField(lQuery.FieldByName('FINFOVALUEEXT')) do
          if not IsNull then SaveToStream(AStream);
      Result := True;
    end;
  finally
    lQuery.Free;
  end;
end;

liubin

楼上这段代码，您想说明什么？

shangxy

13楼是说这段代码有缺陷，你找到对应这段代码照着修改一下，解决过期任务不能提示的问题。

liubin

业务模型\系统空间\系统运行库\系统函数库  下没有找到
static function TSystemUtils.ReadUserInfo(const AScope, AID: string; var AValue: string; AStream: TStream): Boolean;
这个方法

shangxy

应该有的啊，你在找找。

liubin

找了没有，这个是我系统函数库下的代码

liubin

我说的弹出的提示框就是这个，这个怎么激活的？

shangxy

1.照着附件中的文档修改一下，修改完成以后编译一下
2，楼上的提示应该是messenger.exe提示的，如下设置


用于msg中弹出过期任务提醒：取值范围：None,Pop（弹出提醒窗口）,TipAndPop（托盘中弹出一个小人提醒）

1)        在服务器的配置文件config.justep.xml的<messenger>结点下设置<TaskRemindMode>TipAndPop</TaskRemindMode>  
2)        程序判断时，先取服务器端配置文件的设置，如果服务器没有设置，再判断客户端user.xml中是否有这个<TaskRemindMode>参数，有的话按user.xml的设置；
3)        user.xml中也没有，系统默认为<TaskRemindMode>TipAndPop</TaskRemindMode>
4)        如果在user.xml文件中设置这个参数的话，先退掉msg(退出时,msg会保存user.xml)找到登录用户,设置AttachCall
<profile name="qian@test">
<AttachCall><TaskRemindMode>op</TaskRemindMode></AttachCall>
</profile>
5)        设置提醒参数,在协同平台-->选项-->任务页签中还要勾选上设置"自动提醒过期任务"

设置这个参数后,Messenger必须重启或者,在msg任务提醒窗口中强制刷新(shift+刷新),然后关闭任务提醒窗口,这时系统才开始计时, msg按照设定的间隔时间,设置的弹出参数.定时弹出过期任务提醒.