procedure poisk_ot
Parameter cNtel
cFileName="Ot"+substr(cNtel, 1 , 3 )
if used(cFileName)
  select tel,otkl,datavik,dvkl,dsn,cpconvert( 866 , 1251 ,prim) as prima,;
  cpconvert( 866 , 1251 ,fo) as fo ;
  from (cFileName);
  where tel=cNtel into cursor query
  select query
  if reccount()> 0 
  do while !eof()
     poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+;
     "Дата выключения: "+dtoc(query.datavik)+chr( 13 )+;
     "Дата включения:  "+dtoc(query.dvkl)+chr( 13 )+;
     "Дата снятия:     "+dtoc(query.dsn)+chr( 13 )+;
     "Состояние номера: "+alltrim(query.prima)+chr( 13 )+;
     "Способ вкл/выкл:  "+alltrim(query.fo)+chr( 13 )
     skip  1 
  enddo
  else
   poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+"Нет ограничений !!!"+chr( 13 )
  endif
 use in query  
else
   poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+"Нет файла с ограничениями!!!"+chr( 13 )
endif
return

procedure poisk_viklnom
parameter cNtel
if used("viklnom")
 select ntel,iif(val(prichina)= 10 ,"Выключен цехом развития (физ.л.)",;
 iif(val(prichina)= 11 ,"Выключен 1-м отделом",;
 iif(val(prichina)= 12 ,"Выключен цехом развития (юр.л.)","Причина не определена"))) ;
 as prichina, data1,data2,cpconvert( 866 , 1251 ,prich_vkl) as prich_vkl,;
 cpconvert( 866 , 1251 ,prich_vikl) as prich_vikl ;
 from viklnom ; 
 where ntel=cNtel into cursor query
  select query
  if reccount()> 0 
  do while !eof()
     poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+;
     "Причина выключения: "+alltrim(query.prichina)+chr( 13 )+;
     "Дата выключения: "+alltrim(query.data1)+chr( 13 )+;
     "Дата включения:  "+dtoc(query.data2)+chr( 13 )+;
     "Причина выкл.(дополн.): "+alltrim(query.prich_vikl)+chr( 13 )+;
     "Причина включения:  "+alltrim(query.prich_vkl)+chr( 13 )
     skip  1 
  enddo
    else
   poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+"Нет ограничений!!!"+chr( 13 )
  endif
  use in query
else
   poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+"Нет доступа к файлу!!!"+chr( 13 )
endif
return

procedure poisk_dopusl
parameter cNtel
if used("dopusl")
  select tel,cpconvert( 866 , 1251 ,namop) as namop, dat, ;
  dat_otm,dat_kr from dopusl ;
  where tel=cNtel into cursor query
  select query
  if reccount()> 0 
  do while !eof()
     poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+;
     "Дата ввода допусуги:   "+dtoc(query.dat)+chr( 13 )+;
     "Дата отмены допуслуги: "+dtoc(query.dat_otm)+срк( 13 )+;
     "Наименование услуги:   "+alltrim(query.namop)+chr( 13 )
     skip  1 
  enddo
  else
   poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+"Нет ДВО!!!"+chr( 13 )
  endif
  use in query
else
   poisk_frm.Edit1.Value=poisk_frm.Edit1.Value+"Файл ДВО не найден!!!"+chr( 13 )
endif
return

   "Дата отмены допуслуги: "+dtoc(query.dat_otm)+срк( 13 )+;