2009-02-17 13:14:53 +00:00
< ? if ( ! $_SESSION [ 'connected' ]) die ();
$siret = trim ( preg_replace ( '/[^0-9]/' , '' , $_REQUEST [ 'siret' ]));
if ( strlen ( $siret ) <> 0 && strlen ( $siret ) <> 9 && strlen ( $siret ) <> 14 ) die ( 'Param<61> tres incorrects !' );
2009-02-27 19:24:24 +00:00
$idan = trim ( preg_replace ( '/[^0-9]/' , '' , $_REQUEST [ 'idan' ])) * 1 ; // Si id=0 alors non communiqu<71>
if (( $siret * 1 ) == 0 && $idan == 0 ) die ( 'Param<61> tres incorrects !' );
2009-02-17 13:14:53 +00:00
$siren = substr ( $siret , 0 , 9 );
2009-02-27 19:24:24 +00:00
if ( isset ( $_REQUEST [ 'idan' ]) && $_REQUEST [ 'idan' ] * 1 <> 0 ) $idCom = $_REQUEST [ 'idan' ];
else $idCom = false ;
2009-02-17 13:14:53 +00:00
2009-02-20 13:04:46 +00:00
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' );
2009-02-17 13:14:53 +00:00
/** 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 ) {
2009-02-26 17:16:11 +00:00
include_once ( realpath ( dirname ( __FILE__ ) . '/../../' ) . '/includes/soaperror.php' );
processSoapFault ( $client , $fault , $tabInfo );
2009-02-17 13:14:53 +00:00
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 ) {
2009-02-27 19:24:24 +00:00
if ( $ann [ 'id' ] == $_REQUEST [ 'idan' ]) { /* 'id' => $ann [ 'id' ],
2009-02-17 13:14:53 +00:00
'' => $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ée en base S&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é 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é 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 <EFBFBD> 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>
2009-02-27 19:24:24 +00:00
< td width = " 450 " colspan = " 2 " class = " StyleInfoData " >< a href = " /?page=infosreg&siret=<?= $siret ?>&idan=<?= $ann['id'] ?> " >< ? = utf8_decode ( $ann [ 'titre' ]) ?> </a></td>
2009-02-17 13:14:53 +00:00
</ tr >
< ? }
} else {
/** Aucune Info R<EFBFBD> glement<EFBFBD> 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 >