* Save old settings to be restored. THIS.cPoint = SET("POINT") THIS.cSep = SET("SEPARATOR") THIS.cDate = SET("DATE") THIS.cCurrency = SET("CURRENCY", 1) THIS.cTalk = SET("TALK") THIS.cDeleted = SET("DELETED") THIS.cSafety = SET("SAFETY") THIS.cRefresh = SET("REFRESH") THIS.cExact = SET("EXACT") this.chours = SET("Hours") SET POINT TO POINT_LOC SET SEPARATOR TO SEP_LOC SET DATE TO DATE_LOC SET CURRENCY TO CURRENCY_LOC SET CENTURY ON SET CENTURY TO 19 ROLLOVER 50 SET NOTIFY OFF SET ECHO OFF SET DEBUG OFF IF this.IWantToSetHour IF this.hour_12 SET HOURS TO 12 ELSE SET HOURS TO 24 ENDIF ENDIF IF this.IWantToSeeDeletedRecords SET DELETED ON ELSE SET DELETED OFF ENDIF IF this.IWantSetExactON SET EXACT ON ELSE SET EXACT OFF ENDIF SET SAFETY OFF SET TALK OFF SET REFRESH TO 5,5Destroy Event:
LOCAL cMacro cMacro = THIS.cTalk SET TALK &cMacro cMacro = THIS.cDeleted SET DELETED &cMacro cMacro = THIS.cExact SET EXACT &cMacro SET POINT TO THIS.cPoint SET SEPARATOR TO THIS.cSep SET DATE TO (THIS.cDate) SET CURRENCY TO THIS.cCurrency SET REFRESH TO this.cRefresh SET HOURS TO this.choursThat's it.