Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Getting the Progress screen to show during update
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Stonefield
Titre:
Getting the Progress screen to show during update
Divers
Thread ID:
00361312
Message ID:
00361312
Vues:
63
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform