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