if (!$_SESSION['connected']) die(); $siret=trim(preg_replace('/[^0-9]/', '', $_REQUEST['siret'])); if (strlen($siret)<>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; $iden = $_REQUEST['iden']; 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']; /** 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'])); $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"; } } 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'); 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; } //echo ""; $O = $client->getAnnonces($siren, $filtre, $idan); $annonces=$O['result']; if (count($annonces)==0) { $id=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(); } /* print "
"; print_r($annonces); print ""; exit; */ /** 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']; ?>
=$message;?> |
|||
Numéro identifiant Siren | =substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?> | ||
Raison Sociale | =$raisonSociale?> | ||
BALO n°=$ann['BodaccNum']?> du =WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution'])?>. Entré n°=$ann['NumAnnonce']?>. Entrée en base S&D : =WDate::dateT('Y-m-d','d/m/Y',$ann['dateInsertionSD'])?>. Cliquez ici pour voir cette annonce au format PDF (=adapteOCtets(@filesize('/var/www/data/jo/balo/'.WDate::dateT('Y-m-d','Y',$ann['DateParution']).'/'. $ann['Lien_Annonce_Pdf']))?>) . |
|||
=$ann['Categorie']?> | |||
$tabSource=explode('-', $ann['BodaccCode']); $source=$tabSource[0]; $idSource=@$tabSource[1]; if ($source=='GC') echo ' Source Tribunal'; elseif ($source=='PC') echo ' Source Registre National du Commerce'; elseif ($source=='' || $source=='JS') echo ' Source Journal Annonces Légales'; elseif ($ann['BodaccNum']==0) echo ' Source BODACC '.substr($ann['BodaccCode'],-1).' du '.WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution']); else echo ' 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']?>. if ($ann['dateInsertionSD']<>'') echo 'Entrée en base : '. WDate::dateT('Y-m-d','d/m/Y',$ann['dateInsertionSD']); ?> | |||
J.O. ASSOCIATION n°=$ann['BodaccNum']?> du =WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution'])?>. Annonce n°=$ann['NumAnnonce']?>. Entrée en base S&D : =WDate::dateT('Y-m-d','d/m/Y',$ann['dateInsertionSD'])?>. | |||
$even) {
echo @$even['LibEven'].' '; }?> /*if ($_SESSION['tabInfo']['login']=='ylenaour') { echo ' Page originale'; }*/ ?> |
|||
/** ** Affichage du texte de l'annonce **/ $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, $ann['texteAnnonce']); ?> | =$texte?> |
||
Revenir à la liste des annonces | |||
Le =WDate::dateT('Y-m-d','d/m/Y',$ann['DateParution']).' '; if ($vueL=='bodacc' || $vueL=='abod') { $tabSource=explode('-', $ann['BodaccCode']); $source=$tabSource[0]; $idSource=@$tabSource[1]; if ($source=='BODA' || $source=='BODB' || $source=='BODC') echo ''; elseif ($source=='GC') echo ''; elseif ($source=='PC') echo ''; else { echo ''; } } ?> | $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. | |||