2009-02-17 13:14:53 +00:00
< ?
$siret = trim ( preg_replace ( '/[^0-9]/' , '' , $_REQUEST [ 'siret' ]));
if ( strlen ( $siret ) <> 0 && strlen ( $siret ) <> 9 && strlen ( $siret ) <> 14 ) die ( 'Param<61> tres incorrects !' );
$id = trim ( preg_replace ( '/[^0-9]/' , '' , $_REQUEST [ 'id' ])) * 1 ; // Si id=0 alors non communiqu<71>
if (( $siret * 1 ) == 0 && $id == 0 ) die ( 'Param<61> tres incorrects !' );
$siren = substr ( $siret , 0 , 9 );
function formatPct ( $pct ) {
$pct = round ( $pct / 10 , 0 ) * 10 ;
if ( $pct == 0 ) $pct = 10 ;
return $pct ;
}
if ( ! $_SESSION [ 'connected' ])
echo ( 'Vous devez <20> tre connect<63> afin de pouvoir utiliser cette fonctionnalit<69> ' );
elseif ( ! preg_match ( '/INDISCORE/i' , $_SESSION [ 'tabInfo' ][ 'droits' ]))
echo ( 'Vous n\'avez pas les droits n<> cessaires pour utiliser cette fonctionnalit<69> (2)' );
else {
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 -> getIndiscore ( $siren );
$etab = $O [ 'result' ];
$iTva = new MTva ( $etab [ 'Siren' ]);
} catch ( SoapFault $fault ) {
echo '<pre>' . $client -> __getLastResponse () . '</pre>' ;
echo 'ERREUR SOAP :' . EOL ;
print_r ( $fault );
die ();
}
?>
< table width = " 580 " border = " 0 " align = " left " bgcolor = " #FFFFFF " >
< tr >
< td colspan = " 3 " >< img src = " ./img/rub_indiscore.png " width = " 577 " height = " 36 " ></ td >
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Num & eacute ; ro identifiant Siren </ td >
< td width = " 350 " class = " StyleInfoData " >< ? = substr ( $etab [ 'Siren' ], 0 , 3 ) . ' ' . substr ( $etab [ 'Siren' ], 3 , 3 ) . ' ' . substr ( $etab [ 'Siren' ], 6 , 3 ) ?> </td>
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Num & eacute ; ro identifiant Siret du si & egrave ; ge </ td >
< td width = " 350 " class = " StyleInfoData " >< ? = substr ( $etab [ 'Siren' ], 0 , 3 ) . ' ' . substr ( $etab [ 'Siren' ], 3 , 3 ) . ' ' . substr ( $etab [ 'Siren' ], 6 , 3 ) . ' ' . substr ( $etab [ 'Siret' ], - 5 ) ?> </td>
</ tr >
< ? if ( $etab [ 'NumRC' ] * 1 <> 0 ) { ?>
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Num & eacute ; ro R . C .</ td >
< td width = " 350 " class = " StyleInfoData " >< ? = $etab [ 'NumRC' ] ?> </td>
</ tr >
< ? } ?>
< tr >
< td colspan = " 3 " >& nbsp ; </ td >
</ tr >
< tr >
< td colspan = " 3 " >< img src = " ./img/srub_id.png " width = " 576 " height = " 27 " ></ td >
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Raison Sociale </ td >
< td width = " 350 " class = " StyleInfoData " >< ? = $etab [ 'Nom' ];
if ( $etab [ 'Nom2' ] <> '' ) echo '<br/>' . $etab [ 'Nom2' ]; ?> </td>
</ tr >
< ?
if ( $etab [ 'Enseigne' ] <> '' && $etab [ 'Sigle' ] <> '' ) { $titre = 'Enseigne / Sigle' ; $lib = $etab [ 'Enseigne' ] . ' / ' . $etab [ 'Sigle' ]; }
elseif ( $etab [ 'Enseigne' ] <> '' && $etab [ 'Sigle' ] == '' ) { $titre = 'Enseigne' ; $lib = $etab [ 'Enseigne' ]; }
elseif ( $etab [ 'Enseigne' ] == '' && $etab [ 'Sigle' ] <> '' ) { $titre = 'Sigle' ; $lib = $etab [ 'Sigle' ]; }
else $titre = '' ;
if ( $titre <> '' ) {
?> <tr>
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " >< ? = $titre ?> </td>
< td width = " 350 " class = " StyleInfoData " >< ? = $lib ?> </td>
</ tr >< ? } ?>
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Forme juridique </ td >
< td width = " 350 " class = " StyleInfoData " >< ? = $etab [ 'FJ_lib' ]; //@todo INSEE //.' ('.$etab['FJ']?></td>
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Date de cr & eacute ; ation de l ' entreprise </ td >
< td width = " 350 " class = " StyleInfoData " >< ? $dateCreation = str_replace ( '-' , '' , $etab [ 'DateCreaEn' ]);
echo WDate :: dateT ( 'Ymd' , 'm/Y' , $dateCreation ); ?> </td>
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Adresse </ td >
< td width = " 350 " class = " StyleInfoData " >< ? = $etab [ 'Adresse' ] ?> <br/>
< ? if ( $etab [ 'Adresse2' ] <> '' ) echo $etab [ 'Adresse2' ] . '<br/>' ; ?>
< ? = $etab [ 'CP' ] ?> <?=$etab['Ville']?></td>
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > T & eacute ; l & eacute ; phone </ td >
< td width = " 350 " class = " StyleInfoData " >< ? = $etab [ 'Tel' ] ?> </td>
</ tr >
< tr >
< td colspan = " 3 " >& nbsp ; </ td >
</ tr >
< tr >
< td colspan = " 3 " >< img src = " ./img/srub_evaluation.png " width = " 576 " height = " 27 " ></ td >
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 550 " colspan = " 2 " class = " StyleInfoData " > L 'évaluation indiScore© c' est en partie bas<EFBFBD> e sur les points notables suivantes :< br />
< h3 >< u > Conformit & eacute ; l & eacute ; gale :</ u ></ h3 >
< div class = " stats gradiant_pic " >
< ul >
< li >< i >< ? = $etab [ 'AnalyseConfor' ] ?> </i><span class="percent v<?=formatPct($etab['ScoreConfor'])?>">Conformité</span></li>
</ ul >
</ div >
< h3 >< u > Dirigeance :</ u ></ h3 >
< div class = " stats gradiant_pic " >
< ul >
< li >< i >< ? = $etab [ 'AnalyseDirigeance' ] ?> </i><span class="percent v<?=formatPct($etab['ScoreDirigeance'])?>">Dirigeance</span></li>
</ ul >
</ div >
< h3 >< u > Solvabilit & eacute ; :</ u ></ h3 >
< div class = " stats gradiant_pic " >
< ul >
< li >< i > L 'analyse de la solvabilité est <?=$etab[' AnalyseSolvabilite ']?></i><span class="percent v<?=formatPct($etab[' Indiscore ' ]) ?> ">Sovabilité</span></li>
</ ul >
</ div >
</ td >
</ tr >
< ? $millesimeMax = date ( 'Ymd' , mktime ( 0 , 0 , 0 , date ( 'm' ), date ( 'd' ), date ( 'Y' ) - 2 ));
if ( $etab [ 'NbBilansScore' ] > 0 && $etab [ 'Bilans' ][ 0 ][ 'Millesime' ] >= $millesimeMax ) { ?>
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 550 " colspan = " 2 " class = " StyleInfoData " > La situation financi & egrave ; re de l 'entreprise <?=$etab[' Nom ']?> est <b><?=$etab[' tabInfosNotations '][' SituationFinanciere ' ] ?> </b>.<br/>
<!-- Cette notation financi & egrave ; re est < ? = $etab [ 'tabInfosNotations' ][ 'Notation' ] ?> .<br/>-->
< ? php
if ( html_entity_decode ( $etab [ 'tabInfosNotations' ][ 'ProbabiliteDefaut' ]) <> 'En d<> faut' )
echo 'La probabilité de défaillance associée à cette note avoisine les ' .
number_format ( $etab [ 'tabInfosNotations' ][ 'ProbabiliteDefaut' ], 3 , ',' , ' ' ) . ' %' ;
else
echo 'Cette entreprise est défaillante ou sur le point de le devenir.' ;
//[EquivalenceBDF]
?> </td>
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 550 " colspan = " 2 " class = " StyleInfoData " >< i > Pour information , les m<EFBFBD> thodes standards donnent : Conan & amp ; Holder = < b >< ? = $etab [ 'scores' ][ 'ConanH' ] ?> </b>, Afdcc2 = <b><?=$etab['scores']['Afdcc2']?></b> et Score Z = <b><?=$etab['scores']['Z']?></b>.
</ td >
</ tr >
< ? } else { ?>
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 550 " colspan = " 2 " class = " StyleInfoData " > La situation financi & egrave ; re de l 'entreprise ne peut <20> tre <20> valu<6C> e en d<> tail car <?if ($etab[' Bilans '][0][' Millesime ' ] < $millesimeMax ) {
echo 'le dernier bilan disponible date de ' . substr ( $etab [ 'Bilans' ][ 0 ][ 'Millesime' ], 0 , 4 ) . '.' ;
} else {
echo 'aucun bilan n\'est disponible.' ;
} ?> </td>
</ tr >
< ? } ?>
< tr >
< td colspan = " 3 " >& nbsp ; </ td >
</ tr >
< tr >
< td colspan = " 3 " >< img src = " ./img/srub_conclusion.png " width = " 576 " height = " 27 " ></ td >
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 550 " colspan = " 2 " class = " StyleInfoData " > A la vu des informations disponibles aupr & egrave ; s des sources officielles Scores et D & eacute ; cisions pr & eacute ; sente la conclusion suivante :< br />
< h2 > LE SCORE EST DE < ? = $etab [ 'Indiscore' ] ?> SUR 100 POINTS</h2>
< ? if ( $etab [ 'Indiscore' ] <> 0 ) { ?>
< i > La tendance de la note est < ? = $etab [ 'TendanceIndiscore' ] ?> </i>
< h3 > L 'ENCOURS MAXIMUM CONSEILLÉ EST DE <?=round($etab[' encours ' ] / 1000 ) ?> K€</h3>
< ? } ?>
</ td >
</ tr >
< tr >
< td colspan = " 3 " align = " center " >< img src = " ./img/logo_indiscore.png " /></ td >
</ tr >
</ table >
<!--
< ?
print_r ( $etab );
?>
-->
< ?
}
?>
