Discussion :

[PaulNero]

Bonjour les gars,
je suis actuellement bloqué sur un fichier windev.
Supposons que le fichier s'appelle élément
il a un idauto qui s'appelle idélement.Il y a aussi 3 rubriques:support, support précédent et idsupport précédent.

Jusqu'à présent dans le fichier les supports et les supports précédents vont de 258 à 1204 (en terme d'enregistrements)?

donc le fichier ressemble à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 idauto     supports    supports_préc     idauto_sup_prec 
 258        10uiz          100ze                   259
 259        100ze         45ioy                    586
 260        789uo         10uiz                    258
 261        789il           63kjh                  1204
.           .                .                         .
.           .                .                         .
.           .                .                         .
 1204       63kjh         789uo                       309

Dans le fichier, la colonne idauto_sup_prec est vide.Le but de ma dmarche est de remplir chaque id auto correspondant par programmation.
J'ai ainsi tenté d'implémenté ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
HLitRecherchePremier(Elément,Elément.idauto,258)
Si Htrouve() alors 
    TANTQUE PAS Hendehors() 
         si Elément.supports_prec = Elément.supports ALORS
            Elément.idauto_sup_prec = Elément.supports
            HModifie(Elément)
         fin
         HLitSuivant(Elément, Elément.idauto) avant !
     FIN
SINON
     info("aucune correspondance")
FIN

Mais cela ne fonctionne pas.Car aucune valeur n'est repertoriée dans la rubrique idauto_sup_prec

[wimbish]

Bonjour,
tu dois parcourir 2 fois parallèlement le même fichier.
1er parcours pour lire le libellé supports_préc de l'enregistrement à modifier
2eme parcours pour rechercher l'id Auto de supports_préc
retour au 1er parcours (avec les hsauveposition et hretourposition) pour écrire l'idauto_sup_prec trouvé.

[frenchsting]

j'aurais plutôt écrit ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
HCreeVue(MaVue,Elément,Elément.idauto,"Elément.idauto=258")
Si Htrouve() alors 
    TANTQUE PAS Hendehors() 
         si Element.supports_prec = MaVue.supports ALORS
            Elément.idauto_sup_prec = MaVue.idauto
            HModifie(Elément)
         fin
         HLitSuivant(Elément, Elément.idauto) avant !
     FIN
SINON
     info("aucune correspondance")
FIN
HDetruitVue(Mavue)

[wimbish]

Je ferais quelque chose comme ça :
parcours de tout le fichier pour ajouter l'idauto_prec

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
nPos est un entier
sSupports_prec est une chaîne
nIdauto est un entier
HLitPremier(Element,idauto)
TANTQUE HTrouve(Element)
	nPos = HSauvePosition(Element,idauto,hSauveRubriques)
	sSupports_prec = Element.supports_prec
	HLitRecherchePremier(Element,Element.supports,sSupports_prec)
	SI HTrouve(Element) ALORS 
		nIdauto = Element.idauto
	FIN
	HRetourPosition(nPos)
	Element.idauto_prec = nIdauto
	HModifie(Element)
	HLitSuivant(Element)
FIN

A tester bien sûr.

[wimbish]

Re,
Bien vu Claude l'utilisation des vues (je ne m'en sert pas assez souvent)

[PaulNero]

Bravo à Wimbish et à frenchsting aussi.
Le code de Wimbish marche parfaitement.J'avoue que je ne connaissais pas Hretourposition, hsauverubrique.C'est très intéressant ça.

frenchsting, la vue crée ne reconnait pas certaine rubrique.Par exemple Mavue.supports n'est pas reconnue.Je vais bien éplucher la question et je te tiens au courant sur le sujet.

cordialement

[wimbish]

Content de t'avoir aidé .
Penses à marquer ton post comme "Résolu" pour respecter les règles du forum