【搞定】流程轨迹的问题**

liubin

我们要实现个收文办结，就是把在办的任务设置为已办，做了个测试在收文登记流转后 状态设置为在办，然后直接办结 ，所经历的功能只有收文登记，但流程轨迹显示经过所有功能，这是为什么？

liubin

{ 办结 }
procedure TFRM_INFILEVIEW.tbnArchiveClick(Sender: TObject);
begin
  if dsbInFile.DataSet.IsEmpty then
  begin
    ShowWarning('对不起，没有数据记录', '注意');
    exit;
  end;
  if ConfirmBox('确实要办结本条记录吗？', '', 1) then
  begin
    LIB_GC.TLIB_GC.FinishFlowInTransaction(dsbInFile.DataSet, '2');
    dsbInFile.DataSet.Refresh;
  end;
end;
调用资源集
cSystemDataBase = 'DATABASEURL=Biz:\SYSTEM\System.DataBase';
static procedure TLIB_GC.FinishFlow(const AFlowID: string; AQuery: TQuery);
begin
  AQuery.ConnectionString := cSystemDataBase;

  AQuery.CommandText := 'UPDATE TFLOW SET FSTATE = ''fsFinished''' +
    'WHERE FGUID = (SELECT FFLOWGUID FROM TFLOWID WHERE FID=''' + AFlowID + ''')';
  AQuery.Execute;

  AQuery.Close;
  AQuery.CommandText := 'UPDATE TTASK SET FSTATE = ''tsFinished''' +
    'WHERE FFLOWGUID = (SELECT FFLOWGUID FROM TFLOWID WHERE FID=''' + AFlowID + ''')';
  AQuery.Execute;

  AQuery.Close;
  AQuery.CommandText := 'UPDATE TTASKMESSAGE SET FSTATE = ''tmsFinished''' +
    'WHERE FTASKGUID IN (SELECT FGUID FROM TTASK WHERE FFLOWGUID = ' +
    '(SELECT FFLOWGUID FROM TFLOWID WHERE FID = ''' + AFlowID + '''))';
  AQuery.Execute;
end;

static procedure TLIB_GC.FinishFlowInTransaction(Ads: TDataSet; const AFlag: string);
var
  lTransactionHandle: TTransactionHandle;
  lQuery: TQuery;
begin
  lQuery := TQuery.Create(nil);
  try
    lQuery.Connection := Ads.Connection;
    lQuery.Connection.Transaction := Ads.Connection.Transaction;

    with Ads.Connection.Transaction do
    begin
      lTransactionHandle := Start(False);
      try
        // 处理
        Ads.Edit;
        Ads.FieldByName('F_STATUS').AsString := AFlag;
        Ads.ApplyUpdates(True);

        lQuery.ConnectionString := cConnectionStr;
        FinishFlow(Ads.FieldByName('F_FLOWID').AsString, lQuery);

        Commit(lTransactionHandle);
      except
        Rollback(lTransactionHandle);
      end;
    end;
  finally
    lQuery.Free;
  end;
end;

liubin

在线等。。。。

liubin

顶下

国超软件

斑竹给个是否看到了这个帖子的信息好吗

atiger

楼主，这个问题有点复杂，从表现看，应该是个缺陷，

请到“任务表”中找一下，这个实例的任务是几个，

liubin

通过数据库查询当前的流程实例就有两个任务，按照二楼的步骤能否重现这个问题呢

国超软件

atiger，先说能重现这个问题吗^_^

国超软件

atiger

atiger

已经作为缺陷提交了