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

Annotation of /trunk/app/sitadel.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1831 - (hide annotations)
Fri May 3 17:00:01 2013 UTC (11 years, 9 months ago) by nhaye
File size: 43377 byte(s)
Finalisation des mouvements de suivi ainsi que des règles de gestion de la cohérence de ce mouvement

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

Properties

Name Value
svn:keywords Id

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26