IFNDEF IS_REPL sqlstr select from CHECK_TERRORIST pp Naznach pp pp Osn

 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}