Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Whose datasession is it?
Message
De
04/04/2014 09:49:32
Dragan Nedeljkovich
Now officially retired
Zrenjanin, Serbia
 
 
À
04/04/2014 08:15:59
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2003
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01598035
Message ID:
01598060
Vues:
61
>Hi,
>
>I would try this:
>
>&& after menu > program > suspend
>
>local oForm as Form;
>, iDS;
>, aClasses[1];
>, cClass;
>, cClasses;
>
>activate screen
>iDS = Set("Datasession")
>
>for each oForm in _Screen.Forms foxobject
>	set datasession to m.oForm.DataSessionId
>	if Set("Hours") = 12 and AClass(m.aClasses, m.oForm) > 0
>		cClasses = ''
>		for each cClass in m.aClasses
>			cClasses = m.cClasses + ', ' + m.cClass && or the opposite way
>		endfor
>		? m.oForm.Name, Substr(m.cClasses, 3)
>	endif
>endfor
>
>set datasession to m.iDS
>
Done that already, but also checked the free floating sessions (yes, Thomas guessed right), but these at least I could check separately and they were OK. It's the forms that worry me - I can run the test on the active forms, which is near worthless, as I also need to check a bunch of modal forms which pop up only under certain conditions... trying to launch each one of them (even if I knew all of the cases when they'd pop up, and how to create such cases) would take me days.

In this particular case, instead of going for the full hierarchy (get all the form and session classes from the project into a cursor, fill in the class, parent class, classlib for each, then build a tree), I'll take a shortcut and just hunt for the textbox which displays the time - and check the forms in which it appears. Then I only have to worry if there's another setting that may appear later :).

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform