Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
CASE ACCEPTED() !LocalObjects ->Browse On XXX. TakeEvent 2500
OF SELF.INSERTCONTROL
LOC:REQUEST = 1 !This value is use in EIP
OF SELF.CHANGECONTROL
LOC:REQUEST = 2
OF SELF.DELETECONTROL
!SELF.WINDOW.UPDATE()
LOC:REQUEST = 3
CASE MESSAGE('Delete the selected record',|
'Please Confirm',ICON:QUESTION,BUTTON:YES+BUTTON:NO,BUTTON:YES,1)
OF BUTTON:YES
DO DeleteDetails
BRW1.ResetFromFile
IF BRW1.RECORDS() = 0
Do ClearTotals
END
SELECT(?LIST)
OF BUTTON:NO
SELECT(?LIST)
END !END CASE MESSSAGE...
CLEAR(LOC:REQUEST)
RETURN !this is for overide the default DELETE action!
END