[WD20] Trie et Calcul sur TABLE

Trie et Calcul sur TABLE

Bonjour
J'ai un petit soucis avec un calcul sur une table de facturation.
En Effet, les articles sont ajoutés un a un par les caissières par code ou codebarre (Col_Code)
A la fin de la saisie (que je détermine après un Echap)
Je veux un trie et un calcul en additionnant les codes articles identique :
Code:

1 2 3 4 5 6 7 TableTrie(TABLE_Facturation,COL_Code..Nom) POUR i=1 A TableOccurrence(TABLE_Facturation) TANTQUE COL_Code[i]=COL_Code[i+1] COL_Quantite[i]=COL_Quantite[i]+COL_Quantite[i+1] TableSupprime(TABLE_Facturation,i+1) FIN FIN
Effectivement, il m'envoie le message d'erreur suivant :
Vous avez appelé l'opérateur [] sur le champ TABLE_Facturation.
L'indice spécifié [3] est invalide.
Les valeurs valides sont comprises entre 1 et 2 (inclus).
Je comprend qu’après la suppression de la ligne i+1, l’occurrence de la table change, mais je cherche l'astuce et la je coince..
Si je peu avoir des avis ou des astuces pour contourner tout ça (avec une tablecherche par exemple ou j'ai coincé aussi)
merci...

Bonjour,
Une solution ici est de parcourir la table "à l'envers", et partant de la dernière ligne vers la première.

Tatayo.

Citation:

Envoyé par tatayo

Bonjour,
Une solution ici est de parcourir la table "à l'envers", et partant de la dernière ligne vers la première.

Tatayo.

Merci pour ta reponse...
j'ai essayé avec :

Code:

POUR i=TableOccurrence(TABLE_Facturation) A 1

effectivement il m'envoie plus d'erreur, mais par contre il trie les codes (c'est normal a cause du Tabletrie) sans pour autant incrémenter les quantités ni supprimer les lignes....
tu as une idée de ce que peu devenir le code final?
Merci

bonjour,

le code devrait etre comme cela

Code:

1
2
3
4
5
6
7
8
 
TableTrie(TABLE_Facturation,COL_Code..Nom)
POUR i= TableOccurrence(TABLE_Facturation) _A_ 1 pas -1
      SI i>1 _ET_ COL_Code[i]=COL_Code[i-1]
          COL_Quantite[i]=COL_Quantite[i]+COL_Quantite[i-1]
          TableSupprime(TABLE_Facturation,(i-1))
      FIN
FIN

a tester mais j'aurais fait comme ca

Citation:
Envoyé par kool-Paladin
bonjour,

le code devrait etre comme cela
Code:

1 2 3 4 5 6 7 8 TableTrie(TABLE_Facturation,COL_Code..Nom) POUR i= TableOccurrence(TABLE_Facturation) _A_ 1 pas -1 SI i>1 _ET_ COL_Code[i]=COL_Code[i-1] COL_Quantite[i]=COL_Quantite[i]+COL_Quantite[i-1] TableSupprime(TABLE_Facturation,(i-1)) FIN FIN
a tester mais j'aurais fait comme ca
Parfait, j'ai testé et sa marche parfaitement
Merci infiniment pour ton aide

On va simplifier un tout petit peu :

Code:

1
2
3
4
5
6
7
TableTrie(TABLE_Facturation,COL_Code..Nom)
POUR i= TableOccurrence(TABLE_Facturation) _A_ 2 pas -1      // 2 au lieu de 1 
      SI COL_Code[i]=COL_Code[i-1]                                       // plus besoin de cas particulier pour i=1
          COL_Quantite[i]=COL_Quantite[i]+COL_Quantite[i-1]
          TableSupprime(TABLE_Facturation,(i-1))
      FIN
FIN