use izg order nIzgId
lnId =  0 
scan
	if lnId >= izg.nIzgId
		lcBadTable = lcBadTable + chr( 13 ) + 'Таблица IZG  Код: ' + astr(lnId)
		exit
	endif
	lnId = izg.nIzgId
endscan

LPARAMETERS nError, cMethod, nLine
this.lWasError = .t.
this.SayText('Ошибка ' + alltrim(str(nError)))
if nError =  1557 
	MessageBox('Не удалось проиндексировать.' + chr( 13 ) + 'Вероятно с программой работает кто-то еще.',  16 , 'ВНИМАНИЕ')
	return to master
endif
return

lcPathRecovery = justpath(SYS( 2014 , 'MyDB.dbc'))
lcPath = addbs(lcPathRecovery)
for lnSc =  1  to  10 
	this.lWasError = .f.
	this.SayText('Проход № ' + alltrim(str(lnSc)))
	if lnSc =  2  && Второй проход, значит проблемы. Удаляем индексы.
		close data all
		if file('y-mail.com')
			* Утилита для исправления неправильного кол-ва записей в заголовке DBF
			!y-mail /dbfrec &lcPathRecovery
		endif
		delete file (lcPath + 'MyDB.dcx')
		delete file (lcPath + '*.cdx')
		use MyDB.dbc excl
	endif
	close data all
	this.SayText('Контейнер базы данных')
	open database MyDB excl
	if lnSc =  3  and this.lWasError && Контейнер БД не открывается
		if file(lcPath + 'MyDB.dbcNorm')
			this.SayText('Восстанавливаем контейнер базы данных')
			&& Сохраняем копию испорченного контейнера БД
			copy file (lcPath + 'MyDB.dbc') to (lcPath + 'MyDB.dbcbad')
			copy file (lcPath + 'MyDB.dct') to (lcPath + 'MyDB.dctbad')
			&& Восстанавливаем контейнер БД
			copy file (lcPath + 'MyDB.dbcNorm') to (lcPath + 'MyDB.dbc')
			delete file (lcPath + 'MyDB.dbcNorm')
			copy file (lcPath + 'MyDB.dctNorm') to (lcPath + 'MyDB.dct')
			delete file (lcPath + 'MyDB.dctNorm')
		endif
	endif
	validate database
	pack database

	this.SayText('Таблица IZG')
	use izg excl
	if used('izg')
		delete tag all
		pack
		index on nIzgId tag nIzgId
		index on cIzg tag cIzg
	endif
	
	this.SayText('Таблица TOVAR')
	use Tovar excl
	if used('tovar')
		delete tag all
		pack
		index on nTovarId tag nTovarId
	endif
	
	...
	
	if this.lWasError = .f. && Ошибок не было. Выходим.
		exit
	endif
endfor
close data all

if this.lWasError && Ошибки не исправлены
	this.SayText('', .t.)
	this.SayText('!!! ОБНАРУЖЕНЫ НЕИСПРАВИМЫЕ ОШИБКИ !!!', .t.)
	this.SayText('', .t.)
	MessageBox('Испорчена структура базы.'+ chr( 13 );
		 + 'Самостоятельно исправить это невозможно.'+ chr( 13 );
		 + 'До устранения этой неисправности дальнейшая работа невозможна.',  48 , 'ВНИМАНИЕ')
else
	&& Ошибок не было. Делаем копию контейнера БД
	copy file (lcPath + 'MyDB.dbc') to (lcPath + 'MyDB.dbcNorm')
	copy file (lcPath + 'MyDB.dct') to (lcPath + 'MyDB.dctNorm')
endif

	if lnSc =  3  and this.lWasError && Контейнер БД не открывается
		if file(lcPath + 'MyDB.dbcNorm')

if lnSc =  5  and file(lcPath + 'MyDB.dbcNorm')
		delete file (lcPath + 'MyDB.dcx')