ef5d394b84
One of the first things I did, while starting to try Dolibarr, was to fill info about my company. I filled my VAT number : "FR 13 794..." and saw the "check" button. Oh, that's nice ! Click. Didn't work :( In fact, it didn't work because the webservice Dolibarr uses to check VAT numbers doesn't understand spaces. By doing this we could enter good looking VAT numbers (with spaces) and still check them.
174 lines
6.0 KiB
PHP
174 lines
6.0 KiB
PHP
<?php
|
|
/* Copyright (C) 2006-2010 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/societe/checkvat/checkVatPopup.php
|
|
* \ingroup societe
|
|
* \brief Popup screen to validate VAT
|
|
*/
|
|
|
|
require ("../../main.inc.php");
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
|
|
require_once NUSOAP_PATH.'/nusoap.php';
|
|
|
|
$langs->load("companies");
|
|
|
|
//http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl
|
|
$WS_DOL_URL='http://ec.europa.eu/taxation_customs/vies/services/checkVatService';
|
|
//$WS_DOL_URL_WSDL=$WS_DOL_URL.'?wsdl';
|
|
$WS_DOL_URL_WSDL='http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl';
|
|
$WS_METHOD ='checkVat';
|
|
|
|
|
|
top_htmlhead("", $langs->trans("VATIntraCheckableOnEUSite"));
|
|
print '<body style="margin: 10px">';
|
|
print '<div>';
|
|
print '<div>';
|
|
|
|
print_fiche_titre($langs->trans("VATIntraCheckableOnEUSite"),'','title_setup');
|
|
|
|
|
|
if (! $_REQUEST["vatNumber"])
|
|
{
|
|
print '<br>';
|
|
print '<font class="error">'.$langs->transnoentities("ErrorFieldRequired",$langs->trans("VATIntraShort")).'</font><br>';
|
|
}
|
|
else
|
|
{
|
|
$_REQUEST["vatNumber"] = preg_replace('/\^\w/', '', $_REQUEST["vatNumber"]);
|
|
$countryCode=substr($_REQUEST["vatNumber"],0,2);
|
|
$vatNumber=substr($_REQUEST["vatNumber"],2);
|
|
|
|
print '<b>'.$langs->trans("Country").'</b>: '.$countryCode.'<br>';
|
|
print '<b>'.$langs->trans("VATIntraShort").'</b>: '.$vatNumber.'<br>';
|
|
print '<br>';
|
|
|
|
// Set the parameters to send to the WebService
|
|
$parameters = array("countryCode" => $countryCode,
|
|
"vatNumber" => $vatNumber);
|
|
|
|
// Set the WebService URL
|
|
dol_syslog("Create nusoap_client for URL=".$WS_DOL_URL." WSDL=".$WS_DOL_URL_WSDL);
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
|
|
$params=getSoapParams();
|
|
//ini_set('default_socket_timeout', $params['response_timeout']);
|
|
//$soapclient = new SoapClient($WS_DOL_URL_WSDL,$params);
|
|
$soapclient = new nusoap_client($WS_DOL_URL_WSDL,true,$params['proxy_host'],$params['proxy_port'],$params['proxy_login'],$params['proxy_password'],$params['connection_timeout'],$params['response_timeout']);
|
|
$soapclient->soap_defencoding = 'utf-8';
|
|
$soapclient->xml_encoding = 'utf-8';
|
|
$soapclient->decode_utf8 = false;
|
|
|
|
// Check for an error
|
|
$err = $soapclient->getError();
|
|
if ($err)
|
|
{
|
|
dol_syslog("Constructor error ".$WS_DOL_URL, LOG_ERR);
|
|
}
|
|
|
|
// Call the WebService and store its result in $result.
|
|
dol_syslog("Call method ".$WS_METHOD);
|
|
$result = $soapclient->call($WS_METHOD,$parameters);
|
|
|
|
//var_dump($parameters);
|
|
//var_dump($soapclient);
|
|
//print "x".is_array($result)."i";
|
|
//var_dump($result);
|
|
//print $soapclient->request.'<br>';
|
|
//print $soapclient->response.'<br>';
|
|
|
|
$messagetoshow='';
|
|
print '<b>'.$langs->trans("Response").'</b>:<br>';
|
|
|
|
// Service indisponible
|
|
if (! is_array($result) || preg_match('/SERVICE_UNAVAILABLE/i',$result['faultstring']))
|
|
{
|
|
print '<font class="error">'.$langs->trans("ErrorServiceUnavailableTryLater").'</font><br>';
|
|
$messagetoshow=$soapclient->response;
|
|
}
|
|
elseif (preg_match('/TIMEOUT/i',$result['faultstring']))
|
|
{
|
|
print '<font class="error">'.$langs->trans("ErrorServiceUnavailableTryLater").'</font><br>';
|
|
$messagetoshow=$soapclient->response;
|
|
}
|
|
elseif (preg_match('/SERVER_BUSY/i',$result['faultstring']))
|
|
{
|
|
print '<font class="error">'.$langs->trans("ErrorServiceUnavailableTryLater").'</font><br>';
|
|
$messagetoshow=$soapclient->response;
|
|
}
|
|
elseif ($result['faultstring'])
|
|
{
|
|
print '<font class="error">'.$langs->trans("Error").'</font><br>';
|
|
$messagetoshow=$result['faultstring'];
|
|
}
|
|
// Syntaxe ko
|
|
elseif (preg_match('/INVALID_INPUT/i',$result['faultstring'])
|
|
|| ($result['requestDate'] && ! $result['valid']))
|
|
{
|
|
if ($result['requestDate']) print $langs->trans("Date").': '.$result['requestDate'].'<br>';
|
|
print $langs->trans("VATIntraSyntaxIsValid").': <font class="error">'.$langs->trans("No").'</font> (Might be a non europeen VAT)<br>';
|
|
print $langs->trans("VATIntraValueIsValid").': <font class="error">'.$langs->trans("No").'</font> (Might be a non europeen VAT)<br>';
|
|
//$messagetoshow=$soapclient->response;
|
|
}
|
|
else
|
|
{
|
|
// Syntaxe ok
|
|
if ($result['requestDate']) print $langs->trans("Date").': '.$result['requestDate'].'<br>';
|
|
print $langs->trans("VATIntraSyntaxIsValid").': <font class="ok">'.$langs->trans("Yes").'</font><br>';
|
|
print $langs->trans("VATIntraValueIsValid").': ';
|
|
if (preg_match('/MS_UNAVAILABLE/i',$result['faultstring']))
|
|
{
|
|
print '<font class="error">'.$langs->trans("ErrorVATCheckMS_UNAVAILABLE",$countryCode).'</font><br>';
|
|
}
|
|
else
|
|
{
|
|
if (! empty($result['valid']) && ($result['valid']==1 || $result['valid']=='true'))
|
|
{
|
|
print '<font class="ok">'.$langs->trans("Yes").'</font>';
|
|
print '<br>';
|
|
print $langs->trans("Name").': '.$result['name'].'<br>';
|
|
print $langs->trans("Address").': '.$result['address'].'<br>';
|
|
}
|
|
else
|
|
{
|
|
print '<font class="error">'.$langs->trans("No").'</font>';
|
|
print '<br>'."\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
// Show log data into page
|
|
print "\n";
|
|
print '<!-- ';
|
|
var_dump($result);
|
|
print '-->';
|
|
}
|
|
|
|
print '<br>';
|
|
print $langs->trans("VATIntraManualCheck",$langs->trans("VATIntraCheckURL"),$langs->trans("VATIntraCheckURL")).'<br>';
|
|
print '<br>';
|
|
print '<div class="center"><input type="button" class="button" value="'.$langs->trans("CloseWindow").'" onclick="javascript: window.close()"></div>';
|
|
|
|
if ($messagetoshow)
|
|
{
|
|
print '<br><br>';
|
|
print "\n".'Error returned:<br>';
|
|
print nl2br($messagetoshow);
|
|
}
|
|
|
|
|
|
llxFooter();
|