// Procédures globales du projet
function _REP(c,n){var s=new String();for(var i=0;i<n;i++)s+=c;return s}
function _VAL(v){var r=parseFloat(v);return isNaN(r)?0:r}
function PROCEDURESGLOBALESDEVOYANTNAVIGATEUR_BVERIFIERCLELUHN(VNCB){{var VSNUMEROCB=VNCB;var VNLONGUEUR=0;var VNINDICE=0;var VNCHECK=0;var VNNUM=0;VNLONGUEUR=VSNUMEROCB.length;if(((VNLONGUEUR==0)||(VNLONGUEUR!=16))){return(false)}
if((VSNUMEROCB==_REP("0",16))){return(false)}var VNTAILLE=VSNUMEROCB.length;for(VNINDICE=1;VNINDICE<=VNTAILLE;VNINDICE++){if(((_VAL((VSNUMEROCB + "").substr(VNINDICE-1, 1))==0)&&((VSNUMEROCB + "").substr(VNINDICE-1, 1)!="0"))){return(false)}}
for(VNINDICE=VNLONGUEUR;VNINDICE>=1;VNINDICE+=-2){VNNUM=_VAL((VSNUMEROCB + "").substring(VNINDICE-1, VNINDICE));VNCHECK=VNCHECK+VNNUM}for(VNINDICE=(VNLONGUEUR-1);VNINDICE>=1;VNINDICE+=-2){
VNNUM=_VAL((VSNUMEROCB + "").substring(VNINDICE-1, VNINDICE));VNNUM=(VNNUM*2);if((VNNUM>9)){VNCHECK=VNCHECK+(VNNUM-9)}else {;VNCHECK=VNCHECK+VNNUM}}if(((VNCHECK%10)!=0)){return(false)}return(true)}}