- function clerib(nu_compte)
- local premier,deuxieme,troisime,prerest,deuxrest,troisrest,valretour
- ***********************************************************************
- * la fonction doit recevoir le numéro de compte en parametres
- * 5 digits pour le code établissement
- * 5 digits pour le code guichet
- * 11 digits pour le numéro de compte soit 21 digits au total
- * la clé rib est renvoyé par la fonction en numérique
- *
- * Pour les comptes CCP les lettres sont remplacées par des chiffres
- * selon la convention ci_dessous
- *
- * A=1 j=1 b=2 k=2 etc..etc
- *
- *
- *
- *
- *
- *
- ***********************************************************************
- * changement des lettres en chiffres grace à la fonction strtran
-
- *
- nu_compte=ChrTran(nu_compte,"AJBKSCLTDMUENVFOWGPXHQYIRZ","11222333444555666777888999")
-
-
- * vérification du numéro de compte 21 digits en tout
- if len(nu_compte)#21
- messagebox(" Numéro de compte non valide")
- return "0"
- endif
- valretour="0"
-
- * calcul de la clé
- nu_compte=nu_compte+"00"
- premier=substr(nu_compte,1,7)
- deuxieme=substr(nu_compte,8,8)
- troisieme=substr(nu_compte,16,8)
- prerest=alltrim(str(mod(val(premier),97)))
- deuxieme=prerest+deuxieme
- deuxrest=alltrim(str(mod(val(deuxieme),97)))
- troisieme=deuxrest+troisieme
- troisrest=alltrim(str(mod(val(troisieme),97)))
-
- valretour=97-val(troisrest)
- valretour=alltrim(str(valretour))
-
- return valretour
function clerib(nu_compte)
local premier,deuxieme,troisime,prerest,deuxrest,troisrest,valretour
***********************************************************************
* la fonction doit recevoir le numéro de compte en parametres
* 5 digits pour le code établissement
* 5 digits pour le code guichet
* 11 digits pour le numéro de compte soit 21 digits au total
* la clé rib est renvoyé par la fonction en numérique
*
* Pour les comptes CCP les lettres sont remplacées par des chiffres
* selon la convention ci_dessous
*
* A=1 j=1 b=2 k=2 etc..etc
*
*
*
*
*
*
***********************************************************************
* changement des lettres en chiffres grace à la fonction strtran
*
nu_compte=ChrTran(nu_compte,"AJBKSCLTDMUENVFOWGPXHQYIRZ","11222333444555666777888999")
* vérification du numéro de compte 21 digits en tout
if len(nu_compte)#21
messagebox(" Numéro de compte non valide")
return "0"
endif
valretour="0"
* calcul de la clé
nu_compte=nu_compte+"00"
premier=substr(nu_compte,1,7)
deuxieme=substr(nu_compte,8,8)
troisieme=substr(nu_compte,16,8)
prerest=alltrim(str(mod(val(premier),97)))
deuxieme=prerest+deuxieme
deuxrest=alltrim(str(mod(val(deuxieme),97)))
troisieme=deuxrest+troisieme
troisrest=alltrim(str(mod(val(troisieme),97)))
valretour=97-val(troisrest)
valretour=alltrim(str(valretour))
return valretour