IF use_one('misc')
  nextnum=lastnum+ 1 
  APPEND <чего-то куда-то>
  REPLACE misc.lastnum WITH nextnum.
  USE IN misc
ENDIF

***************************************************************
Function use_one
***************************************************************
* Попытка открытия одной таблицы в сетевом
* окружении в течение заданного
* времени с дискретностью  0 . 5  сек.
* Отключает буферизацию записей и таблиц.
* Если таблице придан индекс CDX,назначает ведущим тег  1 .
* Делает выбранную область активной в случае успеха.
*!*	Перед открытием проверяется, не открыта ли 
*!*	уже эта таблица.
* Использование - use_one('base1', 0 , 1 ,.F.,'partner')
***************************************************************
param cname, ; && имя таблицы
	  narea, ; && номер области (или  0  для новой).По умолчанию =  0 
      ntime, ; && время (сек). По умолчанию =  3 
      lmode, ; && режим SHARED/EXCLUSIVE. По умолчанию - SHARED
      calias   && алиас. По умолчанию - имя таблицы

lsuccess=.t.
if empty(cname)
	return .f.
ENDIF
if empty(narea)
	narea= 0 
endif
if empty(ntime)
	ntime= 3 
endif
if empty(lmode)
	lmode=.f.
endif
if empty(calias)
	calias=JUSTSTEM(cname)
endif
if ntime< 1 
	ntime= 3 
ENDIF
IF USED(calias)
	RETURN .t.  && таблица уже была открыта до того, как...
endif
on error do TabOpenErr
begtime=seconds()
do while .t.
	tryagain=.f.
	if seconds()-begtime>ntime
		exit
	endif
	if lmode
		use &cname in (narea) exclusive alias &calias	
	else
		use &cname in (narea) shared alias &calias	
	endif
	if !tryagain
		lsuccess=.t.
		exit
	endif	
enddo
on error
if lsuccess
	if !empty(cdx( 1 , calias))
		set order to  1  IN (calias)
	endif
	=CURSORSETPROP('Buffering',  1 , calias)  && buffering off
	GO TOP IN (calias)
	return .t.
ELSE
	return .f.
endif
	

**************************************************
Procedure TabOpenErr
**************************************************
tryagain=.t.
lsuccess=.f.
inkey( 0 . 5 ,'H')  && дискретность выполнения USE
return