Discussion :

[baron_rouge]

bonjour,

je suis en cours de modification d'une base hyper file...

je cree un alias (a partir d'un fichier "fichier_origine" avec comme nom le contenu d'une variable (ex 1634 ou echelle),je compte en créer une centaine environ....
et je cherche a remplir cette nouvelle base avec des données provenant d'une base ancienne (Lnoe1)...
le code :

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
//lecture du pre
choix_station est une chaîne=Combo_Station2..ValeurMémorisée 

// Création de l'alias pour la station en cours
HAlias(fichier_origine, choix_station)
HCréationSiInexistant(choix_station)

//=========traitement L1=============

SI capteur1[1]=Vrai ALORS 
//partie noé
HLitPremier(Lnoe1)//lecture base existante
	TANTQUE PAS HEnDehors(Lnoe1)
		SI Lnoe1.pre=choix_station ALORS //condition d'egalité
	
		choix_station.dateheure =Lnoe1.dateheure
	
		HAjoute(choix_station)	
		FIN
	HLitSuivant(Lnoe1)
	FIN	
FIN

le probleme c'est sur le code "choix_station.dateheure =Lnoe1.dateheure" ou windev ne reconnait pas choix_station comme une variable (sachant que dateheure est bien un champs du fichier).



merci d'avance

[mogwai162]

Il faut que tu déclare choix_station en EXTERNE.

[baron_rouge]

je suis un ane !!

j'ai completement oublié de faire un hchangenom !!!

maintenant cela fonctionne correctement

voici le code revu :

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
//lecture du pre
choix_station est une chaîne=Combo_Station2..ValeurMémorisée 
 
// Création de l'alias pour la station en cours
HAlias(fichier_origine, choix_station)
HCréationSiInexistant(choix_station)
HChangeNom(fichier_origine,choix_station)
//////////////////////////////////////
//=========traitement L1=============
/////////////////////////////////////
 
SI capteur1[1]=Vrai ALORS 
//partie noé
HLitPremier(Lnoe1)//lecture base existante
	TANTQUE PAS HEnDehors(Lnoe1)
		SI Lnoe1.pre=choix_station ALORS //condition d'egalité
 
		 fichier_origine.dateheure =Lnoe1.dateheure
		 fichier_origine.valeur_noe=Lnoe1.valeur
		 fichier_origine.capteur="L1"
		HAjoute(fichier_origine)
		Trace(Lnoe1.valeur)	
		FIN
	HLitSuivant(Lnoe1)
	FIN	
FIN

merci et bonne journée