Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Congrats
Message
De
16/09/1999 11:19:55
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Titre:
Congrats
Divers
Thread ID:
00265489
Message ID:
00265489
Vues:
53
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
Fil
Voir

Click here to load this message in the networking platform