PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV Mobile (earlier versions) → [WM12] Problème DonneFocus
[WM12] Problème DonneFocus
Started by Julie, Feb., 22 2012 12:47 PM - No answer
Posted on February, 22 2012 - 12:47 PM
Bonjour,

Je travaille actuellement sous WD12 et j'ai un soucis sur les DonneFocus. J'utilise dans mon programme une fenêtre et je gère les affichages avec des Plans. Je reçois mes données venant d'une socket en fonction du plan sur lequel je suis positionnée j'appelle une procédure d'affichage différente. Dans cette procédure je procède à un changement de plan et je souhaite donner le focus à la zone de saisie de ce plan là mais cela ne fonctionne pas malgré de nombreuses tentatives...

Voici un exemple d'une de mes procédures d'affichage
Procedure GestionAffichageCtrlSSCC1(sMessageRecu)

SI ExtraitChaîne(sMessageRecu, 1, TAB) = "T" ALORS
// Récupération des valeurs
gnNbLigne = ExtraitChaîne(sMessageRecu, 2, TAB)
gsLastRef = ExtraitChaîne(sMessageRecu, 3, TAB)
gsLastQte = ExtraitChaîne(sMessageRecu, 4, TAB)
gsSolde = ExtraitChaîne(sMessageRecu, 5, TAB)
gsEnCours = ExtraitChaîne(sMessageRecu, 6, TAB)
gsDernierColis = ExtraitChaîne(sMessageRecu, 7, TAB)


// Affichage des valeurs récupérées
FENAccueil.LIB_CmdCtrlSsccAffich = gsNumeroCommande
FENAccueil.LIB_CmdCtrlSsccAffich2 = gsNumeroCommande
FENAccueil.LIB_CmdCtrlSsccAffich3 = gsNumeroCommande
FENAccueil.LIB_CmdCtrlSsccAffich4 = gsNumeroCommande
FENAccueil.LIB_CmdCtrlSsccAffich5 = gsNumeroCommande

FENAccueil.LIB_NbRefCtrlSsccAffich = gnNbLigne
FENAccueil.LIB_NbRefCtrlSsccAffich1 = gnNbLigne
FENAccueil.LIB_NbRefCtrlSsccAffich2 = gnNbLigne
FENAccueil.LIB_NbRefCtrlSsccAffich3 = gnNbLigne
FENAccueil.LIB_NbRefCtrlSsccAffich4 = gnNbLigne
FENAccueil.LIB_NbRefCtrlSsccAffich5 = gnNbLigne

FENAccueil.LIB_ColisEnCoursCtrlSsccAffich = gsColisEnCours
FENAccueil.LIB_ColisEnCoursCtrlSsccAffich1 = gsColisEnCours
FENAccueil.LIB_ColisEnCoursCtrlSsccAffich2 = gsColisEnCours
FENAccueil.LIB_ColisEnCoursCtrlSsccAffich3 = gsColisEnCours
FENAccueil.LIB_ColisEnCoursCtrlSsccAffich4 = gsColisEnCours
FENAccueil.LIB_ColisEnCoursCtrlSsccAffich5 = gsColisEnCours

FENAccueil..Plan = 19
DonneFocus(FENAccueil.SAI_CbCtrlSscc)


FIN
DonneFocus(FENAccueil.SAI_CbCtrlSscc)