General information
Category:
The Mere Mortals Framework
Kevin,
The new version is fantastic (what I've seen so far!) I really like how you rebuilt the dataenv classes, and the improvements in the builder and business objects are great!
I have a problem with one improvement, however. Consider the following:
*****************************************************************
LOCAL llRetVal, lcHost
IF NOT This.PreInitHook()
RETURN .F.
ENDIF
*------------------------------------------------------
*--- Add Stonefield's MetaMgr to the application object
*------------------------------------------------------
#IF VFP_VERSION >= 6
IF TYPE('This.Parent.oMeta') == 'U'
This.Parent.AddProperty('oMeta', '.NULL.')
ENDIF
#ENDIF
This.Parent.oMeta = CREATEOBJ(This.Parent.oMMFactory.GetClassName('Stonefield'), ;
This.Parent.lDebugMode, This.cMetaDataDir)
IF TYPE('This.Parent.oMeta') != 'O'
*--------------------------------------
*--- Error loading Stonefield component
*--------------------------------------
=MsgSvc('NoLoadSDT')
RETURN .F.
ENDIF
*------------------------------------------------
*--- If specified to do so, check file structures
*------------------------------------------------
IF This.OpenDefaultDatabase()
IF This.lStartupCheck AND This.Parent.oMeta.oSDTMgr.NeedUpdate()
This.Parent.oMeta.oSDTMgr.Update()
ENDIF
This.CloseDefaultDatabase()
ENDIF
IF This.OpenDefaultDatabase()
IF This.lStartupCheck AND This.Parent.oMeta.oSDTMgr.NeedUpdate()
This.Parent.oMeta.oSDTMgr.Update()
ENDIF
This.CloseDefaultDatabase()
ENDIF
llRetVal = This.PostInitHook()
IF This.lAutoDestroy
llRetVal = .F.
ENDIF
RETURN llRetVal
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only