procedure TSQB.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
Id:string;
begin
Id := FlowBroker1.FlowControl.CurrentProcUnit.ID;
if (Id = 'SQBFUNC') then
begin
if DataSetBroker1.DataSet.UpdatesPending then
begin
jsDialogs.ShowError('请先保存申请信息!','提示');
Command.Accept:=false;
exit;
end;