ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Iban - valider, calculer les check digit   



L'auteur

Gregory Adam
Belgique Belgique
Membre Actif (personne physique)
# 0000001121
enregistré le 04/06/2006

Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation > Calculs de clefs et Checksums (rib, iban, ...)

Iban - valider, calculer les check digit
# 0000000651
ajouté le 26/10/2008 16:53:14 et modifié le 29/04/2009
consulté 7456 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0


Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
Description

- Validation des numeros iban

- calcul du checksum

 

Voir le code

  

Code source :
set proc to .\prog\BankNumberBits additive

  if( !BankNumberBits_Init() )
    ?'Cannot initalize'
  endif

  local IbanNumber, CheckDigitsExpected, EmptyIsOK
  EmptyIsOK = FALSE

  && Check valid
  IbanNumber = 'BE68 5390 0754 7034'
  ?Iban_Valid(m.IbanNumber, @m.CheckDigitsExpected, m.EmptyIsOK)

  && make checkDigits
  local s
  s = '068205515543'

  IbanNumber = 'BE' + '00' + m.s

  do case
  case Iban_Valid(m.IbanNumber, @m.CheckDigitsExpected, m.EmptyIsOK)
    && ok

  case empty(m.CheckDigitsExpected)
    && invalid format

  otherwise
    IbanNumber = left(m.IbanNumber, 2) + m.CheckDigitsExpected + substr(m.IbanNumber, 5)

    ?m.IbanNumber, Iban_Valid(m.IbanNumber) && TRUE

  endcase

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3