begin process at 2010 02 09 16:37:30
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

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

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


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :tva, controle Niveau :Débutant Date de création :22/11/2004 Vu :11 973

Auteur : johnmary

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

Code commenté

Source

  • * 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
* 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

 Conclusion

Si nos amis de la CE pouvaient nous donner leur formule, ce serait sympa.
Jiem


 Sources du même auteur

Source avec Zip CALCUL D'UN EMPRUNT AVEC TAUX SIMPLE OU COMPOSE
RECHERCHE D'UNE VALEUR DE CLEF DANS LE REGISTRE

 Sources de la même categorie

RENOMMER LE PRÉFIXE DE TOUS LES FICHIERS D'UN DOSSIER par mike_vk
COULEUR HEXADECIMAL par tmcuh
Source avec Zip ITERATION par DDU de AtoutFox
CRYPTE/DECRYPTE par FredArmoni
Source avec Zip IMPLÉMENTION EN VISUALFOXPRO DE L'ALGORITHME DE HACHAGE SHA1 par c_chenavier

Commentaires et avis

Commentaire de maximepouder le 26/01/2009 14:46:18

Sur le site http://ec.europa.eu/taxation_customs/vies/lang.do?fromWhichPage=vieshome&selectedLanguage=FR , on peut vérifier la validité d'un numéro de tva .

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

vfp requête [ par zouheir_ali ] Bonjour &#224; tous, J'ai 4 taux de TVA :6,10,18,22.5dans un grille je saisie des articles dont chacun peut avoir un taux diff&#233;rent.en bas de la charger un combo box [ par brunaux ] merci Mike pour les r&#233;ponses mais le probl&#232;me est que le combo box est un controle activeX OCX que j'ai pris sur un site concern&#233; a fox comment savoir si un controle contient une valeur [ par slimvir ] Bonjour a tous, j'aimerai bien savoir si un controle contient une valeur ou non j'ai une form qui contient des textbox et boutton, des tableaux,et de


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,842 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales