CONTRÔLE DU NUMÉRO DE TVA (BELGE)

* Appels de la fonction DigitTVA_be
=digittva_be("402706791")
=digittva_be("401706791")
=digittva_be("233706791")

Function DigitTVA_be
parameters sTVA
* Contrôle du paramètre passé
if pcount()=0
	? "Numéro de TVA manquant"
	return .F.
endif

if len(stva) <> 9
	? "Le numéro de TVA belge comprend 9 chiffres"
	return .F.
endif	

* Calcul du digit
* En clair : 97 moins le reste de la division des 7 premiers
* chiffres par 97
Tdigit=97-mod(val(substr(stva,1,7)),97)

* Les 2 derniers chiffres du numéro de TVA doivent être
* équivalents
if tdigit = val(substr(stva,8,2))
	? stva + " -> ce numéro est correct -> le digit est "+ str(tdigit)
	return .T.
else
	? stva + " -> ce numéro est incorrect -> le digit est "+str(tdigit)
	return .F.
endif
endfunc