Abandon changes on request find
From DataFlex WikiJump to navigationJump to search
I recently had a customer complain that closing a view will trigger "Abandon Changes?" - but using Find Next/Previous does not. Once I thought about it, I realized this really wasn't just another "OK, they're the customer..." request.
Procedure Request_Find Integer mode Integer entUpdtFlag Integer iAnswer If ((HasRecord(Server(Self))) and (Should_Save(Server(Self)))) Begin Move (YesNo_Box("Changes Exist. Abandon changes and continue with the find?", "Confirm")) to iAnswer If (iAnswer<>MBR_Yes) Procedure_Return End Forward Send Request_Find mode entUpdtFlag End_Procedure