【结贴】[请求] 关于UserStartFlow**

rzport_jqf

问题: 流程启动发送后, 在接收环节看不到关联业务数据!

代码如下,

procedure TFW.UserStartFlow(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription :String);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
begin
  lBizURL := TBizURL.Create;
  lFlowValue := TFlowValue.Create;
  lFlowControl := TFlowControl.Create(Self.Context);
  lExecutor := TOrgURL.Create(ADept, ARole, APerson);
  lBizURL.URL := AFlowUrl;
  try
    lFlowValue.IDs.Add(AFlowID);//流程ID    　　
    lFlowValue.Subject := ASubject; //流程主题
    lFlowValue.Description := ADescription;//流程描述
    //启动流程实例
    lFlowControl.StartupFlow(lBizURL, AStartProc, lExecutor, lFlowValue);
    //流程实例数据保存到数据库
    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
  finally
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;
  end;
end;

procedure TFW.Button1Click(Sender: TObject);
var
   i,j: integer;
   lTasks: TList;
   allSends: String;
   arrStr1 : TStrings;
   tmpStr1 : String;
   strChr1 : String;
   AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:string ;
begin
            AFlowUrl := 'Biz:\YWKJ_FY\FWLC.Proc';
           ADept := 'MSK';  //任务接收者的信息
           ARole := 'MS';
           APerson := 'TZ';
           AStartProc := 'SW'; //收文
           AFlowID := FlowBroker1.FlowControl.Flow.ID;
           ASubject := 'fw test';
           ADescription := 'none';
           UserStartFlow(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription);
end;

lixy

我这个是往 ADept := 'ASUPPORT';   //部门
    ARole := 'ENGINEER';   //岗位
    APerson := 'RY1';  //人员  发任务。  楼主适当的修改下代码。分配功能
表就是用的系统库的人员表。

lixy

2

lixy

3

rzport_jqf

谢谢! 我试试!

rzport_jqf

现在好了. 非常感谢!

lixy

1楼的代码有什么问题。分享下解决方法。

rzport_jqf

代码没有问题.

是业务数据的问题.

lixy

呵呵