1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

[WD20 et +] Vérifier un numéro de TVA via WebService (EU)

Discussion dans 'Resources' créé par Advita, Fev 12, 2018.

  1. Advita

    Advita Active Member
    MEMBRE WX

    Inscrit:
    Jan 13, 2018
    Messages:
    63
    J'aime reçus:
    95
    Au préalable, vous devez installer le Webservice dans votre projet : ec.europa.eu/taxation_customs/vies/checkVatService.wsdl

    Code (Text):
    PROCEDURE CheckVAT(LOCAL pVATNumber est chaîne,LOCAL bFullErrors est booléen)

    LOCAL
        e_bResult est booléen = Faux
        e_bValid est booléen = Faux
        e_sErrorMessage est chaîne=""
        ////////////////////////////
        e_sCountryCode est chaîne = Gauche(pVATNumber,2)
        e_sVATNumber est chaîne = Milieu(pVATNumber,3)
        // Retourné par le WEB Service
        e_sAddress est chaîne = ""
        e_sName est chaîne = ""
        e_sValid est chaîne = ""
        ////////////////////////////

    // Si la longueur est moindre que 9, ce n'est pas un bon numéro de tva
    SI Taille(pVATNumber)<=9 ALORS
        e_bResult=Vrai
        e_bValid=Faux
        e_sErrorMessage="Mauvais numéro de TVA"
        RENVOYER(e_bResult,e_bValid,"","",e_sErrorMessage)  
    FIN

    e_CVS             est un checkVatService.checkVat
    e_CVS_Request     est checkVatService.checkVatResponse
    e_CVS.countryCode = e_sCountryCode
    e_CVS.vatNumber = e_sVATNumber
    e_CVS_Request = checkVatService.CheckVAT(e_CVS)

    // Valeurs retournées /////
    e_sValid = e_CVS_Request.valid
    e_sName = e_CVS_Request.name
    e_sAddress = e_CVS_Request.address
    //////////////////
    SI e_sValid = "1" ALORS
        // "1" VIES Webservice a trouvé le code TVA correct
        e_bResult = Vrai
        e_bValid = Vrai
        e_sErrorMessage = ""
    SINON
        e_bResult = Vrai
        e_bValid = Faux
        e_sName = ""
        e_sAddress = ""  
        e_sErrorMessage = "Pas trouvé le numéro de TVA"
    FIN
    RENVOYER(e_bResult,e_bValid,e_sName,e_sAddress,e_sErrorMessage)

    CAS ERREUR:
    e_bResult=Faux
    e_bValid=Faux
    e_sName=""
    e_sAddress=""  
    SI bFullErrors=Vrai ALORS
        e_sErrorMessage = ErreurInfo(errComplet)  
    SINON
        e_sErrorMessage = "Problème avec le Web Service de VIES"
    FIN  

    RENVOYER(e_bResult,e_bValid,e_sName,e_sAddress,e_sErrorMessage)  

    CAS EXCEPTION:
    e_bResult = Faux
    e_bValid = Faux
    e_sName = ""
    e_sAddress = ""  
    SI bFullErrors = Vrai ALORS
        e_sErrorMessage=ExceptionInfo(errComplet)  
    SINON
        e_sErrorMessage = "Problème avec le Web Service de VIES"
    FIN      
    RENVOYER(e_bResult,e_bValid,e_sName,e_sAddress,e_sErrorMessage)
     
  2. agence-digitale

    MEMBRE WX

    Inscrit:
    Jan 1, 2018
    Messages:
    32
    J'aime reçus:
    60
    Merci je vais tester
     
  3. PoloLeFou

    PoloLeFou Member

    Inscrit:
    Fev 6, 2018
    Messages:
    17
    J'aime reçus:
    25
    une option interessante a ajouter à mon crm, merci
     
    Advita apprécie ceci.

Partager cette page

Chargement...