Discussion :

[samxpress]

Bonsoir la communauté

Je viens auprès de vous en toute humilité pour avoir un coup d'aide.
J'utilise Windev 25 sous Windows 11.

En effet, je développe un programme où le client utilise plusieurs devises monétaires (Euro, Dollar, XAF et Franc) suivant ses besoins. Les champs associés sont de type monétaire (sans devise attachée).

J'ai donc créé un champ COMBO dans lequel je liste les 4 devises et à chaque Sélection d'une ligne de COMBO_DeviseMonetaire, j'ai placé un code basique qui affecte aux champs le changement de devise du genre :

Voici une partie de l'image de ma fenêtre :



Et voici 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sélection d'une ligne de COMBO_DeviseMonetaire :
 
SELON COMBO_DeviseMonetaire..ValeurAffichée
 
     CAS "Euro" :
          SAI_TotalCommission.MasqueAffichage = " €"
          SAI_TotalHT.MasqueAffichage = " €"
          SAI_TotalRemise.MasqueAffichage = " €"
          SAI_TotalCommission.MasqueAffichage = " €"
          SAI_TotalTTC.MasqueAffichage = " €"
 
     CAS "Dollar" :
          SAI_TotalCommission.MasqueAffichage = " $"
          SAI_TotalHT.MasqueAffichage = " $"
          SAI_TotalRemise.MasqueAffichage = " $"
          SAI_TotalCommission.MasqueAffichage = " $"
          SAI_TotalTTC.MasqueAffichage = " $"
 
     CAS "XAF" :
          SAI_TotalCommission.MasqueAffichage = " XAF"
          SAI_TotalHT.MasqueAffichage = " XAF"
          SAI_TotalRemise.MasqueAffichage = " XAF"
          SAI_TotalCommission.MasqueAffichage = " XAF"
          SAI_TotalTTC.MasqueAffichage = " XAF"
 
     CAS "Franc" :
          SAI_TotalCommission.MasqueAffichage = " F"
          SAI_TotalHT.MasqueAffichage = " F"
          SAI_TotalRemise.MasqueAffichage = " F"
          SAI_TotalCommission.MasqueAffichage = " F"
          SAI_TotalTTC.MasqueAffichage = " F"
 
 
     AUTRE CAS
 
FIN

A l'exécution, les champs n'affichent rien et restent donc vides.

SVP, un communautaire a-t-il déjà traité un cas du genre pour me donner un coup de main.

Merci pour votre aide. Bon dev.

[popoy]

Salut
J'ai déjà répondu sur cette page
http://forum.acam.ca/display_topic_t...PagePosition=1

[Voroltinquo]

Bonjour,
Dans la table des matières, il y a un chapitre sur les fonctions et propriétés concernant l'internationalisation des projets.
Regarde du côté de DeviseAffichage. Tu peux même placer tout tes champs de saisie concernés dans un groupe.

[samxpress]

@Voroltinquo

Merci beaucoup, j'ai déjà placé tous les champs concernés dans un groupe que GR_ChangeDev, et je suis en ce moment entrain d'essayer avec eChangeDevise(<Valeur à convertir> , <Devise source> , <Devise destination> [, <Nombre de décimales> [, <Écart d'arrondi>]]).

Mais avec votre réponse, je fini de tester ce que j'ai commencé puis je plonge dans votre rivière.

Merci, je vous tiens au courant.

Avec plaisir, bon dev.