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

Annotation of /trunk/app/sitadel.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1871 - (hide annotations)
Wed May 15 16:17:49 2013 UTC (11 years, 8 months ago) by nhaye
File size: 42148 byte(s)
Correction d'un test permettant d'afficher le formulaire lors d'une erreur de validation du formulaire

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 nhaye 1869 $datedebut = substr($_GET["datedebut"],8,2)."/".substr($_GET["datedebut"],5,2)."/".substr($_GET["datedebut"],0,4);
29 nhaye 1826 } 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 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     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 nhaye 1866 and $row['mouvement_sitadel'] != 'SUPPRESSION'
361 fraynaud 190 and (($row['date_depot'] >= $datedebut
362 nhaye 1785 and $row['date_depot'] <= $datefin)
363 fraynaud 190 or ($row['date_decision'] >= $datedebut
364 nhaye 1785 and $row['date_decision'] <= $datefin))) {
365 fraynaud 193 $depot.=$g->entete("DEPOT",$departement,$commune,$pf_departement);
366 fraynaud 187 $depot.=$g->etatcivil();
367     $depot.=$g->adresse();
368     $depot.=$g->delegataire();
369 nhaye 1797 $depot.=$g->meltel($row['mouvement_sitadel']);
370 fraynaud 187 $depot.=$g->adresse_terrain();
371     $depot.=$g->parcelle();
372     // ===========================
373     // contrat maison individuelle
374     // ===========================
375     // sitadel : contrat|
376 vpihour 1809 // openads : non renseigne
377 nhaye 1866 $depot.= $g->defaultValue('contrat')."|";
378 fraynaud 187 // ==========
379     // architecte
380     // ==========
381     // sitadel : architecte|
382 vpihour 1809 // openads : données techniques.co_archi_recours
383 nhaye 1866 if($row['co_archi_recours'] == "t") {
384 fraynaud 187 $depot.= "1|";
385 nhaye 1866 } else {
386 fraynaud 187 $depot.= "0|";
387 nhaye 1866 }
388 fraynaud 187 // =====================
389     // utilisation data cnil
390     // ======================
391     // sitadel : cnil
392 vpihour 1809 // openads : non renseigne
393 nhaye 1866 $depot.= $g->defaultValue('cnil');
394 fraynaud 187 // fin d enregistrement depot
395     $depot.="\n";
396 fraynaud 178 }
397 fraynaud 187
398 nhaye 1785 // Seuls les dossier de type transfert ont comme mouvement le code TRANSFERT
399 fraynaud 187 $transfert ="";
400 nhaye 1797 if($row['mouvement_sitadel']=='TRANSFERT'
401 fraynaud 190 and $row['date_depot'] >= $datedebut
402     and $row['date_depot']<=$datefin){
403 fraynaud 193 $transfert.=$g->entete("TRANSFERT",$departement,$commune,$pf_departement);
404 fraynaud 187 $transfert.=$g->etatcivil();
405     $transfert.=$g->adresse();
406 nhaye 1797 $transfert.=$g->meltel($row['mouvement_sitadel']);
407 fraynaud 187 $transfert.="\n";
408 fraynaud 178 }
409 fraynaud 187
410    
411 nhaye 1785 // Une ligne de mouvement DECISION est insérée après chaque ligne
412     // de mouvement DEPOT
413 fraynaud 187 $decision="";
414 nhaye 1797 if ($row['mouvement_sitadel'] != 'MODIFICATIF'
415     and $row['mouvement_sitadel'] != 'TRANSFERT'
416 nhaye 1866 and $row['mouvement_sitadel'] != 'SUPPRESSION'
417 fraynaud 200 and (($row['date_depot'] >= $datedebut and $row['date_depot']<=$datefin)
418 nhaye 1785 or ($row['date_decision'] >= $datedebut and $row['date_decision']<=$datefin))) {
419 vpihour 1809
420     //Ajout de l'entête
421 fraynaud 193 $decision.=$g->entete("DECISION",$departement,$commune,$pf_departement);
422 vpihour 1809
423     //Ajout du groupe 1
424     $decision.= $g->decision_groupe1();
425     // Si la décision est favorable, groupe 2
426     if ( $row['sitadel'] == 2 || $row['sitadel'] == 4 || $row['sitadel'] == 5
427     || $row['sitadel'] == 0 ){
428    
429     $decision.= $g->amenagement_terrain();
430     $su_avt_shon = $g->shon("su_avt_shon");
431 vpihour 1810 //Si la SHON existante avant travaux est supérieur à la SHON
432     //démolie alors la variable natproj est égale à 2
433     $shonExistante = 0;
434     $shonDemolie = 0;
435     for ( $i=1;$i<=9;$i++){
436    
437     $shonExistante += floor($row['su_avt_shon'.$i]);
438     $shonDemolie += floor($row['su_demo_shon'.$i]);
439     }
440     if ( $shonExistante > $shonDemolie && $row['co_cstr_nouv'] == 't' ){
441    
442 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";
443 vpihour 1810 }
444     //Si la SHON existante avant travaux et la SHON démolie sont
445     //égales alors la variable natproj est égale à 1
446     elseif ( $shonExistante > $shonDemolie && $row['co_cstr_exist'] == 't' ) {
447    
448 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";
449 vpihour 1810 }
450     else {
451     $decision .= $su_avt_shon;
452     }
453 vpihour 1809
454 nhaye 1821 $su_demo_shon = $g->shon("su_demo_shon");
455 vpihour 1810 //La SHON démolie s'accompagne obligatoirement de la shon
456     //existante avant travaux
457     //Erreur
458     if ( $shonExistante != 0 && $shonExistante == 0 ){
459 nhaye 1826 $erreur = _("La SHON demolie s'accompagne obligatoirement de la SHON existante avant travaux pour le dossier no")." ".$row['dossier']."\n";
460 vpihour 1810 }
461     else {
462     $decision .= $su_demo_shon;
463     }
464    
465    
466 vpihour 1809 $decision.= $g->shon("su_chge_shon");
467     $su_trsf_shon = $g->shon("su_trsf_shon");
468     $su_cstr_shon = $g->shon("su_cstr_shon");
469     //Les SHON relatives à la transformation et issues de la
470     //transformation doivent être égales
471     if ( strcasecmp($su_trsf_shon, $su_cstr_shon) == 0 ||
472     (!preg_match("/[0|]{7}/", $su_trsf_shon) &&
473     preg_match("/[0|]{7}/", $su_cstr_shon) &&
474     $row['co_cstr_nouv']!='t' && $row['co_cstr_exist']!='t')){
475    
476     $decision.= $su_trsf_shon;
477     $decision.= $su_cstr_shon;
478 nhaye 1785 }
479 vpihour 1809 //Erreur
480     else {
481 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";
482 nhaye 1821 }
483 vpihour 1809
484     //Les SHON relatives à la transformation s'accompagnent
485     //obligatoirement de SHON existante avant travaux non nulle
486     if (( !preg_match("/[0|]{7}/", $su_trsf_shon) &&
487     !preg_match("/[0|]{7}/", $su_cstr_shon) &&
488     !preg_match("/[0|]{7}/", $su_avt_shon)) ||
489     (preg_match("/[0|]{7}/", $su_trsf_shon) &&
490     preg_match("/[0|]{7}/", $su_cstr_shon)&&
491     preg_match("/[0|]{7}/", $su_avt_shon))){
492    
493     $decision.= $su_avt_shon;
494     }
495     //Erreur
496     else {
497    
498 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";
499 nhaye 1821 }
500 vpihour 1809
501     $decision.= $g->shon("su_tot_shon");
502 nhaye 1821
503     // Un nombre de logements démolis strictement positif doit
504     // s'accompagner obligatoirement de SHON démolie.
505     if($row['dm_tot_log_nb'] > 0) {
506     if($row['su_demo_shon1'] <= 0) {
507 nhaye 1826
508     $erreur = _("Un nombre de logements demolis strictement positif doit s'accompagner obligatoirement de SHON demolie pour le dossier no")." ".$row['dossier']."\n";
509 nhaye 1821 }
510     }
511    
512     // Un nombre de logements créés strictement positif doit
513     // s'accompagner obligatoirement de SHON créée ou de SHON
514     // issue de la transformation ayant pour destination l'habitation.
515     if($row['co_tot_log_nb'] > 0 AND ($row['su_cstr_shon1'] <= 0 OR $row['su_trsf_shon1'] <=0)) {
516 nhaye 1826
517     $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";
518 nhaye 1821 }
519    
520     // La SHON créée ou issue de la transformation
521     // suffixée par 9 (intérêt collectif ou service public) doit
522     // obligatoirement s'accompagner de la décomposition
523     // en sous modalité renseignée par la variable cpublic et réciproquement.
524    
525     // Test si une valeur est true
526     $cpublic = FALSE;
527     if (isset($row['co_sp_transport']) && $row['co_sp_transport'] == 't') {
528     $cpublic = TRUE;
529     }
530     if (isset($row['co_sp_enseign']) && $row['co_sp_enseign'] == 't') {
531     $cpublic = TRUE;
532     }
533     if (isset($row['co_sp_sante']) && $row['co_sp_sante'] == 't') {
534     $cpublic = TRUE;
535     }
536     if (isset($row['co_sp_act_soc']) && $row['co_sp_act_soc'] == 't') {
537     $cpublic = TRUE;
538     }
539     if (isset($row['co_sp_ouvr_spe']) && $row['co_sp_ouvr_spe'] == 't') {
540     $cpublic = TRUE;
541     }
542     if (isset($row['co_sp_culture']) && $row['co_sp_culture'] == 't') {
543     $cpublic = TRUE;
544     }
545    
546     if($cpublic !== TRUE AND ($row['su_cstr_shon9'] > 0 OR $row['su_trsf_shon9'] > 0)) {
547 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";
548 nhaye 1821 }
549    
550     // La destination principale du logement mise à résidence
551     // principale ou résidence secondaire doit obligatoirement
552     // s'accompagner d'un mode d'utilisation à occupation personnelle
553     if($row['co_uti_princ'] == 't' OR $row['co_uti_secon'] == 't') {
554     if($row['co_uti_pers'] != 't') {
555 nhaye 1826
556 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";
557 nhaye 1821 }
558     }
559    
560 nhaye 1863 $decision.= $g->destination($row['mouvement_sitadel']);
561 nhaye 1821
562     // Le nombre total de logements créés (variable nbtotlog)
563     // doit être égal à la somme des nombres de logements créés
564     // ventilés par type de financement
565     if($row['co_tot_log_nb'] != ($row['co_fin_lls_nb'] + $row['co_fin_aa_nb'] +
566     $row['co_fin_ptz_nb'] + $row['co_fin_autr_nb'])) {
567    
568 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";
569 nhaye 1821 }
570    
571 vpihour 1809 $decision.= $g->repartitionFinan();
572 nhaye 1821
573     // Le nombre total de logements créés (variable nbtotlog)
574     // doit être égal à la totalisation de la répartition des
575     // logements par nombre de pièces
576     if($row['co_tot_log_nb'] != ($row['co_log_1p_nb'] + $row['co_log_2p_nb'] +
577     $row['co_log_3p_nb'] + $row['co_log_4p_nb'] + $row['co_log_5p_nb'] +
578     $row['co_log_6p_nb'])) {
579    
580 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";
581 nhaye 1821 }
582    
583 nhaye 1863 $decision.= $g->repartitionNbPiece($row['mouvement_sitadel']);
584 vpihour 1809 }
585 nhaye 1785 $decision.="\n";
586 fraynaud 187 }
587    
588     // modificatif
589     $modificatif='';
590 nhaye 1797 if($row['mouvement_sitadel'] == 'MODIFICATIF'
591 fraynaud 190 and $row['date_depot'] >= $datedebut
592 nhaye 1785 and $row['date_depot'] <= $datefin) {
593 fraynaud 193 $modificatif.=$g->entete("MODIFICATIF",$departement,$commune,$pf_departement);
594 fraynaud 187 if(isset($row['date_decision']) or $row['date_decision']==""){
595     // avis_sitadel et avis_sitadel_motif
596 vpihour 510 if($row['avis_decision']!=''){
597 nhaye 1863
598     $modificatif.= $g->decision_groupe1();
599 fraynaud 178 }
600 fraynaud 187 // si la decision est favorable, envoi des informations statistiques
601 nhaye 1863 if($row["sitadel"] == 2 or $row["sitadel"] == 4
602     or $row["sitadel"] == 5){
603     // si accordé : ajout du 2nd groupe d'informations
604     $modificatif .= $g->adresse_terrain(); // adresse du terrain
605     $modificatif .= $g->parcelle(); // 3 premières parcelles
606     $modificatif .= $g->modificatif_terrain(); // Informations complémentaires
607 fraynaud 187
608 nhaye 1863 $modificatif.= $g->shon("su_avt_shon");
609     $modificatif.= $g->shon("su_demo_shon");
610     $modificatif.= $g->shon("su_chge_shon");
611     $modificatif.= $g->shon("su_trsf_shon");
612     $modificatif.= $g->shon("su_cstr_shon");
613    
614     $modificatif.= "vm|vm|vm|vm|vm|vm|vm|vm|vm|";
615    
616 nhaye 1797 $modificatif.= $g->descriptif($row['mouvement_sitadel']);
617 nhaye 1863 $modificatif.= $g->repartitionFinan();
618     $modificatif.= $g->repartitionNbPiece($row['mouvement_sitadel']);
619 fraynaud 187 $modificatif.="\n";
620     }
621     }
622     }
623 nhaye 1866
624     // Mouvement suppression
625     $suppression = '';
626     if($row['mouvement_sitadel'] != 'SUPPRESSION') {
627     $suppression .= $g->entete("SUPPRESSION",$departement,$commune,$pf_departement);
628     $suppression .= "\n";
629     }
630 fraynaud 178
631 nhaye 1831 // Règles sur le mouvement suivi
632 fraynaud 200 // suivi DOC
633 nhaye 1831 $chantier="";
634     if($row['date_chantier'] >= $datedebut and $row['date_chantier']<=$datefin){
635    
636     // Une ouverture de chantier ne peut concerner qu'un permis autorisé
637     if($row['typeavis_da'] != 'F') {
638     $erreur = _("Une ouverture de chantier ne peut concerner qu'un permis autorise : dossier no")." ".$row['dossier']."\n";
639     }
640     // La date d'ouverture de chantier doit être supérieur à la date d'autorisation
641     if($row['doc_date'] > $row['date_decision_da']) {
642     $erreur = _("La date d'ouverture de chantier doit être superieur a la date d'autorisation : dossier no")." ".$row['dossier']."\n";
643     }
644    
645     $chantier.=$g->entete("SUIVI",$departement,$commune,$pf_departement);
646     $chantier.=$g->chantier();
647     $chantier.="\n";
648 fraynaud 190 }
649 nhaye 1831 // suivi DAACT
650     $achevement="";
651 fraynaud 190 if($row['date_achevement'] >= $datedebut and $row['date_achevement']<=$datefin){
652 nhaye 1831
653     // Un achèvement de chantier ne peut concerner qu'un permis autorisé
654     if($row['typeavis_da'] != 'F') {
655     $erreur = _("Un achevement de chantier ne peut concerner qu'un permis autorise : dossier no")." ".$row['dossier']."\n";
656     }
657 nhaye 1834 if( $row['date_chantier_da'] == "" ) {
658     $erreur = _("Un achevement de chantier ne peut concerner qu'un permis sur lequel un chantier a ete ouvert : dossier no")." ".$row['dossier']."\n";
659     }
660 nhaye 1831 // La date d'achevement de travaux doit être supérieur à la date d'ouverture des travaux
661     if($row['daact_date'] > $row['date_chantier_da']) {
662     $erreur = _("La date d'achevement de travaux doit etre superieur a la date d'ouverture des travaux : dossier no")." ".$row['dossier']."\n";
663     }
664     $achevement.=$g->entete("SUIVI",$departement,$commune,$pf_departement);
665     $achevement.=$g->achevement();
666     $achevement.="\n";
667 fraynaud 178 }
668 fraynaud 190 // export
669 nhaye 1831 $export.=$depot.$decision.$transfert.$modificatif.$chantier.$achevement;
670 fraynaud 187 } // fin while
671 fraynaud 190 // ***************************************
672     // entete de l enregistrement page 8 et 9
673     // ***************************************
674     // numero
675 nhaye 1197 // $numero= $db -> nextId('sitadel');
676 nhaye 1826
677     // Gestion des erreurs : on les liste dans un fichier
678     if($erreur != "") {
679 nhaye 1828 $f->displayMessage("error", _("Une ou plusieurs erreurs sont survenues pendant l'export, celles-ci sont listees dans le fichiers ci-dessous"));
680 nhaye 1826 $fichier = "../tmp/erreur_SITADEL".substr($_POST["datedebut"],3,2).
681     "".substr($_POST["datedebut"],8,4)."";
682     $inf = fopen($fichier,"w");
683     fwrite($inf,$erreur);
684     fclose($inf);
685     echo "<br>"._("Fichier d'erreur")." ".$fichier." "._("sauvegarde")."<br /><br /><br />";
686     // affichage
687     echo "<br /><br />"._("Pour telecharger le fichier d'erreur, cliquer ici :")." <a href=\"".$fichier."\" target=\"_blank\">";
688     echo "<img src=\"../app/img/ico_trace.png\" alt=\""._("Telecharger le fichier d'erreur")."\" title=\""._("Telecharger le fichier d'erreur")."\" />";
689     echo "</a>"._("avec le bouton droit et enregistrer la cible du lien sous.")."<br /><br />";
690     } else {
691     $departement =$f->collectivite["departement"];
692     $commune =$f->collectivite["commune"];
693     $region =$f->collectivite["region"];
694     $numero=$_POST["numero"];
695     $fichiertransmis = date('ymj').$pf_departement.$departement.$commune;
696     $longueurenregistrement= 0 ; // a calculer *** enregistrement le plus long
697     $entete = "SITADEL|".$pf_departement.$departement."|".$commune."|".$region."|".$fichiertransmis."|".$numero."|";
698     // calcul enregistrement le plus long
699     if(DBCHARSET=='UTF8'){
700     $export=utf8_decode($export);
701     }
702     // nombreenrgistremment et longueurenregistrement
703     $nbenr = explode("\n",$export);
704     $tmp=array();
705     $cpt=0;
706     for($i=0;$i<sizeof($nbenr);$i++){
707     // mb_strlen( variable,encoding) PHP 4 >= 4.0.6, PHP 5
708     // Le param�tre encoding est l'encodage des caract�res.
709     // S'il est omis, l'encodage de caracteres interne sera utilis�.
710     $tmp[$i] = strlen($nbenr[$i]);
711     //echo strlen($nbenr[$i])." ".$nbenr[$i]."<br>";
712     $cpt++;
713     }
714     $longueurenregistrement=max($tmp);
715     $nombreenregistrement=$cpt; // + entete
716     // Date de modification
717     $datemodification = date('y').str_pad (DATE('m'), 2, "0", STR_PAD_LEFT).str_pad (DATE('j'), 2, "0", STR_PAD_LEFT);
718     // export
719     $version = substr($f->version,0,8);
720     $entete.= $longueurenregistrement."|".$datemodification."|".
721     $nombreenregistrement."|openFoncier|".$version."\n";
722     $export=$entete.$export;
723     // $str = htmlentities($str, ENT_QUOTES);
724     // ecriture des fichiers en tmp
725     $fichier = "../tmp/SITADEL".substr($_POST["datedebut"],3,2).
726     "".substr($_POST["datedebut"],8,4)."";
727     $inf = fopen($fichier,"w");
728     fwrite($inf,$export);
729     fclose($inf);
730     echo "<br>"._("Fichier")." ".$fichier." "._("sauvegarde")."<br /><br /><br />";
731     // affichage
732     echo "<br /><br />Pour telecharger le fichier, cliquer ici : <a href=\"".$fichier."\" target=\"_blank\">";
733     echo "<img src=\"../app/img/ico_trace.png\" alt=\"Telecharger le fichier CNEN\" title=\"Telecharger le fichier Sitadel\" />";
734     echo "</a>"._("avec le bouton droit et enregistrer la cible du lien sous.")."<br /><br />";
735     if(DEBUG != "PRODUCTION_MODE"){
736     $affiche="";
737     $affiche= str_replace("\n","<br>",$export);
738     echo $affiche;
739     }
740 fraynaud 190 }
741 nhaye 1826
742     // Affichage du bouton retour
743     // Composition du tableau de paramètres
744     $params = array(
745     "href" => "../app/sitadel.php?datedebut=".$datedebut."&amp;datefin=".$datefin."&amp;numero=".$numero,
746     );
747     // Appel de la méthode d'affichage du lien retour par le layout
748     $f->layout->display_form_retour($params);
749    
750 nhaye 1871 } else {// correct = false
751 nhaye 1869 $f->displayMessage("error", _("Les champs dates sont obligatoires"));
752     affichageFormulaire($_POST["datedebut"], $_POST["datefin"], $numero);
753 nhaye 1871 }
754 fraynaud 178 }//validation
755 vpihour 1809
756     /**
757     * Affichage du formulaire
758     *
759     * */
760     function affichageFormulaire($datedebut="", $datefin="", $numero=""){
761    
762     echo "<form method=\"POST\" action=\"sitadel.php\" name=f1>";
763     // champ date debut
764     echo " "._("debut")." ";
765     echo "<input type='text' name='datedebut' id=\"datedebut\" value=\"";
766     echo $datedebut;
767     echo "\" size=\"15\" class=\"champFormulaire datepicker\" onchange='fdate(this)' onkeyup=\"\" onclick=\"\" />";
768     // champ date fin
769     echo " "._("fin")." ";
770     echo "<input type='text' name='datefin' id=\"datefin\" value=\"";
771     echo $datefin;
772     echo "\" size=\"15\" class=\"champFormulaire datepicker\" onchange='fdate(this)' onkeyup=\"\" onclick=\"\" />";
773     // numero d'ordre d'envoi
774     echo " "._("Numero d'ordre d'envoi")." : "."<select name='numero'>";
775     for ($i = 1; $i < 11; $i++) {
776     echo "<option value ='".$i."' ";
777     echo ($numero == $i )? "selected='selected'":"";
778     echo">".$i."</option>";
779     }
780     echo "</select>";
781     echo "<br><br><input type='submit' value='export SITADEL'>";
782     echo "</form>";
783     }
784 fraynaud 200 ?>

Properties

Name Value
svn:keywords Id

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26