Происходит до запуска команды PACK DATABASE.

PROCEDURE dbc_PackData( )

Expand imageПримечания

Вы можете использовать событие dbc_PackData для отслеживания доступа к базе данных до запуска команды PACK DATABASE.

Возврат .F. из процедурного кода события предотвратит упаковку базы данных. Вы получите сообщение "File access denied" когда попытаетесь упаковать базу данных при возврате этим событием значения .F..

Expand imageПример

  CopyCode imageСкопировать код
* Отображает на экране имя события, откуда оно было вызвано и ;
* переданные параметры.
PROCEDURE dbc_PackData
 ? '  -  ' + PROGRAM()
 ??' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
 ? '     Current DBC: ' + SUBSTR(DBC(),RAT('\',DBC())+1)+' /end/ '
ENDPROC

Expand imageСмотрите также