[请求]代码启动流程问题

Haumwell

在一个单独的功能上，代码启动另外一个流程，所以要将流程的业务数据和流程放在一个事物里。出现了，下面的错误

zfang

TTask表 主键重复了。

Haumwell

可是不知怎么会重复呢，

Haumwell

代码启动流程时，我是将业务数据主表的FGuid赋给流程FlowValue
没有操作任务表
任务表应该系统自动维护的吧，
   //启动流程实例
      //lFlowControl.StartupFlow(lBizURL, 'APPLY', lExecutor, lFlowValue);

zfang

把你完整代码贴一下看看吧。

Haumwell

//针对外售清单，启动物资领用流程
procedure TMRBD.BitBtn3Click(Sender: TObject);
var
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
  lGuid,lMatCode: String;
  lNO,i: Integer;
  lQuantity, lValue: Double;
  lMatList,lGuidList: TStrings;
  lHandle: TTransactionHandle;
  lTransaction: TTransaction;
  lDataSet: TDataSet;
  lConnection: TConnection;
  lSqlStr,lSql:String;
begin

  lNO:=1;lQuantity:=0;lMatCode:='';
  lMatList := TStringList.Create;
  lGuidList := TStringList.Create;
  lFlowValue := TFlowValue.Create;
  lExecutor := TOrgURL.Create('XXB', 'ITGCS', 'LIUHY');
  lConnection:= dsSale.DataSet.Connection;
  with dsApplyMain.DataSet,dsApplyDetail do
  try

      if not Active then Open;
      //添加主流程数据
   Append ;
      lGuid:=FieldByName ('FGuid').AsString ;
      FieldByName ('FOutStore').AsString :='JD';
      FieldByName ('FMaterialRequisitionDept').AsString :=lExecutor.DeptID;
      FieldByName ('FMaterialRequisitioner').AsString :=lExecutor.PersonID;
      FieldByName ('FProcKind').AsString:='1';
      TCommonLib.GetStockBillNo(dsApplyMain.DataSet, FieldByName('FOutStore').AsString,  FieldByName('FBizKind').AsString, 'FStockBillNo');
      dsSale.DataSet.Filter:='FisSale=''T''';
      lSql:=  dsSale.DataSet.Filter;
      dsSale.DataSet.Filtered :=true;
      dsSale.DataSet.Open ;
      lNO:= dsSale.DataSet.RecordCount;
      if dsSale.DataSet.RecordCount <=0 then
      begin
        jsdialogs.ShowMsg ('你没有选择要外售的物资，不会启动物资领用任务！','');
        dsSale.DataSet.Filtered :=false;
        TSQLDataSet(dsSale.DataSet).SQLFilter:='FisBuy=''F''';
        TSQLDataSet(dsSale.DataSet).SQLFiltered :=true;
        dsSale.DataSet .Refresh ;
        exit;
      end;
      //添加明细数据
      DataSet.DisableControls ;
      dsSale.DataSet .DisableControls ;
      dsSale.DataSet .First ;
      if not DataSet.Active then DataSet.Open;
      while not dsSale.DataSet .Eof do
      begin
        DataSet.Append;
        DataSet.FieldByName('FMainID').AsString:=lGuid;
        lMatCode:= dsSale.DataSet.FieldByName ('FMatCode').AsString ;
        lQuantity:= dsSale.DataSet.FieldByName ('FRequestQuantity').AsFloat;
        lValue:= Sysutils.StrToFloatDef(lMatList.Values[lMatCode],0);
        lMatList.Values [lMatCode]:=Sysutils.FloatToStr(lQuantity+lValue);
        DataSet.FieldByName('FMatCode').AsString:=lMatCode;
        DataSet.FieldByName('FWeight').AsFloat:=dsSale.DataSet.FieldByName ('FSingleWeight').AsFloat ;
        DataSet.FieldByName('FApplyQuantity').AsFloat:=lQuantity;
        DataSet.Post ;
        lGuidList.Add(dsSale.DataSet.FieldByName ('FGuid').AsString);
        dsSale.DataSet.Next ;
        lNO:=lNO+1;
    end;
    lHandle:= lTransaction.Start(False);
    try

      lSqlStr:=StrUtils.AnsiReplaceText(sysutils.Trim(lGuidList.Text), #13#10, ''',''');
      lFlowValue.IDs.Add(lGuid);            //流程ID
      lFlowValue.Subject := '['+FieldByName('FStockBillNo').AsString+']'
                +FieldByName('FMaterialRequisitionDept').DisplayText +'-'+ FieldByName('FMaterialRequisitioner').DisplayText ;      //流程主题

      //启动流程实例
      //lFlowControl.StartupFlow(lBizURL, 'APPLY', lExecutor, lFlowValue);

      //流程实例数据保存到数据库
      //lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
      TCommonFunc.UserStartFlow(Context, lTransaction, lFlowValue, lExecutor, 'Biz:\SCMSPACE\ClaimMaterialFlow.Proc', 'APPLY');

      ApplyUpdates(True);
      jsdialogs.ShowMsg ('已经在你的工作台上启动了一个物资领用流程','');
      dsSale.DataSet.Filtered :=false;
      lConnection.ExecuteSQL('update MATREQUIRMENT set FisSale=''T'' where FGuid in ('+sysutils.QuotedStr(lSqlStr)+')');
      lTransaction.Commit(lHandle);
    except
      lTransaction.Rollback(lHandle);
    end;
  finally
    lFlowValue.Free;
    lMatList.Free ;
    dsSale.DataSet.EnableControls ;
    DataSet.EnableControls;
  end;
end;

Haumwell

lTransaction:= DataSet.Connection.Transaction;
      lConnection.Transaction:= lTransaction;
这两句是放在下面的位置，刚才复制时丢掉了
  try
      lTransaction:= DataSet.Connection.Transaction;
      lConnection.Transaction:= lTransaction;
      if not Active then Open;
      //添加主流程数据

Haumwell

zfang同志，麻烦你看一下，大概意思是，
  当选择一个清单列表里的若干个物资后，单击一下按钮，
就在按钮事件里，实现启动某个流程，并且将选择的数据，添加到将要启动的流程里作为业务数据，然后再更新这个清单列表所选物资选择标志置为真，
  考虑到，启动流程可能失败，提交业务数据可能失败，更新列表可能失败，所以，想把三者的提交做到一个事务里去，
  我贴出的代码，是将三者的事务都和业务数据的事务统一。

zfang

事务的话，可以尝试一下 FlowControl.FlowManager.Transaction这个流程锁使用的事务跟你的业务数据的事务相同就行。

zfang

1楼的问题跟你6楼代码，看不出来是哪里出问题。你调试看看具体任务数据怎么产生的。