Information générale
Catégorie:
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
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement