PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Fusionner des lignes dans une table WINDEV selon une condition
Fusionner des lignes dans une table WINDEV selon une condition
Iniciado por mhedhbi, 22,dic. 2019 10:02 - 4 respuestas
Miembro registrado
6 mensajes
Publicado el 22,diciembre 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.
Miembro registrado
491 mensajes
Publicado el 23,diciembre 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
Miembro registrado
6 mensajes
Publicado el 23,diciembre 2019 - 20:04
Bonsoir
Merci beaucoup pour votre collaboration et bonne fin d'année 2019.
Miembro registrado
170 mensajes
Publicado el 24,diciembre 2019 - 09:06
Et pourquoi ne pas le faire avec une requête ?

--
--
Jean-Jacques
Miembro registrado
6 mensajes
Publicado el 24,diciembre 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