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