*-- cBizObjForm::Delete CASE lnRetVal = FILE_OK *---------------------------------------------------- *--- If the current business object is THE primary *--- business object, or at least an auto primary *--- bizobj, Refresh the form *---------------------------------------------------- IF ThisForm.oBizObj.lPrimaryBizObj OR ; ThisForm.oBizObj.lAutoPrimaryBizObj This.SetFilePos() This.RefreshForm() ENDIF
*-- cBizObjForm::New *---------------------------------------- *--- Run the business object's New method *---------------------------------------- lnRetVal = this.oBizObj.New() IF lnRetVal = FILE_OK This.PostNewHook() this.RefreshForm() ENDIFLooking forward to any comments,