Fonction de calcul de cle rib

Commenter

Contenu du snippet

Il s'agit d'une fonction simble de calcul de clé rib. ca tient en quelques lignes, c'est simple et ca fonctionne sur tout types de comptes

Source / Exemple : 


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

Conclusion :


Merci à thierry

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_aumeric)