try
begin
lTask := TTask.Create;
{任务接受者}
//lOrgURl := TOrgURL.Create(ADept, APosition, APerson);
{任务业务关联数据定义}
lTaskBizData := TTaskBizData.Create;
lTaskBizDataRec := TTaskBizDataRec.Create;
//业务数据的关键字段,用于检索业务数据
lTaskBizDatarec.BizField := 'Biz:\PI_PLATFORM\X3_PROJECTDATA.DATABASE\TCONTRACT_AGREEMENT.TABLE\FGUID.Field';
//业务数据的关键字段值
lTaskBizDataRec.Value := q8.FieldByName('GUID').AsString;
lTaskBizData.BizDataKeys.Add(lTaskBizDataRec);
{任务信息的定义}
//通过部门、岗位、人员创建组织单元
//lOrgURl := TOrgURL.Create('JSJZX','KFCS','TM');
lTask.Subject := '通知：'+q8.FieldByName('YQSX').AsString;
lTask.Kind:= ''; //无流程任务为空
lTask.TaskType := 'INFZXYQ';//自定义任务关联的任务ID
lTask.TaskTypeName := '通知：'+q8.FieldByName('YQSX').AsString;//自定义任务关联的任务名称
//处理任务的功能
lTask.FuncURL := 'Biz:\PI_PLATFORM\HYJYYQTZ.Func';
//lOrgURl := TOrgURL.Create(ADept, APosition, APerson);
lTask.SenderDeptID := q8.FieldByName('TXBMID').AsString;
lTask.SenderPositionID := q8.FieldByName('TXGWID').AsString;
lTask.SenderID := q8.FieldByName('TXRID').AsString;
//设置业务数据与任务关联关系,保存任务业务关联信息到'系统空间\系统数据库\任务业务数据表’
lTask.BizDatas.Add(lTaskBizData);
lOrgURl := TOrgURL.Create(q5.FieldByName('FDEPT').AsString, q5.FieldByName('FPOSITION').AsString, q5.FieldByName('FPERSON').AsString);
lTask.TaskMessages.AddTaskMessage(nil, lOrgURl,
TTaskmessagestate.tmsSend, 0, False);
//添加到任务消息列表里
Flow.FlowEngine.SaveTask(lTask);//保存任务
end
finally
lTask .Free;
end;
代码没问题的，表是从表信息，重新建通知业务信息及功能，但是通知信息显示无法关联。求远程帮助下 |
发表于 2010-12-9 14:32:59
楼主