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

PROCEDURE dbc_AfterRenameTable(cPreviousName, cNewName)
 
PROCEDURE dbc_AfterRenameTable
LPARAMETERS cPreviouName, cNewName

Параметры

cPreviousName

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

cNewName

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

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

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

Expand imageПример

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

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