procedure TMAINFORM.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
a: integer;
begin
if FuncBroker1.Func.ID = 'ZXBMYDJH_FUNC' then //中心部门月度计划
begin
DB1_JHLC.DataSet.First;
for a := 1 to DB1_JHLC.DataSet.RecordCount do
begin
try
DB1_JHLC.DataSet.Edit;
DB1_JHLC.DataSet.FieldByName('TRZX_LCZD').AsString := Guid; //流程字段
DB1_JHLC.DataSet.FieldByName('TRZX_LZZT').AsInteger := 1; //流转状态改为1
DB1_JHLC.DataSet.Post;
except
DB1_JHLC.DataSet.Cancel;
Exit;
end;
DB1_JHLC.DataSet.Next;
end;
DB1_JHLC.DataSet.ApplyUpdates;
end;
end;