PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2025 → Fusionner des lignes dans une table WINDEV selon une condition
Fusionner des lignes dans une table WINDEV selon une condition
Débuté par mhedhbi, 22 déc. 2019 10:02 - 4 réponses
Membre enregistré
6 messages
Posté le 22 décembre 2019 - 10:02
Bonjour à Tous le Monde
Je vous pris de bien vouloir m'aider à fin de trouver une solution d'affichage dans un tableau windev surtout que je suis encore débutant en programmation.






Date Objet Crédit Numfact
20/12/2019 Reglement client 50,000
20/12/2019 Regelemnt client 20,000
20:12/2019 Reglement client 59,250 Cvol00001
20/12/2019 Reglement Client 13,000 Cvol00002
20/12/2019 Regl Vente Client 222,600 Fact00004
20/12/2019 Regl Client 152,400 Cvol0003


Je veux fusionner toutes les lignes ayant Numfat commençant par Cvolxxxxx et les remplacer par une seule ligne ( bien sur avec la somme des crédits) et garder les autres lignes tels qu ils sont.
Merci beaucoup pour aide.
Membre enregistré
491 messages
Posté le 23 décembre 2019 - 09:11
Bonjour

Voici un code pour vous inspirer :

Valeur est un réel = 0

//parcours de ligne 1 par 1
POUR TOUT LIGNE de TablemvtCaisse
//on regarde si les 4 premier caractère de gauche de la valeur contenu dans la colonne numfact est = à "Cvol"
SI Gauche(TablemvtCaisse.numfact,4) = "Cvol" ALORS
// on additionne la valeur avec les précedentes valeur
Valeur = Valeur + Val(TablemvtCaisse.credit)
//on supprime la ligne dans la table
TableSupprime(TablemvtCaisse)
FIN
FIN

//ajout de la nouvelle ligne avec les valeurs additionnées
snumligne est un entier

snumligne = TableAjouteLigne(TablemvtCaisse)
TablemvtCaisse.Date[snumligne] = DateDuJour()
TablemvtCaisse.obj_op[snumligne] = "ligne réecrit"
TablemvtCaisse.credit[snumligne] = Valeur
TablemvtCaisse.numfact[snumligne] = "XXXXXXXXXXX"

//rafraichissement de la table
TableAffiche(TablemvtCaisse)


cordialement

DG
Membre enregistré
6 messages
Posté le 23 décembre 2019 - 20:04
Bonsoir
Merci beaucoup pour votre collaboration et bonne fin d'année 2019.
Membre enregistré
170 messages
Posté le 24 décembre 2019 - 09:06
Et pourquoi ne pas le faire avec une requête ?

--
--
Jean-Jacques
Membre enregistré
6 messages
Posté le 24 décembre 2019 - 20:00
Bonsoir,
SVP si vous avez une idée sur la façon de réaliser ceci à l'aide d'une requête n'hésiter pas à nous donner une proposition.
MM