Discussion :

[gabcouts]

Bonjour,


j'ai une table en saisie sur combo dans ma premier colonne qui me liste l'inventaire d'Acomba, lorsque que je sélectionne une ligne de ma combo, je charge les composantes (produits) associé à ce produit. Pas de problème ici.

Lorsque je modifie la même ligne, par exemple pour changer de produits. Je veux supprimer toutes les lignes dont les composantes ont été charger pour le produit précédent.


EDIT : Pour les visuels,



J'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
//SORTIE DE COL_NuméroProduit
 
//Est-ce qu'on modifie une ligne déjà crée?
SI COL_DateHeure <> "" ALORS
	//On modifie une ligne et on supprime les vieux composantes si trouvé
 
	Cardpos est une chaîne = COL_Cardpos
 
 
	POUR TOUT LIGNE DE TABLE_Produit
 
		x est un entier = TABLE_Produit..Valeur
 
		SI COL_Cardpos = Cardpos ET COL_Composante = Vrai ALORS
			TableSupprime(TABLE_Produit,x)
 
		FIN
	FIN
 
FIN

J'ai essayer aussi avec les codes de l'aides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TableSupprime(TABLE_Produit,TableSelect(TABLE_Produit, x))

<Indice> : Entier optionnel

Indice de la ligne à supprimer.
Si ce paramètre n'est pas précisé, la ou les lignes sélectionnées sont supprimées. Si ce paramètre n'est pas précisé et si aucune ligne n'est sélectionnée, la fonction TableSupprime n'a aucun effet.

Je lui met pourtant un indice. Avec les points d'arrêt,je parcours chacune des lignes trouvés avec l'indice qui incrémente. Pourtant, après un RETOUR juste après la boucle, mes lignes sont toujours là, je ne comprend vraiment pas ce qui se passe.


J'ai également essayer avec ce code, mes les occurrences était tous pas bon ou manquant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
	// Permet de lister toutes les occurrences d'une valeur recherchée.
	Résultat1 est un entier
	Résultat1 = TableCherche(COL_Cardpos,Cardpos,Vrai,1)
 
	SI COL_Composante[Résultat1] = "Vrai" ALORS
			TableSupprime(TABLE_Produit,TableSelect(TABLE_Produit, Résultat1)) //TableSupprime(TABLE_Produit,Résultat1)
	FIN
 
	TANTQUE Résultat1 <> -1
 
		SI COL_Composante[Résultat1] = "Vrai" ALORS
			TableSupprime(TABLE_Produit,TableSelect(TABLE_Produit, Résultat1)) //TableSupprime(TABLE_Produit,Résultat1)
		FIN
		Trace(Résultat1)
		Résultat1 = TableCherche(COL_Cardpos,Cardpos,Vrai,Résultat1+1)
	FIN

Les occurrences devant être de 2 a 15, j’obtiens les occurrences de 1 à 9 ???


*J'ai également utilsé un TableAffiche pour voir et sans résultat, je sèche! Quelqu'un aurait une idée?


Merci

[zouzoukha]

Salut GAB

Il s'agit d'une table mémoire?

[gabcouts]

Non, il sagit bien d'une table normal. Aucune liaison, aucun remplissage.

[dsr57]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x est un entier = TABLE_Produit..Valeur

En faisant un debug pas à pas, que vaut x ?

[gabcouts]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x est un entier = TABLE_Produit..Valeur

En faisant un debug pas à pas, que vaut x ?

Test avec les mêmes produits que l'image plus haut :

[Hemgé]

Non, il sagit bien d'une table normal. Aucune liaison, aucun remplissage.

Bonsoir gabcouture,

La table "normale", cela n'existe pas selon la nomenclature de Windev.
Vous devriez aller (re)lire l'aide sur le champ Table.

Bon, ce n'est pas une table hiérarchique, mais il reste encore la table mémoire, la table sur source, la table fichier à accès direct et la table fichier chargée en mémoire.

La question de zouzoukha venait du fait que le problème que vous rencontrez pourrait éventuellement dépendre du type de table que vous utilisez.

Donc, si vous faites l'effort de lecture suggéré, vous pourrez répondre précisément à sa question et peut-être cela aidera-t-il zouzoukha à vous aider.

Bonne lecture et bon travail

Hemgé

[gabcouts]

Bonsoir gabcouture,

La table "normale", cela n'existe pas selon la nomenclature de Windev.
Vous devriez aller (re)lire l'aide sur le champ Table.

J'identifiais le terme normal au champ graphique crée par défaut dans l'éditeur de fenêtre. C'est bien une table mémoire.

[R&B]

Bonjour

Pas mal de petites choses qui conduisent à un parcours hératique...
Principale erreur : ne pas utiliser un parcours descendant des indices quand on supprime des lignes !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
// 1- pas de déclaration dans les boucles
x est un entier
// 2- parcours de la table
Lig est un entier
I est un entier
 
//Est-ce qu'on modifie une ligne déjà crée?
SI COL_DateHeure <> "" ALORS
	//On modifie une ligne et on supprime les vieux composantes si trouvé
 
	Cardpos est une chaîne = COL_Cardpos
 
	// Parcours à la remontée (pour ne pas perdre la position quand on supprime la ligne)
	Lig = TABLE_Produit..occurrence
 
	Pour i = Lig _A_ 1 PAS -1
 		SI COL_Cardpos[i] = Cardpos ET COL_Composante[i] = Vrai ALORS
			TableSupprime(TABLE_Produit,i)
 
		FIN
	FIN
 FIN

[gabcouts]

Salut R&B,

je viens de tester ton code. Dans une teste pas à pas, je respecte bien les conditions de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SI COL_Cardpos[i] = Cardpos ET COL_Composante[i] = Vrai ALORS

mais impossible d'entrer dans le ALORS, je sort directement après le TableSupprime(), j'ai mit un point d’arrêt exclusivement sur le TableSupprime() et aucun arrêt détecté (Les conditions sont biens exactes).

[gabcouts]

Bonjour,


Bizarrement, ça fonctionne avec cette structure ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
SI COL_DateHeure <> "" ALORS
		//On modifie une ligne et on supprime les vieux composantes si trouvé
 
		Cardpos est une chaîne = COL_Cardpos
 
		// Parcours à la remontée (pour ne pas perdre la position quand on supprime la ligne)
		Lig = TABLE_Produit..Occurrence
 
		POUR i = Lig _A_ 1 PAS -1
			SI COL_Cardpos[i] = Cardpos ALORS
				SI COL_Composante[i] = "1" ALORS
				TableSupprime(TABLE_Produit,i)
				FIN
			FIN
		FIN
FIN

Peut-être le ET qui causait problèmes? J'irais tester un autre fois. Maintenant que sa marche, je laisse tout en place.


Merci pour vos réponses!

[Hemgé]

Maintenant que sa marche, je laisse tout en place.

Bonjour,

Alors [Résolu] ou pas [Résolu] ?

Au passage, vous avez modifié DEUX choses : le ET et la comparaison à la chaîne "1" au lieu de la constante Vrai.
Peut-être Windev fait-il "sa conversion automatique" de "1" vers 1 ? Il serait intéressant de connaître la définition de la colonne en cause : booléen (a priori), chaîne ou entier ?

Hemgé

[gabcouts]

Bonjour,

Alors [Résolu] ou pas [Résolu] ?

bien sur le post est résolu, je reste ouvert aux idées de code, car je trouve cette erreur quand même bizarre.

Au passage, vous avez modifié DEUX choses : le ET et la comparaison à la chaîne "1" au lieu de la constante Vrai.
Peut-être Windev fait-il "sa conversion automatique" de "1" vers 1 ? Il serait intéressant de connaître la définition de la colonne en cause : booléen (a priori), chaîne ou entier ?

Ma table, comporte 8 colonne, COL_Numéro, COL_Description, COL_Quantité, COL_Prix,COL_Vendeur,COL_Composante(*)(colonne en cause),COL_CardPos(*),COL_DateHeure(*).

* = Colonne Invisible

Ma colonne "COL_Composante" est invisible de type chaine sans masque.

Lors de l'ajout d'une ligne ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TableModifieLigne(TABLE_Produit,nPos,sNumber,sNom,DefaultQty,xPrix,sVendeur,Vrai,nCardPosParent,DateHeureSys())

il serait intéressent à tester, en effet! Proposez vos modification et je testerais.

Bonsoir.

[tbc92]

Si ta colonne col_composant est de type chaîne, alors tu as tout intérêt à la comparer à une autre chaîne. Comparer une chaîne avec un booléen... c'est un très bon moyen de se planter.
L'autre conseil que je donnerais, c'est d'utiliser _ET_ au lieu de ET.
Ceci étant, je ne vois pas pourquoi l'essai précédent plantait.

[Hemgé]

bien sur le post est résolu,

C'était juste une manière de vous rappeler de clôturer la discussion.

Ma table, comporte 8 colonne, COL_Numéro, COL_Description, COL_Quantité, COL_Prix,COL_Vendeur,COL_Composante(*)(colonne en cause),COL_CardPos(*),COL_DateHeure(*).

* = Colonne Invisible

Ma colonne "COL_Composante" est invisible de type chaine sans masque.

Ici, j'ai quand même quelques problèmes :
votre colonne "Composante" réputée invisible ci-dessus - était affichée dans le visuel du premier message. A-t-elle été rendue visible pour les besoins de la cause, ou bien certaines modifications ont-elles été apportées depuis lors ?
votre colonne "Composante" affichait "Vrai" ou "Faux" dans le visuel, ce qui n'est pas conforme a ce que vous décrivez faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TableModifieLigne(TABLE_Produit,nPos,sNumber,sNom,DefaultQty,xPrix,sVendeur,Vrai,nCardPosParent,DateHeureSys())

Si vous affectez la constante Vrai à une colonne définie comme chaîne sans masque, la constante Vrai injecte sa valeur "numérique", soit 1 dans la colonne et la conversion de type de Windev affiche une chaîne "1", mais ni "Vrai", ni "Faux". Il y a donc une discordance entre ce que vous nous avez renseigné initialement et ce que vous écrivez maintenant.

C'est sur cela que je voulais attirer votre attention lorsque vous écriviez que, puisqu'en l'évitant vous n'aviez plus de souci, c'était peut-être le ET qui posait problème.

Peut-être le ET qui causait problèmes?

Non seulement vous avez supprimé le ET, mais vous êtes passé de Vrai à "1".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SI COL_Cardpos = Cardpos ET COL_Composante = Vrai ALORS
//est devenu 
SI COL_Cardpos[i] = Cardpos ALORS
	SI COL_Composante[i] = "1" ALORS

Donc, cette seconde modification doit également être envisagée comme une cause possible du changement de comportement du code.

[gabcouts]

Bonjour Hemgé,

Ici, j'ai quand même quelques problèmes :
votre colonne "Composante" réputée invisible ci-dessus - était affichée dans le visuel du premier message. A-t-elle été rendue visible pour les besoins de la cause, ou bien certaines modifications ont-elles été apportées depuis lors ?

En effet la colonne à été rendu visible pour le post.

votre colonne "Composante" affichait "Vrai" ou "Faux" dans le visuel, ce qui n'est pas conforme a ce que vous décrivez faire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TableModifieLigne(TABLE_Produit,nPos,sNumber,sNom,DefaultQty,xPrix,sVendeur,Vrai,nCardPosParent,DateHeureSys())

Si vous affectez la constante Vrai à une colonne définie comme chaîne sans masque, la constante Vrai injecte sa valeur "numérique", soit 1 dans la colonne et la conversion de type de Windev affiche une chaîne "1", mais ni "Vrai", ni "Faux". Il y a donc une discordance entre ce que vous nous avez renseigné initialement et ce que vous écrivez maintenant.

Après réflexion, ma ligne aurait dû ressembler à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TableModifieLigne(TABLE_Produit,nPos,sNumber,sNom,DefaultQty,xPrix,sVendeur,"Vrai",nCardPosParent,DateHeureSys())

Je viens de tester avec le type booléen et la conversion automatique passe, en effet, en 1 et 0. Il est donc évident que c’était inscrit en chaine à la base. C'est mon erreur!


Lors de mes observation dans le débogueur, j'obtenais mon COL_Composante = Vrai et ma condition = Vrai. Je ne voyais pas la distinction chaine/bool et c'est pourquoi les conditions n'étais pas respectés.

Je remplace le tout par des bools et je n'y touche plus!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SI COL_Cardpos[i] = Cardpos ET COL_Composante[i] = Vrai ALORS
 
TableModifieLigne(TABLE_Produit,nPos,sNumber,sNom,DefaultQty,xPrix,sVendeur,Vrai,nCardPosParent,DateHeureSys())

Merci à tous pour votre temps et vos réponse!