1 2 3 4 5 6 7 8 9 10 11 12 13 14
{$IFNDEF IS_REPL} sqlstr:= 'select * from CHECK_TERRORIST('+pp+Naznach+pp+','+pp+Osnova+pp+','+pp+Fio+pp+ ')'; ExecReadQry(sqlstr); val:=MyGetField('ID_TERRORISTS'); if Length(val) >1 then begin val:=copy(val,1,length(val)-1)+')'; RetailMsgDlg('Данный клиент может разыскиваться Советом Безопасности ООН.',mtInformation, [mbOk], 0); FindShowDicTer(val,'',True,2); if (RetailMsgDlg('Продолжить выполнение операции?', mtInformation, [mbYes, mbNo], 0) = mrNo) then Exit; end; {$endif}