- Function cleIban( Cmpt)
- m.cleiban=""
- m.nocompte=ChrTran(m.nocompte,"AJBKSCLTDMUENVFOWGPXHQYIRZ","11222333444555666777888999")
- m.nocompte = strtran( m.nocompte, "-", "")
- m.nocompte = strtran( m.nocompte, " ", "")
- m.cleiban=98-MOD(97,VAL(SUBSTR(m.nocompte,1,LEN(m.nocompte)-2)))
- m.cleiban=ALLTRIM(STR(m.cleiban))+RIGHT(m.nocompte,2)
- m.cleiban= MOD(97,VAL(m.cleiban))
- m.cleiban=ALLTRIM(STR(m.cleiban))+"1114"
- m.cleiban=MOD(97,val(m.cleiban))
- m.cleiban=ALLTRIM(STR(m.cleiban))+"00"
- m.cleiban=MOD(97,VAL(m.cleiban))
- m.cleiban=PADL(m.cleiban,2,"0")
- Return "FR" + m.cleiban + m.nocompte
-
-
Function cleIban( Cmpt)
m.cleiban=""
m.nocompte=ChrTran(m.nocompte,"AJBKSCLTDMUENVFOWGPXHQYIRZ","11222333444555666777888999")
m.nocompte = strtran( m.nocompte, "-", "")
m.nocompte = strtran( m.nocompte, " ", "")
m.cleiban=98-MOD(97,VAL(SUBSTR(m.nocompte,1,LEN(m.nocompte)-2)))
m.cleiban=ALLTRIM(STR(m.cleiban))+RIGHT(m.nocompte,2)
m.cleiban= MOD(97,VAL(m.cleiban))
m.cleiban=ALLTRIM(STR(m.cleiban))+"1114"
m.cleiban=MOD(97,val(m.cleiban))
m.cleiban=ALLTRIM(STR(m.cleiban))+"00"
m.cleiban=MOD(97,VAL(m.cleiban))
m.cleiban=PADL(m.cleiban,2,"0")
Return "FR" + m.cleiban + m.nocompte