with IQuery do
begin
Close;
CommandText := 'SELECT count(FGUID) AS FLOWID_COUNT FROM TTASK WHERE FPROCUNITID=''ASSISANT_FUN'' AND FSTATE=''tsStarted'' and FFLOWGUID IN (SELECT FFLOWGUID FROM TFLOWID WHERE FID IN (SELECT TO_CHAR(FLOW_ID) FROM FEE_DETAIL WHERE FLOW_ID IS NOT NULL AND CLEANER_ID='+sPersonId+'))';
Open;
if FieldByName('FLOWID_COUNT').AsInteger > 0 then
begin
Dialogs.ShowMessage('待办任务中已经有过申请记录,本次是你再次点击了新的申请,系统会自动关闭此功能,请处理待办任务中相应的申请任务');
FuncBroker1.Func.Terminate; //注销
end;
end;