I have a Business object class (DataEntry) that I created which instantiates the CAbstractFactory class in order to utilize the GetClassName() method. However, this same class (DataEntry) also uses THIS.AddObject('oTapeHistory', 'TapeHistory'). All works fine until oTapeHistory.Init() calls GetDefaultDatabase(). GetDefaultDatabase() the checks for a prior version of CAbstract factory and, since this is in the command window and will be a COM object, it does not find goMMFactory nor does it find goApp.oMMFactory. So, my question, then, would be 'Am I programming incorrectly, or is there something in MM that is not correct?' I have looked at CAbstractFactory::Init() and found the following code:



IF NOT DODEFAULT()
RETURN .F.
ENDIF

USE CLASSES IN 0 SHARED

This.Parent.RegisterBizObj(This)


Should there not be the statement:
IF !USED('CLASSES')
USE CLASSES IN 0 SHARED
ENDIF
Followed by the This.Parent...? Any suggestions are appreciated.
Thank You,
Andrews Software, Inc.
Justin L. Spies