extranet/www/pages/carte.php
2009-09-14 16:53:52 +00:00

259 lines
11 KiB
PHP

<?php
if (!$_SESSION['connected']) die();
$tabInfo = $_SESSION['tabInfo'];
$siret=trim(preg_replace('/[^0-9]/', '', $_REQUEST['siret']));
if (strlen($siret)<>0 && strlen($siret)<>9 && strlen($siret)<>14) die('Paramètres incorrects !');
$idEntreprise=trim(preg_replace('/[^0-9]/', '', $_REQUEST['idEntreprise']))*1; // Si id=0 alors non communiqué
if (($siret*1)==0 && $idEntreprise==0) die('Paramètres incorrects !');
$siren=substr($siret,0,9);
$mil=false;
require_once 'partenaires/classMTva.php';
require_once 'partenaires/classMMap.php';
require_once 'common/dates.php';
require_once 'partenaires/GoogleMapAPI.class.php';
require_once 'cache/cache.php';
$map = new GoogleMapAPI('map');
//@TODO : Modifier les clés googlemap pour que cela fonctionne suivant les diffé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
extranetrec.scores-decisions.com ABQIAAAAuKBtUyFonYJBl1fqfc78tRQQcNgS-tLiAG-ic2CW9PypgC_xRhTjSL9-5iBPvj3GA1_AvZYQU_QR3Q
*/
$firephp->log($_SERVER['SERVER_NAME'], 'SERVER_NAME');
switch($_SERVER['SERVER_NAME'])
{
case 'extranet.sd.com':
$map->setAPIKey('ABQIAAAAuKBtUyFonYJBl1fqfc78tRQRonouPisAtAAjQnslnQYH0lUOzxRNVdoChLD2udGIhYegekRSgbjr5A');
$urlimg = 'http://extranetrec.scores-decisions.com/';
break;
case 'extranetrec.scores-decisions.com':
$map->setAPIKey('ABQIAAAAuKBtUyFonYJBl1fqfc78tRQQcNgS-tLiAG-ic2CW9PypgC_xRhTjSL9-5iBPvj3GA1_AvZYQU_QR3Q');
$urlimg = EXTRANET_URL;
break;
case 'extranet.scores-decisions.com':
$map->setAPIKey('ABQIAAAAuKBtUyFonYJBl1fqfc78tRSYaqxLwFTMDT_MtTSFor1bsUZ_ChTvuzyTINkPMlW88Ar9fofaphzN3w');
$urlimg = EXTRANET_URL;
break;
default:
//Impossible d'afficher la carte google maps
exit;
break;
}
if (($siret*1)==0 && ($siren*1)<100){
$fileName = $page2.'-'.$idEntreprise;
}else{
$fileName = $page2.'-'.$siret;
}
cache_filename($fileName);
if( cache_exist() && !( preg_match('/saisie/i', $_SESSION['tabInfo']['droits']) || $_SESSION['tabInfo']['mode_edition']==1 ) ){
$etabs = cache_get('etabs');
//Affichage d'un message d'erreur
if($etabs === FALSE) exit;
$firephp->info('CACHE');
}else{
try {
$O = $client->getListeEtablissements($siren);
$etabs = $O['result'];
} catch (SoapFault $fault) {
require_once 'soaperror.php';
processSoapFault($client,$fault,$tabInfo);
die();
}
}
$raisonSociale = $tabInfo['entrep']['raisonSociale'];
foreach ($etabs as $i=>$etab) {
if ($etab['Siege']==1) {
$type='Siè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'];
$texte.='<i>'.$etab['NafEtab'].' : '.$etab['NafEtabLib'].'</i>';
$map->addMarkerByAddress($adresse, $title, $texte, $type);
if ($etab['Siege']==1) {
$map->addMarkerIcon($urlimg.'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ère
case '03':// Pêche et aquaculture
$map->addMarkerIcon($urlimg.'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étalliques
case '08':// Aures industries extractives
case '09':// Services de soutien aux industries extractives
// C Industrie manufacturière
case '10':// Industries alimentaires
case '11':// Fabrication de boissons
case '12':// Fabrication de produits à 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ège, à 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é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éraux non métalliques
case '24':// Métallurgie
case '25':// Fabrication de produits métalliques, à l'exception des machines et des équipements
case '26':// Fabrication de produits informatiques, électroniques et optiques
case '27':// Fabrication d'équipements électriques
case '28':// Fabrication de machines et équipements n.c.a.
case '29':// Industrie automobile
case '30':// Fabrication d'autres matériels de transport
case '31':// Fabrication de meubles
case '32':// Autres industries manufacturières
case '33':// Réparation et installation de machines et d'équipements
// D Production et distribution d'électricité, de gaz, de vapeur et d'air conditionné
case '35':// Production et distribution d'électricité, de gaz, de vapeur et d'air conditionné
// 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ées
case '38':// Collecte, traitement et élimination des déchets ; récupération
case '39':// Dépollution et autres services de gestion des déchets
// F Construction
case '41':// Construction de bâtiments
case '42':// Génie civil
case '43':// Travaux de construction spécialisés
$map->addMarkerIcon($urlimg.'img/icones/usine'.$etab['Actif'].'.png');
break;
// G Commerce ; réparation d'automobiles et de motocycles
case '45':// Commerce et réparation d'automobiles et de motocycles
case '46':// Commerce de gros, à l'exception des automobiles et des motocycles
case '47':// Commerce de détail, à l'exception des automobiles et des motocycles
$map->addMarkerIcon($urlimg.'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ériens
case '53':// Activités de poste et de courrier
$map->addMarkerIcon($urlimg.'img/icones/etab'.$etab['Actif'].'.png');
break;
case '52':// Entreposage et services auxiliaires des transports
$map->addMarkerIcon($urlimg.'img/icones/entrepot'.$etab['Actif'].'.png');
break;
// I Hébergement et restauration
case '55':// Hébergement
case '56':// Restauration
// J Information et communication
case '58':// Édition
case '59':// Production de films cinématographiques, de vidéo et de programmes de télévision ; enregistrement sonore et édition musicale
case '60':// Programmation et diffusion
case '61':// Télécommunications
case '62':// Programmation, conseil et autres activités informatiques
case '63':// Services d'information
// K Activités financières et d'assurance
case '64':// Activités des services financiers, hors assurance et caisses de retraite
case '65':// Assurance
case '66':// Activités auxiliaires de services financiers et d'assurance
// L Activités immobilières
case '68':// Activités immobilières
// M Activités spécialisées, scientifiques et techniques
case '69':// Activités juridiques et comptables
case '70':// Activités des sièges sociaux ; conseil de gestion
case '71':// Activités d'architecture et d'ingénierie ; activités de contrôle et analyses techniques
case '72':// Recherche-développement scientifique
case '73':// Publicité et études de marché
case '74':// Autres activités spécialisées, scientifiques et techniques
case '75':// Activités vétérinaires
// N Activités de services administratifs et de soutien
case '77':// Activités de location et location-bail
case '78':// Activités liées à l'emploi
case '79':// Activités des agences de voyage, voyagistes, services de réservation et activités connexes
case '80':// Enquêtes et sécurité
case '81':// Services relatifs aux bâtiments et aménagement paysager
case '82':// Activités administratives et autres activités de soutien aux entreprises
$map->addMarkerIcon($urlimg.'img/icones/etab'.$etab['Actif'].'.png');
break;
// O Administration publique
case '84':// Administration publique et défense ; sécurité sociale obligatoire
// P Enseignement
case '85':// Enseignement
$map->addMarkerIcon($urlimg.'img/icones/admin'.$etab['Actif'].'.png');
break;
// Q Santé humaine et action sociale
case '86':// Activités pour la santé humaine
case '87':// Hébergement médico-social et social
case '88':// Action sociale sans hébergement
// R Arts, spectacles et activités récréatives
case '90':// Activités créatives, artistiques et de spectacle
case '91':// Bibliothèques, archives, musées et autres activités culturelles
case '92':// Organisation de jeux de hasard et d'argent
case '93':// Activités sportives, récréatives et de loisirs
// S Autres activités de services
case '94':// Activités des organisations associatives
case '95':// Réparation d'ordinateurs et de biens personnels et domestiques
case '96':// Autres services personnels
// T Activités des ménages en tant qu'employeurs ; activités indifférenciées des ménages en tant que producteurs de biens et services pour usage propre
case '97':// Activités des ménages en tant qu'employeurs de personnel domestique
case '98':// Activités indifférenciées des ménages en tant que producteurs de biens et services pour usage propre
// U Activités extra-territoriales
case '99'://Activités des organisations et organismes extraterritoriaux
$map->addMarkerIcon($urlimg.'img/icones/etab'.$etab['Actif'].'.png');
break;
}
}
}
?>
<!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()">
<?php $map->printMap(); ?>
</body>
</html>