起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 198|回复: 9

【结贴】代码发通知**

[复制链接]
发表于 2008-6-6 16:07:05 | 显示全部楼层 |阅读模式
procedure TMAINFORM.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  lContext: string;
begin

try
     DataSetBroker1.DataSet.Edit;
     DataSetBroker1.DataSet.FieldByName('DJZT').asString := '03';
     DataSetBroker1.DataSet.ApplyUpdates;

     //给申请人发送通知
     lContext := '您的消耗品申请已通过!';
     TLRMessageServer.Server.Call(context,DataSetBroker1.DataSet.FieldByName('LYR').AsString,'通知',lContext);
  finally
     DataSetBroker1.DataSet.CancelUpdates;
  end;
end;
代码写的和车辆调度发通知一样,但是编译和执行没错误,运行完成没有发送通知
回复

使用道具 举报

发表于 2008-6-6 16:14:48 | 显示全部楼层
代码写的和车辆调度发通知一样,但是编译和执行没错误,运行完成没有发送通知

车辆调度发通知   的代码贴一下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-6-6 16:21:49 | 显示全部楼层
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;
回复 支持 反对

使用道具 举报

发表于 2008-6-6 16:24:00 | 显示全部楼层
DataSetBroker1.DataSet.FieldByName('LYR').AsString  字段值和
dsbMaster.DataSet.FieldByName('FApplyPerson').AsString  一样吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-6-6 16:26:05 | 显示全部楼层
都是字符 长度是64  表现形式字符串
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-6-6 16:27:26 | 显示全部楼层
一个领用人 一个是申请人 登录系统时自动赋给登录者的姓名
回复 支持 反对

使用道具 举报

发表于 2008-6-6 16:31:15 | 显示全部楼层
最初由 lixy 发布
[B]DataSetBroker1.DataSet.FieldByName('LYR').AsString  字段值和
dsbMaster.DataSet.FieldByName('FApplyPerson').AsString  一样吗? [/B]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-6-6 16:34:20 | 显示全部楼层
同组织机构里的人员 这个肯定一样的
回复 支持 反对

使用道具 举报

发表于 2008-6-6 16:43:52 | 显示全部楼层
题外话:
finally------您这个是不是准备写except?
     DataSetBroker1.DataSet.CancelUpdates;
  end;
没看懂没啥每次都要强制取消更新
------------------------------------------------------------------
楼主请确认值。加点对话框看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-6-6 16:47:10 | 显示全部楼层
谢谢大家了
自动填充的问题
应该是OperatorID()
错误的是OperatorName()
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-17 01:15 , Processed in 0.049365 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表