procedure TVOUCHER_ENTER.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
lDataSet,lDataSet2: TDataSet;
begin
//更新费用状态
lDataSet2 := DataSetBroker2.DataSet;
if not lDataSet2.Active then
lDataSet2.Open;
lDataSet2.First;
while not lDataSet2.Eof do
begin
with lDataSet2 do
begin
lDataSet2.Edit;
lDataSet2.FieldByName('BalCheckFlg').AsString := '20';
lDataSet2.ApplyUpdates;
next;
end;
end;
//
lDataSet := DataSetBroker1.DataSet;
if not lDataSet.Active then
lDataSet.Open;
lDataSet.Edit;
lDataSet.FieldByName('VouAuditState').AsString := '20';
lDataSet.ApplyUpdates;