Discussion :

[mac.croutier]

Bonjour à toutes et à tous,

J'espère que vous allez bien !

Je cherche depuis quelques temps une fonction éventuelle qui pourrait m'aider.

Je lis d'un AS400 un fichier via ODBC. (La description est connue dans l'analyse).
Dans ce fichier, j'ai des données avec plusieurs colonnes dont une avec un code "décimal" qui donne la position de la 'virgule' dans une autre donnée de ce ficheir. (L'appli sur l'AS400 l'utilise comme cela).
1 correspond à une division par 10 (donc décalage virgule de 1 position)
2 correspond à une division par 100 (donc décalage virgule de 2 position)
3 correspond à une division par 1000 (donc décalage virgule de 3 position)

Par exemple : 0.45 avec un code 2 donne 0.0045.

La solution serait de créer un fichier de "Conversion" et de faire une requête...
Ma question est, existe t'il une fonction dans windev qui puisse "Décaler" la virgule (partie décimal) de la valeur du code "décimal"

Dans l'attente, bien à vous.

Christian

[padbrain]

Hum salut,

Je dirais que si tu la fais, elle existera

Code :

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

1
2
3
4
5
6
7
8
9
 
PROCÉDURE decalage(x, pIndice)
 
TANTQUE pIndice <> 0
	x = x/10
	pIndice-= 1
FIN
 
RENVOYER x

[mac.croutier]

Salut Padbrain,

Merci pour ta réponse. Je ne suis pas un expert donc...
Je vais regarder cela.

Merci encore.

Bien à toi

Christian

[Nico_tournai]

Bonjour

pas sûr d'avoir tout saisi

ca se résume à : n / 10^ decalage

[Voroltinquo]

ca se résume à : n / 10^ decalage

Ou à 10^-(décalage) c'est au programme de 6° ou 5° (6° primaire ou 1° secondaire)

[tbc92]

Par exemple :

Code SQL :

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

select ma_valeur / power ( 10, decalage)  as nouvelle_valeur from monFichier.

[mac.croutier]

Hum salut,

Je dirais que si tu la fais, elle existera

Code :

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

1
2
3
4
5
6
7
8
9
 
PROCÉDURE decalage(x, pIndice)
 
TANTQUE pIndice <> 0
	x = x/10
	pIndice-= 1
FIN
 
RENVOYER x

Bonjour padbrain

Merci cela fonctionne.
Voilà le code final avec les adaptations nécessaires pour intégrer le résultat de ma requête dans une table.

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
 
REQ_FiltreRefInterne_FIC_NOMENCPZPPN.ParamPZPPN = SAI_RefInterne
HExécuteRequête(REQ_FiltreRefInterne_FIC_NOMENCPZPPN,hRequêteDéfaut)
POUR TOUT REQ_FiltreRefInterne_FIC_NOMENCPZPPN
	sComposant est une chaîne = REQ_FiltreRefInterne_FIC_NOMENCPZPPN.PZCPN
	xQuantité est un numérique = REQ_FiltreRefInterne_FIC_NOMENCPZPPN.PZQTY
	xIndice est un numérique = REQ_FiltreRefInterne_FIC_NOMENCPZPPN.PSDCC
 
	TANTQUE xIndice <> 0
		xQuantité = xQuantité / 10
		xIndice-=1
	FIN
 
	TableAjouteLigne(TABLE_FIC_NOMENC,sComposant,xQuantité)
FIN

Bien à toi
A bientôt

Christian

[padbrain]

Bonjour padbrain

Merci cela fonctionne.
Voilà le code final avec les adaptations nécessaires pour intégrer le résultat de ma requête dans une table.
...

Super !

Peut-être aurais-tu pu adapter la proposition de tbc92 dans ta requête.

Tu peux aussi mixer les autres réponses :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
REQ_FiltreRefInterne_FIC_NOMENCPZPPN.ParamPZPPN = SAI_RefInterne
HExécuteRequête(REQ_FiltreRefInterne_FIC_NOMENCPZPPN,hRequêteDéfaut)
POUR TOUT REQ_FiltreRefInterne_FIC_NOMENCPZPPN
 
	TableAjouteLigne(TABLE_FIC_NOMENC, REQ_FiltreRefInterne_FIC_NOMENCPZPPN.PZCPN, decaler(REQ_FiltreRefInterne_FIC_NOMENCPZPPN.PZQTY, REQ_FiltreRefInterne_FIC_NOMENCPZPPN.PSDCC))
 
FIN
 
PROCÉDURE INTERNE decaler(pQuantite est numérique, pDecalage est numérique)
     RENVOYER pQuantite / Puissance(10, pDecalage)
FIN