Discussion :

[PimSaVie]

Bonjour

J'aimerais calculer les deux chiffres clés de la ligne de codage ui se trouve en bas du BVR. D'après la documentation, je dois utiliser un modulo 10. Mais en faisant les tests avec la fonction Modulo, je ne retombe pas sur les mêmes chiffres que l'exemple.

Est-ce que quelqu'un se serait déjà pencher sur le sujet? Merci

Karine

[frenchsting]

C'est quoi le BVR ? Je n'ai pas wd17...

modulo te renvoie le reste de la division (dans ton cas par 10). Logiquement, il doit te renvoyer le dernier chiffre du nombre initial.

[newkiss]

Bonjour

J'aimerais calculer les deux chiffres clés de la ligne de codage ui se trouve en bas du BVR. D'après la documentation, je dois utiliser un modulo 10. Mais en faisant les tests avec la fonction Modulo, je ne retombe pas sur les mêmes chiffres que l'exemple.

Est-ce que quelqu'un se serait déjà pencher sur le sujet? Merci

Karine

Voici une procédure que je viens d'écrire en me basant sur ce document :

https://www.credit-suisse.com/ch/unt...ntation_fr.pdf

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
 
PROCEDURE CleBVR(sNum est une chaîne)
 
 
tabControle est un tableau de 10 entier = [0,9,4,6,8,2,7,1,3,5]
tabChiffreClé est un tableau de 10 entier = [0,9,8,7,6,5,4,3,2,1]
nRepport est un entier = 0
nChiffre est un entier
 
POUR i = 1 _A_ Taille(sNum)
	nChiffre = Val(sNum[[i]])
	nRepport = tabControle[modulo(nRepport+nChiffre,10)+1]	
FIN
 
nCle est un entier = tabChiffreClé[nRepport+1]
 
RENVOYER nCle

[PimSaVie]

Le BVR est un bulletin de versement rouge utilisé en Suisse

Merci newkiss, c'est très gentil, le code marche nickel !!