IF NOT USED("table_tmp")
	USE "table_tmp" exclusiv IN  0 
ENDIF
SELE table_tmp
DELETE ALL
PACK
SELE table_tmp

IF NOT USED("table_tmp")
	USE "table_tmp" excl IN  0 
ENDIF
sele table_tmp
	DELETE ALL
	PACK
form1.Grid1.RecordSourceType= 1 
form1.Grid1.RecordSource="table_tmp"
form1.Grid1.Column1.ControlSource="table_tmp.nomer"
thisform.refresh

IF NOT USED("table")
	USE "table" excl IN  0 
ENDIF
sele table
dat_vd=alltrim(ThisForm.Text1.value)
per_vd=len(alltrim(dat_vd)) 
if per_vd> 0  				
  sele table
DO WHILE !EOF()
  ff_k1=alltrim(table.nomer)
  ff_k2=alltrim(table.znachenie)
 if thisform.check1.value= 1   
  dat_od=alltrim(counttable.nomer)
  per_od=len(alltrim(dat_od)) 
  sh_ptp=per_od-(per_vd- 1 )    
  add_df=sh_ptp
  ik= 1 
  dd=len(alltrim(dat_vd))
  do whil ik=<sh_ptp
       if UPPER(substr(alltrim(dat_od),ik,dd))=UPPER(alltrim(dat_vd))
          sele table_tmp
           append blank
            repl table_tmp.idc with ff_k1
	 repl table_tmp.ncount with ff_k2
thisform.refresh
       endif
    ik=ik+ 1 
   enddo
 endif

sele table
skip
	ENDDO
	ENDIF
GO top
thisform.refresh

DELETE ALL
PACK

CREATE CURSOR table_tmp (nomer C( 10 ))