FiveTech Software tech support forums

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