topic-25533

Posts: 824

Joined: Thu Oct 13, 2005 07:39 AM

Re: IBAN - International Bank Account Number - SWIFT
Posted: Mon Jan 28, 2013 07:53 AM

und eine Function, die IBAN zu überprüfen

FUNCTION CheckIBAN (cIBAN)
  LOCAL cCountryID := SubStr (cIBAN,1,2)
  LOCAL cCheck := SubStr (cIban,5,Len(cIban)) +;
                  SubStr (CreateCountryID (cCountryID),1,4)+;
                  Substr (cIBAN,3,2)
  LOCAL nCheck, nID

  nID := ( _CalcModulo (cCheck))
  nCheck := Int (nId % 97)
//? cCheck, nID, nCheck
RETURN (nCheck == 1)

//-------------------------------------------------------------//
STATIC FUNCTION CreateCountryID (cCountry)

  LOCAL cLatin := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  LOCAL nID  := At (Substr(cCountry,1,1),cLatin)+9
  LOCAL nID2 := At (Substr(cCountry,2,1),cLatin)+9
RETURN (Str (nID,2,0)+Str(nID2,2,0)+"00")

//---------------------------------------------------------------------//
STATIC FUNCTION _CalcModulo (cControlNr)

  LOCAL nMod //:= Int (Val (cControlNr)) % 97
  LOCAL nNr, cNr //:= 98 - nMod, nVal :=  Val (cControlNr)
  LOCAL cMod := "", i, cID

  FOR i := 1 TO Len (cControlNr) STEP 8
    cNr := cMod+Substr (cControlNr,i,8)
    nNr := Val (cNr) % 97
    cMod := Str (nNr, Lennum (nNr),0)
  NEXT
  nMod := Int (Val (cMod))

RETURN (nMod)

kind regards

Stefan

FiveTech Support Forums

Continue the discussion