如何在功能中调用工作提醒**

liubin · 发表于 2008-11-18 12:13:31

procedure TFRM_WorkRemind.BizFormShow(Sender: TObject);
var
  lContextCurrent: TContextCurrent;
begin
  TSQLDataSet(dsbWorkRemind.DataSet).Open;
  TSQLDataSet(dsbWorkRemind.DataSet).Append;
  TSQLDataSet(dsbWorkRemind.DataSet).FieldByName('FPartyID').AsString := lsGUID;
  TSQLDataSet(dsbWorkRemind.DataSet).FieldByName('FPARTYNAME').AsString := lsName;
  TSQLDataSet(dsbWorkRemind.DataSet).FieldByName('FBizType').AsString := 'WORKREMIND';//类型************
  TSQLDataSet(dsbWorkRemind.DataSet).FieldByName('FDealDate').AsDateTime := Business.Data.SysSrv.SysService.Time;
  TSQLDataSet(dsbWorkRemind.DataSet).FieldByName('FAssignTime').AsDateTime := Business.Data.SysSrv.SysService.Time;
  TSQLDataSet(dsbWorkRemind.DataSet).FieldByName('FBeginDate').AsDateTime := Business.Data.SysSrv.SysService.Time;
  lContextCurrent := TContextCurrent.Create(Context);
  try
dsbWorkRemind.DataSet.FieldByName('FDealDept').AsString := lContextCurrent.Dept.ID;
dsbWorkRemind.DataSet.FieldByName('FDealPtm').AsString := lContextCurrent.PositionMember.ID;
dsbWorkRemind.DataSet.FieldByName('FDealMan').AsString := lContextCurrent.Operator.ID;
  finally
lContextCurrent.Free;
  end;
end;
自己建的窗体已经添加了类型，运行出错

shangxy · 发表于 2008-11-18 13:31:28

检查一下你的任务类型 'WORKREMIND' 在任务关联管理中定义了吗？

liubin · 发表于 2008-11-18 13:55:24

定义了

liubin · 发表于 2008-11-18 14:02:58

11楼的错误，是在运行 dsbWorkRemind.DataSet.ApplyUpdates; 时激发的

shangxy · 发表于 2008-11-18 14:12:15

http://bbs.justep.com/forum.php? ... iztaskdata.Fbiztype
在你那里看看一楼的图是怎么定义的，把你的图片贴上来看看

liubin · 发表于 2008-11-18 14:31:08

楼上的帖子1楼图片是哪来的，没找到啊

shangxy · 发表于 2008-11-18 15:01:59

13楼中业务规则与动作同步定义中

liubin · 发表于 2008-11-18 15:06:42

哦

shangxy · 发表于 2008-11-18 15:12:05

上图中左边有2个工作提醒，看下面的那个
你把触发条件中的表达式条件，改成业务数据表中的具体字段看看，不要用biztaskdata.fbiztype的形式。

liubin · 发表于 2008-11-18 15:48:57

不行，还是出11楼的错误

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