Происходит перед переименованием таблицы. Имеется две версии синтаксиса. 

PROCEDURE dbc_BeforeRenameTable(cPreviousName, cNewName) 
PROCEDURE dbc_BeforeRenameTable
LPARAMETERS cPreviousName, cNewName

Параметры

cPreviousName

Указывает текущее имя таблицы.

cNewName

Указывает новое имя таблицы.

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

Вы можете использовать событие dbc_BeforeRenameTable для отслеживания попыток доступа к базе данных до соединения с таблицей, переименования или предотвращения переименования таблицы.

Возврат .F. из этого события предотвратит переименование таблицы.

Expand imageПример

  CopyCode imageСкопировать код
PROCEDURE dbc_BeforeRenameTable;
   (cPreviousName, ;
    cNewName)
 ? '>>   ' + PROGRAM()
 ?? 'in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1
 ? '     Current DBC:    ' + SUBSTR(DBC(),RAT('\',DBC())+1
 ? '     cPreviousName = ' + TRANSFORM(cPreviousName)     + ' – ' + 
TYPE('cPreviosName ')+' /end/ '
ENDPROC

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