【搞定】怎样在流转发生时进行数据更新**

kitchan

流程中没有对应的事件,在AfterFlowOut中执行太迟了,因为此时如果更新业务数据出错,任务消息状态已经不可回滚了;但若在createflowoutflowtasks中更新业务数据,在用户流转窗体时可选择取消流转,这样当再次真正流转时会重复更新数据,有没有好的办法实现这个功能?

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=14768

kitchan

这个我早看过了 一直没有解决 所以才开新贴
版本2435,下面是测试代码,当提交数据出错时,流程还是走到了下一个环节,不知问题出在哪儿?

procedure TMainForm.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  dstKC:TDataSet;
  WLBM:String;
  lTransHandle: TTransactionHandle;
begin
  dstKC:=dstBrokerKC.DataSet;
  with dstBrokerMain.DataSet.Connection do
  begin
    lTransHandle :=Transaction.Start(False);
    with dstBrokeSlave.DataSet do
    try
      First;
      DisableControls;
      if not dstKC.Active then dstKC.Active:=True;
      while not Eof do     //库存处理
      begin
        WLBM:=FieldByName('WLBM').AsString;
        if dstKC.Locate('WLBM',[WLBM],[]) then
        begin
          dstKC.Edit;
          dstKC.FieldByName('SL').AsFloat:=dstKC.FieldByName('SL').AsFloat+FieldByName('SL').AsFloat;
        end else
        begin
          dstKC.Append;
          dstKC.FieldByName('WLBM').AsString:=WLBM;
          dstKC.FieldByName('SL').AsFloat:=FieldByName('SL').AsFloat;
        end;
        Next;
      end;
      EnableControls;
      dstKC.ApplyUpdates;
      with dstBrokerMain.DataSet do  //更新入库单状态
      begin
        Edit;
        FieldByName('RKZT').AsInteger:=1;
        ApplyUpdates;
      end;
      Transaction.Commit(lTransHandle);
    except
      Transaction.Rollback(lTransHandle);
      Raise;
    end;
  end;
end;

procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  FlowBroker1.FlowControl.FlowManager.Transaction:=dstBrokerMain.DataSet.Connection.Transaction;
end;

atiger

4楼说了，在26XX才可以。

kitchan

不是说用这个这句代码就可以将处理置于同一事务吗?FlowBroker1.FlowControl.FlowManager.Transaction:=dstBrokerMain.DataSet.Connection.Transaction;
我想知道的是2435版本要怎么做?

alang

FlowBroker1.FlowControl.FlowManager.Transaction:=dstBrokerMain.DataSet.Connection.Transaction;


有了上面的语句，在AfterFlowOut可以不用作事务的控制了

kitchan

不作控制就会出现业务数据和流程数据都不回滚,即流程已流向下一个环节,业务数据已经部分更新

alang

6楼已经让业务数据和流程数据放到了一个事务中
而流程的任何动作都会启动事务，也就可以保证业务数据和流程数据在一个事务中提交

Akon

由于楼主长时间未跟贴,此帖先结,有问题请开新帖.