Probléme de boucle
Posté par Anonyme le 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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2993&post_id=12554