Discussion :

[mnssylvain]

bonjour,

je suis sur un projet de calcul de frais de déplacement.
La ville de départ est pratiquement toujours la meme (ville du domicile)
les villes de destination sont + ou - toujours les memes


j'ai un fichier:
- déplacement qui enregistre les différents déplacements (date.....)
- villes qui contient les différentes villes de destination
- distance qui sert de base de donnée pour la distance entre les villes


Dans ma fenêtre on renseigne la ville de départ et la ville de destination

je voudrais créer un code qui compare les ville de départ et destination que l'utilisateur rentre à celle du fichier distance. Si on trouve correspondance on importe dans le champ de saisie la distance contenue dans ce fichier sinon l'utilisateur renseigne lui meme la distance qui est ensuite memorisé dans le fichier distance pour améliorer la base de donnée des distances....

Le pb c'est tout simplement que je ne sais pas trop comment m'y prendre.

J'ai essayé de faire une requête mais je n'ai rien trouvé pour comparer sur 2 données (départ et destination) je pense qu'il faut créer un code car je n'ai pas de correspondance entre les rubrique id de me fichiers "déplacement" et "distance"

merci pour tous ceux qui m'indiqueront des pistes de travail.....

[mogwai162]

Tu as plusieurs solutions :

- La requête : tu peux dans une requete faire autant de tests que tu veux.
- La lecture avec Hlitrecherche : Il te faut créer une clef composée des 2 identifiants villes

[mnssylvain]

Merci j'ai insisté sur la requête est effectivement c'est beaucoup plus simple que ce que je pensais

Voici le code pour ceux qui chercherai à faire la même chose

Sur modification de sai_destination

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
SI SAI_Départ <> ""ET SAI_Destination <> "" ALORS
	REQ_distance.Param1 = SAI_Départ
	REQ_distance.Param2 = SAI_Destination
	HExécuteRequête(REQ_distance)
	HLitPremier(REQ_distance)
	SAI_kmjour = REQ_distance.kmjour
	SINON
FIN

sur sortie de sai_km (pour compléter la base...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SI REQ_distance.IDDistance <> 0 ALORS
	Distance.Depart = SAI_Départ
	Distance.Destination = SAI_Destination
	Distance.kmjour = SAI_kmjour
	HModifie(Distance,REQ_distance.IDDistance)
 
SINON
	Distance.Depart = SAI_Départ
	Distance.Destination = SAI_Destination
	Distance.kmjour = SAI_kmjour
	HAjoute(Distance)
FIN

voilou