extranet/www/pages/infosreg.php
2009-02-27 19:24:24 +00:00

132 lines
4.9 KiB
PHP

<?if (!$_SESSION['connected']) die();
$siret=trim(preg_replace('/[^0-9]/', '', $_REQUEST['siret']));
if (strlen($siret)<>0 && strlen($siret)<>9 && strlen($siret)<>14) die('Paramètres incorrects !');
$idan=trim(preg_replace('/[^0-9]/', '', $_REQUEST['idan']))*1; // Si id=0 alors non communiqué
if (($siret*1)==0 && $idan==0) die('Paramètres incorrects !');
$siren=substr($siret,0,9);
if (isset($_REQUEST['idan']) && $_REQUEST['idan']*1<>0) $idCom=$_REQUEST['idan'];
else $idCom=false;
include_once(INCLUDE_PATH.'/partenaires/classMTva.php');
include_once(INCLUDE_PATH.'/partenaires/classMMap.php');
include_once(INCLUDE_PATH.'/partenaires/classMCoface.php');
include_once(FWK_PATH.'/common/dates.php');
/** Utilisation du WS **/
$client = new SoapClient(null, array( 'trace' => 1,
'soap_version' => SOAP_1_1,
'location' => WEBSERVICE_URL,
'uri' => WEBSERVICE_URI,
'login' => $_SESSION['tabInfo']['login'],
'password' => $_SESSION['tabInfo']['password']));
try {
$O = $client->getInfosReg($siren, $idCom);
$annonces=$O['result'];
} catch (SoapFault $fault) {
include_once(realpath(dirname(__FILE__).'/../../').'/includes/soaperror.php');
processSoapFault($client,$fault,$tabInfo);
die();
}
$raisonSociale=$tabInfo['entrep']['raisonSociale'];
?>
<table width="580" border="0" align="left" bgcolor="#FFFFFF">
<tr>
<td colspan="4"><img src="./img/rub_infosreg.png" width="577" height="36" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" colspan="2" class="StyleInfoLib">Num&eacute;ro identifiant Siren</td>
<td width="350" class="StyleInfoData"><?=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" colspan="2" class="StyleInfoLib">Raison Sociale</td>
<td width="350" class="StyleInfoData"><?=$raisonSociale?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="100">&nbsp;</td>
<td width="100">&nbsp;</td>
<td width="350">&nbsp;</td>
</tr> <tr>
<td colspan="4"><img src="./img/srub_infosreg.png" width="576" height="27" /></td>
</tr>
<?
if ($idCom) {
foreach ($annonces as $ann) {
if ($ann['id']==$_REQUEST['idan']) {/*'id' =>$ann['id'],
'' =>$ann['source'],
'DateParution' =>$ann['DateParution'],
'raisonSociale' =>utf8_encode($ann['raisonSociale']),
'titre' =>utf8_encode($ann['titre']),
'communique' =>utf8_encode($ann['communique']),
'communiqueHtml'=>utf8_encode($ann['communiqueHtml']),
'pj' =>$ann['pj'],
'url' =>$ann['url'],*/
?>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="3" class="StyleInfoData">Information <?=$ann['source']?> du <?=WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution'])?>. Entr&eacute;e en base S&amp;D : <?=WDate::dateT('Y-m-d','d/m/Y',$ann['dateInsertionSD'])?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="3" class="StyleInfoLib"><b><?=utf8_decode($ann['titre'])?></b></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<?
//$texte=preg_replace("/((?:[0-9]{9,9})|(?:[0-9]{3,3} [0-9]{3,3} [0-9]{3,3})|(?:[0-9]{3,3}\.[0-9]{3,3}\.[0-9]{3,3})|(?:[0-9]{3,3}-[0-9]{3,3}-[0-9]{3,3}))/", '<a href="/?page=identite&siret=$1" title="Voir la fiche d\'identit&eacute; de cette entreprise">$1</a>', $ann['texteAnnonce']);
//$texte=preg_replace("/((?:[0-9]{9,9})|(?:[0-9]{3,3} [0-9]{3,3} [0-9]{3,3})|(?:[0-9]{3,3}\.[0-9]{3,3}\.[0-9]{3,3})|(?:[0-9]{3,3}-[0-9]{3,3}-[0-9]{3,3}))/", '<a href="/?page=identite&siret=$1" title="Voir la fiche d\'identit&eacute; de cette entreprise">$1</a>', $ann['texteAnnonce']);
$texte=preg_replace_callback("/((?:[0-9]{9,9})|(?:[0-9]{3,3} [0-9]{3,3} [0-9]{3,3})|(?:[0-9]{3,3}\.[0-9]{3,3}\.[0-9]{3,3})|(?:[0-9]{3,3}-[0-9]{3,3}-[0-9]{3,3}))/", replace_siren, utf8_decode($ann['communique']));//communiqueHtml
/*if (preg_match('/<body(?:.*|)>(.*)<\/body>/UiS', $texte, $matches))
$texte=$matches[1];*/
?><td width="550" colspan="3"><?=$texte?></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td colspan="4" align="center" class="StyleInfoData"><a href="Javascript:history.back()">Revenir à la liste des annonces</a></td>
</tr>
<?
}
}
} else {
if (count($annonces)>0) {
/** Affichage de la liste des infos reg
**/
foreach ($annonces as $i=>$ann) {?>
<tr>
<td width="30">&nbsp;</td>
<td width="100" class="StyleInfoLib">Le <?=WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution'])?></td>
<td width="450" colspan="2" class="StyleInfoData"><a href="/?page=infosreg&siret=<?=$siret?>&idan=<?=$ann['id']?>"><?=utf8_decode($ann['titre'])?></a></td>
</tr>
<? }
} else {
/** Aucune Info Réglementée pour cette entreprise
**/
?>
<tr>
<td width="30">&nbsp;</td>
<td width="100" class="StyleInfoLib">&nbsp;</td>
<td width="450" colspan="2" class="StyleInfoData">N&eacute;ant</td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<?
}
}
?>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
</table>