【结贴】车辆管理中发通知失败**

zhjkill · 发表于 2008-2-25 09:47:14

procedure TMAINFORM.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  lContext: string;
begin

  try
dsbMaster.DataSet.Edit;
dsbMaster.DataSet.FieldByName('FState').asString := '03';
dsbMaster.DataSet.ApplyUpdates;

//给申请人发送通知
lContext := '您的车辆申请：'+ sysutils.DateTimeToStr(dsbMaster.DataSet.FieldByName('FIntendStartDate').AsDatetime) + '的' +dsbMaster.DataSet.FieldByName('FTopic').AsString+'已通过';
TLRMessageServer.Server.Call(context,dsbMaster.DataSet.FieldByName('FApplyPerson').AsString,'通知',lContext);
  finally
dsbMaster.DataSet.CancelUpdates;
  end;
end;

zhjkill · 发表于 2008-2-25 14:29:58

即时工具里的待办的普通任务都没问题的
不知道是不是通知任务的问题

yancm · 发表于 2008-2-25 15:06:04

这段代码是发通知消息的。不是发通知任务。

zhjkill · 发表于 2008-2-25 15:08:14

应该发给申请人的，消息发到message中吗？
为什么原因造成不成功？

shangxy · 发表于 2008-2-25 16:48:56

是的，就是以消息的方式在messenger中显示出来？楼主使用的是哪个版本
有TLRMessageServer.Server.CallEx这个方法么？

zhjkill · 发表于 2008-2-26 08:09:37

2936的
车辆调度里的没改过
有TLRMessageServer.Server.CallEx这个方法是什么怎么用

shangxy · 发表于 2008-2-26 09:18:51

你们有新闻公告么？那里能发通知消息么？

zhjkill · 发表于 2008-2-26 09:24:15

有新闻公告的
发通知消息测试了下如下图

zhjkill · 发表于 2008-2-26 09:25:21

新闻公告有消息，即时工具刷新没消息，这样是即时工具的问题？

shangxy · 发表于 2008-2-26 10:10:49

我的意思是说：使用新闻公告的时候有没有提示你是否给相关人员发送通知消息，相关人员的messenger是否收到通知呢？（是messenger的通知，不是messenger里面探测到的任务）

		自动登录	找回密码
密码			立即注册