Kbase P125388: How to update CRC value on _FIELD-TRIG.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
15/08/2007 |
|
Status: Unverified
GOAL:
How to change _FIELD-TRIG._TRIG-CRC using 4GL
GOAL:
How to update CRC value on _FIELD-TRIG.
FACT(s) (Environment):
Progress 9.x
OpenEdge 10.x
All Supported Operating Systems
FIX:
run the following code:
DEFINE BUFFER ftbuf FOR _field-trig.
DEFINE VARIABLE savevnt LIKE _field-trig._event.
REPEAT PRESELECT EACH _field-trig WHERE _field-trig._trig-crc NE ?:
FIND NEXT _field-trig.
DISPLAY "Compiling:" _field-trig._proc-name.
COMPILE VALUE(_field-trig._proc-name) SAVE NO-ERROR.
IF NOT COMPILER:ERROR THEN
DO:
RCODE-INFO:FILE-NAME = _proc-name.
CREATE ftbuf.
ASSIGN
ftbuf._proc-name = _field-trig._proc-name
ftbuf._file-recid = _field-trig._file-recid
savevnt = _field-trig._event
ftbuf._override = _field-trig._override
ftbuf._trig-crc = RCODE-INFO:CRC-VALUE.
ftbuf._field-recid = _field-trig._field-recid.
DELETE _field-trig.
ASSIGN
ftbuf._event = savevnt.
END.
ELSE MESSAGE "Couldn't compile:" _field-trig._proc-name VIEW-AS
ALERT-BOX.
END.