Compartir a través de

dbc_PackData (Evento)

  • Artículo

Se produce antes de que se ejecute el comando PACK DATABASE.

PROCEDURE dbc_PackData( )

Observaciones

Se puede utilizar el evento dbc_PackData para realizar el seguimiento del acceso a la base de datos antes de que se ejecute un PACK DATABASE.

Devuelva .F. desde este procedimiento para evitar el empaquetamiento de la base de datos. Obtendrá un error "Acceso al archivo denegado" al intentar empaquetar la base de datos si se devuelve .F.

Ejemplo

* Reports to the screen Event name, where it is called from and ;
* the parameter passed.
PROCEDURE dbc_PackData
 ? '  -  ' + PROGRAM()
 ??' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
 ? '     Current DBC: ' + SUBSTR(DBC(),RAT('\',DBC())+1)+' /end/ '
ENDPROC

Vea también

Activar o desactivar eventos DBC | PACK DATABASE (Comando)