[Custom Function] Controle BE BTW-nummers

[Rony Rabijns]

Syntax : CF_BEBTWProef(BTWNummer)

 

Let(
[
BTW = Filter ( BTWNummer ; "0123456789" );
Restwaarde = 97 - Mod(Left(BTW;7);97)
];

Case(
not(Length(BTW) = 9 and Right(BTW;2)= restwaarde);"Ongeldig BTW-nummer";
"Geldig BTW-nummer"
)
)

 

Voorbeeld-bestand in bijlage.

BTWBEProef.zip

[dannydv]

Syntax : CF_BEBTWProef(BTWNummer)

 

Let(
[
BTW = Filter ( BTWNummer ; "0123456789" );
Restwaarde = 97 - Mod(Left(BTW;7);97)
];

Case(
not(Length(BTW) = 9 and Right(BTW;2)= restwaarde);"Ongeldig BTW-nummer";
"Geldig BTW-nummer"
)
)

 

Voorbeeld-bestand in bijlage.

 

NIET 100 % juist Rony.

Het gaat namelijk fout als de restwaarde maar 1 cijfer is, want dan wordt bvb 1 vergeleken met 01.

Gewoon een GetAsNumber toevoegen is ok.

 

Nieuwe aangepaste code

 

Let(
[
BTW = Filter ( BTWNummer ; "0123456789" );
Restwaarde = 97 - Mod(Left(BTW;7);97)
];

Case(
not(Length(BTW) = 9 and GetAsNumber (Right(BTW;2))= restwaarde);"Ongeldig BTW-nummer";
"Geldig BTW-nummer"
)
)

[dannydv]

Ik ging ook even je CF voor het rekeningnr bekijken en zie dat je daar reeds (terechte) commentaar had gekregen van Peter.

http://www.clarify.net/viewtopic.php?t=2676&start=0&postdays=0&postorder=asc&highlight=rekeningnummers

 

Peter was me dus eigenlijk al voor.