Bonjour à tous,
Me revoilà avec un nouveau problème.
Je souhaite modifier les données d'un fichier HF par la lecture de différentes listes.
Voici mon code pour que ce soit plus clair :
Une activité ne peut se trouver que dans 1 seule liste et pour le moment chaque activité se trouve forcément dans une liste.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 HLitPremier(Activités,Activité) //On va lire une à une les cellules de la colonne activité TANTQUE PAS HEnDehors() //On teste les activités 1 par 1 HLit(Activités,hNumEnrEnCours) ActivitéenCours est une chaîne ActivitéenCours=Activités.Activité //on teste l'activité de la ligne en cours du fichier HF POUR TOUTE LIGNE DE LISTE_ActiOM //On cherche l'activité dans la première liste ActiOMenCours est une chaîne=LISTE_ActiOM..ValeurAffichée SI ActiOMenCours=ActivitéenCours ALORS HRecherche(Activités,Activité,ActivitéenCours) Activités.FamilleActivité="OM" HModifie(Activités) //HLitSuivant(Activités,Activité) //ActivitéenCours =Activités.Activité //TableAffiche(TABLE_Activités,taInit) SINON FIN FIN POUR TOUTE LIGNE DE LISTE_ActiDI //On va chercher dans la 2ème liste // etc etc sur différentes listes
pour finir je fais :
Alors le soucis est que je boucle sur une activité, on ne passe pas d'une ligne à une autre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 HModifie(Activités) HRAZ(Activités) HLitSuivant(Activités,Activité) TableAffiche(TABLE_Activités,taInit) FIN
Mais on ne boucle pas sur la 1ère mais la 2ème ligne ...
J'ai essayé tellement de trucs que je me retrouve sans ressources.
Vos conseils éclairés seront d'une aide formidable comme à chaque fois.
Merci d'avance.
Partager