|
代码发通知时,通知窗体所关联的数据没有显示,不知道怎么回事?通知窗体上放了几个dataedit。dataedit中的没有显示数据。
//代码发通知
lTask := TTask.Create;
lTaskBizData:=TTaskBizData.Create;
lTaskBizDataRec:=TTaskBizDataRec.Create;
try
lTaskBizDatarec.BizField:='Biz:\SYSTEM\SYSTEM.DATABASE\TTASK.TABLE\FGUID.Field';
lTaskBizDataRec.Value:=lTaskBizDataRec_Value;
lTaskBizData.BizDataKeys.Add(lTaskBizDataRec);
lOrgURl := TOrgURL.Create('','',tjr);
lTask.Subject:='任务超时退回通知' ;
lTask.Kind:='ftkNotify'; //任务类型为通知
lTask.TaskType:='INFORMATION1';
lTask.TaskTypeName:='超时未处理通知';
//下面这句话是把那个功能以通知的方式发出去
lTask.FuncURL:='Biz:\FWT\FUNC\RWCSQXTZGN.Func';
lTask.BizDatas.Add(lTaskBizData);
lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0, False);
//添加到任务消息列表里
Flow.FlowEngine.SaveTask(lTask); //保存任务
finally
lTask .Free;
end;
感觉这段代码用了好几次了,没什么问题。 |
|