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

bonjour
je pense que ton premier "FIN" est mal placé , il serait mieux avant ton hlitsuivant(ECRITURE,ID).
En effet, le lecture de l'enregistrement suivant ne se fait jamais, ECRITURE.Facture et new_index ne change jamais de valeur .
enfin moi ce que je dis ...

Vue la façon dont est organisé ton code, c'est pas très étonnant que ça ne marche pas. Il faut faire preuve de rigueur :

-bien indenter ton code ;
-utiliser un maximum :


et non


Certes cela est possible mais c'est un coup a mettre son code en carafe, si on n'est pas assez rigoureux.