Discussion :

[zeston]

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 :

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

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...

[tatayo]

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

Tatayo.

[zeston]

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 :

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

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

[kool-Paladin]

bonjour,

le code devrait etre comme cela

Code :

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

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

[zeston]

bonjour,

le code devrait etre comme cela

Code :

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

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

[tbc92]

On va simplifier un tout petit peu :

Code :

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

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