Lecture d'une table mémoire et remplissage d'une autre table mémoire, avec sous-totaux

Version imprimable

07/11/2018, 14h06
GEY3008

Lecture d'une table mémoire et remplissage d'une autre table mémoire, avec sous-totaux

Bonjour :coucou:
Je demande votre aide pour une optimisation de code.
Je vous explique mon cas. J'ai une table mémoire (liste) remplie par programmation qui comporte plusieurs colonnes dont 2 qui nous intéressent. Code et Qté.
Je voudrais remplir une autre table mémoire (liste1) similaire à la première, de façon à cumuler les quantités pour le même code. (sans doublons cette fois-ci)
Je n'arrive pas à trouver le code idéal.
Merci de votre aide.
07/11/2018, 14h26
tatayo
Bonjour,
Tu peux utiliser un tableau associatif d'entier, dont la clé est ta valeur "Code".
Quand tu remplis la première table, tu remplis en même temps ce tableau associatif:
Code:

1 2 taMonTableau[scode] += MaValeur
En fin de remplissage, il suffit de le parcourir pour remplir la deuxième table.

Tatayo.
07/11/2018, 14h50
GEY3008

Merci pour ta réponse Tatayo; Je ne connais pas la fonction tableau associatif.
Je vais étudier ça ce soir car je suis au travail sans possibilité de programmation (qui n'est pas mon métier)
07/11/2018, 15h25
serendib

Tu peux aussi regarder du côté de TableCherche()
Peut-être plus simple pour un débutant.
07/11/2018, 22h28
tbc92

Comme Serendib, je pense que les tableaux associatifs sont un peu compliqués.
Je te conseille de trier ta liste ou ta table (avec TableTrie() ou ListeTrie() ), puis de parcourir cette liste préalablement triée .

Cette discussion ici peut éventuellement t'aider pour la suite.

Je voyais pltuôt un code qui marche bien du style :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
SAP1,SAP2,SAPCumul,Qté1,Qté2,QtéCumul sont des chaînes
HExécuteRequête(Req_CumulQté)
HLitPremier(Req_CumulQté)
 
SAP1=Req_CumulQté.SAP
Qté1=Req_CumulQté.Qté
QtéCumul=Val(Qté1)
 
TANTQUE PAS HEnDehors(Req_CumulQté)
	HLitSuivant()
	SAP2=Req_CumulQté.SAP
	Qté2=Req_CumulQté.Qté	
 
	SI SAP1=SAP2 ALORS
		QtéCumul=Val(QtéCumul)+Val(Qté2)
	SINON
		QtéCumul=Val(QtéCumul)
		SAPCumul=Val(SAP1)
 
		TableAjouteLigne(Table1,SAPCumul,QtéCumul)
		QtéCumul=Val(Qté2)
		SAP1=SAP2
	FIN
FIN

Le problème est qu'il ne me note pas le dernier enregistrement cumulé. :(

C'est le thème de la discussion que je t'avais conseillé de lire : Problème avec le dernier enregistrement du tableau

Ca donne ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
SAP1,SAP2,SAPCumul,Qté1,Qté2,QtéCumul sont des entiers
HExécuteRequête(Req_CumulQté)
HLitPremier(Req_CumulQté)
SAP1=Req_CumulQté.SAP
 
TANTQUE PAS HEnDehors(Req_CumulQté)
	SAP2=SAP1 
        QtéCumul = 0
        TANTQUE PAS HEnDehors(Req_CumulQté) _et_ SAP2 = SAP1
		QtéCumul=QtéCumul+Req_CumulQté.Qté
	        HLitSuivant (Req_CumulQté) 
                SAP1=Req_CumulQté.SAP 
	FIN
        TableAjouteLigne(Table1, SAP2, QtéCumul )
FIN

09/11/2018, 09h10
GEY3008

Oui j'avoue que cela marche mieux dans ce sens. J'avais regardé l'autre post mais j'ai été un peu perdu dans le code ...
J'ai juste modifié un truc car mes champs sont en texte et non numériques :

Code:

QtéCumul=QtéCumul+Val(Req_CumulQté.Qté)

Merci à toi et je te prépare un petit tuto ce week ;)