/[openfoncier]/trunk/app/sitadel.php
ViewVC logotype

Annotation of /trunk/app/sitadel.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1863 - (hide annotations)
Tue May 14 16:29:52 2013 UTC (11 years, 8 months ago) by nhaye
File size: 41573 byte(s)
Modification du mouvement modificatif de l'export sitadel afin qu'il correspond aux spécifications de la dreal.

1 fraynaud 178 <?php
2 fmichon 1515 /**
3 nhaye 1785 * Ce script permet de générer un document type texte contenant
4     * la liste de toutes les demandes d'autorisation dd'occupation de droit du sol
5     * formulées entre deux dates.
6 fmichon 1515 *
7     * @package openfoncier
8     * @version SVN : $Id$
9     */
10    
11 nhaye 1785 // Appel des classes
12 fraynaud 178 require_once "../obj/utils.class.php";
13     require_once "../app/sitadel.class.php";
14 fraynaud 184 require_once "sitadel.inc";
15 fmichon 380 $f = new utils(NULL, "export_sitadel", _("export SITADEL"), "ico_reqmo.png", "export");
16 nhaye 1785
17 fraynaud 178 /**
18     * Description de la page
19     */
20     $description = _("Cette page vous permet de Transmettre les dossiers suivant la procedure SITADEL");
21     $f->displayDescription($description);
22 fraynaud 184
23 nhaye 1785 // 1ere étape : affichage du formulaire permettant le choix d'un interval de date
24     // ainsi que l'ordre
25     if (empty($_POST)) {
26 nhaye 1826 // Récupération des paramètres
27     if (isset($_GET["datedebut"]) AND $_GET["datedebut"] != "") {
28     $datedebut = substr($_GET["datedebut"],8,2)."/".substr($_GET["datedebut"],5,2)."/".substr($_GET["datedebut"],0,4);;
29     } else {
30     $datedebut = "";
31     }
32     if (isset($_GET["datefin"]) AND $_GET["datefin"] != "") {
33     $datefin = substr($_GET["datefin"],8,2)."/".substr($_GET["datefin"],5,2)."/".substr($_GET["datefin"],0,4);
34     } else {
35     $datefin = "";
36     }
37     if (isset($_GET["numero"]) AND $_GET["numero"] != "") {
38     $numero = $_GET["numero"];
39     } else {
40     $numero = "";
41     }
42     affichageFormulaire($datedebut, $datefin, $numero);
43 nhaye 1785 } else { // Traitement après validation du formulaire
44    
45     // init de la valeur d'erreur
46 fraynaud 178 $correct=true;
47 nhaye 1826 // init de la chaîne contenant l'erreur
48     $erreur = "";
49 nhaye 1785
50     // XXX
51 fraynaud 193 $longueurenregistrement= 0 ;
52 nhaye 1785
53     // XXX
54 fraynaud 193 $t10 = "||||||||||"; // 10 |
55 nhaye 1785
56     // Initialisation des dates de début et de fin
57 fraynaud 193 $datedebut ='';
58     $datefin='';
59 nhaye 1785
60     // Traitement des erreurs
61     if ($_POST["datedebut"] == "") {
62 fraynaud 190 $correct=false;
63 nhaye 1785 } else {
64 fraynaud 190 $datedebut = substr($_POST["datedebut"],6,4).
65     "-".substr($_POST["datedebut"],3,2)."-".
66     substr($_POST["datedebut"],0,2);
67 nhaye 1785 }
68     if ($_POST["datefin"] == "") {
69 fraynaud 190 $correct=false;
70 nhaye 1785 } else {
71 fraynaud 190 $datefin = substr($_POST["datefin"],6,4).
72     "-".substr($_POST["datefin"],3,2)."-".
73     substr($_POST["datefin"],0,2);
74 nhaye 1785 }
75 nhaye 1826 $numero = $_POST["numero"];
76 fraynaud 178 if ($correct==true){ // ***
77 nhaye 1785 // Requête permettant de lister tous les dossiers de l'export
78 nhaye 1797 $sql= "SELECT dossier.dossier,
79     dossier_instruction_type.mouvement_sitadel,
80     dossier.date_depot,
81     dossier.date_decision,
82     dossier.date_chantier,
83     dossier.date_achevement,
84     dossier.terrain_references_cadastrales as dossier_terrain_references_cadastrales,
85     dossier.terrain_adresse_voie_numero as dossier_terrain_adresse_voie_numero,
86     dossier.complement as dossier_complement,
87     dossier.terrain_adresse_lieu_dit as dossier_terrain_adresse_lieu_dit,
88     dossier.terrain_adresse_localite as dossier_terrain_adresse_localite,
89     dossier.terrain_adresse_code_postal as dossier_terrain_adresse_code_postal,
90     dossier.terrain_adresse_bp as dossier_terrain_adresse_bp,
91     dossier.terrain_adresse_cedex as dossier_terrain_adresse_cedex,
92     dossier.version,
93     dossier_autorisation_type.code,
94 vpihour 1809 dossier.autorite_competente,
95     dossier.date_limite,
96     dossier.date_notification_delai,
97 nhaye 1797
98     pp.type_demandeur,
99     pp.qualite,
100     civilite_pp.libelle as civilite_pp,
101     pp.particulier_nom as pp_particulier_nom,
102     pp.particulier_prenom as pp_particulier_prenom,
103     pp.personne_morale_denomination as pp_personne_morale_denomination,
104     pp.personne_morale_raison_sociale as pp_personne_morale_raison_sociale,
105     pp.personne_morale_siret as pp_personne_morale_siret,
106     pp.personne_morale_categorie_juridique as pp_personne_morale_categorie_juridique,
107     civilite_pm.libelle as civilite_pm_libelle,
108     pp.personne_morale_nom as pp_personne_morale_nom,
109     pp.personne_morale_prenom as pp_personne_morale_prenom,
110    
111     pp.numero as pp_numero,
112     pp.voie as pp_voie,
113     pp.complement as pp_complement,
114     pp.lieu_dit as pp_lieu_dit,
115     pp.localite as pp_localite,
116     pp.code_postal as pp_code_postal,
117     pp.bp as pp_bp,
118     pp.cedex as pp_cedex,
119     pp.pays as pp_pays,
120     pp.division_territoriale as pp_division_territoriale,
121    
122     civilite_delegataire.libelle as civilite_delegataire_libelle,
123     delegataire.particulier_nom as delegataire_particulier_nom,
124     delegataire.particulier_prenom as delegataire_particulier_prenom,
125     delegataire.numero as delegataire_numero,
126     delegataire.voie as delegataire_voie,
127     delegataire.complement as delegataire_complement,
128     delegataire.lieu_dit as delegataire_lieu_dit,
129     delegataire.localite as delegataire_localite,
130     delegataire.code_postal as delegataire_code_postal,
131     delegataire.bp as delegataire_bp,
132     delegataire.cedex as delegataire_cedex,
133     delegataire.pays as delegataire_pays,
134     delegataire.division_territoriale as delegataire_division_territoriale,
135    
136     pp.telephone_fixe as pp_telephone_fixe,
137 vpihour 1809 pp.courriel as pp_courriel,
138    
139     donnees_techniques.co_archi_recours,
140     donnees_techniques.am_terr_surf,
141     donnees_techniques.am_lotiss,
142 nhaye 1863 donnees_techniques.terr_juri_zac,
143 vpihour 1809 donnees_techniques.terr_juri_afu,
144 nhaye 1863 donnees_techniques.terr_juri_desc,
145 vpihour 1809 donnees_techniques.tr_desc,
146     donnees_techniques.co_cstr_nouv,
147     donnees_techniques.co_cstr_exist,
148     donnees_techniques.co_modif_aspect,
149     donnees_techniques.co_modif_struct,
150     donnees_techniques.co_cloture,
151     donnees_techniques.co_trx_exten,
152     donnees_techniques.co_trx_surelev,
153     donnees_techniques.co_trx_nivsup,
154     donnees_techniques.co_trx_amgt,
155     donnees_techniques.co_anx_pisc,
156     donnees_techniques.co_anx_gara,
157     donnees_techniques.co_anx_veran,
158     donnees_techniques.co_anx_abri,
159     donnees_techniques.co_anx_autr,
160     donnees_techniques.co_bat_niv_nb,
161     donnees_techniques.su_avt_shon1,
162     donnees_techniques.su_avt_shon2,
163     donnees_techniques.su_avt_shon3,
164     donnees_techniques.su_avt_shon4,
165     donnees_techniques.su_avt_shon5,
166     donnees_techniques.su_avt_shon6,
167     donnees_techniques.su_avt_shon7,
168     donnees_techniques.su_avt_shon8,
169     donnees_techniques.su_avt_shon9,
170     donnees_techniques.su_demo_shon1,
171     donnees_techniques.su_demo_shon2,
172     donnees_techniques.su_demo_shon3,
173     donnees_techniques.su_demo_shon4,
174     donnees_techniques.su_demo_shon5,
175     donnees_techniques.su_demo_shon6,
176     donnees_techniques.su_demo_shon7,
177     donnees_techniques.su_demo_shon8,
178     donnees_techniques.su_demo_shon9,
179     donnees_techniques.su_chge_shon1,
180     donnees_techniques.su_chge_shon2,
181     donnees_techniques.su_chge_shon3,
182     donnees_techniques.su_chge_shon4,
183     donnees_techniques.su_chge_shon5,
184     donnees_techniques.su_chge_shon6,
185     donnees_techniques.su_chge_shon7,
186     donnees_techniques.su_chge_shon8,
187     donnees_techniques.su_chge_shon9,
188     donnees_techniques.su_trsf_shon1,
189     donnees_techniques.su_trsf_shon2,
190     donnees_techniques.su_trsf_shon3,
191     donnees_techniques.su_trsf_shon4,
192     donnees_techniques.su_trsf_shon5,
193     donnees_techniques.su_trsf_shon6,
194     donnees_techniques.su_trsf_shon7,
195     donnees_techniques.su_trsf_shon8,
196     donnees_techniques.su_trsf_shon9,
197     donnees_techniques.su_cstr_shon1,
198     donnees_techniques.su_cstr_shon2,
199     donnees_techniques.su_cstr_shon3,
200     donnees_techniques.su_cstr_shon4,
201     donnees_techniques.su_cstr_shon5,
202     donnees_techniques.su_cstr_shon6,
203     donnees_techniques.su_cstr_shon7,
204     donnees_techniques.su_cstr_shon8,
205     donnees_techniques.su_cstr_shon9,
206     donnees_techniques.su_tot_shon1,
207     donnees_techniques.su_tot_shon2,
208     donnees_techniques.su_tot_shon3,
209     donnees_techniques.su_tot_shon4,
210     donnees_techniques.su_tot_shon5,
211     donnees_techniques.su_tot_shon6,
212     donnees_techniques.su_tot_shon7,
213     donnees_techniques.su_tot_shon8,
214     donnees_techniques.su_tot_shon9,
215     donnees_techniques.co_sp_transport,
216     donnees_techniques.co_sp_enseign,
217     donnees_techniques.co_sp_sante,
218     donnees_techniques.co_sp_act_soc,
219     donnees_techniques.co_sp_ouvr_spe,
220     donnees_techniques.co_sp_culture,
221     donnees_techniques.dm_tot_log_nb,
222     donnees_techniques.co_tot_ind_nb,
223     donnees_techniques.co_tot_coll_nb,
224     donnees_techniques.co_tot_log_nb,
225     donnees_techniques.co_resid_agees,
226     donnees_techniques.co_resid_etud,
227     donnees_techniques.co_resid_tourism,
228     donnees_techniques.co_resid_hot_soc,
229     donnees_techniques.co_resid_hand,
230     donnees_techniques.co_resid_autr,
231     donnees_techniques.co_resid_autr_desc,
232     donnees_techniques.co_uti_pers,
233     donnees_techniques.co_uti_princ,
234     donnees_techniques.co_uti_secon,
235     donnees_techniques.co_uti_vente,
236     donnees_techniques.co_uti_loc,
237     donnees_techniques.co_foyer_chamb_nb,
238     donnees_techniques.co_fin_lls_nb,
239     donnees_techniques.co_fin_aa_nb,
240 nhaye 1821 donnees_techniques.co_fin_ptz_nb,
241 vpihour 1809 donnees_techniques.co_fin_autr_nb,
242     donnees_techniques.co_mais_piece_nb,
243     donnees_techniques.co_log_1p_nb,
244     donnees_techniques.co_log_2p_nb,
245     donnees_techniques.co_log_3p_nb,
246     donnees_techniques.co_log_4p_nb,
247     donnees_techniques.co_log_5p_nb,
248     donnees_techniques.co_log_6p_nb,
249 nhaye 1863 donnees_techniques.mod_desc,
250 vpihour 1809
251 nhaye 1831 donnees_techniques.doc_date,
252     donnees_techniques.doc_tot_trav,
253     donnees_techniques.doc_tranche_trav,
254     donnees_techniques.doc_tranche_trav_desc,
255     donnees_techniques.doc_surf,
256     donnees_techniques.doc_nb_log,
257     donnees_techniques.doc_nb_log_indiv,
258     donnees_techniques.doc_nb_log_coll,
259     donnees_techniques.doc_nb_log_lls,
260     donnees_techniques.doc_nb_log_aa,
261     donnees_techniques.doc_nb_log_ptz,
262     donnees_techniques.doc_nb_log_autre,
263     donnees_techniques.daact_date,
264     donnees_techniques.daact_date_chgmt_dest,
265     donnees_techniques.daact_tot_trav,
266     donnees_techniques.daact_tranche_trav,
267     donnees_techniques.daact_tranche_trav_desc,
268     donnees_techniques.daact_surf,
269     donnees_techniques.daact_nb_log,
270     donnees_techniques.daact_nb_log_indiv,
271     donnees_techniques.daact_nb_log_coll,
272     donnees_techniques.daact_nb_log_lls,
273     donnees_techniques.daact_nb_log_aa,
274     donnees_techniques.daact_nb_log_ptz,
275     donnees_techniques.daact_nb_log_autre,
276    
277     dossier_autorisation.date_depot as date_depot_da,
278     dossier_autorisation.date_decision as date_decision_da,
279     dossier_autorisation.date_validite as date_validite_da,
280     dossier_autorisation.date_chantier as date_chantier_da,
281     dossier_autorisation.date_achevement as date_achevement_da,
282     avis_decision.typeavis as typeavis_da,
283 vpihour 1809 avis_decision.sitadel,
284 nhaye 1831 avis_decision.sitadel_motif,
285     etat.statut as statut_di
286 nhaye 1797
287 vpihour 1809 FROM ".DB_PREFIXE."dossier";
288 nhaye 1797 $sql .= " INNER JOIN ".DB_PREFIXE."dossier_instruction_type
289     ON dossier.dossier_instruction_type =
290     dossier_instruction_type.dossier_instruction_type
291    
292     INNER JOIN ".DB_PREFIXE."dossier_autorisation_type_detaille
293     ON dossier_instruction_type.dossier_autorisation_type_detaille
294     =dossier_autorisation_type_detaille.dossier_autorisation_type_detaille
295     INNER JOIN ".DB_PREFIXE."dossier_autorisation_type
296     ON dossier_autorisation_type.dossier_autorisation_type
297     =dossier_autorisation_type_detaille.dossier_autorisation_type
298 nhaye 1831 INNER JOIN ".DB_PREFIXE."dossier_autorisation
299     ON dossier_autorisation.dossier_autorisation
300     =dossier.dossier_autorisation
301 nhaye 1797
302 vpihour 1809 LEFT JOIN ".DB_PREFIXE."donnees_techniques
303     ON donnees_techniques.dossier_instruction = dossier.dossier
304     LEFT JOIN ".DB_PREFIXE."avis_decision
305     ON avis_decision.avis_decision = dossier.avis_decision
306 nhaye 1797 LEFT JOIN ".DB_PREFIXE."lien_dossier_demandeur as ldd_pp
307     ON ldd_pp.dossier = dossier.dossier
308     AND ldd_pp.petitionnaire_principal is TRUE
309     LEFT JOIN ".DB_PREFIXE."demandeur as pp
310     ON ldd_pp.demandeur = pp.demandeur
311     LEFT JOIN ".DB_PREFIXE."civilite as civilite_pp
312     ON civilite_pp.civilite = pp.particulier_civilite
313     LEFT JOIN ".DB_PREFIXE."civilite as civilite_pm
314     ON civilite_pm.civilite = pp.particulier_civilite
315     LEFT JOIN ".DB_PREFIXE."lien_dossier_demandeur as ldd_delegataire
316     ON ldd_delegataire.dossier = dossier.dossier
317     LEFT JOIN ".DB_PREFIXE."demandeur as delegataire
318     ON ldd_delegataire.demandeur = delegataire.demandeur AND delegataire.qualite='delegataire'
319     LEFT JOIN ".DB_PREFIXE."civilite as civilite_delegataire
320     ON civilite_delegataire.civilite = delegataire.particulier_civilite
321 nhaye 1831 LEFT JOIN ".DB_PREFIXE."etat
322     ON etat.etat = dossier.etat
323 nhaye 1797 ";
324     $sql .= " WHERE dossier_instruction_type.mouvement_sitadel IS NOT NULL";
325 nhaye 1798 $sql .= " AND dossier.a_qualifier IS NOT TRUE";
326 nhaye 1797 $sql .= " AND ((dossier.date_depot >='".$datedebut."' AND dossier.date_depot<='".$datefin."')";
327     $sql .= " OR (dossier.date_decision>='".$datedebut."' AND dossier.date_decision<='".$datefin."')";
328 nhaye 1834 $sql .= " OR (dossier.date_chantier>='".$datedebut."' AND dossier.date_chantier<='".$datefin."')";
329     $sql .= " OR (dossier.date_achevement>='".$datedebut."' AND dossier.date_achevement<='".$datefin."'))";
330 nhaye 1797 $sql .= " order by dossier.date_depot";
331 fraynaud 178 $res = $f->db -> query ($sql);
332 vpihour 1809 $f->addToLog("app/sitadel.php : db->query(\"".$sql."\")", VERBOSE_MODE);
333 fraynaud 178 $f->isDatabaseError($res);
334 fraynaud 190 $export="";
335 fraynaud 178 while ($row=& $res->fetchRow(DB_FETCHMODE_ASSOC)){
336 nhaye 1785 // initialisation de la classe permettant la mise en forme de chaque ligne de l'export
337 fraynaud 187 $g = new sitadel($row['dossier']);
338 vpihour 1809 $g->setRow($row);
339 fraynaud 187 // sitadel
340 vpihour 1809 $g->setVal($val);
341 nhaye 1785 //
342 fraynaud 187 // parametre
343 nhaye 1785 // $sql = "select parametre, valeur from ".DB_PREFIXE."statistique where dossier ='".$row['dossier']."'";
344     // $res1 = $f->db -> query ($sql);
345     // $f->isDatabaseError($res1);
346     // while ($row1=& $res1->fetchRow(DB_FETCHMODE_ASSOC)){
347     // $g->parametre[$row1['parametre']]=$row1['valeur'];
348     // }
349 fraynaud 187 $departement =$f->collectivite["departement"];
350     $commune =$f->collectivite["commune"];
351     $region =$f->collectivite["region"];
352     // depot
353     $depot="";
354 nhaye 1785
355 nhaye 1797 // Tous les mouvements autres que transfert ont comme mouvement le code DEPOT
356 nhaye 1785 // les décisions devant êtres précédées par le dépôt correspondant,
357     // les dossiers avec date de décision comprise dans l'interval fourni sont
358     // réaffichés en tant que dépôts (mouvement DEPOT)
359 nhaye 1797 if ($row['mouvement_sitadel'] != 'TRANSFERT'
360 fraynaud 190 and (($row['date_depot'] >= $datedebut
361 nhaye 1785 and $row['date_depot'] <= $datefin)
362 fraynaud 190 or ($row['date_decision'] >= $datedebut
363 nhaye 1785 and $row['date_decision'] <= $datefin))) {
364 fraynaud 193 $depot.=$g->entete("DEPOT",$departement,$commune,$pf_departement);
365 fraynaud 187 $depot.=$g->etatcivil();
366     $depot.=$g->adresse();
367     $depot.=$g->delegataire();
368 nhaye 1797 $depot.=$g->meltel($row['mouvement_sitadel']);
369 fraynaud 187 $depot.=$g->adresse_terrain();
370     $depot.=$g->parcelle();
371     // ===========================
372     // contrat maison individuelle
373     // ===========================
374     // sitadel : contrat|
375 vpihour 1809 // openads : non renseigne
376 fraynaud 187 $depot.= $g->p('contrat')."|";
377     // ==========
378     // architecte
379     // ==========
380     // sitadel : architecte|
381 vpihour 1809 // openads : données techniques.co_archi_recours
382     if($row['co_archi_recours'] == "t")
383 fraynaud 187 $depot.= "1|";
384     else
385     $depot.= "0|";
386     // =====================
387     // utilisation data cnil
388     // ======================
389     // sitadel : cnil
390 vpihour 1809 // openads : non renseigne
391 fraynaud 187 $depot.= $g->p('cnil');
392     // fin d enregistrement depot
393     $depot.="\n";
394 fraynaud 178 }
395 fraynaud 187
396 nhaye 1785 // Seuls les dossier de type transfert ont comme mouvement le code TRANSFERT
397 fraynaud 187 $transfert ="";
398 nhaye 1797 if($row['mouvement_sitadel']=='TRANSFERT'
399 fraynaud 190 and $row['date_depot'] >= $datedebut
400     and $row['date_depot']<=$datefin){
401 fraynaud 193 $transfert.=$g->entete("TRANSFERT",$departement,$commune,$pf_departement);
402 fraynaud 187 $transfert.=$g->etatcivil();
403     $transfert.=$g->adresse();
404 nhaye 1797 $transfert.=$g->meltel($row['mouvement_sitadel']);
405 fraynaud 187 $transfert.="\n";
406 fraynaud 178 }
407 fraynaud 187
408    
409 nhaye 1785 // Une ligne de mouvement DECISION est insérée après chaque ligne
410     // de mouvement DEPOT
411 fraynaud 187 $decision="";
412 nhaye 1797 if ($row['mouvement_sitadel'] != 'MODIFICATIF'
413     and $row['mouvement_sitadel'] != 'TRANSFERT'
414 fraynaud 200 and (($row['date_depot'] >= $datedebut and $row['date_depot']<=$datefin)
415 nhaye 1785 or ($row['date_decision'] >= $datedebut and $row['date_decision']<=$datefin))) {
416 vpihour 1809
417     //Ajout de l'entête
418 fraynaud 193 $decision.=$g->entete("DECISION",$departement,$commune,$pf_departement);
419 vpihour 1809
420     //Ajout du groupe 1
421     $decision.= $g->decision_groupe1();
422     // Si la décision est favorable, groupe 2
423     if ( $row['sitadel'] == 2 || $row['sitadel'] == 4 || $row['sitadel'] == 5
424     || $row['sitadel'] == 0 ){
425    
426     $decision.= $g->amenagement_terrain();
427     $su_avt_shon = $g->shon("su_avt_shon");
428 vpihour 1810 //Si la SHON existante avant travaux est supérieur à la SHON
429     //démolie alors la variable natproj est égale à 2
430     $shonExistante = 0;
431     $shonDemolie = 0;
432     for ( $i=1;$i<=9;$i++){
433    
434     $shonExistante += floor($row['su_avt_shon'.$i]);
435     $shonDemolie += floor($row['su_demo_shon'.$i]);
436     }
437     if ( $shonExistante > $shonDemolie && $row['co_cstr_nouv'] == 't' ){
438    
439 nhaye 1828 $erreur = _("Si la SHON existante avant travaux est superieur a la SHON demolie alors la variable natproj doit etre egale a 2 pour le dossier no")." ".$row['dossier']."\n";
440 vpihour 1810 }
441     //Si la SHON existante avant travaux et la SHON démolie sont
442     //égales alors la variable natproj est égale à 1
443     elseif ( $shonExistante > $shonDemolie && $row['co_cstr_exist'] == 't' ) {
444    
445 nhaye 1828 $erreur = _("Si la SHON existante avant travaux et la SHON demolie sont egales alors la variable natproj doit etre egale a 1 pour le dossier no")." ".$row['dossier']."\n";
446 vpihour 1810 }
447     else {
448     $decision .= $su_avt_shon;
449     }
450 vpihour 1809
451 nhaye 1821 $su_demo_shon = $g->shon("su_demo_shon");
452 vpihour 1810 //La SHON démolie s'accompagne obligatoirement de la shon
453     //existante avant travaux
454     //Erreur
455     if ( $shonExistante != 0 && $shonExistante == 0 ){
456 nhaye 1826 $erreur = _("La SHON demolie s'accompagne obligatoirement de la SHON existante avant travaux pour le dossier no")." ".$row['dossier']."\n";
457 vpihour 1810 }
458     else {
459     $decision .= $su_demo_shon;
460     }
461    
462    
463 vpihour 1809 $decision.= $g->shon("su_chge_shon");
464     $su_trsf_shon = $g->shon("su_trsf_shon");
465     $su_cstr_shon = $g->shon("su_cstr_shon");
466     //Les SHON relatives à la transformation et issues de la
467     //transformation doivent être égales
468     if ( strcasecmp($su_trsf_shon, $su_cstr_shon) == 0 ||
469     (!preg_match("/[0|]{7}/", $su_trsf_shon) &&
470     preg_match("/[0|]{7}/", $su_cstr_shon) &&
471     $row['co_cstr_nouv']!='t' && $row['co_cstr_exist']!='t')){
472    
473     $decision.= $su_trsf_shon;
474     $decision.= $su_cstr_shon;
475 nhaye 1785 }
476 vpihour 1809 //Erreur
477     else {
478 nhaye 1826 $erreur = _("Les SHON globales vouees a la transformation et issues de la transformation de doivent etre egales pour le dossier no")." ".$row['dossier']."\n";
479 nhaye 1821 }
480 vpihour 1809
481     //Les SHON relatives à la transformation s'accompagnent
482     //obligatoirement de SHON existante avant travaux non nulle
483     if (( !preg_match("/[0|]{7}/", $su_trsf_shon) &&
484     !preg_match("/[0|]{7}/", $su_cstr_shon) &&
485     !preg_match("/[0|]{7}/", $su_avt_shon)) ||
486     (preg_match("/[0|]{7}/", $su_trsf_shon) &&
487     preg_match("/[0|]{7}/", $su_cstr_shon)&&
488     preg_match("/[0|]{7}/", $su_avt_shon))){
489    
490     $decision.= $su_avt_shon;
491     }
492     //Erreur
493     else {
494    
495 nhaye 1828 $erreur = _("Les SHON relatives a la transformation s'accompagnent obligatoirement de SHON existante avant travaux non nulle pour le dossier no")." ".$row['dossier']."\n";
496 nhaye 1821 }
497 vpihour 1809
498     $decision.= $g->shon("su_tot_shon");
499 nhaye 1821
500     // Un nombre de logements démolis strictement positif doit
501     // s'accompagner obligatoirement de SHON démolie.
502     if($row['dm_tot_log_nb'] > 0) {
503     if($row['su_demo_shon1'] <= 0) {
504 nhaye 1826
505     $erreur = _("Un nombre de logements demolis strictement positif doit s'accompagner obligatoirement de SHON demolie pour le dossier no")." ".$row['dossier']."\n";
506 nhaye 1821 }
507     }
508    
509     // Un nombre de logements créés strictement positif doit
510     // s'accompagner obligatoirement de SHON créée ou de SHON
511     // issue de la transformation ayant pour destination l'habitation.
512     if($row['co_tot_log_nb'] > 0 AND ($row['su_cstr_shon1'] <= 0 OR $row['su_trsf_shon1'] <=0)) {
513 nhaye 1826
514     $erreur = _("Un nombre de logements crees strictement positif doit s'accompagner obligatoirement de SHON creee ou de SHON issue de la transformation ayant pour destination l'habitation pour le dossier no")." ".$row['dossier']."\n";
515 nhaye 1821 }
516    
517     // La SHON créée ou issue de la transformation
518     // suffixée par 9 (intérêt collectif ou service public) doit
519     // obligatoirement s'accompagner de la décomposition
520     // en sous modalité renseignée par la variable cpublic et réciproquement.
521    
522     // Test si une valeur est true
523     $cpublic = FALSE;
524     if (isset($row['co_sp_transport']) && $row['co_sp_transport'] == 't') {
525     $cpublic = TRUE;
526     }
527     if (isset($row['co_sp_enseign']) && $row['co_sp_enseign'] == 't') {
528     $cpublic = TRUE;
529     }
530     if (isset($row['co_sp_sante']) && $row['co_sp_sante'] == 't') {
531     $cpublic = TRUE;
532     }
533     if (isset($row['co_sp_act_soc']) && $row['co_sp_act_soc'] == 't') {
534     $cpublic = TRUE;
535     }
536     if (isset($row['co_sp_ouvr_spe']) && $row['co_sp_ouvr_spe'] == 't') {
537     $cpublic = TRUE;
538     }
539     if (isset($row['co_sp_culture']) && $row['co_sp_culture'] == 't') {
540     $cpublic = TRUE;
541     }
542    
543     if($cpublic !== TRUE AND ($row['su_cstr_shon9'] > 0 OR $row['su_trsf_shon9'] > 0)) {
544 nhaye 1828 $erreur = _("La SHON creee ou issue de la transformation concernant le service public ou l'interet collectif doit obligatoirement s'accompagner du choix de destination des constructions pour le dossier no")." ".$row['dossier']."\n";
545 nhaye 1821 }
546    
547     // La destination principale du logement mise à résidence
548     // principale ou résidence secondaire doit obligatoirement
549     // s'accompagner d'un mode d'utilisation à occupation personnelle
550     if($row['co_uti_princ'] == 't' OR $row['co_uti_secon'] == 't') {
551     if($row['co_uti_pers'] != 't') {
552 nhaye 1826
553 nhaye 1828 $erreur = _("La destination principale du logement mise a residence principale ou residence secondaire doit obligatoirement s'accompagner d'un mode d'utilisation a occupation personnelle pour le dossier no")." ".$row['dossier']."\n";
554 nhaye 1821 }
555     }
556    
557 nhaye 1863 $decision.= $g->destination($row['mouvement_sitadel']);
558 nhaye 1821
559     // Le nombre total de logements créés (variable nbtotlog)
560     // doit être égal à la somme des nombres de logements créés
561     // ventilés par type de financement
562     if($row['co_tot_log_nb'] != ($row['co_fin_lls_nb'] + $row['co_fin_aa_nb'] +
563     $row['co_fin_ptz_nb'] + $row['co_fin_autr_nb'])) {
564    
565 nhaye 1826 $erreur = _("Le nombre total de logements crees doit etre egal a la somme des nombres de logements crees ventiles par type de financement pour le dossier no")." ".$row['dossier']."\n";
566 nhaye 1821 }
567    
568 vpihour 1809 $decision.= $g->repartitionFinan();
569 nhaye 1821
570     // Le nombre total de logements créés (variable nbtotlog)
571     // doit être égal à la totalisation de la répartition des
572     // logements par nombre de pièces
573     if($row['co_tot_log_nb'] != ($row['co_log_1p_nb'] + $row['co_log_2p_nb'] +
574     $row['co_log_3p_nb'] + $row['co_log_4p_nb'] + $row['co_log_5p_nb'] +
575     $row['co_log_6p_nb'])) {
576    
577 nhaye 1826 $erreur = _("Le nombre total de logements crees doit etre egal a la totalisation de la repartition des logements par nombre de pieces pour le dossier no")." ".$row['dossier']."\n";
578 nhaye 1821 }
579    
580 nhaye 1863 $decision.= $g->repartitionNbPiece($row['mouvement_sitadel']);
581 vpihour 1809 }
582 nhaye 1785 $decision.="\n";
583 fraynaud 187 }
584    
585     // modificatif
586     $modificatif='';
587 nhaye 1797 if($row['mouvement_sitadel'] == 'MODIFICATIF'
588 fraynaud 190 and $row['date_depot'] >= $datedebut
589 nhaye 1785 and $row['date_depot'] <= $datefin) {
590 fraynaud 193 $modificatif.=$g->entete("MODIFICATIF",$departement,$commune,$pf_departement);
591 fraynaud 187 if(isset($row['date_decision']) or $row['date_decision']==""){
592     // avis_sitadel et avis_sitadel_motif
593 vpihour 510 if($row['avis_decision']!=''){
594 nhaye 1863
595     $modificatif.= $g->decision_groupe1();
596 fraynaud 178 }
597 fraynaud 187 // si la decision est favorable, envoi des informations statistiques
598 nhaye 1863 if($row["sitadel"] == 2 or $row["sitadel"] == 4
599     or $row["sitadel"] == 5){
600     // si accordé : ajout du 2nd groupe d'informations
601     $modificatif .= $g->adresse_terrain(); // adresse du terrain
602     $modificatif .= $g->parcelle(); // 3 premières parcelles
603     $modificatif .= $g->modificatif_terrain(); // Informations complémentaires
604 fraynaud 187
605 nhaye 1863 $modificatif.= $g->shon("su_avt_shon");
606     $modificatif.= $g->shon("su_demo_shon");
607     $modificatif.= $g->shon("su_chge_shon");
608     $modificatif.= $g->shon("su_trsf_shon");
609     $modificatif.= $g->shon("su_cstr_shon");
610    
611     $modificatif.= "vm|vm|vm|vm|vm|vm|vm|vm|vm|";
612    
613 nhaye 1797 $modificatif.= $g->descriptif($row['mouvement_sitadel']);
614 nhaye 1863 $modificatif.= $g->repartitionFinan();
615     $modificatif.= $g->repartitionNbPiece($row['mouvement_sitadel']);
616 fraynaud 187 $modificatif.="\n";
617     }
618     }
619     }
620 fraynaud 178
621 nhaye 1831 // Règles sur le mouvement suivi
622 fraynaud 200 // suivi DOC
623 nhaye 1831 $chantier="";
624     if($row['date_chantier'] >= $datedebut and $row['date_chantier']<=$datefin){
625    
626     // Une ouverture de chantier ne peut concerner qu'un permis autorisé
627     if($row['typeavis_da'] != 'F') {
628     $erreur = _("Une ouverture de chantier ne peut concerner qu'un permis autorise : dossier no")." ".$row['dossier']."\n";
629     }
630     // La date d'ouverture de chantier doit être supérieur à la date d'autorisation
631     if($row['doc_date'] > $row['date_decision_da']) {
632     $erreur = _("La date d'ouverture de chantier doit être superieur a la date d'autorisation : dossier no")." ".$row['dossier']."\n";
633     }
634    
635     $chantier.=$g->entete("SUIVI",$departement,$commune,$pf_departement);
636     $chantier.=$g->chantier();
637     $chantier.="\n";
638 fraynaud 190 }
639 nhaye 1831 // suivi DAACT
640     $achevement="";
641 fraynaud 190 if($row['date_achevement'] >= $datedebut and $row['date_achevement']<=$datefin){
642 nhaye 1831
643     // Un achèvement de chantier ne peut concerner qu'un permis autorisé
644     if($row['typeavis_da'] != 'F') {
645     $erreur = _("Un achevement de chantier ne peut concerner qu'un permis autorise : dossier no")." ".$row['dossier']."\n";
646     }
647 nhaye 1834 if( $row['date_chantier_da'] == "" ) {
648     $erreur = _("Un achevement de chantier ne peut concerner qu'un permis sur lequel un chantier a ete ouvert : dossier no")." ".$row['dossier']."\n";
649     }
650 nhaye 1831 // La date d'achevement de travaux doit être supérieur à la date d'ouverture des travaux
651     if($row['daact_date'] > $row['date_chantier_da']) {
652     $erreur = _("La date d'achevement de travaux doit etre superieur a la date d'ouverture des travaux : dossier no")." ".$row['dossier']."\n";
653     }
654     $achevement.=$g->entete("SUIVI",$departement,$commune,$pf_departement);
655     $achevement.=$g->achevement();
656     $achevement.="\n";
657 fraynaud 178 }
658 fraynaud 190 // export
659 nhaye 1831 $export.=$depot.$decision.$transfert.$modificatif.$chantier.$achevement;
660 fraynaud 187 } // fin while
661 fraynaud 190 // ***************************************
662     // entete de l enregistrement page 8 et 9
663     // ***************************************
664     // numero
665 nhaye 1197 // $numero= $db -> nextId('sitadel');
666 nhaye 1826
667     // Gestion des erreurs : on les liste dans un fichier
668     if($erreur != "") {
669 nhaye 1828 $f->displayMessage("error", _("Une ou plusieurs erreurs sont survenues pendant l'export, celles-ci sont listees dans le fichiers ci-dessous"));
670 nhaye 1826 $fichier = "../tmp/erreur_SITADEL".substr($_POST["datedebut"],3,2).
671     "".substr($_POST["datedebut"],8,4)."";
672     $inf = fopen($fichier,"w");
673     fwrite($inf,$erreur);
674     fclose($inf);
675     echo "<br>"._("Fichier d'erreur")." ".$fichier." "._("sauvegarde")."<br /><br /><br />";
676     // affichage
677     echo "<br /><br />"._("Pour telecharger le fichier d'erreur, cliquer ici :")." <a href=\"".$fichier."\" target=\"_blank\">";
678     echo "<img src=\"../app/img/ico_trace.png\" alt=\""._("Telecharger le fichier d'erreur")."\" title=\""._("Telecharger le fichier d'erreur")."\" />";
679     echo "</a>"._("avec le bouton droit et enregistrer la cible du lien sous.")."<br /><br />";
680     } else {
681     $departement =$f->collectivite["departement"];
682     $commune =$f->collectivite["commune"];
683     $region =$f->collectivite["region"];
684     $numero=$_POST["numero"];
685     $fichiertransmis = date('ymj').$pf_departement.$departement.$commune;
686     $longueurenregistrement= 0 ; // a calculer *** enregistrement le plus long
687     $entete = "SITADEL|".$pf_departement.$departement."|".$commune."|".$region."|".$fichiertransmis."|".$numero."|";
688     // calcul enregistrement le plus long
689     if(DBCHARSET=='UTF8'){
690     $export=utf8_decode($export);
691     }
692     // nombreenrgistremment et longueurenregistrement
693     $nbenr = explode("\n",$export);
694     $tmp=array();
695     $cpt=0;
696     for($i=0;$i<sizeof($nbenr);$i++){
697     // mb_strlen( variable,encoding) PHP 4 >= 4.0.6, PHP 5
698     // Le param�tre encoding est l'encodage des caract�res.
699     // S'il est omis, l'encodage de caracteres interne sera utilis�.
700     $tmp[$i] = strlen($nbenr[$i]);
701     //echo strlen($nbenr[$i])." ".$nbenr[$i]."<br>";
702     $cpt++;
703     }
704     $longueurenregistrement=max($tmp);
705     $nombreenregistrement=$cpt; // + entete
706     // Date de modification
707     $datemodification = date('y').str_pad (DATE('m'), 2, "0", STR_PAD_LEFT).str_pad (DATE('j'), 2, "0", STR_PAD_LEFT);
708     // export
709     $version = substr($f->version,0,8);
710     $entete.= $longueurenregistrement."|".$datemodification."|".
711     $nombreenregistrement."|openFoncier|".$version."\n";
712     $export=$entete.$export;
713     // $str = htmlentities($str, ENT_QUOTES);
714     // ecriture des fichiers en tmp
715     $fichier = "../tmp/SITADEL".substr($_POST["datedebut"],3,2).
716     "".substr($_POST["datedebut"],8,4)."";
717     $inf = fopen($fichier,"w");
718     fwrite($inf,$export);
719     fclose($inf);
720     echo "<br>"._("Fichier")." ".$fichier." "._("sauvegarde")."<br /><br /><br />";
721     // affichage
722     echo "<br /><br />Pour telecharger le fichier, cliquer ici : <a href=\"".$fichier."\" target=\"_blank\">";
723     echo "<img src=\"../app/img/ico_trace.png\" alt=\"Telecharger le fichier CNEN\" title=\"Telecharger le fichier Sitadel\" />";
724     echo "</a>"._("avec le bouton droit et enregistrer la cible du lien sous.")."<br /><br />";
725     if(DEBUG != "PRODUCTION_MODE"){
726     $affiche="";
727     $affiche= str_replace("\n","<br>",$export);
728     echo $affiche;
729     }
730 fraynaud 190 }
731 nhaye 1826
732     // Affichage du bouton retour
733     // Composition du tableau de paramètres
734     $params = array(
735     "href" => "../app/sitadel.php?datedebut=".$datedebut."&amp;datefin=".$datefin."&amp;numero=".$numero,
736     );
737     // Appel de la méthode d'affichage du lien retour par le layout
738     $f->layout->display_form_retour($params);
739    
740 fraynaud 187 }else // correct = false
741 fraynaud 200 echo _("remplissez les 2 dates");
742 fraynaud 178 }//validation
743 vpihour 1809
744     /**
745     * Affichage du formulaire
746     *
747     * */
748     function affichageFormulaire($datedebut="", $datefin="", $numero=""){
749    
750     echo "<form method=\"POST\" action=\"sitadel.php\" name=f1>";
751     // champ date debut
752     echo " "._("debut")." ";
753     echo "<input type='text' name='datedebut' id=\"datedebut\" value=\"";
754     echo $datedebut;
755     echo "\" size=\"15\" class=\"champFormulaire datepicker\" onchange='fdate(this)' onkeyup=\"\" onclick=\"\" />";
756     // champ date fin
757     echo " "._("fin")." ";
758     echo "<input type='text' name='datefin' id=\"datefin\" value=\"";
759     echo $datefin;
760     echo "\" size=\"15\" class=\"champFormulaire datepicker\" onchange='fdate(this)' onkeyup=\"\" onclick=\"\" />";
761     // numero d'ordre d'envoi
762     echo " "._("Numero d'ordre d'envoi")." : "."<select name='numero'>";
763     for ($i = 1; $i < 11; $i++) {
764     echo "<option value ='".$i."' ";
765     echo ($numero == $i )? "selected='selected'":"";
766     echo">".$i."</option>";
767     }
768     echo "</select>";
769     echo "<br><br><input type='submit' value='export SITADEL'>";
770     echo "</form>";
771     }
772 fraynaud 200 ?>

Properties

Name Value
svn:keywords Id

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26