procedure TMainForm.FlowBrokerCreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
lStr:String;
begin
with FlowBroker.FlowControl,dsMain.DataSet do
begin
lStr:=FieldByName('JZMC').AsString;
CurrentTask.Subject := lStr + ':' + CurrentProcUnit.DisplayName;
CurrentTask.SaveToDB;
Flow.Subject:=lStr;
Flow.SaveToDB;
end;
end;