procedure TMainForm.FlowBrokerBeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
lno:string;
begin
lno:=DataSetBrokerMeetingSummary.DataSet.FieldByName('no').AsString;
jsDialogs.ShowMsg(lno,'');
if lno='' then
begin
jsDialogs.ShowMsg('编号为空,不能启动流程','启动流程提示');
Command.Accept:=False;
end;
end;