PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Champs de saisie à jetons et suppression
Champs de saisie à jetons et suppression
Started by Hacyrak, Jul., 10 2020 4:31 PM - 2 replies
Posted on July, 10 2020 - 4:31 PM
Bonjour,
J'utilise un champs de saisie à jetons.
J'ai besoin d'agir après la suppression d'un jeton pour mettre à jour une table.
CAS 1
Procedure SuppressionJeton (MonJeton est un Jeton)
Trace(MonJeton..Valeur)
SAI_Jeton .SupprimeJeton(MonJeton)
SI SAI_Jeton = Null ALORS Filtre1 = 0
filtre_activation()
//RENVOYER Faux pour interdire la suppression du jeton
RENVOYER Vrai

Ici mon problème vient que parfois à la suppression d'un jeton en appuyant sur la croix, 2 jetons sont supprimer visuellement.
Je pense que cela vient de la ligne SAI_Jeton .SupprimeJeton(MonJeton).

CAS 2
//Dans init de SAI_Jeton
SAI_Jeton ..Traitement[trtSuppressionJeton]..Après = apresSuppression
PROCEDURE INTERNE apresSuppression()
SI SAI_Jeton = Null ALORS Filtre1 = 0
filtre_activation()
FIN

//filtre activation
Procedure PRIVÉE filtre_activation()
tabValeur est un tableau d'entiers
stMonFiltre est un stSQL
MonJeton est un Jeton

POUR TOUT MonJeton de SAI_Jeton ..Jeton
TableauAjoute(tabValeur,MonJeton..Valeur)
FIN
stMonFiltre.sSQL1 = "ID IN ("+TableauVersChaîne(tabValeur,",")+")"

Ne fonctionne pas lorsque je liste les jetons de SAI_Jeton j'ai toujours celui qui vient d'être supprimé.
Registered member
15 messages
Popularité : -1 (1 vote)
Posted on October, 30 2020 - 7:25 PM
Bonsoir,
Avez-vous résolu votre pb lors de la suppression d'un jeton ?

J'ai le même soucis, il se supprime bien mais est tjrs présent dans la liste des jetons !
Merci pour votre retour
Christian
Posted on January, 03 2023 - 4:37 PM
Il suffit de renvoyer "faux" au lieu de "vrai" car vous supprimez déjà la jeton avec l'appel à SAI_Jeton .SupprimeJeton(MonJeton)