Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Getting the Progress screen to show during update
Message
General information
Forum:
Visual FoxPro
Category:
Stonefield
Title:
Getting the Progress screen to show during update
Miscellaneous
Thread ID:
00361312
Message ID:
00361312
Views:
64
I have code in my main program to call SDT's Update method if the application received a "U" as a parameter. The code is as follows:
lparameters cAction

if parameters() # 0 then
        if cAction = 'U' then
		set classlib to dbcxmgr additive
		open database sc
		oMeta = createobject("MetaMgr")
		oMeta.SetDatabase("sc")
		if oMeta.oSDTMgr.NeedUpdate()
			if oMeta.oSDTMgr.Update() = .f. then
				=messagebox('Update Needed, but not Executed')
			endif
		else
			=messagebox('No Update Needed')
		endif 
		release classlib dbcxmgr
		release oMeta
	endif
endif
My problem is that while sdt is going through this process nothing appears on the screen.

I notice that if I run this routine after the application is up and running the progress bar does show.

My dilemna is that I have to run this process prior to loading the application, otherwise the app won't load because of the tables not matching the database.

Am I right in assuming that the reason I don't get the progress indication is that the main VFP window is not active yet? Is there away around this problem... Maybe the most important question is does any of this make sense? :-)

Thanks,
Paul Acton
Next
Reply
Map
View

Click here to load this message in the networking platform