0 ) return floor($dec); else return ceil($dec); } } if ( !function_exists('dec2dms') ) { function dec2dms($dec) { $d = supprDecimales($dec); $m = supprDecimales(($dec - $d) * 60); $s = abs(round(((($dec - $d) * 60) - $m) * 60)); $m = abs($m); return $d.'°'.$m."'".$s.'"'; } } $siret=trim(preg_replace('/[^0-9]/', '', $_REQUEST['siret'])); if (strlen($siret)<>0 && strlen($siret)<>9 && strlen($siret)<>14) die('Paramètres incorrects !'); $id=trim(preg_replace('/[^0-9]/', '', $_REQUEST['id']))*1; // Si id=0 alors non communiqué if (($siret*1)==0 && $id==0) die('Paramètres incorrects !'); $siren=substr($siret,0,9); //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'], // 'encoding' => 'UTF-8' )); try { $O = $client->getIdentite($siret, $id); $etab=$O['result']; $tabEntrep=array(); $tabEntrep['raisonSociale']=$etab['Nom']; $tabEntrep['siren']=$etab['Siren']; $tabEntrep['siret']=$etab['Siret']; $tabEntrep['tva']=$etab['TvaNumero']; $tabEntrep['isin']=$etab['Isin']; $tabEntrep['AutreId']=$etab['AutreId']; $tabEntrep['active']=$etab['Statut']; $tabEntrep['Source']=$etab['Source']; $tabEntrep['SourceId']=$etab['SourceId']; $tabEntrep['codeCommune']=$etab['Dept'].$etab['codeCommune']; $tabEntrep['nafEn']=$etab['NafEnt']; $tabEntrep['nafEt']=$etab['NafEtab']; $tabEntrep['fj']=$etab['FJ']; $_SESSION['tabInfo']['entrep']=$tabEntrep; } catch (SoapFault $fault) { echo '
'.$client->__getLastResponse().'
'; echo 'ERREUR SOAP :'.EOL; print_r($fault); die(); } ?> '') { $locImg=PATH_LOGOS.$etab['Isin']; if (file_exists($locImg.'.gif')) { $urlImg='/img/logos/'.$etab['Isin'].'.gif'; $ext='.gif'; } elseif (file_exists($locImg.'.png')) { $urlImg='/img/logos/'.$etab['Isin'].'.png'; $ext='.png'; } elseif (file_exists($locImg.'.jpg')) { $urlImg='/img/logos/'.$etab['Isin'].'.jpg'; $ext='.jpg'; } elseif (file_exists($locImg.'.jpeg')) { $urlImg='/img/logos/'.$etab['Isin'].'.jpeg'; $ext='.jpeg'; } } if (trim($etab['Web'])<>'') { if (substr($etab['Web'],0,7)<>'http://') $siteWeb='http://'.$etab['Web']; else $siteWeb=$etab['Web']; if ($urlImg=='' && ($_SESSION['tabInfo']['login']=='ylenaour' || $_SESSION['tabInfo']['login']=='mpurcarin' || $_SESSION['tabInfo']['login']=='mcochet' || $_SESSION['tabInfo']['login']=='aegasse' || $_SESSION['tabInfo']['login']=='jmartory') ) $urlImg=getLogo($siteWeb, $etab['Siren']); } if ($etab['Isin']<>'') { $bourse=$etab['Bourse']; ?> 0) { ?> '') { $tabTmp=@getimagesize($locImg.$ext); $w=$tabTmp[0]; $h=$tabTmp[1]; if ($w>350) $strSize=@redimage($locImg.$ext,350,150); else $strSize=''; ?> '') { $libTrib='';?> '' && $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<>'') { ?>'NON' || @$etab['GeoInfos']['ZFU']<>'NON' || @$etab['GeoInfos']['ZRU']<>'NON' || @$etab['GeoInfos']['CUCS']<>'NON') {/* && trim(@$etab['GeoInfos']['NCUCS'])<>'')) {*/ if (@$etab['GeoInfos']['ZUS']=='OUI' || @$etab['GeoInfos']['ZFU']=='OUI' || @$etab['GeoInfos']['ZRU']=='OUI' || @$etab['GeoInfos']['CUCS']=='OUI') { /*[GeoInfos] => Array ( [ZUS] => OUI [NZUS] => 1127020 [ZFU] => OUI [NZFU] => 11270ZF [CUCS] => OUI [NCUCS] => 1127020 ) */ ?> 0) { ?> '') { ?> '') { ?> '') { ?> 0 && $etab['NatureActivite']*1<99) { $tabNatureActivite=array( 3=>'Extraction', 4=>'Fabrication, production', 5=>'Montage, installation', 6=>'Réparation', 7=>'Transport', 8=>'Import, export', 9=>'Commerce de gros ou intermédiaire du commerce', 10=>'Commerce de détail', 11=>'Profession libérale', 12=>'Services', 13=>'Location de meublés', 14=>'Bâtiments, travaux publics', 15=>'Services aux entreprises', 20=>'Donneur d\'ordre', ); $strActivite.=$tabNatureActivite[$etab['NatureActivite']*1].' '; }*/ if (/*trim($strActivite)<>''*/$etab['NatureActivite']==1 && $etab['Actif']==1) { ?> 0 && $etab['OrigineCreation']*1<9) || $etab['OrigineCreation']=='A' || $etab['OrigineCreation']=='B' || $etab['OrigineCreation']=='C' || $etab['OrigineCreation']=='D' || $etab['OrigineCreation']=='E' ) { $tabCreation=array( 'a1'=>'Création', 'a3'=>'Achat', 'a4'=>'Apport', 'a6'=>'Prise en location gérance', 'a7'=>'Partage', 'a8'=>'Reprise', 'aA'=>'Reprise globale de l\'exploitation agricole', 'aB'=>'Poursuite de l\'exploitation agricole par le conjoint', 'aC'=>'Transfert de propriété de l\'exploitation agricole', 'aD'=>'Apport d\'exploitation(s) agricole(s) individuelle(s)', 'aE'=>'Reprise d\'exploitation agricole individuelle', ); ?> 'N/C') { ?> 0) {?> '', ' ER '=>''))); if (preg_match('/MAPPY/i', $_SESSION['tabInfo']['pref']) && preg_match('/(LILLE|CAEN|RENNES|BAULE|NANTES|NANCY|STRASBOURG|LYON|BORDEAUX|GRENOBLE|MONTPELLIER|TOULOUSE|MARSEILLE|CANNES|NICE|PARIS|NEUILLY|LEVALLOIS|ASNIERES|COURBEVOIE|NANTERRE|REUIL|BOULOGNE|SEVRES|VERSAILLES|MONTROUGE|MOULINEAUX)/', $ville)) { ?> parse(); $tabMonth=array('Jan'=>1,'Feb'=>2,'Mar'=>3,'Apr'=>4,'May'=>5,'Jun'=>6,'Jul'=>7,'Aug'=>8,'Sep'=>9,'Oct'=>10,'Nov'=>11,'Dec'=>12); foreach ($rss->getItems() as $i=>$item) { if ($i==0) {?> '; } ?>
  Numéro identifiant Siret '.substr($etab['Siret'],9,5)?>
  Numéro identifiant Siret du siège '.substr($etab['SiretSiege'],9,5)?>
  Numéro de TVA Intracom. Non attribué dans les D.O.M.'; } else { echo substr($etab['TvaNumero'],0,2).' '.substr($etab['TvaNumero'],2,2).' '.substr($etab['TvaNumero'],-9); if (!$etab['TvaAttribue']) echo ' '; } ?>
  Code ISIN
  Capitalisation € au
  Logo />
 
  Etablissement actifAccès à la fiche du siège'; ?> NON'; $dateCloture=str_replace('-','',$etab['DateClotEn']); if ($etab['DateClotEn']<>'') echo " (Fin d'activité enregistrée en ".WDate::dateT('Ymd', 'm/Y', $dateCloture).')'; } if ($etab['Siren']*1<>0/* && $_SESSION['tabInfo']['login']=='ylenaour'*/) echo '   (Situation au répertoire SIRENE)'; ?>
  Situation juridique En procédure collective'; if ($_SESSION['tabInfo']['mode_edition']==1 && ($_SESSION['tabInfo']['login']=='ylenaour' || $_SESSION['tabInfo']['login']=='jmartory' || $_SESSION['tabInfo']['login']=='mheitz' || $_SESSION['tabInfo']['login']=='mcochet' || $_SESSION['tabInfo']['login']=='mpurcarin' || $_SESSION['tabInfo']['login']=='aegasse') ) echo '  (Edition)'; // elseif ($etab['SituationJuridique']=='R') echo 'Radiée'; // elseif ($etab['SituationJuridique']=='A') echo 'Absorbée'; // else echo ' '; ?>
  Situation juridique Néant
 
  Raison Sociale '') echo '
'.$etab['Nom2'];?>
 
  Forme juridique
  Date de création de l'entreprise
  Date de création de l'établissement 0) { if (substr($dateCreationEt,-2)*1==0) echo WDate::dateT('Ymd', 'm/Y', $dateCreationEt); else echo WDate::dateT('Ymd', 'd/m/Y', $dateCreationEt); } else echo 'N/C';?>
  Adresse
CHEZ SOFRADOM'; if ($etab['Adresse2']<>'') echo $etab['Adresse2'].'
';?> 0) echo $etab['CP'].' ';?> '' && strtoupper(substr($etab['Pays'],0,3))<>'FRA') echo '
'.strWsToHtml($etab['Pays']);?>
  Zones prioritaires ZUS n°'.$etab['GeoInfos']['NZUS'].'
'; // elseif ($etab['GeoInfos']['ZUS']=='NSP') echo 'Implantation en ZUS à vérifier
'; if ($etab['GeoInfos']['ZFU']=='OUI') echo 'ZFU n°'.$etab['GeoInfos']['NZFU'].'
'; // elseif ($etab['GeoInfos']['ZFU']=='NSP') echo 'Implantation en ZFU à vérifier
'; if ($etab['GeoInfos']['ZRU']=='OUI') echo 'ZRU n°'.$etab['GeoInfos']['NZRU'].'
'; // elseif ($etab['GeoInfos']['ZRU']=='NSP') echo 'Implantation en ZRU à vérifier
'; if ($etab['GeoInfos']['CUCS']=='OUI') echo 'CUCS n°'.$etab['GeoInfos']['NCUCS']; // elseif ($etab['GeoInfos']['CUCS']=='NSP') echo 'Implantation en CUCS à vérifier'; ?>
  Téléphone '') $libNom=urlencode($etab['Enseigne']); else $libNom=urlencode($etab['Nom']); $adresse=$etab['Adresse']; $i_adr=0; while (substr($adresse,0,1)=='0') { $i_adr++; $adresse=substr($adresse,1,strlen($adresse)-1); if ($i_adr>4) break; } ?>   (Recherche annuaire)
  Fax
  Site Internet
  Courriel
 
  Activité de l'entreprise '' && !preg_match('/non pr(e|é)cis(e|é)/i',utf8_decode($etab['Activite']))) { $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, strWsToHtml($etab['Activite'])); echo $texte.' ('.$etab['NafEnt'].' : '. strWsToHtml($etab['NafEntLib']).')'; } else echo $etab['NafEnt'].' : '. strWsToHtml($etab['NafEntLib']); ?>
  Activité de l'établissement
  Anciens codes NAF Entr. :  
Étab. :
  Nature de l'activité Saisonnière
  Origine du fonds
  Nombre d'établissements actifs 1) { ?> (Liste)
  Capital  
  Chiffre d'affaire
  Principaux Dirigeants :
'') {?>
:
  Effectif de l'entreprise
 
Information géographique :
0) { ?>Latitude : ()
Longitude : ()
Afficher l'adresse sur Google Map ©

Code commune / Rivoli :
/
  Information géographique 0) { ?>Latitude : ()
Longitude : ()
Afficher l'adresse sur Google Map ©
  Code commune / Rivoli /
 
  Information presse (Source Google News ©)
'; //echo '

'.distance(48,0,47,0); function charset2html($str) { return $str; if (isUTF8($str)) return '(UTF-8) '.htmlentities($str, ENT_QUOTES, 'UTF-8'); else return '(non UTF-8) : '.htmlentities($str); } function isUTF8($string) { return (utf8_encode(utf8_decode($string)) == $string); } /** * Convertit la chaine UTF8 en ISO-8859-1 (si elle est déjà en ISO, ne fait rien!) * * @param string $sUtf8 chaine UTF-8 à convertir en ISO-8859-1 * @return string */ function utf8ToIso($sChaineUtf8) { // Chaine retournée $sChaineIso = ''; // Détection de l'encodage de la chaine $sEncodage = mb_detect_encoding($sChaineUtf8,'UTF-8, ISO-8859-1'); // Conversion si chaine n'est pas déjà en ISO-8859-1 if ($sEncodage != 'ISO-8859-1') { // Encodage $sChaineIso = mb_convert_encoding($sChaineUtf8, 'ISO-8859-1',$sEncodage); return $sChaineIso; } else { return $sChaineUtf8; } } /** * Convertit la chaine ISO-8859-1 en UTF-8 (si elle est déjà en UTF-8, ne fait rien!) * * @param string $sChaineIso chaine au format ISO-8859-1 * @return string */ function isoToUtf8 ($sChaineIso) { // Chaine retournée $sChaineUtf8 = ''; // Détection de l'encodage de la chaine $sEncodage = mb_detect_encoding($sChaineIso,'UTF-8, ISO-8859-1'); // Conversion si chaine n'est pas déjà en UTF-8 if ($sEncodage != 'UTF-8') { // Encodage $sChaineUtf8 = mb_convert_encoding($sChaineIso, 'UTF-8',$sEncodage); return $sChaineUtf8; } else { return $sChaineIso; } } if ( !function_exists('supprDecimales') ) { function supprDecimales($dec) { if ($dec>0 ) return floor($dec); else return ceil($dec); } } if ( !function_exists('dec2dms') ) { function dec2dms($dec) { $d = supprDecimales($dec); $m = supprDecimales(($dec - $d) * 60); $s = abs(round(((($dec - $d) * 60) - $m) * 60)); $m = abs($m); return $d.'°'.$m."'".$s.'"'; } } //echo ''; ?>