IF NOT THIS.BeforeSave() RETURN ENDIF *** save stuff here THIS.AfterSave()This is the framework customization iLayer's iForm.BeforeSave() (as updated by Naomi) and where I am only able to catch the codebook cLayer errors. My intention is to catch MyLayer and aLayer errors here.
LOCAL llRetVal, lcErrorMsg llRetVal = DODEFAULT() if not m.llRetVal lcErrorMsg = THIS.oBizObj.GetErrorMsg() IF NOT EMPTY(lcErrorMsg) THIS.DisplayErrorMsg(lcErrorMsg) ELSE THIS.DisplayErrorMsg("The record has not been saved." + CHR(13) + CHR(10) ; + "Please provide the required details and try saving again") ENDIF endif RETURN llRetValThis is the app specific MyForms.BeforeSave()
llRetVal = DODEFAULT() llRetVal = llRetVal AND THISFORM.pgf.Page1.txtIno.CheckForBadNextNo() IF llRetVal *** my stuff where somewhere it fails and llRetVal = .F. ENDIF RETURN llRetValHope I am able to pass on my intentions clearly.