restore Method
Class: tsbaseform
Expand/Collapse source code of procedure restore Source Code
*-- Cancel all user changes
=TABLEREVERT(.T.)

IF EOF()
  SKIP -1
  IF BOF()
    thisform.Release()
  ENDIF
ENDIF

*- enable new button
oApp.oToolBar.cmdNew.Enabled = .T.
ACTIVATE MENU _msysmenu NOWAIT

thisform.RefreshForm()