0 && strlen($siret)<>9 && strlen($siret)<>14) die('Paramètres incorrects !'); if (isset($_REQUEST['idan']) && $_REQUEST['idan']*1<>0) $idan = $_REQUEST['idan']; else $idan = false; $idEntreprise = $_REQUEST['idEntreprise']; if (($siret*1)==0 && $idan==0) die('Paramètres incorrects !'); $siren=substr($siret,0,9); //annonces&action=logon&login=mederic&checkIp=only&siret=552144503&id=6415277&vue=bodacc $vue=$_REQUEST['vue']; $message=''; $action=$_REQUEST['action']; if ($action<>'' && $action<>'surv' && $action<>'logon') die('Paramètres incorrects !'); if ($action=='surv') { if (preg_match('#^[\w.-]+@[\w.-]+\.[a-zA-Z]{2,5}$#',$_REQUEST['email'])) { $message='Entreprise sous surveillance Annonces Légales'; mail( 'contact@scores-decisions.com',"Demande de surveillance pour $siren à ".$_REQUEST['email'], 'REQUEST='.EOL.print_r($_REQUEST,true).'EOL'. 'SERVER='.EOL.print_r($_SERVER,true).'EOL'. 'SESSION='.EOL.print_r($_SESSION,true).'EOL'. 'ENV='.EOL.print_r($_ENV,true).'EOL'. 'tabInfo='.print_r($tabInfo,true)); $fp=fopen(PATH_LOGS.'surveillances.csv', 'a'); fwrite($fp, date('Y/m/d H:i:s').";$siren;".$_REQUEST['email'].';'.$tabInfo['login'].';'.$tabInfo['email'].';'.$tabInfo['ip']."\n"); fclose($fp); try { $O = $client->setSurveillanceAnnoncesLegales($siren, $_REQUEST['email'], $_REQUEST['ref']); //$annonces=$O['result']; } catch (SoapFault $fault) { include_once(realpath(dirname(__FILE__).'/../../').'/includes/soaperror.php'); processSoapFault($client,$fault,$tabInfo); die(); } } else { $message="ERREUR : Veuillez saisir une adresse email valide pour la mise sous surveillance"; } } try { if ($vue=='bodacc' || $_REQUEST['source']=1) $filtre=1; elseif ($vue=='balo') $filtre=2; elseif ($vue=='asso') $filtre=3; else $filtre=0; if ($tabInfo['entrep']['fj']>9000 && $tabInfo['entrep']['fj']<9999 && $siren==0) { $filtre=3; } $O = $client->getAnnonces($siren, $filtre, $idan); $annonces=$O['result']; $firephp->log($annonces, 'annonces'); if (count($annonces)==0) { $idan=0; $O = $client->getAnnonces($siren, $filtre, $idan); $annonces=$O['result']; } } catch (SoapFault $fault) { include_once(realpath(dirname(__FILE__).'/../../').'/includes/soaperror.php'); processSoapFault($client,$fault,$tabInfo); die(); } /** Récupération du site WEB et tel/fax entreprise **/ $conid = mysql_pconnect(MYSQL_HOST, MYSQL_USER, MYSQL_PASS); if (!($conid === false)) { if (mysql_select_db(MYSQL_DB, $conid) === false) { die('Base de données indisponible'); } } if ($siren<>$tabInfo['entrep']['siren']) { $O2 = $client->getIdentite($siret); $etab=$O2['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; $raisonSociale=$etab['Nom']; } else $raisonSociale=$tabInfo['entrep']['raisonSociale']; ?> '') { ?> '; $ann=$annonces[0]; /** ** AFFICHAGE D'UNE ANNONCE BODACC / BALO / ASSO **/ // Entête BALO if ($vue=='balo') { ?> */ elseif ($vue=='asso') { ?> 0) { /** Affichage de la liste des annonces **/ $titreBodacc=$titreBalo=$titreAsso=false; foreach ($annonces as $i=>$ann) { if ($ann['BodaccCode']=='BODA' || $ann['BodaccCode']=='BODB' || $ann['BodaccCode']=='BODC') { if (!$titreBodacc) echo ''; $vueL='bodacc'; $titreBodacc=true; } elseif ($ann['BodaccCode']=='BALO') { if (!$titreBalo) echo ''; $vueL='balo'; $titreBalo=true; } elseif ($ann['BodaccCode']=='ASSO') { if (!$titreAsso) echo ''; $vueL='asso'; $titreAsso=true; } else { if (!$titreBodacc) echo ''; $vueL='abod'; $titreBodacc=true; } ?> */ } if (!$idan) { ?>

	Numéro identifiant Siren
	Raison Sociale
	BALO n° du . Entré n°. Entrée en base S&D : . Cliquez ici pour voir cette annonce au format PDF () .
	log($source,'Source'); $idSource=@$tabSource[1]; if ($source[0] == 'B'){ if ($ann['BodaccNum']==0) print '  Source BODACC '.substr($ann['BodaccCode'],-1).' du '.WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution']); else print '   Source BODACC n°'.$ann['BodaccNum'].' '.substr($ann['BodaccCode'],-1).' du '.WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution']).'. Département n°'.$ann['Departement'].'. '.$ann['Tribunal'].''; }elseif ($source[0] == 'G' || $source[0] == 'T'){ print '  Source Greffe du Tribunal'; }elseif ($source[0] == 'P'){ print '  Source Registre National du Commerce'; }else{ print '  Source Journal Annonces Légales'; } if ($ann['dateInsertionSD']<>'') echo ' Entrée en base : '. WDate::dateT('Y-m-d','d/m/Y',$ann['dateInsertionSD']); ?>
	J.O. ASSOCIATION n° du . Annonce n°. Entrée en base S&D : .
	$even) { echo @$even['LibEven'].' '; } ?>
Revenir à la liste des annonces
	Le log($source, 'Source List'); $idSource=@$tabSource[1]; if ($source[0] == 'B'){ print ''; }elseif ($source[0] == 'G' || $source[0] == 'T'){ print ''; }elseif ($source[0] == 'P'){ print ''; }else{ print ''; } } ?>	$even) { echo $even['LibEven']; $numEven=$even['CodeEven']*1; if ($numEven>3000 && $numEven<3999) echo ' (clôture au '.WDate::dateT('Y-m-d','d/m/Y',$ann['dateEffet']).')'; //elseif ($ann['BodaccCode']<>'BODA' && $ann['BodaccCode']<>'BODB' && $ann['BodaccCode']<>'BODC' && (str_replace('-','',$ann['DateParution'])*1)>20060101 ) // echo ' (annonce officielle en cours de publication au BODACC)'; echo ' '; /* 'dateEffet'=>$ann['dateEffet'], 'dateJugement'=>$ann['dateJugement'], */ }?>
		Néant
Scores & Décisions dispose de l'intégralité de l'historique Bodacc depuis 1953. Cet historique sera mis en ligne dans son intégralité au courant du 2ème semestre 2008.