Import EOAW_CORE:ENGINE:AppInst import EOAW_CORE:ENGINE:UserStepInst import EOAW_CORE:ENGINE:Thread import TRAVERSEALLFIELDS:DisableFields class WebAssetAppr_EventHandler extends EOAW_CORE:ApprovalEventHandler method OnHeaderApprove(&appinst As EOAW_CORE:ENGINE:AppInst) method OnHeaderDeny(&userinst As EOAW_CORE:ENGINE:UserStepInst) private method UpdateStatus(&thread As EOAW_CORE:ENGINE:Thread, &status As string) method componentDisplayOnly(&Rs As Rowset) end-class method OnHeaderApprove /+ &appinst as EOAW_CORE:ENGINE:AppInst +/ /+ Extends/implements EOAW_CORE:ApprovalEventHandler.OnHeaderApprove +/ %This.UpdateStatus(&appinst.thread, “X”) end-method method OnHeaderDeny /+ &userinst as EOAW_CORE:ENGINE:UserStepInst +/ /+ Extends/implements EOAW_CORE:ApprovalEventHandler.OnHeaderDeny +/ %This.UpdateStatus(&userinst.thread, “D”) end-method method UpdateStatus /+ &thread as EOAW_CORE:ENGINE:Thread, +/ /+ &status as String +/ /* &thread.recname contains the header record name, but we are * using a sibling record so we have to hard code the record name */ Local Record &asset_rec = CreateRecord(Record.T_HEADER) /* &thread.rec contains the cross reference record which has * header record keys*/ &(&asset_rec) &asset_rec.SelectByKey() &asset_rec.GetField(Field.APPROVAL_STATUS).Value = &status &asset_rec.Update() GetLevel0().Refresh() %ponentDisplayOnly(GetLevel0()) end-method method componentDisplayOnly /+ &Rs as Rowset +/ Local number &i, &j, &k For &i = 1 To &Rs.ActiveRowCount For &j = 1 To &Rs(&i).RecordCount For &k = 1 To &Rs(&i).GetRecord(&j).FieldCount &Rs(&i).GetRecord(&j).GetField(&k).DisplayOnly = True End-For End-For For &j = 1 To &Rs(&i).ChildCount %ponentDisplayOnly(&Rs(&i).

Awe setup in peoplesoft