Destroy Method
Object: frmordhistory
Expand/Collapse source code of procedure Destroy Source Code
tsBaseForm::Destroy()

*-- If this form is linked to an Order Entry form, 
*-- reset any properties that may have changed on
*-- that form by calling its ClearLink() method
IF TYPE("thisform.oOrdEntryForm") = "O" AND ;
	!ISNULL(thisform.oOrdEntryForm)

  thisform.oOrdEntryForm.ClearLink()
  thisform.RemoveFromMenu(thisform.cOriginalFormCaption)
ENDIF

*-- Decrement the number of instances
IF !EMPTY(thisform.cOriginalFormName) AND TYPE("oApp") == 'O' AND !ISNULL(oApp)
  oApp.RemoveInstance(thisform.cOriginalFormName)
ENDIF


IF USED("cItems") AND TYPE("oApp") == 'O' AND !ISNULL(oApp) AND !oApp.lQuitting
  =TABLEREVERT(.T., "cItems")
ENDIF