【结】创建待办任务

danceyoung

你好
用下面代码；
                       lTask := TTask.Create;
                       lOrgURl := TOrgURL.Create(Dpt,'',Psn);

                       lTask.Subject:='PPPPP';//这个是显示的桌面上的东西,可以根据实际的
                       lTask.Kind:='ftkNotify';                //这个玩意是系统用的,要在系统自带的任务详细中查看,则需要定义此任务类别，无流程时为空
                       lTask.TaskType :='XXXXXX';    //在点击面板上的通知时,可以得用此项判别
                       lTask.TaskTypeName:='业务通知'; //会出现在任务网格中的任务中
                       lTask.Description:=bizdocguid; //c存储业务单据的guid,在运行功能是用。
                       lTask.FuncURL := 'Biz:\CPSAPP\OA\oacorpreceivedocfunc.Func';

                       lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend,  0, False);   //添加到任务列表
                       Flow.FlowEngine.SaveTask(lTask);      //保存任务
                       lTask .Free;
----------------version2617
创建待办任务，我把业务单据的guid存储到了任务表FDescription字段中，当我打开代办任务时，在任务网格导航基类的procedure TGRIDNAV.actViewDetailExecute(Sender: TObject);方法中我用 bizDocGuid := TaskDataSet.FieldByName('FDESCRIPTION').AsString; //收文的guid，报错这个字段not found.
那我应该存到哪个字段？

danceyoung

顶一个^_^

shangxy

看看你用到的这个数据集在任务中心信息中使用代码对sql语句重构了，你把需要的字段添加进来看看。

danceyoung

ok,搞定，在此方法：
procedure TGRIDNAV.DoGetTaskFields(var ATaskFields: string);
，你这样一说，我就敢改了，要不又不知道会出现什么问题呢。^_^
谢谢 Shang工。