【结】无流程任务找不到组织机构节点**

huangyue

按照平台给的资源代码写了个无流程任务.报错,是不是那里写错了?(RT)

atiger

呵呵，你跟一下代码，应该是代码用到了组织机构（从提示信息就能看到了），把里面的组织单元换成你现有的组织机构单元就可以了），

huangyue

最初由 atiger 发布
[B]呵呵，你跟一下代码，应该是代码用到了组织机构（从提示信息就能看到了），把里面的组织单元换成你现有的组织机构单元就可以了）， [/B]

代码停留在这里   {保存任务}
  Flow.FlowEngine.SaveTask(lTask);

把里面的组织单元换成你现有的组织机构单元？

这个不怎么理解？是换代码里面的还是实际存在在机构？（或者怎么换？）

atiger

lTask 这个值是怎么赋？
前面应该还有代码吧

huangyue

最初由 atiger 发布
[B]lTask 这个值是怎么赋？
前面应该还有代码吧 [/B]

代码如下：

VAR
  lOrgURL : TOrgURL;
  lTask : TTask;
  lTaskBizData : TTaskBizData;
  lTaskBizDataRec : TTaskBizDataRec;
begin
  lTask := TTask.Create;

  {任务接受者}
  lOrgURl := TOrgURL.Create(ADept, APosition, APerson);

  {任务业务关联数据定义}
  lTaskBizData := TTaskBizData.Create;
  lTaskBizDataRec := TTaskBizDataRec.Create;
try
  lTaskBizDatarec.BizField := ABizField;      
  lTaskBizDataRec.Value := ABizFieldValue;     
  lTaskBizData.BizDataKeys.Add(lTaskBizDataRec);
  //lTaskBizData.BizDatas.Add(lTaskBizDataRec);

  {任务信息的定义}
  lTask.Subject := ASubject;
  lTask.Kind:= '';                             
  lTask.TaskType := ATaskTypeID;              
  lTask.TaskTypeName := ATaskTypeName;
  lTask.FuncURL := AFuncURL;                  
  lTask.SenderDeptID := ADept;
  lTask.SenderPositionID := APosition;
  lTask.SenderID := APerson;
  lTask.BizDatas.Add(lTaskBizData);            
  lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0, False);

lixy

(ADept, APosition, APerson);  赋值错误了吧
看一楼的错误。  部门 空  岗位  李四  人员  空

huangyue

最初由 lixy 发布
[B](ADept, APosition, APerson);  错误了吧
看一楼的错误。  部门 空  岗位  李四  人员  空 [/B]

我是这样赋值的。。就是取不出相关的人员信息？？


AFuncURL := 'Biz:\OABGZDHXT\XZLY.Func';
    ATaskTypeName := '留言信息';
    ATaskTypeID := 'MYCUSTOMFUNCDEAL';
   ASubject := DataSetBroker1.DataSet.FieldByName('ZT').Text;
    ABizField := 'Biz:\OABGZDHXT\BGZDHSJK.DATABASE\LYXXB.Table\BH.Field';
    ABizFieldValue := DataSetBroker1.DataSet.FieldByName('BH').AsString;
    ADept := DataSetBroker1.DataSet.FieldByName('BM').AsString;;    //接收部门
    APosition := DataSetBroker1.DataSet.FieldByName('GW').AsString;;  //接收岗位
    APerson := DataSetBroker1.DataSet.FieldByName('LYZ').AsString;;     //接收人

    lTask.UserStartTask(AFuncURL,ATaskTypeName,ATaskTypeID,ASubject,ABizField,ABizFieldValue,ADept,APosition,APerson,ASendDept,ASendPosition,ASendPerson);

lixy

ADept := DataSetBroker1.DataSet.FieldByName('BM').AsString;;    //接收部门
    APosition := DataSetBroker1.DataSet.FieldByName('GW').AsString;;  //接收岗位
    APerson := DataSetBroker1.DataSet.FieldByName('LYZ').AsString;;     //接收人
值是不是和1楼的一样呢？

huangyue

最初由 lixy 发布
[B]ADept := DataSetBroker1.DataSet.FieldByName('BM').AsString;;    //接收部门
    APosition := DataSetBroker1.DataSet.FieldByName('GW').AsString;;  //接收岗位
  ..

以下省略...... [/B]

是的。也是一样的。不知道那里错了？？

lixy

数据库值存的不对