Consultor Eletrônico



Kbase P20430: Error (3290) when running 4GL code that attempts to modify schema triggers
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   4/10/2007
Status: Unverified

SYMPTOM(s):

Error (3290) when running 4GL code that attempts to modify schema triggers

You cannot update a trigger record. (3290)

CAUSE:

For security reasons, you cannot change a trigger record once it has been created.

FIX:

Delete the trigger and re-create it.

/* This sample code demonstrates how to delete and replace the "CREATE" event schema trigger procedure of the "Test" table.*/

DEFINE TEMP-TABLE y_File-Trig NO-UNDO
FIELD y_File-Recid LIKE _File-Trig._File-Recid
FIELD y_Event LIKE _File-Trig._Event
FIELD y_Proc-name LIKE _File-Trig._Proc-Name
FIELD y_Override LIKE _File-Trig._Override
FIELD y_Trig-Crc LIKE _File-Trig._Trig-Crc.

FIND FIRST _File WHERE _File-Name = "Test" EXCLUSIVE-LOCK.
FIND FIRST _File-trig OF _File WHERE _File-trig._Event = "CREATE"
EXCLUSIVE-LOCK.


CREATE y_File-Trig.
ASSIGN
y_File-Trig.y_File-Recid = _File-Trig._File-Recid
y_File-Trig.y_Event = _File-Trig._Event
y_File-Trig.y_Proc-Name = _File-Trig._Proc-Name
y_File-Trig.y_Override = _File-Trig._Override
y_File-Trig.y_Trig-Crc = _File-Trig._Trig-Crc.

DELETE _File-Trig.

RCODE-INFO:FILENAME = "D:\WRK91D\Rcode\triggers\crtest.r".

CREATE _File-Trig.
ASSIGN
_File-Trig._File-Recid = y_File-Trig.y_File-Recid
_File-Trig._Event = y_File-Trig.y_Event
_File-Trig._Proc-name = "D:\WRK91D\Rcode\triggers\crtest.r"
_File-Trig._Override = y_File-Trig.y_Override
_File-Trig._Trig-Crc = rcode-info:crc-value.

DELETE y_File-Trig.