WDForge.org - Forums

Probléme de boucle

Sujet: Probléme de boucle
par Anonyme sur 4/11/2005 15:28:00

J'ai un fichier écriture avec un numéro de facture /un libelle/et un montant

je veux ajouter ces enrégistrements dans un fichier facture.
Comme dans le fichier écriture il y a des foix plusieurs enrégistrement de la même facture je cherche uniquement a concantainer dans une chiane les libellée des 1 deux ou trois ligne du fichier écriture dans le libellé de l'enrégistrement facture.

Les enrégistrements écriture sont dans l'ordre des ligne avec la clé ID.

J'ai fais le programme suivant mais il se plante.

new_index est une chaîne=""

HLitPremier (ECRITURE , ID )
new_index=ECRITURE.Facture

TANTQUE PAS HEnDehors
SI ECRITURE.Facture=new_index ALORS cumul()
SI ECRITURE.Facture <> new_index ALORS
HAjoute(FACTURES);FACTURES.REFERENCE="";new_index=ECRITURE.Facture;HRAZ(FACTURES);cumul()
FichierVersEcran()
HLitSuivant (ECRITURE , ID)
FIN
FIN
-----------------------------------------------------

PROCEDURE cumul()
FACTURES.NUM_CLIENT=ECRITURE.Client
FACTURES.NUM_FACT=ECRITURE.Facture
FACTURES.DATE=ECRITURE.Date
FACTURES.REFERENCE=FACTURES.REFERENCE+"/"+ECRITURE.Libellé
SI ECRITURE.Doit >0 ALORS FACTURES.ACCOMPTE= ECRITURE.Doit

quelqu'un aurais t'il une idée

Bon week

et Merci d'avance si des fois