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

Annotation of /trunk/app/sitadel.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3226 - (hide annotations)
Fri Dec 19 16:17:44 2014 UTC (10 years, 1 month ago) by nhaye
File size: 43085 byte(s)
Modification de la récupération des post et get avec les méthodes appropriées

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

Properties

Name Value
svn:keywords Id

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26