Code: Select all
<?php
$PIVA = '12345678901';
$PAESE = 'IT';
$client = new SoapClient("http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl");
var_dump($client->checkVat(array(
'countryCode' => $PAESE,
'vatNumber' => $PIVA
)));
?>Code: Select all
/*
* Vies test
* v.1.0 23-02-2016
* (c)2016 Joaquim Ferrer <quim_ferrer@yahoo.es>
*/
#include "hbcurl.ch"
#include "common.ch"
//-----------------------------------------------------------------------------------------//
function main()
? checkVies( "ES", "A28017895" )
return NIL
//-----------------------------------------------------------------------------------------//
function checkVies( cCountry, cVatNumber )
local aHeader := {}
local hCurl
local cUrl := "http://ec.europa.eu/taxation_customs/vies/services/checkVatService"
local cError, cResponse
local strpost :=;
'<?xml version="1.0" encoding="utf-8"?>'+;
'<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:ec.europa.eu:taxud:vies:services:checkVat:types">'+;
' <soapenv:Body>'+;
' <urn:checkVat>'+;
' <urn:countryCode>'+ cCountry +'</urn:countryCode>'+;
' <urn:vatNumber>'+ cVatNumber +'</urn:vatNumber>'+;
' </urn:checkVat>'+;
' </soapenv:Body>'+;
'</soapenv:Envelope>'
setmode( 25, 80 )
hCurl := curl_easy_init()
if !empty(hCurl)
aadd(aHeader,"Content-Type: text/xml;charset=UTF-8")
aadd(aHeader,"Connection: Keep-Alive" )
aadd(aHeader,"Content-length: "+ Str( len( strpost )) )
curl_easy_setopt(hCurl, HB_CURLOPT_URL, cUrl)
curl_easy_setopt(hCurl, HB_CURLOPT_POST, .T.)
curl_easy_setopt(hCurl, HB_CURLOPT_POSTFIELDS, strpost)
curl_easy_setopt(hCurl, HB_CURLOPT_HTTPHEADER, aHeader)
curl_easy_setopt(hCurl, HB_CURLOPT_FRESH_CONNECT, .T.)
curl_easy_setopt(hCurl, HB_CURLOPT_FORBID_REUSE, .T.)
curl_easy_setopt(hCurl, HB_CURLOPT_VERBOSE, .F. )
curl_easy_setopt(hCurl, HB_CURLOPT_DL_BUFF_SETUP )
cError := curl_easy_perform( hCurl )
if empty(cError)
cResponse := curl_easy_dl_buff_get( hCurl )
else
? "Error:" + curl_easy_strerror(cError)
endif
else
? "No handle"
endif
if !empty(hCurl)
curl_global_cleanup( hCurl )
else
? "Error hCurl"
endif
if empty(cResponse)
? "Error, no response"
else
? cResponse
endif
return NIL
//-----------------------------------------------------------------------------------------//
Code: Select all
#include "fivewin.ch"
Static cDoc , cHttp
Function Main()
TRY
cDoc := CreateObject( "MSXML2.DOMDocument" )
CATCH
Alert("Error object MSXML2.DOMDocument : " + Ole2TxtError())
return NIL
END
TRY
cHttp := CreateObject( "MSXML2.XMLHTTP" )
CATCH
Alert("Error object MSXML2.XMLHTTP : " + Ole2TxtError())
END
checkVies( "ES", "A28017895" )
Return nil
//=========================================================================================
Function checkVies(cCountry, cVatNumber )
Local cResponse := " " ,hVar
Local cRequestXML := ""
DEFAULT cCountry := "ES"
DEFAULT cVatNumber := "A28017895"
cRequestXML := [<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" ] +;
[xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types" ] +;
[xmlns:impl="urn:ec.europa.eu:taxud:vies:services:checkVat"> ] +;
[<soap:Header> ]+;
[</soap:Header> ]+;
[<soap:Body> ]+;
[<tns1:checkVat xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types" ]+;
[xmlns="urn:ec.europa.eu:taxud:vies:services:checkVat:types"> ]+;
[<tns1:countryCode>] + cCountry + [</tns1:countryCode> ] +;
[<tns1:vatNumber>] + cVatNumber + [</tns1:vatNumber> ] +;
[</tns1:checkVat> ]+;
[</soap:Body> ]+;
[</soap:Envelope> ]
//
//cHttp:Open( "POST","http://ec.europa.eu/taxation_customs/vies/services/checkVatService", .t.)
// Wait...
cHttp:Open( "POST","http://ec.europa.eu/taxation_customs/vies/services/checkVatService", .F.)
cHttp:SetRequestHeader( "Content-Type" , "application/x-www-form-urlencoded" )
cHttp:setRequestHeader('User-Agent', 'node-soap')
cHttp:setRequestHeader('Accept' , 'text/html,application/xhtml+xml,application/xml,text/xml;q=0.9,*/*;q=0.8')
cHttp:setRequestHeader('Accept-Encoding', 'none')
cHttp:setRequestHeader('Accept-Charset', 'utf-8')
//cHttp:setRequestHeader('Connection', 'close')
//cHttp:setRequestHeader('Host', 'http://ec.europa.eu/taxation_customs/vies/services/checkVatService')
cHttp:setRequestHeader('SOAPAction', 'urn:ec.europa.eu:taxud:vies:services:checkVat/checkVat')
//MsgGet( 'Wait',,@cRequestXML)
//cDoc:LoadXML( cRequestXML )
//lXmlHttp.send(lXmlDoc);
cHttp:send(cRequestXML)
//cHttp:send(cDOc:xml )
//If cHttp:status == 200
// ? cResponse
cResponse := cHttp:responseText
? cResponse
//endif
RETURN NIL