PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → Champs de saisie à jetons et suppression
Champs de saisie à jetons et suppression
Iniciado por Hacyrak, 10,jul. 2020 16:31 - 2 respuestas
Publicado el 10,julio 2020 - 16:31
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é.
Miembro registrado
15 mensajes
Popularité : -1 (1 vote)
Publicado el 30,octubre 2020 - 19:25
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
Publicado el 03,enero 2023 - 16:37
Il suffit de renvoyer "faux" au lieu de "vrai" car vous supprimez déjà la jeton avec l'appel à SAI_Jeton .SupprimeJeton(MonJeton)