IFNDEF IS_REPL sqlstr select from CHECK_TERRORIST pp Naznach pp pp Osn

{$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}