Mit diesem DOCUcontrol®-Makro kann aus einer überbenen IBAN die Bankleitzahl und die Kontonummer ermittelt werden. Außerdem wird die IBAN mit dem bnnannten Makro „StrIsValidIBAN“ validiert.
BOOL getBankverbindungFromIBAN( STRING IBAN, STRING &Bankleitzahl, STRING &Kontonummer ) BOOL success = FALSE; /*** !! Ermittlung der Bankverbindung nur mit deutscher IBAN möglich !! ***/ #DEBUG_START IBAN = "DE87 1234 5678 1234 5678 90"; // Test-IBAN #DEBUG_END IF( StrIsValidIBAN( IBAN ) ) // es wurde eine gültige IBAN (weltweit) übergeben StrRemove( IBAN, ' ' ); // evtl. Leerzeichen entfernen IF( StrGetLength( IBAN ) == 22 ) // deutsche IBAN hat 22 Zeichen Kontonummer = StrRight( IBAN, 10 ); Bankleitzahl = StrMid( IBAN, 5, 8 ); IF( StrIsDigitString( Kontonummer ) && StrIsDigitString( Bankleitzahl ) ) Trace( "Kontonummer: %1", Kontonummer ); Trace( "Bankleitzahl: %1", Bankleitzahl ); success = TRUE; ENDIF // nur Ziffern ENDIF // 22 Zeichen ENDIF // IBAN gültig RETURN( success )