[WD16] Conversion de RIB en IBAN [Résolu]

[latysa2]

Bonjour,
Je cherche un algorithme pour faire la converstion de RIB en IBAN et aussi la vérification de clé RIB
merci pour votre aide

[Nicolas_Jeanneau]

Bonjour,

dans les exemples, tu as un super-champ qui te permet de vérifier les RIB.
Pour ce qui est de la transformation de RIB en IBAN, il te faut juste transformer le RIB à partir de ce que tu trouveras comme algorithme su rWikiPedia par exemple.

à bientôt,

Nicolas

[latysa2]

Bonjour,

j'ai fait mon petit programme mais j'ai un souci pour calculer le modulo 97
donne la doc, c'est marqué que le calcul se fait sur 66 chiffres contre 23 dans le calcul de clé RIB? quelqu'un pourras m'expliquer SVP?

[OnePoint]

Salut !

Envoyé par latysa2

j'ai fait mon petit programme mais j'ai un souci pour calculer le modulo 97
donne la doc, c'est marqué que le calcul se fait sur 66 chiffres contre 23 dans le calcul de clé RIB? quelqu'un pourras m'expliquer SVP?

Ben... tu trouves plein de choses si tu te donnes la peine de chercher:
http://fr.wikipedia.org/wiki/Relev%C...C3%A9_bancaire

C'est super, non !?

[Nicolas_Jeanneau]

Bonjour,

voici mon code :

Code :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
entCompteur est un entier

chaIBAN, chaCaractere, chaClefIBAN sont des chaînes

numIBAN, numModulo sont des numériques (*)



chaIBAN = Gauche(CodeBanque,4) + Droite(CodeBanque,1) + Gauche(CodeGuichet,3) + Droite(CodeGuichet,2) + Gauche(NumeroCompte,2) + Droite(Gauche(NumeroCompte,6),4) + Droite(Gauche(NumeroCompte,10),4) + Droite(NumeroCompte,1) + CleRIB + "FR00"



POUR entCompteur = 1 A Taille(chaIBAN)

	chaCaractere=Milieu(chaIBAN,entCompteur,1)

	//transformation en lettre majuscule (pour être sûr)

	SI 97<=Asc(chaCaractere)<=122 ALORS

		chaCaractere=Caract(Asc(chaCaractere)-32)

	FIN

	//transformation des lettres en chaine de 2 caractères numériques

	//A =>"10" ; B=>"11" ; C=>"12" etc

	SI 65<=Asc(chaCaractere)<=90 ALORS

		chaIBAN=Gauche(chaIBAN,entCompteur-1)+NumériqueVersChaîne(Asc(chaCaractere)-55,"02d")+Milieu(chaIBAN,entCompteur+1)

		entCompteur++

	FIN

FIN



numIBAN = Val(Gauche(chaIBAN,9))

numModulo = numIBAN modulo 97

numIBAN = Val(NumériqueVersChaîne(numModulo,"02d") + Milieu(chaIBAN,10,7))

numModulo = numIBAN modulo 97

numIBAN = Val(NumériqueVersChaîne(numModulo,"02d") + Milieu(chaIBAN,17,7))

numModulo = numIBAN modulo 97

numIBAN = Val(NumériqueVersChaîne(numModulo,"02d") + Milieu(chaIBAN,24,7))

numModulo = numIBAN modulo 97

SI Taille(chaIBAN) > 30 ALORS

	numIBAN = Val(NumériqueVersChaîne(numModulo,"02d") + Milieu(chaIBAN,31,7))

	numModulo = numIBAN modulo 97

FIN

SI Taille(chaIBAN) > 37 ALORS

	numIBAN = Val(NumériqueVersChaîne(numModulo,"02d") + Milieu(chaIBAN,38,7))

	numModulo = numIBAN modulo 97

FIN



chaClefIBAN = NumériqueVersChaîne(98-numModulo,"02d")



saiIBAN = "FR" + chaClefIBAN + " " + Gauche(CodeBanque,4) + " " + Droite(CodeBanque,1) + Gauche(CodeGuichet,3) + " " + Droite(CodeGuichet,2) + Gauche(NumeroCompte,2) + " " + Droite(Gauche(NumeroCompte,6),4) + " " + Droite(Gauche(NumeroCompte,10),4) + " " + Droite(NumeroCompte,1) + CleRIB

à bientôt,

Nicolas

[latysa2]

Je te remercie bcp pour ta sympathie Nicolas
moi j'ai fait la mienne, elle marche, tu me diras ce que tu penses

Code :

1
2
3
4
5
6
7
//calcul modulo
nReste, nIndice sont des entiers sur 2 octets
nReste=0
POUR nIndice=1 A Taille(lsIBAN)
	nReste = modulo(nReste*10+Val(lsIBAN[[nIndice]]),97)
	
FIN

Balises [CODE] ajoutées par L.nico merci d'y penser la prochaine fois

[latysa2]

Bonsoir,

je dois faire un utilitaire pour modification en masse de tous les RIB salarié vers IBAN.

j'ai dèja fait mon programme qui me permet de constituer L'iban, mais je ne vois pas comment faire pour modification en masse.
est ce que je dois charger le contenu de ma table ds un fihier txt !!? et faire une boucle
merci

[Nicolas_Jeanneau]

Bonjour,

je pense que tu peux faire une boucle directement sur ta table. Si tu passes les RIB un par un, tu peux constituer l'IBAN associé facilement. Ainsi tu peux éviter de passer par un fichier txt.

à bientôt,

Nicolas

[latysa2]

je te remercie bcp Nicolas,
ca marche
A+