|
发表于 2008-11-8 15:19:08
|
显示全部楼层
好的 就这点代码:
lTask := TTask.Create;
lOrgURl := TOrgURL.Create(backDpt,'',backPsn);
lTask.Subject:='商务初审:销单申请被退回。'
lTask.Kind:='ftkNotify';
lTask.TaskType :='PINGEO';//
lTask.TaskTypeName:='业务通知';
// lTask.SenderDeptID := '010';
// lTask.SenderPositionID := 'GLY';
// lTask.SenderID := 'admin';
lTask.Flag := '001';
lTask.FuncURL := 'Biz:\NTREND\salesOrderFunc.Func';
lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0, False); //添加到任务列表
Flow.FlowEngine.SaveTask(lTask); //保存任务
lTask .Free;
希望周一能给个答复。我走了。
谢。 |
|