Происходит до запуска команды PACK DATABASE.
PROCEDURE dbc_PackData( ) |
Примечания
Вы можете использовать событие dbc_PackData для отслеживания доступа к базе данных до запуска команды PACK DATABASE.
Возврат .F. из процедурного кода события предотвратит упаковку базы данных. Вы получите сообщение "File access denied" когда попытаетесь упаковать базу данных при возврате этим событием значения .F..
Пример
![]() | |
---|---|
* Отображает на экране имя события, откуда оно было вызвано и ; * переданные параметры. PROCEDURE dbc_PackData ? ' - ' + PROGRAM() ??' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1) ? ' Current DBC: ' + SUBSTR(DBC(),RAT('\',DBC())+1)+' /end/ ' ENDPROC |