Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Congrats
Message
From
16/09/1999 11:19:55
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Title:
Congrats
Miscellaneous
Thread ID:
00265489
Message ID:
00265489
Views:
54
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
Map
View

Click here to load this message in the networking platform