TFlowOutCommand);
begin
if FuncBroker1.Func.ID = 'ZXBMYDJH_FUNC' then //中心
部门月度计划
begin
if DB1_JHLC.DataSet.FieldByName('TRZX_LCZD').AsString = '' then
begin
Command.FlowControl.Flow.IDs.Clear;
Command.FlowControl.Flow.IDs.Add(Guid);
end;
end;
end;
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;
if DB1_JHLC.DataSet.FieldByName('TRZX_LCZD').AsString = '' then
DB1_JHLC.DataSet.FieldByName('TRZX_LCZD').AsString := Guid; //流