T18. OnModify=BEGIN //Remove some code for testing fn1;//Here END; PROCEDURE fn1@1000000001(); VAR recRef@1000000000 : RecordRef; BEGIN recRef.GETTABLE(Rec); fn2(recRef); END; PROCEDURE fn2@1000000000(precRef@1000000000 : RecordRef); VAR recRef@1000000001 : RecordRef; fldRef@1000000002 : FieldRef; BEGIN recRef := precRef; fldRef := recRef.FIELD(57000); fldRef.VALIDATE(1); recRef.MODIFY; END; BEGIN END.
Comments
Pargesoft
Thanks i got it.
Regards,
Yukon