Class: | tsbaseform |
LOCAL lnAnswer *-- Prompt user to save changes, and save or restore *-- based on answer lnAnswer = MESSAGEBOX(SAVECHANGES_LOC, ; MB_ICONQUESTION + MB_YESNOCANCEL, ; TASTRADE_LOC) DO CASE CASE lnAnswer = IDYES IF !thisform.Save() lnAnswer = IDCANCEL ENDIF CASE lnAnswer = IDNO thisform.Restore() ENDCASE RETURN lnAnswer