scores/extranet
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
extranet/www/pages/greffes.php

1027 lines
44 KiB
PHP
Raw Normal View History

Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
<?php
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
/** Par d<>faut, l'identifiant de commande Infogreffe est <20> 0 **/
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$idCommande=0;
Correction liens Commentaire sur include mysql.php
2009-02-20 13:23:49 +00:00
//include_once(realpath(dirname(__FILE__). '/../../framework/default/_includes/mysql.php'));
Remplacement informations de connection MySQL
2009-02-20 13:57:51 +00:00
$con = mysql_pconnect(MYSQL_HOST, MYSQL_USER, MYSQL_PASS);
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
if (!($con === false)) {
Remplacement informations de connection MySQL
2009-02-20 13:57:51 +00:00
if (mysql_select_db(MYSQL_DB, $con) === false)
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
echo ('<!--Could not select database: ' . mysql_error() .'-->');
}
//$tab=mysql_select('insee', $fields, $where);
// $etab=$RP[0];
$siret=$_REQUEST['siret'];
$siren=substr($siret,0,9);
Résolution bug passage fiche d'identité, annonces puis retour fiche identité pour une entreprise sans siren (association)
2009-02-27 10:06:54 +00:00
$idan=$_REQUEST['idan'];
idEntreprise
2009-03-11 07:51:18 +00:00
$idEntreprise=$_REQUEST['idEntreprise'];
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$source=$_REQUEST['source'];
$action=$_REQUEST['action'];
if ($action<>'' && $action<>'commande') die('Param<61>tres incorrects !');
$vecteurCommande=$_REQUEST['vecteur'];
if ($vecteurCommande<>'') {
if ($vecteurCommande<>'C' && $vecteurCommande<>'T') die('Param<61>tres incorrects !');
} else
$vecteurCommande='T';
$message='';
Modification liens Intégration include_path (prepend.php)
2009-02-20 13:04:46 +00:00
include_once(FWK_PATH.'/common/dates.php');
include_once(FWK_PATH.'/common/curl.php');
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$tabErrInfoGref=array( 0=>"ERREUR LORS DE L'ACCES A LA BASE DES PIECES OFFICIELLES. MERCI DE REESSAYER !",
1=>"REQUETE INTERDITE",
2=>"CODE EMETTEUR INVALIDE",
3=>"CODE ABONNE OU MOT DE PASSE INVALIDE",
4=>"MOT DE PASSE INVALIDE",
5=>"ABONNE INTERDIT",
6=>"DOSSIER NON TROUVE DANS LA BASE DES PIECES OFFICIELLES",
7=>"Type d'inscription invalide",
8=>"Kbis indisponible pour le siren",
9=>"Etat d'endettement indisponible pour le siren",
10=>"Impossible de faire aboutir la demande",
11=>"IMPOSSIBLITE DE GENERER LE FLUX XML DU KBIS",
12=>"IMPOSSIBLITE DE GENERER LE FLUX XML DE L ETAT ENDETTEMENT",
13=>"L ETAT ENDETTEMENT NE POSSEDE AUCUN DEBITEUR",
14=>"IMPOSSIBILITE DE GENERER LA COMMANDE",
15=>"DEMANDE ETAT COMPLET IMPOSSIBLE",
16=>"LA PRISE EN CHARGE DU MAIL EST EFFECTIVE",
17=>"LA PRISE EN CHARGE DE VOTRE COMMANDE EST EFFECTIVE", // LA PRISE EN CHARGE DE VOTRE COURRIER EST EFFECTIVE
18=>"DERNIER STATUT A JOUR INDISPONIBLE",
19=>"BILAN COMPLET INDISPONIBLE",
Modification greffes
2009-02-27 15:19:54 +00:00
20=>"PAS DE COMPTES ANNUELS POUR LES CRITERES DONNES<45>: SOIT LE MILLESIME DEMANDE N'A PAS ETE DEPOSE, SOIT L'ENTREPRISE N'EST PAS TENUE DE DEPOSER SES COMPTES",
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
21=>"PAS DE DERNIER STATUT A JOUR",
22=>"LES MODES DE DIFFUSIONS DEMANDES SONT FERMES",
23=>"SOCIETE NON TENUE DE DEPOSE SES COMPTES",
24=>"SIREN INVALIDE",
25=>"SIREN NON TROUVE DANS LA BASE DES PIECES OFFICIELLES",
26=>"COMPTE NON DEPOSES",
27=>"COMPTES DEPOSES MAIS BILAN SAISI INDISPONIBLE<4C>: COMMANDE BILAN COMPLET POSSIBLE",
28=>"REQUETE SUR LES SURVEILLANCES REALISEES",
29=>"ACCUSES DE RECEPTIONS DISPONIBLES",
30=>"REVELATIONS DISPONIBLES",
31=>"PORTEFEUILLE DISPONIBLE",
32=>"AUCUN ACCUSE DE RECEPTION DISPONIBLE",
33=>"AUCUNE REVELATIONS DISPONIBLES",
34=>"AUCUN PORTEFEUILLE DISPONIBLE",
35=>"TRANCHE HORAIRE DEPASSEE",
36=>"BILAN INDISPONIBLE-PERIODE DE CONSERVATION DEPASSEE",
37=>"BILAN SAISI INDISPONIBLE",
38=>"STATUTS A JOUR INDISPONIBLES POUR ENVOI EMAIL",
39=>"BILAN COMPLET INDISPONIBLE POUR TELECHARGEMENT",
40=>"STATUTS A JOUR INDISPONIBLES POUR ENVOI EMAIL",
41=>"STATUTS A JOUR INDISPONIBLES POUR TELECHARGEMENT",
42=>"ACTE INDISPONIBLE",
43=>"ACTES INDISPONIBLES POUR ENVOI EMAIL",
44=>"ACTES INDISPONIBLES POUR TELECHARGEMENT",
45=>"AUCUN ACTE TROUVE POUR CE SIREN",
46=>"AUCUN ACTE TROUVE AVEC CES CRITERES",
47=>"SERVICE COURRIER INDISPONIBLE",
48=>"SERVICE MAIL INDISPONIBLE",
49=>"SERVICE TELECHARGEMENT INDISPONIBLE",
50=>"UNE PARTIE DE LA COMMANDE INDISPONIBLE EN TELECHARGEMENT ET MAIL",
51=>"ADRESSE EMAIL OBLIGATOIRE POUR COMMANDE MAIL",
52=>"ADRESSE POSTALE OBLIGATOIRE POUR COMMANDE COURRIER",
53=>"LA COMMANDE EN COURRIER SEUL DE L'ETAT EN MATIERE DE PROCEDURE COLLECTIVE N'EST PAS PERMISE",
54=>"IMPOSSIBILITE DE GENERER LE FLUX XML DU CERTIFICAT",
55=>"SOCIETE NE FAISANT PAS L'OBJET D'UNE PROCEDURE COLLECTIVE",
56=>"IDENTIFICATION DU DOCUMENT INVALIDE POUR LA PROCEDURE EN COURS SUR CETTE ENTREPRISE",
57=>"DOCUMENT INDISPONIBLE POUR LE NUMERO DE GESTION",
58=>"AUCUN DOCUMENT TROUVE POUR LE NUMERO DE GESTION",
59=>"DOCUMENT INDISPONIBLE POUR TELECHARGEMENT",
60=>"IDENTIFICATION INCOMPLETE DU DOCUMENT",
61=>"AUCUNE INSCRITPTION MODIFICATIVE TROUVEE",
62=>"HISTORIQUE DES MODIFICATIONS AU RCS INDISPONIBLE",
63=>"IMPOSSIBLITE DE GENERER LE FLUX XML D'HISTORIQUE DE MODIFICATIONS AU RCS",
64=>"HISTORIQUE DE MODIFICATIONS AU RCS INDISPONIBLE",
65=>"LES MODES DE DIFFUSION SPECIFIES SONT INVALIDES",
66=>"LE DEPARTMENT SAISI EST INVALIDE",
67=>"LA RECHERCHE EST LIMITE A UN VOLUME DE 100 ENTREPRISES",
Modification greffes
2009-02-27 15:19:54 +00:00
68=>"LE NUMERO DE GESTION N'EST PAS SUFFISANT POUR CETTE REQUETE",
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
69=>"LE NUMERO DE GESTION EST INVALIDE",
70=>"LA SELECTION DES ETABLISSSMENTS RADIES OU SECONDAIRES DOIT UTILISER UNE VALEUR DE TYPE BOOLEAN true OU false",
999=>"SERVICE INDISPONIBLE",
);
$login=strtolower($_SESSION['tabInfo']['login']);
if (!$_SESSION['connected'])
echo ('Vous devez <20>tre connect<63> afin de pouvoir utiliser cette fonctionnalit<69>');
/*elseif ($login<>'jmartory' && $login<>'bpanaccione' && $login<>'mheitz' && $login<>'jmc' &&
$login<>'rsil' && $login<>'rsiestidf' && $login<>'rsirh' && $login<>'rsic' && $login<>'rsinat' &&
$login<>'rsibret' && $login<>'rsicentre' && $login<>'rsipdll' && $login<>'rsireunion' && $login<>'rsicorse' &&
$login<>'testreunica' && $login<>'reunicacsf') {
echo ('Vous n\'avez pas les droits n<>cessaires pour utiliser cette fonctionnalit<69> (1)');
}*/
elseif (!preg_match('/ACTES/i', $_SESSION['tabInfo']['droits']))
echo ('Vous n\'avez pas les droits n<>cessaires pour utiliser cette fonctionnalit<69> (2)');
else { // On est connect<63> !
$client2 = 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']));
Correction diverse pour la mise en cache et l'export de fichier
2009-03-10 15:07:24 +00:00
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$raisonSociale=$tabInfo['entrep']['raisonSociale'];
$cj=$tabInfo['entrep']['fj'];
$dep=substr(''.$tabInfo['entrep']['codeCommune'],0,2);
Correction diverse pour la mise en cache et l'export de fichier
2009-03-10 15:07:24 +00:00
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
/** Specificit<EFBFBD>s des associations
**/
if ($cj==9150 || // Association syndicale libre
$cj==9220 || // Association d<>clar<61>e
$cj==9221 || // Association d<>clar<61>e "entreprises d'insertion par l'<27>conomique"
$cj==9222 || // Association interm<72>diaire
$cj==9223 || // Groupement d'employeurs
$cj==9230 || // Association d<>clar<61>e reconnue d'utilit<69> publique
$cj==9240 || // Congr<67>gation
$cj==9260 || // Association de droit local
$cj==9300) // Fondation
{
if ($action=='commande') {
if (preg_match('#^[\w.-]+@[\w.-]+\.[a-zA-Z]{2,5}$#',$_REQUEST['email'])) {
$message='Commande prise en compte';
mail( 'contact@scores-decisions.com',"Commande de statuts associations pour $siren <20> ".$_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.'commande_asso.csv', 'a');
fwrite($fp, date('Y/m/d H:i:s').";$siren;".$_REQUEST['email'].';'.$tabInfo['login'].';'.$tabInfo['email'].';'.$tabInfo['ip']."\n");
fclose($fp);
} else {
$message="ERREUR : Veuillez saisir une adresse email valide pour la commande de pi<70>ces";
}
}
?>
<table width="580" border="0" align="left" bgcolor="#FFFFFF">
<?php
if ($message<>'') {
?>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="2" class="StyleInfoData"><h3><?=$message;?></h3></td>
</tr>
<?php
}
?>
<tr>
<td colspan="3" align="center"><img src="./img/rub_pieces.png" width="577" height="36" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Num&eacute;ro identifiant Siren</td>
<td width="350" class="StyleInfoData"><?=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Raison Sociale</td>
<td width="350" class="StyleInfoData"><?=$raisonSociale?></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3"><img src="./img/srub_actes.png" width="576" height="27" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="2" class="StyleInfoData">Il n'est pas possible de visualiser les statuts des associations en ligne.</td>
</tr>
<?
if ($action<>'commande') {
?>
<tr>
<td width="30">&nbsp;</td>
idEntreprise
2009-03-11 07:51:18 +00:00
<td width="550" colspan="2" class="StyleInfoData"><br/><br/><form action="./?page=greffes&action=commande&siret=<?=$siret?>&idEntreprise=<?=$idEntreprise?>&idan=<?=$idan?>&source=<?=$source?>" method="POST"><input type="checkbox"/> Commander les statuts de l'association (d&eacute;lai approximatif de 15 jours)<br/><br/>Adresse email du destinataire <input name="email" type="text" value="<? if ($_SESSION['tabInfo']['login']<>'testreunica' && $_SESSION['tabInfo']['login']<>'reunicacsf') echo $tabInfo['email']?>" size="20"/>&nbsp;&nbsp;&nbsp;<input class="imgButton" type="image" src="./img/boutton_valider_off.gif" name="submit" onmouseover="this.src='./img/boutton_valider_on.gif'" onmouseout="this.src='./img/boutton_valider_off.gif'" title="Commander les statuts de l'association..."></form></td>
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
</tr>
<?
}
?>
</table>
<?
} elseif ( $dep=='00' || $dep=='57' || $dep=='67' || $dep=='68' || $dep=='97' || $dep=='98' || $vue=='rcs' ) { // D<>b ALSACE DOM
//if ($login=='ylenaour' || $login=='jmartory' || $login=='mheitz' )
include('inpi.php');
/*else {
?><table width="580" border="0" align="left" bgcolor="#FFFFFF">
<tr>
<td colspan="3" align="center"><img src="./img/rub_pieces.png" width="577" height="36" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Num&eacute;ro identifiant Siren</td>
<td width="350" class="StyleInfoData"><?=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Raison Sociale</td>
<td width="350" class="StyleInfoData"><?=$raisonSociale?></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3"><img src="./img/srub_actes.png" width="576" height="27" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="2" class="StyleInfoData">D<EFBFBD>partement non op<EFBFBD>rationnel pour l'instant. Merci de renouveller votre demande plus tard !</td>
</tr>
</table>
<? }*/
} else { // D<>b hors ALSACE DOM
if ($action=='commande') {
if (preg_match('#^[\w.-]+@[\w.-]+\.[a-zA-Z]{2,5}$#',$_REQUEST['email'])) {
$message='Commande prise en compte';
mail( 'contact@scores-decisions.com',"Commande de pi<70>ces pour $siren <20> ".$_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.'commande_greffe.csv', 'a');
fwrite($fp, date('Y/m/d H:i:s').";$siren;".$_REQUEST['email'].';'.$tabInfo['login'].';'.$tabInfo['email'].';'.$tabInfo['ip']."\n");
fclose($fp);
$tabCommande=array( 'emailCommande'=>$_REQUEST['email'] );
mysql_update('commandes', $tabCommande, "login='$login' AND siren='$siren'");
} else {
$message="ERREUR : Veuillez saisir une adresse email valide pour la commande de pi<70>ces";
}
}
$vue=$_REQUEST['vue'];
$option=trim(''.@$_REQUEST['option']);/* Si acte ou statuts : type_acte-date-greffe-dossier_millesime-dossier_statut-dossier_chrono-num_depot-num_acte */
/** Si on est en commande de courrier, on g<>n<EFBFBD>re une r<>f unique **/
if ($vecteurCommande=='C') {
$rep=mysql_select('commandes', ' idCommande, login, dateCommande', "siren=$siren AND refDocument='$option'");
if (count($rep)==0) {
$dejaCommande=false;
/** Aucune commande ne concerne ce document **/
$tabCommande=array( 'idUser'=>$_SESSION['tabInfo']['id'],
// emailCommande
'login'=>$login,
'siren'=>$siren,
'refDocument'=>$option,
'dateCommande'=>date('YmdHis'));
$idCommande=mysql_insert('commandes', $tabCommande);
} else {
$dejaCommande=true;
/** Document en cours de commande **/
if ($rep[0]['login']==$login)
$message2='Votre commande a d<>j<EFBFBD> <20>t<EFBFBD> prise en compte le '.WDate::dateT('Ymd', 'd/m/Y',$rep[0]['dateCommande']);
}
}
$output=@$_REQUEST['output'];
$vecteur='XL';
switch($vue) {
case 'kbis': $type='KB'; break;
case 'histo': $type='HQ'; break;//"T"/>'.XL
case 'statuts': $type='ST';
$vecteur=$vecteurCommande; break;
case 'actes': $type='AC';
if ($option<>'')
$vecteur=$vecteurCommande; break;
case 'LE': $type='ListeEtab'; break;
case 'PN': $type='PrivNant'; break;
case 'BI': $type='BilanImg'; break;
//case 'bilans': $type='BS'; break;
case 'bilans': $type='BI';
if ($option<>'')
$vecteur=$vecteurCommande; break;
case 'FA': $type='PrezProcol'; break;
case 'FI': $type='Inventaire'; break;
case 'jugements': $type='FJ'; break;
case 'FO': $type='Ordonnance'; break;
case 'FD': $type='DepotDivers'; break;
case 'SD': $type='SurvDemande'; break;
case 'SR': $type='SurvRevel'; break;
case 'SP': $type='SurvPortef'; break;
case 'rcs': break;
default :
if ($action<>'commande')
die('Type de pi&egrave;ce officielle inexistante');
break;
}
$client = 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,
));
$req= '<demande>'.
'<emetteur>'.
'<code_abonne>'.INFOGREFFE_WS_USER.'</code_abonne>'.//85009006
'<mot_passe>'.INFOGREFFE_WS_PASS.'</mot_passe>'.//
'<reference_client>G'.$idCommande.'</reference_client>'.
'<code_requete>'.
'<type_profil>A</type_profil>'.
'<origine_emetteur>IC</origine_emetteur>'.
'<nature_requete>C</nature_requete>'.
'<type_document>'.$type.'</type_document>'.// KB=Kbis, HQ=Histo, ST=Statut, AC=Acte, LE=Liste <EFBFBD>tab
'<type_requete>S</type_requete>'.
'<media>WS</media>'.
'<mode_diffusion>';
if ( $type=='AC' && $option=='' && $vecteur=='XL')
$req.='<mode type="T"/>'.
'<mode type="C"/>';
$req.= '<mode type="'.$vecteur.'"/>'.
'</mode_diffusion>'.
'</code_requete>'.
'</emetteur>'.
'<commande>'.
'<num_siren>'.$siren.'</num_siren>';
if ( ($type=='BS' || $type=='BI') && $option<>'' ) {
$tabRefActe=explode('-', $option);
$tabMil=explode('_', $tabRefActe[0]);
//$req.='<millesime>'.$tabMil[0].'</millesime>';
//$req.='<type_comptes>'.$tabMil[1].'</type_comptes>';
$req.= '<greffe>'.$tabRefActe[2].'</greffe>'.
'<dossier_millesime>'.$tabRefActe[3].'</dossier_millesime>'.
'<dossier_statut>'.$tabRefActe[4].'</dossier_statut>'.
'<dossier_chrono>'.$tabRefActe[5].'</dossier_chrono>'.
'<num_depot>'.$tabRefActe[6].'</num_depot>'.
'<date_cloture>'.WDate::dateT('Ymd','d/m/Y', $tabRefActe[1]).'</date_cloture>';
// '<liste_actes>'.
// '<acte num="'.$tabRefActe[7].'"/>'.
// '</liste_actes>';
}
elseif ( $type=='AC' && $option<>'' ) {
$tabRefActe=explode('-', $option);
$req.= '<greffe>'.$tabRefActe[2].'</greffe>'.
'<dossier_millesime>'.$tabRefActe[3].'</dossier_millesime>'.
'<dossier_statut>'.$tabRefActe[4].'</dossier_statut>'.
'<dossier_chrono>'.$tabRefActe[5].'</dossier_chrono>'.
'<num_depot>'.$tabRefActe[6].'</num_depot>'.
'<liste_actes>'.
'<acte num="'.$tabRefActe[7].'"/>'.
'</liste_actes>';
/*
/* $optionUrl=$bilan['millesime'].'_'.$bilan['type_comptes'].'-'.$dateRef.'-'.$bilan['num_gest_greffe'].'-'.$bilan['num_gest_millesime'].'-'.$bilan['num_gest_statut'].'-'.
$bilan['num_gest_chrono'].'-'.$bilan['num_depot'];
**/
}
$req.='</commande></demande>';
$success=true;
/** Par d<EFBFBD>faut les documents avec des liens vers les actes ne sont pas p<EFBFBD>risables
**/
$perisable=false;
if ($option=='') {
$fichier="$type-$siren.xml";
$perisable=true; // La liste des documents est p<>risable !
}
else
$fichier="$type-$siren-$option.xml";
if ($action<>'commande' && !$dejaCommande) {
if (// Le fichier n'existe pas en cache
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
!file_exists( PATH_DATA.'/infogreffe/xml/' . $fichier ) ||
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
// Le fichier existe en cache mais est p<>risable (liste)
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
(file_exists( PATH_DATA.'/infogreffe/xml/' . $fichier ) && $perisable && date('Ymd', filemtime( PATH_DATA.'/infogreffe/xml/' . $fichier ))<>date('Ymd')) ||
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
// Le fichier existe en cache, n'est pas p<>risable (acte) mais contient un message d'erreur
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
(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)
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
) {
try {
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
if (!file_exists( PATH_DATA.'/pdf/acte-'.$siren.'-'.$option.'.pdf'))
{
$fp=@fopen( PATH_DATA.'/infogreffe/xml/' . $fichier.'.query' , 'w');
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
@fwrite($fp, $req);
@fclose($fp);
MAJ css
2009-03-13 17:31:17 +00:00
$req=utf8_encode($req);
$firephp->log($req, 'XML');
$O=$client->getProduitsWebServicesXML($req);
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$xml=implode('', (array)$O);
Correction diverse pour la mise en cache et l'export de fichier
2009-03-10 15:07:24 +00:00
$firephp->log($xml,'XML');
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
}
}
MAJ css
2009-03-13 17:31:17 +00:00
catch (SoapFault $soapFault) {
Correction identifiant
2009-02-27 19:24:24 +00:00
$success=false;
MAJ css
2009-03-13 17:31:17 +00:00
$firephp->log($soapFault,'Fault');
$firephp->log($client->__getLastRequest(),'Infogreffe Request');
$firephp->log($client->__getLastResponse(),'Infogreffe Response');
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$response=$client->__getLastResponse();
$response=str_replace("<SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:SOAP-ENC='http://schemas.xmlsoap.org/soap/encoding/' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'><SOAP-ENV:Body><ns0:getProduitsWebServicesXMLResponse xmlns:ns0='urn:local' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'><return xsi:type='xsd:string'>",'', $response);
$xml=str_replace('</return></ns0:getProduitsWebServicesXMLResponse></SOAP-ENV:Body></SOAP-ENV:Envelope>','', $response);
}
/** Enregistrement du fichier XML en provenance des greffes
**/
if (strlen($xml)<>0) {
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$fp=@fopen( PATH_DATA.'/infogreffe/xml/' . $fichier , 'w');
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
@fwrite($fp, $xml);
@fclose($fp);
}
} else {
/** Lecture du fichier XML en provenance des greffes
**/
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$xml=file_get_contents( PATH_DATA.'/infogreffe/xml/' . $fichier );
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
}
} else $xml='';
/** Affichage des erreurs Infogreffe **/
if (strlen($xml)<200) {
$tmp=explode('-', $xml);
$errNum=$tmp[0]*1;
$errMsg=$xml;
?>
<table width="580" border="0" align="left" bgcolor="#FFFFFF">
<?php
if ($message<>'' && !$dejaCommande) {
?>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="2" class="StyleInfoData"><h3><?=$message;?></h3></td>
</tr>
<?php
}
?>
<tr>
<td colspan="3" align="center"><img src="./img/rub_pieces.png" width="577" height="36" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Num&eacute;ro identifiant Siren</td>
<td width="350" class="StyleInfoData"><?=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Raison Sociale</td>
<td width="350" class="StyleInfoData"><?=$raisonSociale?></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3"><img src="./img/srub_actes.png" width="576" height="27" /></td>
</tr>
<?
$tabTmp=explode('-',$option);
$option2=implode('-',array_splice($tabTmp, 0, -1));
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
if ($action<>'commande' && !file_exists( PATH_DATA. '/pdf/acte-'.$siren.'-'.$option.'.pdf' )
&& !file_exists( PATH_DATA.'/pdf/acte-'.$siren.'-'.$option2.'.pdf' )
&& ( $errNum==6 || $errNum==14 || $errNum==25 || $errNum==45 || $errNum==999) )
{
include('inpi.php');
}elseif ($action<>'commande' && !file_exists( PATH_DATA.'/pdf/acte-'.$siren.'-'.$option.'.pdf' )
&& !file_exists( PATH_DATA.'/pdf/acte-'.$siren.'-'.$option2.'.pdf'))
{
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
if (!$dejaCommande) {
?>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="2"class="StyleInfoData"><font color="Red"><b><? if ($errNum<>17) { echo "Erreur N&deg;$errNum - "; }?><?=$tabErrInfoGref[$errNum]?><!--<?=$errMsg?>--></b></font></td>
</tr>
<?
} elseif ($dejaCommande) {
?>
<tr>
<td width="30">&nbsp;</td>
<td width="550" colspan="2"class="StyleInfoData"><font color="Red"><b><?=$message2?></b></font></td>
</tr>
<?
}
if (!$dejaCommande && $errNum<>17 && $errNum<>23 && $errNum<>26 && $errNum<>27) {
?>
<tr>
<td width="30">&nbsp;</td>
idEntreprise
2009-03-11 07:51:18 +00:00
<td width="550" colspan="2" class="StyleInfoData"><br/><br/><form action="./?page=greffes&action=commande&siret=<?=$siret?>&idEntreprise=<?=$idEntreprise?>&idan=<?=$idan?>&source=<?=$source?>" method="POST"><input type="checkbox"/> Recevoir le document directement par mail (d&eacute;lai approximatif de 24 heures)<br/><br/>Adresse email du destinataire <input name="email" type="text" value="<? if ($_SESSION['tabInfo']['login']<>'testreunica' && $_SESSION['tabInfo']['login']<>'reunicacsf') echo $tabInfo['email']?>" size="20"/>&nbsp;&nbsp;&nbsp;<input class="imgButton" type="image" src="./img/boutton_valider_off.gif" name="submit" onmouseover="this.src='./img/boutton_valider_on.gif'" onmouseout="this.src='./img/boutton_valider_off.gif'" title="Commander le document par e-mail..."></form></td>
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
</tr>
<?
} elseif ($errNum==17) {
?>
<tr>
<td width="30">&nbsp;</td>
idEntreprise
2009-03-11 07:51:18 +00:00
<td width="550" colspan="2" class="StyleInfoData"><br/><br/><form action="./?page=greffes&action=commande&siret=<?=$siret?>&idEntreprise=<?=$idEntreprise?>&idan=<?=$idan?>&source=<?=$source?>" method="POST"><input type="checkbox"/> Merci de pr<EFBFBD>ciser votre mail pour la livraison du document (d&eacute;lai approximatif de 24 heures)<br/><br/>Adresse email du destinataire <input name="email" type="text" value="<? if ($_SESSION['tabInfo']['login']<>'testreunica' && $_SESSION['tabInfo']['login']<>'reunicacsf') echo $tabInfo['email']?>" size="20"/>&nbsp;&nbsp;&nbsp;<input class="imgButton" type="image" src="./img/boutton_valider_off.gif" name="submit" onmouseover="this.src='./img/boutton_valider_on.gif'" onmouseout="this.src='./img/boutton_valider_off.gif'" title="Pr<EFBFBD>cisez votre e-mail..."></form></td>
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
</tr>
<?
}
}
elseif ($action=='commande' && ($errNum==999) )
include('inpi.php');
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
elseif ($type=='AC' && $option<>'' && ( file_exists(PATH_DATA.'/pdf/acte-'.$siren.'-'.$option.'.pdf')
|| file_exists(PATH_DATA.'/pdf/acte-'.$siren.'-'.$option2.'.pdf') ))
{
if (file_exists(PATH_DATA.'/pdf/acte-'.$siren.'-'.$option2.'.pdf'))
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$option=$option2;
/** Le document n'est pas dispo chez Infogreffe **/
?>
<tr>
<td width="580" colspan="3">
MAJ css
2009-03-13 17:31:17 +00:00
<table style="width:530px;margin-top:5px;margin-bottom:5px;margin-left:10px;margin-right:10px" class="table-classic">
<tr class="titre">
<td class="titre" style="width:70px">Date</td>
<td align="center" class="titre" style="width:200px">Type</td>
<td align="center" class="titre" style="width:260px">D&eacute;cisions</td></tr>
<?
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
//$date=$dom_object->getValueFromTag('date_acte');
$typeActes['a00']='MODIFICATION';
$typeActes['a01']='MODIFICATION';
$typeActes['a03']='CONSTITUTION';
$typeActes['a04']='STATUTS CONSTITUTIFS';
$typeActes['a06']='STATUTS A JOUR';
$typeActes['a07']='STATUTS A JOUR';
$typeActes['a09']='STATUTS APRES TRANSFERT DE SIEGE';
$typeActes['a25']='AUGMENTATION DE CAPITAL';
$typeActes['a39']='CHANGEMENT DE COMMISSAIRE AUX COMPTES';
$typeActes['aAA']='ACTE';
$typeActes['aAC']='ACTE RECTIFICATIF';
$typeActes['aAD']='ACTE SOUS SEING PRIVE';
$typeActes['aAK']='ATTESTATION BANCAIRE';
$typeActes['aCA']='CERTIFICAT';
$typeActes['aCD']='CONTRAT';
$typeActes['aDB']='DECISION DE L\'ASSOCIE UNIQUE';
$typeActes['aDC']='DECISION DES ASSOCIES';
$typeActes['aDE']='DECLARATION DE CONFORMITE';
$typeActes['aDH']='DECLARATION DE CONFORMITE (ART.374 L24/07/1966)';
$typeActes['aDP']='DECISION DU PRESIDENT';
$typeActes['aEB']='EXPEDITION NOTARIEE';
$typeActes['aEC']='EXTRAIT DU PROCES-VERBAL';
$typeActes['aFU']='PROJET DE FUSION';
$typeActes['aLA']='LETTRE';
$typeActes['aLB']='LISTE DES SIEGES SOCIAUX ANTERIEURS';
$typeActes['aLD']='LETTRE DE NOMINATION';
$typeActes['aOA']='ORDONNANCE';
$typeActes['aOC']='ORDONNANCE DU PRESIDENT';
$typeActes['aOD']='ORDONNANCE SUR REQUETE';
$typeActes['aPA']='PROCES VERBAL';
$typeActes['aPD']='PROCES VERBAL D\'ASSEMBLEE DU DIRECTOIRE';
$typeActes['aPE']='PROCES VERBAL D\'ASSEMBLEE GENERALE';
$typeActes['aPF']='PROCES VERBAL D\'ASSEMBLEE GENERALE EXTRAORDINAIRE';
$typeActes['aPG']='PROCES VERBAL D\'ASSEMBLEE GENERALE ORDINAIRE';
$typeActes['aPH']='PROCES VERBAL D\'ASSEMBLEE MIXTE';
$typeActes['aPI']='PROCES VERBAL D\'ASSEMBLEES ORDINAIRE ET EXTRAORDINAIRE';
$typeActes['aPM']='PROCES VERBAL DU CONSEIL D\'ADMINISTRATION';
$typeActes['aPN']='PROCES VERBAL DU CONSEIL DE SURVEILLANCE';
$typeActes['aPU']='PROJET DE FUSION';
$typeActes['aPV']='PV D\'ASSEMBLEE';
$typeActes['aR1']='CESSION DE PARTS (OU DONATION)';
$typeActes['aRB']='RAPPORT COMMISSAIRE AUX COMPTES';
$typeActes['aRE']='RAPPORT CR/CPTES TRANSFORM. STE';
$typeActes['aRG']='RAPPORT DU COMMISSAIRE A LA FUSION';
$typeActes['aRI']='RAPPORT DU COMMISSAIRE A LA TRANSFORMATION';
$typeActes['aRK']='RAPPORT DU COMMISSAIRE AUX APPORTS';
$typeActes['aRQ']='RAPPORT GERANCE';
$typeActes['aTA']='TRAITE';
$typeActes['aTC']='TRAITE DE FUSION';
$tabOptions=explode('-', $option);
$acte=array();
$acte['type']=$typeActes['a'.$tabOptions[0]];
$acte['depot_num']=$tabOptions[6];
$dateAff=WDate::dateT('Ymd','d/m/Y', $tabOptions[1]);
?><tr class="ligne"><td style="width:13%" class="titre"><?=$dateAff?></td><td style="width:39%;text-align:center" class="std"><u><a title="Cliquez ici pour visualiser le document correspondant" target="_blank" href="/?page=actes&siret=<?=$siret?>&ref=<?=$option?>"><?=$acte['type']?></a></u></td><td style="width:48%" class="last"><?=$acte['decisions']; if (trim($acte['decisions'])<>'') echo '<br/>';?>D<>p<EFBFBD>t num<75>ro
<?=$acte['depot_num']?></td></tr></table></td></tr>
</table><?
// LOG DE LA PAGE
$O2 = $client2->setLog('greffe_'.$vue, $siret, 0, $option);
}
?>
</table>
<?
// Log de la page
$O2 = $client2->setLog('greffe_'.$vue, $siret, 0, "Erreur $errNum");
} else { // Liste des "actes" Infogreffes ou d<>tail acte infogreffe
//if ($output=='pdf') $type=$type.'-pdf';
if ($type=='AC' && $option=='') { // Liste des actes Infogreffe
$vecteurTinit=false;
$dom_object = new DomDocument2();
Correction chemin
2009-02-23 08:05:19 +00:00
//TODO : V<>rfier que le fichier existe
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$dom_object->load( PATH_DATA.'/infogreffe/xml/' . $fichier );
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$tabActes=array();
// create DOMXPath object with our DOMObject
$xpath = new Domxpath($dom_object);
$result = $xpath->query("//liste_depot_acte/depot_acte/.");
foreach ($result as $annonce) {
// N<> Gestion
$title = $xpath->query ("num_gest/greffe", $annonce);
$num_gest_greffe=$title->item(0)->nodeValue;
$title = $xpath->query ("num_gest/dossier_millesime", $annonce);
$num_gest_millesime=$title->item(0)->nodeValue;
$title = $xpath->query ("num_gest/dossier_statut", $annonce);
$num_gest_statut=$title->item(0)->nodeValue;
$title = $xpath->query ("num_gest/dossier_chrono", $annonce);
$num_gest_chrono=$title->item(0)->nodeValue;
// Siren
$title = $xpath->query ("num_siren", $annonce);
$num_siren=$title->item(0)->nodeValue;
// N<> D<>p<EFBFBD>t
$title = $xpath->query ("num_depot", $annonce);
$num_depot=$title->item(0)->nodeValue;
// Date D<>p<EFBFBD>t
$title = $xpath->query ("date_depot", $annonce);
$date_depot=$title->item(0)->nodeValue;
// Actes
$actes = $xpath->query("acte/.", $annonce);
$nbVecteurT=$nbActes=0;
foreach ($actes as $acte) {
$nbActes++;
// Date
$title = $xpath->query ("date_acte", $acte);
$date_acte=$title->item(0)->nodeValue;
// N<>
$title = $xpath->query ("num_acte", $acte);
$num_acte=$title->item(0)->nodeValue;
// Type
$title = $xpath->query ("type_acte", $acte);
$type_acte=$title->item(0)->nodeValue;
// Type lib
$title = $xpath->query ("type_acte_libelle", $acte);
$type_acte_libelle=$title->item(0)->nodeValue;
// Nb Pages
$title = $xpath->query ("nbpages_acte", $acte);
$nbpages_acte=$title->item(0)->nodeValue;
// decision/nature
$title = $xpath->query ("decision/nature", $acte);
$decision_nature=$title->item(0)->nodeValue;
// decision/libelle
$title = $xpath->query ("decision/libelle", $acte);
$decision_libelle=$title->item(0)->nodeValue;
// mode_diffusion
$vecteurT=$vecteurC=false;
$vecteurs = $xpath->query("mode_diffusion/.", $acte);
foreach ($vecteurs as $vecteur) {
$title = $xpath->query ("mode[@type='T']", $vecteur);
if ($title->length==1) {
$vecteurT=true;
$vecteurTinit=true;
$nbVecteurT++;
}
$title = $xpath->query ("mode[@type='C']", $vecteur);
if ($title->length==1) $vecteurC=true;
}
if ($date_acte=='') $date=$date_depot; else $date=$date_acte;
// $index=0;
// while (isset($tabActes[$date.'.'.$index])) $index++;
$tabActes[''.$date.'-'.$num_depot.'-'.$num_acte.'-'.$type_acte/*$index*/]=array( 'type'=>$type_acte_libelle,
'decisions'=>$decision_libelle,
'depot_num'=>$num_depot,
'depot_date'=>$date_depot,
'num_gest_greffe'=>$num_gest_greffe,
'num_gest_millesime'=>$num_gest_millesime,
'num_gest_statut'=>$num_gest_statut,
'num_gest_chrono'=>$num_gest_chrono,
'num_depot'=>$num_depot,
'num_acte'=>$num_acte,
'type_acte'=>$type_acte,
'vecteurT'=>$vecteurT,
'vecteurC'=>$vecteurC,
);
}
}
if (!$vecteurTinit) {
$origine='G';
include('inpi.php');
}
if ($vecteurTinit)
{ // Il y a au moins un acte en t<>l<EFBFBD>chargement
?>
<table width="580" border="0" align="left" bgcolor="#FFFFFF">
<tr>
<td colspan="3" align="center"><img src="./img/rub_pieces.png" width="577" height="36" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Num&eacute;ro identifiant Siren</td>
<td width="350" class="StyleInfoData"><?=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Raison Sociale</td>
<td width="350" class="StyleInfoData"><?=$raisonSociale?></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3"><img src="./img/srub_actes.png" width="576" height="27" /></td>
</tr>
<tr>
<td width="580" colspan="3">
MAJ css
2009-03-13 17:31:17 +00:00
<table style="width:530px;margin-top:5px;margin-bottom:5px;margin-left:10px;margin-right:10px" class="table-classic"><tr class="titre">
<td class="titre" style="width:70px">Date</td>
<td align="center" class="titre" style="width:200px">Type</td>
<td align="center" class="titre" style="width:260px">D&eacute;cisions</td>
</tr>
<?php
krsort($tabActes);
foreach ($tabActes as $date=>$acte) {
$date =WDate::dateT('Y-m-d','d/m/Y', substr($date,0,10));
$dateRef=WDate::dateT('d/m/Y','Ymd', substr($date,0,10));
$optionUrl=$acte['type_acte']."-$dateRef-".$acte['num_gest_greffe'].'-'.$acte['num_gest_millesime'].'-'.$acte['num_gest_statut'].'-'.$acte['num_gest_chrono'].'-'.$acte['num_depot'].'-'.$acte['num_acte'];
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
?>
<tr class="ligne">
<td style="width:13%" class="titre"><?=$date?></td>
<td style="width:39%;text-align:center" class="std"><?=$acte['type']?>&nbsp;
MAJ marques et petit points greffe
2009-03-13 18:15:05 +00:00
<?
//Comment des marqueurs petits points
if ($acte['vecteurT']) {
Uncomment marqueur petit point
2009-03-19 15:26:05 +00:00
if ( file_exists(PATH_DATA.'/pdf/acte-'.$siren.'-'.$optionUrl.'.pdf') &&
filesize(PATH_DATA.'/pdf/acte-'.$siren.'-'.$optionUrl.'.pdf')<>0) echo '. ';
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
echo '<a href="./?page=greffes&vue=actes&siret='.$siret.'&option='.$optionUrl.'" title="Cliquez ici pour t&eacute;l&eacute;charger le document correspondant"><img src="/img/icone_pdf.gif"/></a>';
}
elseif ($acte['vecteurC']) {
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
if (file_exists(PATH_DATA.'/pdf/acte-'.$siren.'-'.$optionUrl.'.pdf') &&
filesize(PATH_DATA.'/pdf/acte-'.$siren.'-'.$optionUrl.'.pdf')<>0)
Uncomment marqueur petit point
2009-03-19 15:26:05 +00:00
echo '. <a href="./?page=greffes&vue=actes&siret='.$siret.'&option='.$optionUrl.'" title="Cliquez ici pour t&eacute;l&eacute;charger le document correspondant"><img src="/img/icone_pdf.gif"/></a>';
MAJ marques et petit points greffe
2009-03-13 18:15:05 +00:00
else
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
echo '<a href="./?page=greffes&vue=actes&siret='.$siret.'&option='.$optionUrl.'&vecteur=C" title="Cliquez ici pour commander le document correspondant"><img src="/img/icone_courrier.png"/></a>';
}
?></td>
<td style="width:48%" class="last"><?=$acte['decisions']; if (trim($acte['decisions'])<>'') echo '<br/>';?>D<EFBFBD>p<EFBFBD>t num<75>ro
<?=$acte['depot_num']?> du <?=WDate::dateT('Y-m-d','d/m/Y', $acte['depot_date'])?></td></tr>
<?
}
echo '</table></td></tr>';
// LOG DE LA PAGE
$O2 = $client2->setLog('greffe_'.$vue, $siret, 0, $option);
if ($nbVecteurT<$nbActes) { // Tous les actes ne sont pas dispo en t<>l<EFBFBD>chargement, on propose donc l'acc<63>s INPI
/* $origine='G';
include('inpi.php');*/
?>
<tr>
<td align="center" class="StyleInfoData" colspan="3"><a href="./?<?=$_SERVER['QUERY_STRING']?>&vue=rcs">Tous les actes ne sont pas disponibles en t&eacute;l&eacute;chargement imm<EFBFBD>diat.<br/>Cliquez-ici pour les commander en t&eacute;l&eacute;chargement diff&eacute;r&eacute;</a></td>
</tr>
<?
}
echo '</table>';
}
}
elseif ($type=='ST' || ($type=='AC' && $option<>'')) {
?>
<table width="580" border="0" align="left" bgcolor="#FFFFFF">
<tr>
<td colspan="3" align="center"><img src="./img/rub_pieces.png" width="577" height="36" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Num&eacute;ro identifiant Siren</td>
<td width="350" class="StyleInfoData"><?=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Raison Sociale</td>
<td width="350" class="StyleInfoData"><?=$raisonSociale?></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3"><img src="./img/srub_actes.png" width="576" height="27" /></td>
</tr>
<tr>
<td width="580" colspan="3">
<table style="width:530px;margin-top:5px;margin-bottom:5px;margin-left:10px;margin-right:10px" class="table-classic"><tr class="titre"><td class="titre" style="width:70px">Date</td><td align="center" class="titre" style="width:200px">Type</td><td align="center" class="titre" style="width:260px">D&eacute;cisions</td></tr><?
$dom_object = new DomDocument2();
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$dom_object->load(PATH_DATA.'/infogreffe/xml/'.$fichier);
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$acte['type']=$dom_object->getValueFromTag('type_acte_libelle');
$date=$dom_object->getValueFromTag('date_acte');
$acte['depot_num']=$dom_object->getValueFromTag('num_depot');
$acte['depot_date']=$dom_object->getValueFromTag('date_depot');
$dateAff=WDate::dateT('Y-m-d','d/m/Y', substr($date,0,10));
$acte['url_acces']=$dom_object->getValueFromTag('url_acces');
if (substr($acte['url_acces'],0,5)=='null/') $acte['url_acces']='http://webservices.infogreffe.fr/'.substr($acte['url_acces'],5,strlen($acte['url_acces'])-5);
$nbPages=$dom_object->getValueFromTag('nbpages_acte')*1;
if ($nbPages>0) $acte['decisions']="$nbPages pages";
?><tr class="ligne"><td style="width:13%" class="titre"><?=$dateAff?></td><td style="width:39%;text-align:center" class="std"><u><a title="Cliquez ici pour visualiser le document correspondant" target="_blank" href="/?page=actes&siret=<?=$siret?>&ref=<?=$option?>"><?=$acte['type']?></a></u></td><td style="width:48%" class="last"><?=$acte['decisions']; if (trim($acte['decisions'])<>'') echo '<br/>';?>D<>p<EFBFBD>t num<75>ro
<?=$acte['depot_num']?> du <?=WDate::dateT('Y-m-d','d/m/Y', $acte['depot_date'])?></td></tr></table></td></tr>
</table><?
/* Si l'acte n'a pas encore <20>t<EFBFBD> t<>l<EFBFBD>charg<72>, on le t<>l<EFBFBD>charge */
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
if (!file_exists(PATH_DATA.'/pdf/acte-'.$siren.'-'.$option.'.pdf') ||
filesize(PATH_DATA.'/pdf/acte-'.$siren.'-'.$option.'.pdf')==0) {
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$page=getUrl($acte['url_acces'], '', '', '', false, '', '',0,1);
if (substr($page['body'],0,4)<>'%PDF') {
$page2=parse_response($page['body']);
$body=$page2['body'];
} else
$body=$page['body'];
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$fp=@fopen(PATH_DATA.'/pdf/'.'acte-'.$siren.'-'.$option.'.pdf', 'w');
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
@fwrite($fp, $body);
@fclose($fp);
}
// LOG DE LA PAGE
$O2 = $client2->setLog('greffe_'.$vue, $siret, 0, $option);
}
elseif ($type=='BS' || $type=='BI') { // Bilan Image ou saisit
?>
<table width="580" border="0" align="left" bgcolor="#FFFFFF">
<tr>
<td colspan="3" align="center"><img src="./img/rub_pieces.png" width="577" height="36" /></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Num&eacute;ro identifiant Siren</td>
<td width="350" class="StyleInfoData"><?=substr($siren,0,3).' '.substr($siren,3,3).' '.substr($siren,6,3)?></td>
</tr>
<tr>
<td width="30">&nbsp;</td>
<td width="200" class="StyleInfoLib">Raison Sociale</td>
<td width="350" class="StyleInfoData"><?=$raisonSociale?></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3"><img src="./img/srub_comptes_ann.png" width="576" height="27" /></td>
</tr>
<tr>
<td width="580" colspan="3">
<table style="width:530px;margin-top:5px;margin-bottom:5px;margin-left:10px;margin-right:10px" class="table-classic"><tr class="titre"><td class="titre" style="width:70px">Date de cl&ocirc;ture</td><td align="center" class="titre" style="width:200px">Type</td><td align="center" class="titre" style="width:260px">D&eacute;cisions</td></tr><?
$dom_object = new DomDocument2();
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$dom_object->load(PATH_DATA.'/infogreffe/xml/'.$fichier);
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$tabActes=array();
// create DOMXPath object with our DOMObject
$xpath = new Domxpath($dom_object);
if ($type=='BS') $result = $xpath->query("//listeBilanSaisi/bilanSaisi/.");
elseif ($type=='BI') $result = $xpath->query("//bilan_complet/.");
foreach ($result as $annonce) {
// N<> Gestion
$title = $xpath->query ("num_gest/greffe", $annonce);
$num_gest_greffe=$title->item(0)->nodeValue;
$title = $xpath->query ("num_gest/dossier_millesime", $annonce);
$num_gest_millesime=$title->item(0)->nodeValue;
$title = $xpath->query ("num_gest/dossier_statut", $annonce);
$num_gest_statut=$title->item(0)->nodeValue;
$title = $xpath->query ("num_gest/dossier_chrono", $annonce);
$num_gest_chrono=$title->item(0)->nodeValue;
// Siren
$title = $xpath->query ("num_siren", $annonce);
$num_siren=$title->item(0)->nodeValue;
// N<> D<>p<EFBFBD>t
$title = $xpath->query ("num_depot", $annonce);
$num_depot=$title->item(0)->nodeValue;
// Date cl<63>ture
$title = $xpath->query ('date_cloture', $annonce); // 2005-12-31
$date_cloture=$title->item(0)->nodeValue;
// liasse
$title = $xpath->query ('liasse', $annonce); // 2033
$liasse=$title->item(0)->nodeValue;
// type de comptes
$title = $xpath->query ('type_comptes', $annonce); // sociaux
$type_comptes=$title->item(0)->nodeValue;
// millesime
$title = $xpath->query ('millesime', $annonce); // 2005
$millesime=$title->item(0)->nodeValue;
// url_acces
$title = $xpath->query ('url_acces', $annonce);
$url_acces=$title->item(0)->nodeValue;
if (substr($url_acces,0,5)=='null/') $url_acces='http://webservices.infogreffe.fr/'.substr($url_acces,5,strlen($url_acces)-5);
// mode_diffusion
$vecteurT=$vecteurC=false;
$vecteurs = $xpath->query("mode_diffusion/.", $annonce);
foreach ($vecteurs as $vecteur) {
$title = $xpath->query ("mode[@type='T']", $vecteur);
if ($title->length==1) $vecteurT=true;
$title = $xpath->query ("mode[@type='C']", $vecteur);
if ($title->length==1) $vecteurC=true;
}
$tabActes[''.$type_comptes.'-'.$date_cloture]=array('num_gest_greffe'=>$num_gest_greffe,
'num_gest_millesime'=>$num_gest_millesime,
'num_gest_statut'=>$num_gest_statut,
'num_gest_chrono'=>$num_gest_chrono,
'num_depot'=>$num_depot,
'liasse'=>$liasse,
'millesime'=>$millesime,
'type_comptes'=>$type_comptes,
'date_cloture'=>$date_cloture,
'url_acces'=>$url_acces,
'vecteurT'=>$vecteurT,
'vecteurC'=>$vecteurC,
);
}
foreach ($tabActes as $typeMillesime=>$bilan) {
if ($type=='BS') $dateClot=WDate::dateT('Y-m-d','d/m/Y', $bilan['date_cloture']);
elseif ($type=='BI') $dateClot=$bilan['date_cloture'];
$dateRef=WDate::dateT('d/m/Y','Ymd', $dateClot);
$optionUrl=$bilan['millesime'].'_'.$bilan['type_comptes'].'-'.$dateRef.'-'.$bilan['num_gest_greffe'].'-'.$bilan['num_gest_millesime'].'-'.$bilan['num_gest_statut'].'-'.
$bilan['num_gest_chrono'].'-'.$bilan['num_depot'];
?>
<tr class="ligne">
<td style="width:13%" class="titre"><?=$dateClot?></td>
<td style="width:39%;text-align:center" class="std"><?php
if ($option<>'') {
/* Si l'acte n'a pas encore <20>t<EFBFBD> t<>l<EFBFBD>charg<72>, on le t<>l<EFBFBD>charge */
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
if (!file_exists(PATH_DATA.'/pdf/bilan-'.$siren.'-'.$option.'.pdf') ||
filesize(PATH_DATA.'/pdf/bilan-'.$siren.'-'.$option.'.pdf')==0) {
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$page=getUrl($bilan['url_acces'], '', '', '', false, '', '',0,1);
//die($bilan['url_acces'].'<br/><br/>'.print_r($page));
if (substr($page['body'],0,4)<>'%PDF') {
$page2=parse_response($page['body']);
$body=$page2['body'];
} else
$body=$page['body'];
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$fp=@fopen(PATH_DATA.'/pdf/'.'bilan-'.$siren.'-'.$option.'.pdf', 'w');
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
@fwrite($fp, $body);
@fclose($fp);
}
?><u><a title="Cliquez ici pour visualiser la copie int&eacute;grale des comptes" target="_blank" href="/?page=actes&siret=<?=$siret?>&ref=bilan-<?=$option?>">Comptes <?=$bilan['type_comptes']?> mill&eacute;sime <?=$bilan['millesime']; if ($type=='BS') echo '<br/>(liasse '.$bilan['liasse'].')';?></a></u><?
} else {
/** Liste des comptes d<EFBFBD>pos<EFBFBD>s
**/
?>Comptes <?=$bilan['type_comptes']?> mill&eacute;sime <?=$bilan['millesime']; if ($type=='BS') echo '<br/>(liasse '.$bilan['liasse'].')';?>&nbsp;<?
if ($bilan['vecteurT']) {
echo '<a href="./?page=greffes&vue=bilans&siret='.$siret.'&option='.$optionUrl.'" title="Cliquez ici pour t&eacute;l&eacute;charger la copie int&eacute;grale des comptes">';
Uncomment marqueur petit point
2009-03-19 15:26:05 +00:00
if (file_exists(PATH_DATA.'/pdf/bilan-'.$siren.'-'.$optionUrl.'.pdf') &&
filesize(PATH_DATA.'/pdf/bilan-'.$siren.'-'.$optionUrl.'.pdf')<>0) echo ' .';
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
echo '<img src="/img/icone_pdf.gif"/></a>';
}
elseif ($bilan['vecteurC']) {
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
if (file_exists(PATH_DATA.'/pdf/bilan-'.$siren.'-'.$optionUrl.'.pdf') &&
filesize(PATH_DATA.'/pdf/bilan-'.$siren.'-'.$optionUrl.'.pdf')<>0)
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
echo '<a href="./?page=greffes&vue=bilans&siret='.$siret.'&option='.$optionUrl.'" title="Cliquez ici pour t&eacute;l&eacute;charger la copie int&eacute;grale des comptes"> .<img src="/img/icone_pdf.gif"/></a>';
else
echo '<a href="./?page=greffes&vue=bilans&siret='.$siret.'&option='.$optionUrl.'&vecteur=C" title="Cliquez ici pour commander la copie int&eacute;grale des comptes"><img src="/img/icone_courrier.png"/></a>';
}
}
?></td>
<td style="width:48%" class="last">D&eacute;p&ocirc;t num&eacute;ro <?=$bilan['num_depot']?>.</td></tr>
<?
}
// LOG DE LA PAGE
echo '</table></td></tr></table>';
// LOG DE LA PAGE
$O2 = $client2->setLog('greffe_'.$vue, $siret, 0, $option);
}
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
elseif (file_exists(PATH_DATA.'/infogreffe/xsl/'.$type.'.xsl')) {
exec('/usr/bin/xsltproc '.PATH_DATA.'/infogreffe/xsl/'.$type.'.xsl '.PATH_DATA.'/infogreffe/xml/'.$fichier, $output);
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$output=implode('', $output);
Intégration chemin PATH_DATA
2009-03-02 11:27:23 +00:00
$output=str_replace('<html xmlns:fo="http://www.w3.org/1999/XSL/Format"><head><meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"><link rel="stylesheet" type="text/css" href="./css/infogreffe_base.css"><link rel="stylesheet" type="text/css" href="./css/infogreffe.css"><title>Extrait RCS</title><script type="text/javascript" src="./js/infogreffe/tools.js"></script></head><body class="simple" onload="adapterDimensions(\'conteneur\');">','',$output);
Ajout de tous les fichiers de l'extranet Modification de certains chemins Ajout du framework dans l'extranet
2009-02-17 13:14:53 +00:00
$output=str_replace('</body></html><script>function PrivoxyWindowOpen(a, b, c){return(window.open(a, b, c));}</script>','',$output);
$output=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, $output);
echo $output;
// LOG DE LA PAGE
$O2 = $client2->setLog('greffe_'.$vue, $siret, 0, $option);
}
else {
echo "<pre>$xml</pre>";
// LOG DE LA PAGE
$O2 = $client2->setLog('greffe_'.$vue, $siret, 0, $option);
}
}
}
//echo '</table>';
}
class DomDocument2 extends DOMDocument {
function getValueFromTag($tagName) {
$items=$this->getElementsByTagName($tagName);
foreach ($items as $item) {
return utf8_decode($item->nodeValue);
}
}
}
?>
Reference in New Issue Copy Permalink