Discussion :

[Algo2010]

Bonjour,

j'ai une application constitué des fichiers suivants : Etablissement, chauffeur, carburant, voiture, carburant.

je saisis un ordre de mission on fait appel à un matricule de voiture, puis un appel à un nom de chauffeur, tous se passe bien.

le problème c'est que la table memoire reliee au fichier de saisie affiche tous les enregistrements sans tenir compte de filtre suivant l'annee actif qui est un champ reliée par une liaison au fichiers : budget, Etablissement, carburant.
J'ai uilisé la programmation suivante.

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
SI Ouvre(Vision_Voiture,(combo_Voiture)) ALORS
	ListeAffiche(combo_Voiture,taCourantPremier)
	SAI_Marque=Voiture.Marque_voiture
HRecherchePremier(Quota_Service,Annee,Menu.Dossier,hGénérique)
	SI HTrouve ET PAS H.EnDehors ALORS
		Quota_Service.Matricule=combo_Voiture
		HFiltreIdentique(Quota_Service,Matricule,combo_Voiture)
		HLitPremier(Quota_Service,Matricule,hRespecteFiltre)
				TANTQUE HTrouve ET PAS H.EnDehors  
						TableAjoute(Table_service,Quota_Service.IDService+TAB+Table_service.matricule_choff+TAB+Quota_Service.Nom_prenom+TAB+Quota_Service.Matricule+TAB+Quota_Service.Valeur_bon+TAB+Quota_Service.Nbre_bon+TAB+Quota_Service.Total_Bon_Service+TAB+Quota_Service.Date_utilisation+TAB+Quota_Service.Kilo_parcourus+TAB+Quota_Service.Numéro_bon_départ+TAB+Quota_Service.Numéro_bon_arrivé+TAB+Quota_Service.Annee)
						HLitSuivant(Quota_Service,Matricule)
				FIN
FIN	
SINON
	Erreur(" Aucun matricule Voiture lui correspond")
FIN

merci de m'aider svp

[mail.spam]

Bonjour,

Si je suis ton code, tu te positionne dans un premier temps sur le premier enregistrement du fichier Quota_Service dont la valeur d'une rubrique spécifique Annee est supérieure ou égale à une valeur recherchée Menu.Dossier ( texte tiré de l'aide de HRecherchePremier )
HRecherchePremier(Quota_Service,Annee,Menu.Dossier,hGénérique)

Puis ensuite tu fais un filtre sur le numéro de matricule
HFiltreIdentique(Quota_Service,Matricule,combo_Voiture)

Ce qui a pour effet de filtre ton fichier QUE sur le matricule, tu ne tiens pas compte de l'année.

Dans ton cas il faudrait plus utiliser la syntaxe suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Filtre est chaine = "Annee = " + Menu.Dossier + " ET Matricule = '" +  combo_Voiture + "'"
CléParcours est chaine = HFiltre(Quota_Service,Filtre)
SI CléParcours <> "" ALORS
	HLitPremier(Quota_Service, CléParcours)
	TANTQUE PAS HEnDehors()
		// traitement ...
		HLitSuivant(Quota_Service, CléParcours)
	FIN
FIN

A toi de vérifier la syntaxe.

Bon courage

[Dober]

Exacte, ton filtre ne s'effectue que sur le Matricule et ne prend pas en considération l'Année...

PS : le code de mail.spam ne remplace que la partie du Filtre, et non pas tout le code que tu as écrit ^^