ConsumerId = '006';
$gServiceHeader->Provider = new StdClass;
switch ($pays) {
case 1:
$gServiceHeader->Provider->ProviderId = '001';
$gServiceHeader->Provider->CountryCode = 'BE';
break;
case 2:
$gServiceHeader->Provider->ProviderId = '003';
$gServiceHeader->Provider->CountryCode = 'NL';
break;
default:
print 'Erreur sur le pays';
exit;
}
$gServiceHeader->TimeStamp = date('Y-m-d\TH:i:s');
$gServiceHeader->TestIndication = true;
$soap_header =
new SoapHeader('http://services.giant-net.com/'.
'schema/services/shared/1.0',
'ServiceHeader', $gServiceHeader);
$soap_client =
new SoapClient('https://giant-tst.graydon.nl/search/v1?wsdl',
array('soap_version' => SOAP_1_1,
'login' => '006',
'password' => 'ClaudeMonet',
'trace' => true));
$soap_client->__setSoapHeaders($soap_header);
$o = new StdClass;
$o->IncludePhoneticMatches = 'false';
if (empty($siret) == false) {
$o->Query = new StdClass;
$o->Query->CompanyId = $siret;
$o->IncludeSuggestions = 'false';
$fonction = 'AdvancedSearch';
} else {
$o->Query = "$raisonSociale $numVoie $libVoie $cp $ville";
$o->IncludeSuggestions = 'false';
if (isset($position) == true) {
$o->StartRow = $position;
} else {
$o->StartRow = 0;
}
$o->NumRows = NUM_ROWS;
$fonction = 'Search';
}
try {
$O = $soap_client->__call($fonction, array($o));
} catch (SoapFault $f) {
print_r($f);
print '
';
print 'Requete: '.
htmlspecialchars($soap_client->__getLastRequest());
print '
';
print 'Reponse: '.
htmlspecialchars($soap_client->__getLastResponse());
}
// --------------------------------------------------------------------------- //
// afficheCompany
// --------------------------------------------------------------------------- //
function afficheCompany(&$c, $deb, $num, $pays)
{
print '
'; if ($O->StartRow >= NUM_ROWS) { print ''; print ''; print ''; } print ' | '; $curPage = $O->StartRow / NUM_ROWS + 1; $totPage = min(intval($O->NumberOfHits / NUM_ROWS), MAX_ROWS / NUM_ROWS); print ''; if ($totPage > 1) { print 'Page '.$curPage.'/'.$totPage; } print ' | '; print ''; if ($O->NumberOfHits - $O->StartRow > NUM_ROWS && $O->StartRow + NUM_ROWS < MAX_ROWS) { print ''; print ''; print ''; } print ' | '; print '