2009-02-17 13:14:53 +00:00
< ? /*<! DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.0 Strict//EN "
" http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd " >
< html xmlns = " http://www.w3.org/1999/xhtml " >
< head >
< meta http - equiv = " content-type " content = " text/html; charset=utf-8 " />
< title > Google Maps JavaScript API Example </ title >
< script src = " http://maps.google.com/maps?file=api&v=2&key=ABQIAAAAuKBtUyFonYJBl1fqfc78tRSYaqxLwFTMDT_MtTSFor1bsUZ_ChTvuzyTINkPMlW88Ar9fofaphzN3w "
type = " text/javascript " ></ script >
< script type = " text/javascript " >
//<![CDATA[
function load () {
if ( GBrowserIsCompatible ()) {
var map = new GMap2 ( document . getElementById ( " map " ));
map . setCenter ( new GLatLng ( 37.4419 , - 122.1419 ), 13 );
}
}
//]]>
</ script >
</ head >
< body onload = " load() " onunload = " GUnload() " >
< div id = " map " style = " width: 500px; height: 300px " ></ div >
</ body >
</ html >*/
if ( ! $_SESSION [ 'connected' ]) die ();
2009-04-01 12:45:45 +00:00
$tabInfo = $_SESSION [ 'tabInfo' ];
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 !' );
2009-03-11 07:51:18 +00:00
$idEntreprise = trim ( preg_replace ( '/[^0-9]/' , '' , $_REQUEST [ 'idEntreprise' ])) * 1 ; // Si id=0 alors non communiqu<71>
if (( $siret * 1 ) == 0 && $idEntreprise == 0 ) die ( 'Param<61> tres incorrects !' );
2009-02-17 13:14:53 +00:00
$siren = substr ( $siret , 0 , 9 );
$mil = false ;
2009-06-08 09:18:54 +00:00
require_once 'partenaires/classMTva.php' ;
require_once 'partenaires/classMMap.php' ;
require_once 'common/dates.php' ;
require_once 'partenaires/GoogleMapAPI.class.php' ;
$map = new GoogleMapAPI ( 'map' );
//@TODO : Modifier les cl<63> s googlemap pour que cela fonctionne suivant les diff<66> rentes environnement
/*
extranet . scores - decisions . com ABQIAAAAuKBtUyFonYJBl1fqfc78tRSYaqxLwFTMDT_MtTSFor1bsUZ_ChTvuzyTINkPMlW88Ar9fofaphzN3w
extranet1 . scores - decisions . com ABQIAAAAuKBtUyFonYJBl1fqfc78tRQOO2vGTETHV7QVwUGHm2hlhcGOSxSyp3T9H0pL7ZUqzdkyJNILCsfwaw
extranet2 . scores - decisions . com ABQIAAAAuKBtUyFonYJBl1fqfc78tRSF_wplsSIpU9Nj - WZVmwUACZLyRBQbtojzIRj5K3y5IqV2kEhvBDiCzQ
extranet3 . scores - decisions . com ABQIAAAAuKBtUyFonYJBl1fqfc78tRSfrani - _akT7HnaZXzgMX5BPvb7xRCsFQbHbnjdZGjLEZVZMXcYY6cLg
extranet . sd . com ABQIAAAAuKBtUyFonYJBl1fqfc78tRQRonouPisAtAAjQnslnQYH0lUOzxRNVdoChLD2udGIhYegekRSgbjr5A
*/
$map -> setAPIKey ( 'ABQIAAAAuKBtUyFonYJBl1fqfc78tRSYaqxLwFTMDT_MtTSFor1bsUZ_ChTvuzyTINkPMlW88Ar9fofaphzN3w' );
2009-02-17 13:14:53 +00:00
try {
$O = $client -> getListeEtablissements ( $siren );
$etabs = $O [ 'result' ];
} catch ( SoapFault $fault ) {
2009-06-08 09:18:54 +00:00
require_once 'soaperror.php' ;
2009-02-26 17:16:11 +00:00
processSoapFault ( $client , $fault , $tabInfo );
2009-02-17 13:14:53 +00:00
die ();
}
2009-06-08 09:18:54 +00:00
$raisonSociale = $tabInfo [ 'entrep' ][ 'raisonSociale' ];
2009-02-17 13:14:53 +00:00
2009-06-08 09:18:54 +00:00
foreach ( $etabs as $i => $etab ) {
if ( $etab [ 'Siege' ] == 1 ) {
$type = 'Si<53> ge ' ;
}
else {
$type = 'Etablissement ' ;
}
if ( $etab [ 'Actif' ] == 1 ) $type .= 'actif' ;
else $type .= 'inactif' ;
$type .= ' - ' . $etab [ 'NafEtabLib' ];
$title = " $siren " . $etab [ 'Nic' ] . " : $type <br/> " ;
//etab['Nic']
if ( $etab [ 'Enseigne' ] <> '' )
$title .= 'Enseigne : ' . $etab [ 'Enseigne' ] . '<br/>' ;
$texte = $etab [ 'Adresse' ] . '<br/>' ;
$adresse = $etab [ 'Adresse' ] . ' ' ;
if ( $etab [ 'Adresse2' ] <> '' ) {
$texte .= $etab [ 'Adresse2' ] . '<br/>' ;
if ( strlen ( trim ( $adresse )) < 7 )
$adresse = $etab [ 'Adresse2' ] . ' ' ;
}
$texte .= '<b>' . $etab [ 'CP' ] . ' ' . $etab [ 'Ville' ] . '</b><br/>' ;
$adresse .= $etab [ 'CP' ] . ' ' . $etab [ 'Ville' ];
2009-02-17 13:14:53 +00:00
2009-06-08 09:18:54 +00:00
$texte .= '<i>' . $etab [ 'NafEtab' ] . ' : ' . $etab [ 'NafEtabLib' ] . '</i>' ;
$map -> addMarkerByAddress ( $adresse , $title , $texte , $type );
if ( $etab [ 'Siege' ] == 1 ) {
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/siege' . $etab [ 'Actif' ] . '.png' );
}
else {
switch ( '' . substr ( $etab [ 'NafEtab' ], 0 , 2 ) . '' ) {
// A Agriculture, sylviculture et p<> che
case '01' :// Culture et production animale , chasse et services annexes
case '02' :// Sylviculture et exploitation foresti<EFBFBD> re
case '03' :// P<EFBFBD> che et aquaculture
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/tractor' . $etab [ 'Actif' ] . '.png' );
break ;
// B Industries extractives
case '05' :// Extraction de houille et de lignite
case '06' :// Extraction d ' hydrocarbures
case '07' :// Extraction de minerais m<EFBFBD> talliques
case '08' :// Aures industries extractives
case '09' :// Services de soutien aux industries extractives
// C Industrie manufacturi<72> re
case '10' :// Industries alimentaires
case '11' :// Fabrication de boissons
case '12' :// Fabrication de produits <EFBFBD> base de tabac
case '13' :// Fabrication de textiles
case '14' :// Industrie de l ' habillement
case '15' :// Industrie du cuir et de la chaussure
case '16' :// Travail du bois et fabrication d 'articles en bois et en li<6C> ge, <20> l' exception des meubles ; fabrication d ' articles en vannerie et sparterie
case '17' :// Industrie du papier et du carton
case '18' :// Imprimerie et reproduction d ' enregistrements
case '19' :// Cok<EFBFBD> faction et raffinage
case '20' :// Industrie chimique
case '21' :// Industrie pharmaceutique
case '22' :// Fabrication de produits en caoutchouc et en plastique
case '23' :// Fabrication d ' autres produits min<EFBFBD> raux non m<EFBFBD> talliques
case '24' :// M<EFBFBD> tallurgie
case '25' :// Fabrication de produits m<EFBFBD> talliques , <EFBFBD> l ' exception des machines et des <EFBFBD> quipements
case '26' :// Fabrication de produits informatiques , <EFBFBD> lectroniqueset optiques
case '27' :// Fabrication d ' <EFBFBD> quipements<EFBFBD> lectriques
case '28' :// Fabrication de machines et <EFBFBD> quipementsn . c . a .
case '29' :// Industrie automobile
case '30' :// Fabrication d ' autres mat<EFBFBD> riels de transport
case '31' :// Fabrication de meubles
case '32' :// Autres industries manufacturi<EFBFBD> res
case '33' :// R<EFBFBD> paration et installation de machines et d ' <EFBFBD> quipements
// D Production et distribution d'<27> lectricit<69> , de gaz, de vapeur et d'air conditionn<6E>
case '35' :// Production et distribution d '<27> lectricit<69> , de gaz, de vapeur et d' air conditionn<EFBFBD>
// E Production et distribution d'eau ; assainissement, gestion des d<> chets et d<> pollution
case '36' :// Captage , traitement et distribution d ' eau
case '37' :// Collecte et traitement des eaux us<EFBFBD> es
case '38' :// Collecte , traitement et <EFBFBD> liminationdes d<EFBFBD> chets ; r<EFBFBD> cup<EFBFBD> ration
case '39' :// D<EFBFBD> pollution et autres services de gestion des d<EFBFBD> chets
// F Construction
case '41' :// Construction de b<EFBFBD> timents
case '42' :// G<EFBFBD> nie civil
case '43' :// Travaux de construction sp<EFBFBD> cialis<EFBFBD> s
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/usine' . $etab [ 'Actif' ] . '.png' );
break ;
2009-02-17 13:14:53 +00:00
2009-06-08 09:18:54 +00:00
// G Commerce ; r<> paration d'automobiles et de motocycles
case '45' :// Commerce et r<EFBFBD> paration d ' automobiles et de motocycles
case '46' :// Commerce de gros , <EFBFBD> l ' exception des automobiles et des motocycles
case '47' :// Commerce de d<EFBFBD> tail , <EFBFBD> l ' exception des automobiles et des motocycles
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/shop' . $etab [ 'Actif' ] . '.png' );
break ;
// H Transports et entreposage
case '49' :// Transports terrestres et transport par conduites
case '50' :// Transports par eau
case '51' :// Transports a<EFBFBD> riens
case '53' :// Activit<EFBFBD> s de poste et de courrier
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/etab' . $etab [ 'Actif' ] . '.png' );
break ;
case '52' :// Entreposage et services auxiliaires des transports
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/entrepot' . $etab [ 'Actif' ] . '.png' );
break ;
2009-02-17 13:14:53 +00:00
2009-06-08 09:18:54 +00:00
// I H<> bergement et restauration
case '55' :// H<EFBFBD> bergement
case '56' :// Restauration
// J Information et communication
case '58' :// <EFBFBD> dition
case '59' :// Production de films cin<EFBFBD> matographiques , de vid<EFBFBD> o et de programmes de t<EFBFBD> l<EFBFBD> vision ; enregistrement sonore et <EFBFBD> ditionmusicale
case '60' :// Programmation et diffusion
case '61' :// T<EFBFBD> l<EFBFBD> communications
case '62' :// Programmation , conseil et autres activit<EFBFBD> s informatiques
case '63' :// Services d ' information
// K Activit<69> s financi<63> res et d'assurance
case '64' :// Activit<EFBFBD> s des services financiers , hors assurance et caisses de retraite
case '65' :// Assurance
case '66' :// Activit<EFBFBD> s auxiliaires de services financiers et d ' assurance
// L Activit<69> s immobili<6C> res
case '68' :// Activit<EFBFBD> s immobili<EFBFBD> res
// M Activit<69> s sp<73> cialis<69> es, scientifiques et techniques
case '69' :// Activit<EFBFBD> s juridiques et comptables
case '70' :// Activit<EFBFBD> s des si<EFBFBD> ges sociaux ; conseil de gestion
case '71' :// Activit<EFBFBD> s d 'architecture et d' ing<EFBFBD> nierie ; activit<EFBFBD> s de contr<EFBFBD> le et analyses techniques
case '72' :// Recherche - d<EFBFBD> veloppement scientifique
case '73' :// Publicit<EFBFBD> et <EFBFBD> tudesde march<EFBFBD>
case '74' :// Autres activit<EFBFBD> s sp<EFBFBD> cialis<EFBFBD> es , scientifiques et techniques
case '75' :// Activit<EFBFBD> s v<EFBFBD> t<EFBFBD> rinaires
// N Activit<69> s de services administratifs et de soutien
case '77' :// Activit<EFBFBD> s de location et location - bail
case '78' :// Activit<EFBFBD> s li<EFBFBD> es <EFBFBD> l ' emploi
case '79' :// Activit<EFBFBD> s des agences de voyage , voyagistes , services de r<EFBFBD> servation et activit<EFBFBD> s connexes
case '80' :// Enqu<EFBFBD> tes et s<EFBFBD> curit<EFBFBD>
case '81' :// Services relatifs aux b<EFBFBD> timents et am<EFBFBD> nagement paysager
case '82' :// Activit<EFBFBD> s administratives et autres activit<EFBFBD> s de soutien aux entreprises
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/etab' . $etab [ 'Actif' ] . '.png' );
break ;
2009-02-17 13:14:53 +00:00
2009-06-08 09:18:54 +00:00
// O Administration publique
case '84' :// Administration publique et d<EFBFBD> fense ; s<EFBFBD> curit<EFBFBD> sociale obligatoire
// P Enseignement
case '85' :// Enseignement
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/admin' . $etab [ 'Actif' ] . '.png' );
break ;
// Q Sant<6E> humaine et action sociale
case '86' :// Activit<EFBFBD> s pour la sant<EFBFBD> humaine
case '87' :// H<EFBFBD> bergement m<EFBFBD> dico - social et social
case '88' :// Action sociale sans h<EFBFBD> bergement
// R Arts, spectacles et activit<69> s r<> cr<63> atives
case '90' :// Activit<EFBFBD> s cr<EFBFBD> atives , artistiques et de spectacle
case '91' :// Biblioth<EFBFBD> ques , archives , mus<EFBFBD> es et autres activit<EFBFBD> s culturelles
case '92' :// Organisation de jeux de hasard et d ' argent
case '93' :// Activit<EFBFBD> s sportives , r<EFBFBD> cr<EFBFBD> atives et de loisirs
// S Autres activit<69> s de services
case '94' :// Activit<EFBFBD> s des organisations associatives
case '95' :// R<EFBFBD> paration d ' ordinateurs et de biens personnels et domestiques
case '96' :// Autres services personnels
// T Activit<69> s des m<> nages en tant qu'employeurs ; activit<69> s indiff<66> renci<63> es des m<> nages en tant que producteurs de biens et services pour usage propre
case '97' :// Activit<EFBFBD> s des m<EFBFBD> nages en tant qu ' employeurs de personnel domestique
case '98' :// Activit<EFBFBD> s indiff<EFBFBD> renci<EFBFBD> es des m<EFBFBD> nages en tant que producteurs de biens et services pour usage propre
// U Activit<69> s extra-territoriales
case '99' :// Activit<EFBFBD> s des organisations et organismes extraterritoriaux
$map -> addMarkerIcon ( EXTRANET_URL . 'img/icones/etab' . $etab [ 'Actif' ] . '.png' );
break ;
2009-02-17 13:14:53 +00:00
}
}
}
2009-06-08 09:18:54 +00:00
?>
2009-02-17 13:14:53 +00:00
2009-06-08 09:18:54 +00:00
<! DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.0 Strict//EN " " http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd " >
< html xmlns = " http://www.w3.org/1999/xhtml " xmlns : v = " urn:schemas-microsoft-com:vml " >
< head >
< ? php $map -> printHeaderJS (); ?>
< ? php $map -> printMapJS (); ?>
<!-- necessary for google maps polyline drawing in IE -->
< style type = " text/css " >
v\ :* { behavior : url ( #default#VML);}
</ style >
< link rel = " stylesheet " type = " text/css " href = " ./css/main.css " />
</ head >
< body onload = " onLoad() " >
2009-02-17 13:14:53 +00:00
2009-06-08 09:18:54 +00:00
< table width = " 500 " border = " 0 " align = " left " bgcolor = " #FFFFFF " >
<!--
2009-02-17 13:14:53 +00:00
< tr >
< td colspan = " 3 " align = " center " >< img src = " ./img/rub_etablissements.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 ( $siren , 0 , 3 ) . ' ' . substr ( $siren , 3 , 3 ) . ' ' . substr ( $siren , 6 , 3 ) ?> </td>
</ tr >
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td width = " 200 " class = " StyleInfoLib " > Raison Sociale </ td >
< td width = " 350 " class = " StyleInfoData " >< ? = $raisonSociale ?> </td>
</ tr >
< tr >
< td colspan = " 3 " >& nbsp ; </ td >
</ tr >
< tr >
< td colspan = " 3 " >< img src = " ./img/srub_etablissements.png " width = " 576 " height = " 27 " /></ td >
2009-06-08 09:18:54 +00:00
</ tr >
-->
2009-02-17 13:14:53 +00:00
< tr >
< td width = " 500 " class = " StyleInfoData " >< ? php $map -> printMap (); ?> </td>
</ tr >
<!--
< tr >
< td width = " 30 " >& nbsp ; </ td >
< td colspan = " 2 " width = " 550 " class = " StyleInfoData " >< ? php $map -> printSidebar (); ?> </td>
</ tr >-->
</ table >
</ body >
</ html >
