"Aucune erreur",
10=>"Erreur de protocole avec système distant",
11=>"Système distant inaccessible",
101=>"Type de requête invalide",
102=>"Code d'erreur appelant invalide",
103=>"Identification non reconnue",
107=>"Date invalide",
108=>"Heure invalide",
110=>"Code produit inconnu",
115=>"Numéro de champ invalide",
116=>"Longueur de champ invalide",
121=>"Code de protocole invalide",
122=>"Code base de données invalide",
900=>"Erreur applicative",
990100=>"+ de 50 entreprises trouvées",
990101=>"Recherche complexe",
990102=>"Critères saisis insuffisants",
990103=>"Requête trop imprécise",
990104=>"Dénomination non significative",
990105=>"Critère commune non générall",
990106=>"Critère voie trop général",
990107=>"Commune obligatoire avec rue",
990108=>"Commune non identifiée",
990109=>"Entreprise non identifiée",
990110=>"Erreur système",
990111=>"Devise incorrecte",
990112=>"Autre erreur",
990113=>"Donnée incorrecte",
990114=>"Valeur incohérente",
990115=>"Surveillance impossible",
990116=>"Entreprise non surveillée",
990117=>"Entreprise déjà surveillée",
990118=>"Produit indisponible",
990119=>"Erreur base de données",
990120=>"Erreur facturation",
);
include_once(FWK_PATH.'/common/curl.php');
if (!$_SESSION['connected'])
echo ('Vous devez être connecté afin de pouvoir utiliser cette fonctionnalité');
else { // On est bien connecté
$tabInfo = $_SESSION['tabInfo'];
define('RNCS_WS_URL', 'http://www.services.ort.fr/ProtocoleRNCS/access');
define('RNCS_WS_USER', '167260');
define('RNCS_WS_PASS', '100356');
$cmdPages=$cmdNom='';
if (isset($_REQUEST['pages'])) $cmdPages=$_REQUEST['pages'];
if (isset($_REQUEST['nom'])) $cmdNom=$_REQUEST['nom'];
if (isset($_REQUEST['vue'])) $vue=$_REQUEST['vue'];
if ($vue=='bilans') $presta='12004';
else $presta='12003';
if ($cmdNom && $cmdPages) $type='QDOC';
else $type='QVIT';
$prod=array('Type'=>$type,
'Presta'=>$presta,
'Num'=>'2',//2,
'Ver'=>'2',//2,
'Siren'=>$siren,
'CmdNom'=>$cmdNom,
'CmdPages'=>$cmdPages,
'CmdBilan'=>'',
);
$ref='';
$req=''. "\n".
''. "\n".
' '. "\n".
' NPORT'. "\n".
' 2'. "\n". // Version du protocole
' 1'. "\n". // Version du dictionnaire
' 1'. "\n". // Code protocole/version application
' PROTORNCS'. "\n".
' '.$prod['Type'].''. "\n". // Prestation souhaitée QVIT / QDOC
' 0'. "\n". // Code retour/erreur
' '.RNCS_WS_USER.RNCS_WS_PASS.''."\n". // User Password concaténés
' '.$ref.''. "\n". // Réf.
' '.date('Ymd').''. "\n". // Date SSAAMMJJ
' '.date('His').''. "\n". // Heure HHMMSS
' ORT'. "\n".
' '. "\n".
' '. "\n".
' '. "\n".
' '. "\n". // Type de produit (vide pour QVIT)
' '.$prod['Num'].''. "\n". // Numéro de produit souhaité 1 2
' '.$prod['Ver'].''. "\n". // Version du produit 3 2
' '. "\n". // Code prestation (vide pour QVIT)
' '. "\n";
if ($prod['CmdNom'] && $prod['CmdPages']) {
$req.='
'.$prod['Presta'].'
FTP
NTIF
'.$prod['Siren'].'
'.$prod['CmdNom'].'
'.$prod['CmdPages'].'
'.$prod['CmdBilan'].'
'; //
} else {
$req.='
'.$prod['Siren'].'
'.$prod['Presta'].'
';// 12003 Actes et statuts 12004 Bilans
}
$req.='
';
//echo $req.'
';
$postData=array(''=>$req);
$cookie=$referer='';
if ( (!$cmdNom && !$cmdPages) ||
( $cmdNom && $cmdPages && !file_exists(PATH_DATA.'/pdf/rncs-'.$siren.'-'.$cmdNom.'-'.$cmdPages.'.pdf') )
) {
$page=getUrl(RNCS_WS_URL, $cookie, $postData, $referer, false, 'www.services.ort.fr');
//print_r($page);
$body=$page['body'];
} else {
$body='';
}
/**
** ERREUR PROTOCOL
**/
preg_match('/(.*)<\/ort:_13>/Uis',$body, $matches);
if ($matches[1]*1<>0) {
$errNumInpi=$matches[1];
$errMsgInpi=$tabErreurInpi[$errNumInpi];
echo "\n";
}
/**
** ERREUR APPLICATIVES NUMERIQUES
**/
preg_match('/(.*)<\/ort:_96>/Uis',$body, $matches);
if ($matches[1]*1<>0) {
$errNumInpi=$matches[1];
$errMsgInpi=$tabErreurInpi[$errNumInpi];
echo "\n";
}
/**
** ERREUR APPLICATIVES TEXTE
**/
preg_match('/(.*)<\/ort:_97>/Uis',$body, $matches);
if ($matches[1]*1<>0) {
$errMsgInpi=$matches[1];
echo "\n";
}
/*
|
if ($errNum<>17) { echo "Erreur N°$errNum - "; }?>=$tabErrInfoGref[$errNum]?> |
*/
if ($vue=='bilans')
$pregmatch=preg_match_all('/(?:.*)(.*)<\/ort:_103000040>(?:.*)(.*)<\/ort:_103000452>(?:.*)(.*)<\/ort:_103000402>(?:.*)(.*)<\/ort:_103000403>(?:.*)(.*)<\/ort:_103000404>(?:.*)<\/ort:_201>/Uis',$body, $matches);
else
$pregmatch=preg_match_all('/(?:.*)(.*)<\/ort:_103000452>(?:.*)(.*)<\/ort:_103000402>(?:.*)(.*)<\/ort:_103000403>(?:.*)(.*)<\/ort:_103000404>(?:.*)<\/ort:_201>/Uis',$body, $matches);
$O2 = $client->setLog('inpi_'.$vue, $siret, 0, trim($cmdNom.' '.$cmdPages));
/*
SS
31/12/2004
40530295104121BL6852
2
bilan (actif + passif + compte de résultat)
SS
31/12/2004
40530295104121GS6852
2
rapport de gestion
SS
31/12/2004
40530295104121??6852
22
Comptes annuels complets
SS
31/12/2003
40530295103121BL6852
2
bilan (actif + passif + compte de résultat)
SS
31/12/2003
40530295103121GS6852
2
rapport de gestion
SS
31/12/2003
40530295103121??6852
23
Comptes annuels complets
*/
if ($origine=='G' && count($matches[0])==0)
$vecteurTinit=true;
else {
?>
if ($errNum==0) { ?>
|
|
Numéro identifiant Siren |
=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?> |
|
Raison Sociale |
=$raisonSociale?> |
|
}
if ($vue=='bilans') { // Début BILANS
if ($errNum==0) {
?>
|
}
if (!$cmdNom && $pregmatch) {
?>
Date | Type | Décisions |
$acte) {
/* SS
31/12/2003
40530295103121??6852
23
Comptes annuels complets
*/
$dateAff=$matches[2][$k];
$acte=array();
$acte['type']=$matches[5][$k].' ('.$matches[1][$k].')';
$acte['decisions']=$matches[4][$k].' page';
if ($matches[4][$k]>1) $acte['decisions'].='s';
$acte['depot_num']=$matches[3][$k];
$cmdNom=$matches[3][$k];
$cmdPages=$matches[4][$k];
if (file_exists(PATH_DATA.'/pdf/rncs-'.$siren.'-'.$cmdNom.'-'.$cmdPages.'.pdf')) {
$alt="Cliquez ici pour télécharger instantanément le document correspondant";
$pdf='';
} else {
$alt="Téléchargement long (entre 1 et 15 minutes) !";
$pdf='';
}
?>
=$dateAff?> | =$acte['type']?> =$pdf?> | =$acte['decisions']; if (trim($acte['decisions'])<>'') echo ' ';?>Dépôt numéro
=$acte['depot_num']?> |
}
echo ' ';
} elseif ($cmdNom && $cmdPages) {
if (!file_exists(PATH_DATA.'/pdf/rncs-'.$siren.'-'.$cmdNom.'-'.$cmdPages.'.pdf')) {
?>
|
|
Votre commande est prise en compte. Veuillez Patienter...
|
} else { ?>
|
Visualiser le document |
$message='Commande RNCS';
mail( 'ylenaour@scores-decisions.com',"Commande de bilans RNCS pour $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));
}
} else {
?>
|
Aucun bilan n'a été dépôsé pour cette entreprise. |
}
} // Fin BILANS
else { // Début ACTES
if ($errNum==0) {
?>
|
}
if (!$cmdNom && $pregmatch) {
?>
Date | Type | Décisions |
$acte) {
$dateAff=$matches[1][$k];
$acte=array();
$acte['type']= strtr($matches[4][$k], array(' - '=>' '));
$acte['decisions']=$matches[3][$k].' page';
if ($matches[3][$k]>1) $acte['decisions'].='s';
$acte['depot_num']=$matches[2][$k];
$cmdNom=$matches[2][$k];
$cmdPages=$matches[3][$k];
if (file_exists(PATH_DATA.'/pdf/rncs-'.$siren.'-'.$cmdNom.'-'.$cmdPages.'.pdf')) {
$alt="Cliquez ici pour télécharger instantanément le document correspondant";
$pdf='';
} else {
$alt="Téléchargement long (entre 1 et 15 minutes) !";
$pdf='';
}
?>
=$dateAff?> | =$acte['type']?> =$pdf?> | =$acte['decisions']; if (trim($acte['decisions'])<>'') echo ' ';?>Dépôt numéro
=$acte['depot_num']?> |
}
echo ' ';
} elseif ($cmdNom && $cmdPages) {
if (!file_exists(PATH_DATA.'/pdf/rncs-'.$siren.'-'.$cmdNom.'-'.$cmdPages.'.pdf')) {
?>
|
|
Votre commande est prise en compte. Veuillez Patienter...
|
} else { ?>
|
Visualiser le document |
$message='Commande RNCS';
mail( 'ylenaour@scores-decisions.com',"Commande de pièces RNCS pour $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));
}
} else {
?>
|
Aucun acte n'a été dépôsé pour cette entreprise. |
}
} // Fin ACTES
echo '
';
?>
}
}?>