=91 && $cj<=93) || ($cj>=9110 && $cj<=9300) ) $errCJ=true; elseif ( $dep=='00' || $dep=='57' || $dep=='67' || $dep=='68' || $dep=='97' || $dep=='98') $errDep=true; else { $client2 = new SoapClient(null, array( 'location' => INFOGREFFE_WS_URL, 'uri' => INFOGREFFE_WS_URI, 'soap_version' => SOAP_1_1, 'trace' => 1, 'style' => SOAP_RPC, 'use' => SOAP_ENCODED, )); $type = 'AC'; $req = ''. ''. ''.INFOGREFFE_WS_USER.''.//85009006 ''.INFOGREFFE_WS_PASS.''.// ''.INFOGREFFE_WS_REF.''. ''. 'A'. 'IC'. 'C'. ''.$type.''.// KB=Kbis, HQ=Histo, ST=Statut, AC=Acte, LE=Liste étab 'S'. 'WS'. ''. ''. ''. ''. ''. ''. ''.$siren.''. ''; $fichier="$type-$siren.xml"; $perisable=true; if (// Le fichier n'existe pas en cache !file_exists(PATH_DATA.'/infogreffe/xml/'.$fichier) || // Le fichier existe en cache mais est périsable (liste) ( file_exists(PATH_DATA.'/infogreffe/xml/'.$fichier) && $perisable && date('Ymd', filemtime(PATH_DATA.'/infogreffe/xml/'.$fichier))<>date('Ymd') ) || // Le fichier existe en cache, n'est pas périsable (acte) mais contient un message d'erreur ( file_exists(PATH_DATA.'/infogreffe/xml/'.$fichier) && !$perisable && date('Ymd', filemtime(PATH_DATA.'/infogreffe/xml/'.$fichier))<>date('Ymd') && filesize(PATH_DATA.'/infogreffe/xml/'.$fichier)<=200) ){ try { $O=$client2->getProduitsWebServicesXML(utf8_encode($req)); $xml=implode('', (array)$O); }catch (SoapFault $soapFault) {// echo "ERROR :\n", var_dump($soapFault), "\n"; echo "Request :\n", $client->__getLastRequest(), "\n"; //require_once 'soaperror.php'; //processSoapFault($client2,$fault,$tabInfo); $success=false; $response=$client2->__getLastResponse(); $response=str_replace("",'', $response); $xml=str_replace('','', $response); } /** Enregistrement du fichier XML en provenance des greffes **/ if (strlen($xml)<>0) { $fp=@fopen(PATH_DATA.'/infogreffe/xml/'.$fichier, 'w'); @fwrite($fp, $xml); @fclose($fp); } } else { /** Lecture du fichier XML en provenance des greffes **/ $xml = file_get_contents(PATH_DATA.'/infogreffe/xml/'.$fichier); } /** Affichage des erreurs Infogreffe **/ if (strlen($xml)<200) { $tmp=explode('-', $xml); $errNum=$tmp[0]*1; $errMsg=$xml; if ($errNum==0) $errNum=-1; elseif ($errNum==45 || $errNum==14 ) $errNum=false; } } if ($errCJ || $errDep || $errNum) { ?> 500 ) $vue=2; if ($vue==0) { ?> getKbis($siren, 1,0); $kbis=$O['result']; sleep(5); } catch (SoapFault $fault) { require_once 'soaperror.php'; processSoapFault($client,$fault,$tabInfo); //echo '
'.$client->__getLastResponse().'
'; //echo 'ERREUR SOAP :'.EOL; //print_r($fault); //die(); } $page=getUrl($kbis['Url'], '', '', '', false); $body=$page['body']; $fp=@fopen(PATH_DATA.'/pdf/kbis-'.$siren.'.pdf', 'w'); @fwrite($fp, $body); @fclose($fp); $message='Commande de K-Bis en cours'; mail( 'ylenaour@scores-decisions.com',"KBIS en cours pour $login ($siren, vue=$vue)", '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).EOL. 'O='.print_r($O,true).EOL); } $raisonSociale=$tabInfo['entrep']['raisonSociale']; ?>
  Numéro identifiant Siren
  Raison Sociale
 
 

'; ?>

'') { ?>
 

  Numéro identifiant Siren
  Raison Sociale
 
500 )){ try { $O = $client->getKbis($siren, 1,0); $kbis=$O['result']; sleep(5); } catch (SoapFault $fault) { require_once 'soaperror.php'; processSoapFault($client,$fault,$tabInfo); //echo '
'.$client->__getLastResponse().'
'; //echo 'ERREUR SOAP :'.EOL; //print_r($fault); //die(); } $page=getUrl($kbis['Url'], '', '', '', false); $body=$page['body']; $fp=@fopen(PATH_DATA.'/pdf/kbis-'.$siren.'.pdf', 'w'); @fwrite($fp, $body); @fclose($fp); if ( file_exists(PATH_DATA.'/pdf/kbis-'.$siren.'.pdf') && date('Ymd', filemtime(PATH_DATA.'/pdf/kbis-'.$siren.'.pdf'))==date('Ymd') && filesize(PATH_DATA.'/pdf/kbis-'.$siren.'.pdf')>500 ) { echo 'Visualiser le Kbis '; $message='Commande de K-Bis prise en compte'; mail( 'ylenaour@scores-decisions.com',"Commande de KBIS pour $login ($siren)", '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).EOL. 'O='.print_r($O,true).EOL); } else { ?>
Visualiser le Kbis '; $message='Commande de K-Bis prise en compte'; mail( 'ylenaour@scores-decisions.com',"Commande de KBIS pour $login ($siren, vue=$vue)", '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).EOL. 'O='.print_r($O,true).EOL); } ?>