trunk/app/sitadel.php

<?php
/**
 * Ce script permet de générer un document type texte contenant 
 * la liste de toutes les demandes d'autorisation dd'occupation de droit du sol
 * formulées entre deux dates.
 *
 * @package openfoncier
 * @version SVN : $Id$
 */

// Appel des classes
require_once "../obj/utils.class.php";
require_once "../app/sitadel.class.php";
require_once "sitadel.inc";
$f = new utils(NULL, "export_sitadel", _("export SITADEL"), "ico_reqmo.png", "export");

/**
 * Description de la page
 */
$description = _("Cette page vous permet de Transmettre les dossiers suivant la procedure SITADEL");
$f->displayDescription($description);

// 1ere étape : affichage du formulaire permettant le choix d'un interval de date
// ainsi que l'ordre 
if (empty($_POST)) {
    echo "<form method=\"POST\" action=\"sitadel.php\" name=f1>";
    // champ date debut
    echo " "._("debut")." ";
    echo "<input type='text' name='datedebut' id=\"datedebut\" value=\"";
    echo "\" size=\"15\" class=\"champFormulaire datepicker\" onchange='fdate(this)'  onkeyup=\"\" onclick=\"\" />";
    // champ date fin
    echo " "._("fin")." ";
    echo "<input type='text' name='datefin' id=\"datefin\" value=\"";
    echo "\" size=\"15\" class=\"champFormulaire datepicker\" onchange='fdate(this)'  onkeyup=\"\" onclick=\"\" />";
    // numero d'ordre d'envoi
    echo " "._("Numero d'ordre d'envoi")." : "."<select name='numero'>";
    for ($i = 1; $i < 11; $i++) {
        echo "<option value ='".$i."'>".$i."</option>";
    }
    echo "</select>";
    echo "<br><br><input type='submit' value='export SITADEL'>";
    echo "</form>";
} else {   // Traitement après validation du formulaire

    // init de la valeur d'erreur
    $correct=true;

    // XXX
    $longueurenregistrement= 0 ;

    // XXX
    $t10 = "||||||||||"; // 10 |

    // Initialisation des dates de début et de fin
    $datedebut ='';
    $datefin='';

    // Traitement des erreurs
    if ($_POST["datedebut"] == "") {
        $correct=false;
    } else {
        $datedebut = substr($_POST["datedebut"],6,4).
                    "-".substr($_POST["datedebut"],3,2)."-".
                    substr($_POST["datedebut"],0,2);
    }
    if ($_POST["datefin"] == "") {
        $correct=false;
    } else {
        $datefin = substr($_POST["datefin"],6,4).
                    "-".substr($_POST["datefin"],3,2)."-".
                    substr($_POST["datefin"],0,2);
    }
    if ($correct==true){ // ***
        // Requête permettant de lister tous les dossiers de l'export
        $sql= "SELECT   dossier.dossier,
                        dossier_instruction_type.mouvement_sitadel,
                        dossier.date_depot,
                        dossier.date_decision,
                        dossier.date_chantier,
                        dossier.date_achevement,
                        dossier.terrain_references_cadastrales as dossier_terrain_references_cadastrales,
                        dossier.terrain_adresse_voie_numero as dossier_terrain_adresse_voie_numero,
                        dossier.complement as dossier_complement,
                        dossier.terrain_adresse_lieu_dit as dossier_terrain_adresse_lieu_dit,
                        dossier.terrain_adresse_localite as dossier_terrain_adresse_localite,
                        dossier.terrain_adresse_code_postal as dossier_terrain_adresse_code_postal,
                        dossier.terrain_adresse_bp as dossier_terrain_adresse_bp,
                        dossier.terrain_adresse_cedex as dossier_terrain_adresse_cedex,
                        dossier.version,
                        dossier_autorisation_type.code,
                        dossier.avis_decision,
                        
                        pp.type_demandeur,
                        pp.qualite,
                        civilite_pp.libelle as civilite_pp,
                        pp.particulier_nom as pp_particulier_nom,
                        pp.particulier_prenom as pp_particulier_prenom,
                        pp.personne_morale_denomination as pp_personne_morale_denomination,
                        pp.personne_morale_raison_sociale as pp_personne_morale_raison_sociale,
                        pp.personne_morale_siret as pp_personne_morale_siret,
                        pp.personne_morale_categorie_juridique as pp_personne_morale_categorie_juridique,
                        civilite_pm.libelle as civilite_pm_libelle,
                        pp.personne_morale_nom as pp_personne_morale_nom,
                        pp.personne_morale_prenom as pp_personne_morale_prenom,

                        pp.numero as pp_numero,
                        pp.voie as pp_voie,
                        pp.complement as pp_complement,
                        pp.lieu_dit as pp_lieu_dit,
                        pp.localite as pp_localite,
                        pp.code_postal as pp_code_postal,
                        pp.bp as pp_bp,
                        pp.cedex as pp_cedex,
                        pp.pays as pp_pays,
                        pp.division_territoriale as pp_division_territoriale,

                        civilite_delegataire.libelle as civilite_delegataire_libelle,
                        delegataire.particulier_nom as delegataire_particulier_nom,
                        delegataire.particulier_prenom as delegataire_particulier_prenom,
                        delegataire.numero as delegataire_numero,
                        delegataire.voie as delegataire_voie,
                        delegataire.complement as delegataire_complement,
                        delegataire.lieu_dit as delegataire_lieu_dit,
                        delegataire.localite as delegataire_localite,
                        delegataire.code_postal as delegataire_code_postal,
                        delegataire.bp as delegataire_bp,
                        delegataire.cedex as delegataire_cedex,
                        delegataire.pays as delegataire_pays,
                        delegataire.division_territoriale as delegataire_division_territoriale,

                        pp.telephone_fixe as pp_telephone_fixe,
                        pp.courriel as pp_courriel


        FROM ".DB_PREFIXE."dossier";
        $sql .= " INNER JOIN ".DB_PREFIXE."dossier_instruction_type 
                    ON dossier.dossier_instruction_type =
                    dossier_instruction_type.dossier_instruction_type

                INNER JOIN ".DB_PREFIXE."dossier_autorisation_type_detaille
                    ON dossier_instruction_type.dossier_autorisation_type_detaille
                    =dossier_autorisation_type_detaille.dossier_autorisation_type_detaille
                INNER JOIN ".DB_PREFIXE."dossier_autorisation_type
                    ON dossier_autorisation_type.dossier_autorisation_type
                    =dossier_autorisation_type_detaille.dossier_autorisation_type


                LEFT JOIN ".DB_PREFIXE."lien_dossier_demandeur as ldd_pp 
                    ON ldd_pp.dossier = dossier.dossier
                    AND ldd_pp.petitionnaire_principal is TRUE
                LEFT JOIN ".DB_PREFIXE."demandeur as pp 
                    ON ldd_pp.demandeur = pp.demandeur
                LEFT JOIN ".DB_PREFIXE."civilite as civilite_pp
                    ON civilite_pp.civilite = pp.particulier_civilite
                LEFT JOIN ".DB_PREFIXE."civilite as civilite_pm
                    ON civilite_pm.civilite = pp.particulier_civilite
                LEFT JOIN ".DB_PREFIXE."lien_dossier_demandeur as ldd_delegataire
                    ON ldd_delegataire.dossier = dossier.dossier
                LEFT JOIN ".DB_PREFIXE."demandeur as delegataire
                    ON ldd_delegataire.demandeur = delegataire.demandeur AND delegataire.qualite='delegataire'
                LEFT JOIN ".DB_PREFIXE."civilite as civilite_delegataire
                    ON civilite_delegataire.civilite = delegataire.particulier_civilite
                        ";
        $sql .= " WHERE dossier_instruction_type.mouvement_sitadel IS NOT NULL";
        // $sql .= " AND dossier.a_qualifier IS NOT TRUE";
        $sql .= " AND ((dossier.date_depot >='".$datedebut."' AND dossier.date_depot<='".$datefin."')";
        $sql .= " OR (dossier.date_decision>='".$datedebut."' AND dossier.date_decision<='".$datefin."')";
        $sql .= " OR (dossier.date_chantier>='".$datedebut."' AND dossier.date_chantier<='".$datefin."'))";
        $sql .= " order by dossier.date_depot";
        $res = $f->db -> query ($sql);
        $f->isDatabaseError($res);
        $export="";
        while ($row=& $res->fetchRow(DB_FETCHMODE_ASSOC)){
            // initialisation de la classe permettant la mise en forme de chaque ligne de l'export
            $g = new sitadel($row['dossier']);
            $g->row=$row;
            // sitadel
            $g->val=$val;
            //
            // parametre
            // $sql = "select parametre, valeur from ".DB_PREFIXE."statistique where dossier ='".$row['dossier']."'";
            // $res1 = $f->db -> query ($sql);
            // $f->isDatabaseError($res1);
            // while ($row1=& $res1->fetchRow(DB_FETCHMODE_ASSOC)){
            //     $g->parametre[$row1['parametre']]=$row1['valeur']; 
            // }            
            $departement =$f->collectivite["departement"];
            $commune =$f->collectivite["commune"];
            $region =$f->collectivite["region"];
            // depot
            $depot="";

            // Tous les mouvements autres que transfert ont comme mouvement le code DEPOT
            // les décisions devant êtres précédées par le dépôt correspondant,
            // les dossiers avec date de décision comprise dans l'interval fourni sont
            // réaffichés en tant que dépôts (mouvement DEPOT)
            if ($row['mouvement_sitadel'] != 'TRANSFERT'
                and (($row['date_depot'] >= $datedebut
                and $row['date_depot'] <= $datefin)
                or  ($row['date_decision'] >= $datedebut
                and $row['date_decision'] <= $datefin))) {
                $depot.=$g->entete("DEPOT",$departement,$commune,$pf_departement);
                $depot.=$g->etatcivil();
                $depot.=$g->adresse();
                $depot.=$g->delegataire();
                $depot.=$g->meltel($row['mouvement_sitadel']);
                $depot.=$g->adresse_terrain();             
                $depot.=$g->parcelle();
                // ===========================
                // contrat maison individuelle
                // ===========================
                // sitadel : contrat|
                // openfoncier : non renseigne
                $depot.= $g->p('contrat')."|";
                // ==========
                // architecte
                // ==========
                // sitadel : architecte|
                // openfoncier : architecte >0         
                if($row['architecte']>0)
                    $depot.= "1|";
                else
                    $depot.= "0|";
                // =====================
                // utilisation data cnil
                // ======================
                // sitadel : cnil
                // openfoncier : non renseigne
                $depot.= $g->p('cnil');
                // fin d enregistrement depot         
                $depot.="\n";
            }
    
            // Seuls les dossier de type transfert ont comme mouvement le code TRANSFERT
            $transfert ="";
            if($row['mouvement_sitadel']=='TRANSFERT'
                and $row['date_depot'] >= $datedebut
                and $row['date_depot']<=$datefin){
                $transfert.=$g->entete("TRANSFERT",$departement,$commune,$pf_departement);
                $transfert.=$g->etatcivil();
                $transfert.=$g->adresse(); 
                $transfert.=$g->meltel($row['mouvement_sitadel']);
                $transfert.="\n";
            }
    
     
            // Une ligne de mouvement DECISION est insérée après chaque ligne
            // de mouvement DEPOT
            $decision="";
            if ($row['mouvement_sitadel'] != 'MODIFICATIF'
                and $row['mouvement_sitadel'] != 'TRANSFERT'
                and (($row['date_depot'] >= $datedebut and $row['date_depot']<=$datefin)
                or  ($row['date_decision'] >= $datedebut and $row['date_decision']<=$datefin))) {
                $avis_sitadel="";
                $avis_sitadel_motif="";
                // enregistrement decision dans tous les cas
                $decision.=$g->entete("DECISION",$departement,$commune,$pf_departement);
                //if ($row['date_decision']== '0000-00-00'
                //    or !isset($row['date_decision'])){
                //if(isset($row['date_decision']) and $row['date_decision']!=""){
                // avis_sitadel et avis_sitadel_motif
                if($row['avis_decision'] != '') {
                    $avis_sitadel = "0";
                    $avis_sitadel_motif="0" ;
                    $sql="select sitadel, sitadel_motif from ".DB_PREFIXE."avis_decision where avis_decision ='".
                            $row['avis_decision']."'";
                    $res1 = $f->db -> query ($sql);
                    $f->isDatabaseError($res1);
                    while ($row1=& $res1->fetchRow(DB_FETCHMODE_ASSOC)) {
                        $avis_sitadel = $row1['sitadel'];
                        $avis_sitadel_motif = $row1['sitadel_motif'];
                    }
                    $decision.= $g->decision_groupe1($avis_sitadel,$avis_sitadel_motif,$structure);
                } else {
                    $decision.= $g->decision_groupe1("0","",$structure); // pas d avis
                    //$decision.= "***".$t10.$t10.$t10.$t10.$t10.$t10.$t10.$t10."|||"; //83
                }
                // si la decision est favorable, envoi des informations statistiques
                if ($avis_sitadel==2  or $avis_sitadel==4 or $avis_sitadel==5) {
                    // si decision favorable, expresse ou tacite GROUPE 2
                    $decision.= $g->terrain();
                    $decision.= $g->amenagement();
                    if($row['travaux']!='') { 
                        $sql= "select codelascot,libelle 
                            from ".DB_PREFIXE."travaux where travaux=".$row['travaux'];
                        $res2 = $f->db -> query ($sql);
                        $f->isDatabaseError($res2);
                        $temp=$row['description'];
                        // enlever les RC
                        $temp = str_replace( chr(10), " ", $temp);
                        $temp = str_replace( chr(13), " ", $temp);
                        while ($row2=& $res2->fetchRow(DB_FETCHMODE_ASSOC)) {
                            $travaux = $row2['libelle']." "; // ***
                            $lascot = $row2['codelascot'];
                        }
                        $travaux.=" ".$temp;
                        $decision.= $g->travaux($travaux,$lascot, $row['mouvement_sitadel']);
                    }
                    // $sql3="select * from ".DB_PREFIXE."destination_shon where dossier = '".
                    //         $row['dossier']."' order by destination";
                    // $res3 = $f->db -> query ($sql3);
                    // $f->isDatabaseError($res3);
                   // ***
                   $temp = array();
                   $shonant = array();
                   $shondem = array();
                   $shonanttr = array();
                   $shonprojtr = array();
                   $shoncr1 = array();
                   $shoncr2 = array();
                   // while ($row3=& $res3->fetchRow(DB_FETCHMODE_ASSOC)){
                   //       // round(8.5, 0, PHP_ROUND_HALF_DOWN);      
                   //      if(isset($row3["shon_anterieure"]))  
                   //                       $shonant[$row3['destination']]=round($row3["shon_anterieure"], 0);
                   //      else
                   //         $shonant[$row3['destination']]=0;
                   //      if(isset($row3["shon_demolie"]))     
                   //         $shondem[$row3['destination']]=round($row3["shon_demolie"], 0);
                   //      else
                   //         $shondem[$row3['destination']]=0;
                   //      if(isset($row3["shon_anterieure_supprimee"]))                
                   //         $shonanttr[$row3['destination']]=round($row3["shon_anterieure_supprimee"], 0);
                   //      else
                   //         $shonanttr[$row3['destination']]=0;
                   //      if(isset($row3["shon_nouvelle_transformee"]))        
                   //         $shonprojtr[$row3['destination']]=round($row3["shon_nouvelle_transformee"], 0);
                   //      else
                   //         $shonprojtr[$row3['destination']]=0;
                   //      if(isset($row3["shon_nouvelle"]))            
                   //         $shoncr1[$row3['destination']]=round($row3["shon_nouvelle"], 0);
                   //      else
                   //         $shoncr1[$row3['destination']]=0;
                   //      if(isset($row3["shon_shob_transformee"]))            
                   //         $shoncr2[$row3['destination']]=round($row3["shon_shob_transformee"], 0);
                   //      else
                   //         $shoncr2[$row3['destination']]=0;
          
                   //      //$shonant[$row3['destination']]=$row3["shon_anterieure"];
                   //      //$shondem[$row3['destination']]=$row3["shon_demolie"];
                   //      //$shonanttr[$row3['destination']]=$row3["shon_anterieure_supprimee"];
                   //      //$shonprojtr[$row3['destination']]=$row3["shon_nouvelle_transformee"];
                   //      //$shoncr1[$row3['destination']]=$row3["shon_nouvelle"];
                   //      //$shoncr2[$row3['destination']]=$row3["shon_shob_transformee"];

                   // }
                    $decision.= $g->destination($shonant);
                    $decision.= $g->destination($shondem);
                    $decision.= $g->destination($shonanttr);
                    $decision.= $g->destination($shonprojtr);
                    $decision.= $g->destination($shoncr1);
                    $decision.= $g->destination($shoncr2);  
                    $decision.= $g->descriptif($row['mouvement_sitadel']);   
                } else {// decision defavorable ou pas de decision
                    $decision.= $t10.$t10.$t10.$t10.$t10.$t10.$t10.$t10."|||"; //83 | + 12 | = 95 | pour 96 zones
                }
                $decision.="\n";
            }
    
            // modificatif
            $modificatif='';
            if($row['mouvement_sitadel'] == 'MODIFICATIF' 
                and $row['date_depot'] >= $datedebut
                and $row['date_depot'] <= $datefin) {   
                $modificatif.=$g->entete("MODIFICATIF",$departement,$commune,$pf_departement);
                if(isset($row['date_decision']) or $row['date_decision']==""){
                    // avis_sitadel et avis_sitadel_motif
                    if($row['avis_decision']!=''){
                        $avis_sitadel = 0;
                        $avis_sitadel_motif=0 ;
                        $sql="select sitadel, sitadel_motif from ".DB_PREFIXE."avis_decision where avis_decision ='".
                                $row['avis_decision']."'";
                        $res1 = $f->db -> query ($sql);
                        $f->isDatabaseError($res1);
                        while ($row1=& $res1->fetchRow(DB_FETCHMODE_ASSOC)){
                            $avis_sitadel = $row1['sitadel'];
                            $avis_sitadel_motif = $row1['sitadel_motif'];
                        }
                        $modificatif.= $g->decision_groupe1($avis_sitadel,$avis_sitadel_motif,$structure);
                    }
                    // si la decision est favorable, envoi des informations statistiques
                    if($avis_sitadel==2  or $avis_sitadel==4
                           or $avis_sitadel==5){
                        // si decision favorable, expresse ou tacite GROUPE 2
                        $modificatif.=$g->adresse_terrain();    //***
                        $modificatif.=$g->parcelle();    //***
                        $modificatif.=$g->terrain();    //***
                        // enlever les RC
                        $temp=$row['description'];
                        $temp = str_replace( chr(10), " ", $temp);
                        $temp = str_replace( chr(13), " ", $temp);
                        if($row['travaux']!=''){ 
                            $sql= "select codelascot,libelle 
                                from ".DB_PREFIXE."travaux where travaux=".$row['travaux'];
                            $res2 = $f->db -> query ($sql);
                            $f->isDatabaseError($res2);
                            while ($row2=& $res2->fetchRow(DB_FETCHMODE_ASSOC)){
                                $travaux = $row2['libelle']." ".$row['description']; // ***;
                                $lascot = $row2['codelascot'];
                            }
                            $travaux.=" ".$temp;
                            $modificatif.= $g->travaux($travaux,$lascot, $row['mouvement_sitadel']);
                        }
                        $sql3="select * from ".DB_PREFIXE."destination_shon where dossier = '".
                                $row['dossier']."' order by destination";
                        $res3 = $f->db -> query ($sql3);
                        $f->isDatabaseError($res3);
                        $temp = array();
                        while ($row3=& $res3->fetchRow(DB_FETCHMODE_ASSOC)){
                            $shonant[$row3['destination']]=$row3["shon_anterieure"];
                            $shondem[$row3['destination']]=$row3["shon_demolie"];
                            $shonanttr[$row3['destination']]=$row3["shon_anterieure_supprimee"];
                            $shonprojtr[$row3['destination']]=$row3["shon_nouvelle_transformee"];
                            $shoncr1[$row3['destination']]=$row3["shon_nouvelle"];
                            $shoncr2[$row3['destination']]=$row3["shon_shob_transformee"];
                        }
                        $modificatif.= $g->destination($shonant);
                        $modificatif.= $g->destination($shondem);
                        $modificatif.= $g->destination($shonanttr);
                        $modificatif.= $g->destination($shonprojtr);
                        $modificatif.= $g->destination($shoncr1);
                        $modificatif.= $g->destination($shoncr2);
                        
                        $modificatif.= $g->descriptif($row['mouvement_sitadel']);
                        $modificatif.="\n";
                   }
                }   
            }
            
            // suivi DOC
            $suivi1="";
            if($row['date_chantier'] >= $datedebut and $row['date_chantier']<=$datefin){  
                $suivi1.=$g->entete("SUIVI",$departement,$commune,$pf_departement);
                $suivi1.=$g->chantier();
                $suivi1.="\n";
            }
            // suivi DAT 
            $suivi2="";
            if($row['date_achevement'] >= $datedebut and $row['date_achevement']<=$datefin){  
                $suivi2.=$g->entete("SUIVI",$departement,$commune,$pf_departement);
                $suivi2.=$g->achevement();
                $suivi2.="\n";
            }
            // export       
            $export.=$depot.$decision.$transfert.$modificatif.$suivi1.$suivi2;
        } // fin while  
        // ***************************************
        // entete de l enregistrement page 8 et 9
        // ***************************************   
        // numero 
        // $numero= $db -> nextId('sitadel');
        $departement =$f->collectivite["departement"];
        $commune =$f->collectivite["commune"];
        $region =$f->collectivite["region"];
        $numero=$_POST["numero"];
        $fichiertransmis = date('ymj').$pf_departement.$departement.$commune;
        $longueurenregistrement= 0 ; // a calculer ***  enregistrement le plus long
        $entete = "SITADEL|".$pf_departement.$departement."|".$commune."|".$region."|".$fichiertransmis."|".$numero."|"; 
        // calcul enregistrement le plus long      
        if(DBCHARSET=='UTF8'){
            $export=utf8_decode($export);
        }
        // nombreenrgistremment et longueurenregistrement
        $nbenr = explode("\n",$export);
        $tmp=array();
        $cpt=0;
        for($i=0;$i<sizeof($nbenr);$i++){
              // mb_strlen( variable,encoding) PHP 4 >= 4.0.6, PHP 5
              // Le param�tre encoding est l'encodage des caract�res.
              // S'il est omis, l'encodage de caracteres interne sera utilis�.
              $tmp[$i] = strlen($nbenr[$i]);
              //echo strlen($nbenr[$i])." ".$nbenr[$i]."<br>";
              $cpt++;
        }
        $longueurenregistrement=max($tmp);
        $nombreenregistrement=$cpt; // + entete
        // Date de modification
        $datemodification = date('y').str_pad (DATE('m'), 2, "0", STR_PAD_LEFT).str_pad (DATE('j'), 2, "0", STR_PAD_LEFT);
        // export
        $version = substr($f->version,0,8);
        $entete.= $longueurenregistrement."|".$datemodification."|".
                    $nombreenregistrement."|openFoncier|".$version."\n";
        $export=$entete.$export;
        // $str = htmlentities($str, ENT_QUOTES); 
        // ecriture des fichiers en tmp
        $fichier = "../tmp/SITADEL".substr($_POST["datedebut"],3,2).
               "".substr($_POST["datedebut"],8,4)."";
        $inf = fopen($fichier,"w");
        fwrite($inf,$export);
        fclose($inf);
        echo "<br>"._("Fichier")." ".$fichier." "._("sauvegarde")."<br /><br /><br />";
        // affichage 
        echo "<br /><br />Pour telecharger le fichier, cliquer ici : <a href=\"".$fichier."\" target=\"_blank\">";
        echo "<img src=\"../app/img/ico_trace.png\" alt=\"Telecharger le fichier CNEN\" title=\"Telecharger le fichier Sitadel\" />";
        echo "</a>"._("avec le bouton droit et enregistrer la cible du lien sous.")."<br /><br />";
        if(DEBUG != "PRODUCTION_MODE"){
            $affiche="";
            $affiche= str_replace("\n","<br>",$export);
            echo $affiche;
        }              
    }else // correct = false
        echo _("remplissez les 2 dates");
}//validation
?>