Your IP : 216.73.216.65
<?php
use setasign\Fpdi\Fpdi;
require_once('../../Outils/fpdf/fpdf.php');
require_once('../../Outils/FPDI-2.3.7/src/autoload.php');
//require('required/modelepdf/grid.php');
//RECUPERATION DES DONNEES
//connexion a la base de donnée
require_once '../../Outils/co.php';
if(!empty($_GET['ID'])){
$ID=$_GET['ID'];
//Recup des infos dossier
$sth = $dbco->prepare("SELECT typeprojet FROM dossier WHERE ID = '".$ID."'");
$sth->execute();
$I = $sth->fetch(PDO::FETCH_OBJ);
//Recup des tables par le routeur
$sth = $dbco->prepare("SELECT * FROM gest_routeur WHERE routeur_Famille = '".$I->typeprojet."'");
$sth->execute();
$I = $sth->fetch(PDO::FETCH_OBJ);
$table_gamme = $I->table_gamme;
$table_jointure = $I->table_jointure;
$table_jointure_access = $I->table_jointure_access;
$table_ensemble = $I->table_ensemble;
$table_produits = $I->table_produits;
$table_projet = $I->table_projet;
}
//recuperation les informations selon ID en get (page?ID=)
$ID = $_GET['ID'];
$sth = $dbco->prepare("SELECT * FROM dossier D JOIN $table_projet P ON D.IDprojet = P.IDp JOIN client C ON D.IDclient = C.IDc JOIN simulationprime S ON S.IDps = D.IDprime WHERE ID = $ID");
$sth->execute();
$R = $sth->fetch(PDO::FETCH_OBJ);
//recuperation des informations selon IDm
$sth2 = $dbco->prepare("SELECT * FROM $table_ensemble E
JOIN $table_jointure J ON E.ID_ens=J.ID_ens
JOIN $table_produits P ON J.ID_produit=P.ID_Produit
WHERE E.ID_Ens = '$R->IDm' AND P.Emp='UE'");
$sth2->execute();
$R2 = $sth2->fetch(PDO::FETCH_OBJ);
$projet ="../../../FICHIERS/$ID";
$chemin ="../../../FICHIERS/$ID/Sonergia";
// Vérifie si le répertoire existe :
if (!is_dir($projet)) {
mkdir($projet, 0777,true);
}
// Création du nouveau répertoire
if(!is_dir($chemin)) {
mkdir($chemin, 0777,true);
}
// initiate FPDI
$pdf= new FPDI();
$pdf->SetAutoPagebreak(False);
//PAGE 1 ENTETE DU DOSSIER
$pdf->AddPage();
$pdf->setSourceFile('Required/SONERGIAPP.pdf'); //FAIRE ENTETE DU DOSSIER
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
//Noter Reference ATA
//Noter informations du client
//Noter Date d'envoie du dossier
//Noter Ajout Fichier 1er Visite
//Noter Ajout Fichier Devis initial
//Noter Ajout Fichier Note dimensionnement
//Noter Ajout Fichier Annexe Note dimensionnement
//Noter Ajout Fichier Cadre de contribution indirect
//Noter Ajout Avis imposition Client
//Noter Ajout Avis imposition Locataire si existe
//Noter Ajout Justificatif Domicile si Adresse differente
//ID ATA
$pdf->SetFont('Helvetica','','20');
$pdf->SetXY(116, 48.8);
$pdf->Cell(20,14,''.$ID.'',0,1,'L',false);
//ID SONERGIA
//$pdf->SetFont('Helvetica','','20');
//$pdf->SetXY(133, 58.2);
//$pdf->Cell(20,14,''.$ID.'',0,1,'L',false);
//Nature des travaux
$pdf->SetFont('Helvetica','','14');
$pdf->SetXY(72, 77);
if($R->typeprojet=="PAC_AE_S"||$R->typeprojet=="PAC_AE_M"||$R->typeprojet=="PAC_AE_H"){
$naturetravaux = "Installation Pompe a Chaleur Air/Eau";
}elseif($R->typeprojet=="PAC_AA_S"||$R->typeprojet=="PAC_AA_MS"||$R->typeprojet=="PAC_AA_G"){
$naturetravaux = "Installation Pompe a Chaleur Air/Air";
}elseif($R->typeprojet=="SOL CESI"){
$naturetravaux = "Installation d un ballon ECS Solaire";
}elseif($R->typeprojet=="SOL SSC"){
$naturetravaux = "Installation d un Systeme Solaire Combine";
}elseif($R->typeprojet=="BOIS P"){
$naturetravaux = "Installation d un Poel a Granules";
}elseif($R->typeprojet=="BOIS C"){
$naturetravaux = "Installation d une chaudiere Biomasse";
}elseif($R->typeprojet=="SOL PACTH"){
$naturetravaux = "Installation d un systeme Hybride PAC et solaire";
}
$pdf->Cell(120,14,''.$naturetravaux.'',0,1,'L',false);
$pdf->SetFont('Helvetica','','12');
//DATE VISITE TECHNIQUE
$dateVT = $R->DateCreation; $dateVT1 = new DateTime($dateVT);
$pdf->SetXY(75, 92);
$pdf->Cell(20,14,''.$dateVT1->format('d-m-Y').'',0,1,'L',false);
//DATE DOssier Sonergia
$dateSE = date('d-m-Y');
$pdf->SetXY(86, 106.5);
$pdf->Cell(20,14,''.$dateSE.'',0,1,'L',false);
//DATE travaux plani
$pdf->SetXY(70, 145);
$pdf->Cell(20,14,''.$R->DatePlanification.'',0,1,'L',false);
//Coordonnees clients
$pdf->SetFont('Helvetica','','12');
$pdf->SetXY(55, 169);
$pdf->Cell(20,14,''.$R->nom.'',0,1,'L',false);
$pdf->SetXY(55, 175.5);
$pdf->Cell(20,14,''.$R->prenom.'',0,1,'L',false);
$pdf->SetXY(135, 169);
$pdf->Cell(20,14,''.$R->NumP.'',0,1,'L',false);
$pdf->SetXY(128, 175.5);
$pdf->Cell(20,14,''.$R->email.'',0,1,'L',false);
//Adresse facturation
$pdf->SetXY(55, 181.5);
$pdf->Cell(50,14,''.$R->rue.'',0,1,'L',false);
$pdf->SetXY(140, 181.5);
$pdf->Cell(20,14,''.$R->CodeP.'',0,1,'L',false);
$pdf->SetXY(128, 188);
$pdf->Cell(20,14,''.$R->Ville.'',0,1,'L',false);
//Adresse chantier
$pdf->SetXY(55, 206.2);
$pdf->Cell(20,14,''.$R->rueC.'',0,1,'L',false);
$pdf->SetXY(140, 206.2);
$pdf->Cell(20,14,''.$R->CodePC.'',0,1,'L',false);
$pdf->SetXY(128, 212.2);
$pdf->Cell(20,14,''.$R->VilleC.'',0,1,'L',false);
//Pointage des fichiers joints
$pdf->SetFont('Helvetica','b','16');
//Ficher 1er Visite
$pdf->SetXY(30.2, 234.5);
$pdf->Cell(20,14,'X',0,1,'L',false);
//Devis initial
$files = '../../../FICHIERS/'.$ID.'/Devis/DevisSonergia.'.$ID.'.pdf';
$check = @fopen($files, 'r');
if($check){
$pdf->SetXY(30.2, 241.5);
$pdf->Cell(20,14,'X',0,1,'L',false);
}
//Note Dimensionnement
$pdf->SetXY(30.2, 248.5);
$pdf->Cell(20,14,'X',0,1,'L',false);
//Cadre contribution
$files = '../../../FICHIERS/'.$ID.'/Aides/ContributionIndirect'.$ID.'.pdf';
$check = @fopen($files, 'r');
if($check){
$pdf->SetXY(30.2, 255.5);
$pdf->Cell(20,14,'X',0,1,'L',false);
}
//Avis Imposition
$files = '../../../FICHIERS/'.$ID.'/Aides/AvisImposition.'.$ID.'.jpg';
$check = @fopen($files, 'r');
if($check){
$pdf->SetXY(30.2, 262.5);
$pdf->Cell(20,14,'X',0,1,'L',false);
}
//Justificatif Domicile
$files = '../../../FICHIERS/'.$ID.'/Aides/JustifDomicile'.$ID.'.jpg';
$check = @fopen($files, 'r');
if($check){
$pdf->SetXY(30.2, 269.5);
$pdf->Cell(20,14,'X',0,1,'L',false);
}
//PAGE 2 FICHER 1ER VISITE
$pdf->AddPage();
$pdf->setSourceFile('Required/SONERGIAFP.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
//Données de la partie 1
$pdf->SetFont('Helvetica','B','12');
if(($R->Prop == "Proprietaire residence principale")||($R->Prop == "Proprietaire residence secondaire")){
//Prop Occupant
$pdf->SetXY(13, 25);
$pdf->Cell(2,2,'X',0,1,'L',false);}
//Bailleur
if($R->Prop == "Proprietaire bailleur"){
$pdf->SetXY(75, 25);
$pdf->Cell(2,2,'X',0,1,'L',false);
$pdf->SetXY(75, 25);
$pdf->Cell(2,2,'X adresse2',0,1,'L',false);
}
//Location
if($R->Prop == "Locataire avec bail"){
$pdf->SetXY(127, 25);
$pdf->Cell(2,2,'X',0,1,'L',false);}
$pdf->SetFont('Helvetica','B','8');
$pdf->SetXY(20, 28.5);
$pdf->Cell(90,6,': '.$R->nom.'',0,0,'L',false);
$pdf->Cell(95,6,': '.$R->prenom.'',0,1,'L',false);
$pdf->SetXY(36, 32.5);
$pdf->Cell(95,6,': '.$R->rue.'',0,1,'L',false);
$pdf->SetXY(19, 37);
$pdf->Cell(95,6,': '.$R->CodeP.' / '.$R->Ville.'',0,1,'L',false);
//Données de la partie 2
$pdf->SetFont('Helvetica','B','10');
$pdf->SetXY(126.6, 80.4);
if($R->hab != "Moins de 2 ans"){$pdf->Cell(2,2,'X',0,1,'L',false);}
//Si maison
$pdf->SetXY(35.6, 87);
if($R->Proptype == "Une maison"){$pdf->Cell(2,2,'X',0,1,'L',false);}
//Si appartement
$pdf->SetXY(74.5, 87);
if($R->Proptype == "Un appartement"){$pdf->Cell(2,2,'X',0,1,'L',false);}
//Si appartement
$pdf->SetFont('Helvetica','','8');
$pdf->SetXY(86, 91.3);
if($R->adressechantier != "facturation"){$pdf->Cell(2,2,' : '.$R->rueC. ' '.$R->CodePC.' '.$R->VilleC.'',0,1,'L',false);}
//Données de la partie 3
//Si PAC Hybride
$pdf->SetFont('Helvetica','B','10');
if($R->typeprojet == "PAC_AE_H"){
$pdf->SetXY(39.2, 113.5);
$pdf->Cell(2,2,'X',0,1,'L',false);
}else{ //Sinon PAC AE
$pdf->SetXY(13.2, 113.5);
$pdf->Cell(2,2,'X',0,1,'L',false);
}
$pdf->SetFont('Helvetica','B','10');
$pdf->SetXY(102, 118.2);
$pdf->Cell(2,2,': '.$R->SurfChauf.'',0,1,'L',false);
//Données de la partie 4
if(($R->MPR != "0")||($R->MCEE != "0")){
$pdf->SetFont('Helvetica','B','8');
$pdf->SetXY(126.6, 131);
$pdf->Cell(2,2,'X',0,1,'L',false);
}
//VARIABLE REVENUP OU REVENUL
if($R->Prop == "Proprietaire residence principale"){
$pdf->SetFont('Helvetica','B','8');
$pdf->SetXY(73.5, 148);
$pdf->Cell(2,2,'X',0,1,'L',false);
}else{
$pdf->SetFont('Helvetica','B','8');
$pdf->SetXY(95, 148);
$pdf->Cell(2,2,'X',0,1,'L',false);
}
//NUMERO FISCAL
$pdf->SetFont('Helvetica','','8');
$pdf->SetXY(35, 157.5);
$pdf->Cell(2,2,': '.$R->numfiscal1.'',0,1,'L',false);
//NUMERO AVIS
$pdf->SetXY(13.5, 162);
$pdf->Cell(2,2,'Numero Avis : '.$R->numavis1.'',0,1,'L',false);
//COUP DE POUCE CHAUFFAGE
$pdf->SetFont('Helvetica','B','14');
if($R->ProdChaufE == "CF"){
$pdf->SetXY(40, 192.5);
$pdf->Cell(2,2,' X',0,1,'L',false);}
if($R->ProdChaufE == "CG"){
$pdf->SetXY(56, 192.5);
$pdf->Cell(2,2,' X',0,1,'L',false);}
if($R->ProdChaufE == "CC"){
$pdf->SetXY(74.8, 192.5);
$pdf->Cell(2,2,' X',0,1,'L',false);}
//SI NON CONDENSATION
if(($R->ProdChaufE == "CF")||($R->ProdChaufE == "CG")||($R->ProdChaufE == "CC")){
$pdf->SetFont('Helvetica','B','10');
$pdf->SetXY(15.5, 202.5);
$pdf->Cell(2,2,'X',0,1,'L',false);
//DEPOSE PRO
$pdf->SetFont('Helvetica','B','10');
$pdf->SetXY(15.5, 207.8);
$pdf->Cell(2,2,'X',0,1,'L',false);
}
//MA PRIME RENOV AVEC SONERGIA
if(($R->MPR != "0")||($R->MCEE != "0")){
$pdf->SetFont('Helvetica','B','12');
$pdf->SetXY(108.2, 185);
$pdf->Cell(2,2,'X',0,1,'L',false);}
if(($R->ancienprime == "Non")||($R->ancienprime == "Plus de 5 ans")){
$pdf->SetXY(108.2, 189.4);
$pdf->Cell(2,2,'X',0,1,'L',false);}
//PAGE 3 DEVIS pages 1 a X
$pageCount = $pdf->setSourceFile('../../../FICHIERS/'.$ID.'/Devis/DevisSonergia'.$ID.'.pdf');
for ($pageNo = 1; $pageNo <= $pageCount; $pageNo++) {
$tplIdx3 = $pdf->importPage($pageNo);
// add a page
$pdf->AddPage();
$pdf->useTemplate($tplIdx3, 0, 0, 210);
// font and color selection
$pdf->SetFont('Helvetica');
$pdf->SetXY(40, 83);
}
//PAGE 7 DIMENSIONNEMENT 1/3
$pdf->AddPage();
$pdf->setSourceFile('Required/Notedimensionnement.pdf');
$tplIdx2 = $pdf->importPage(1);
$pdf->useTemplate($tplIdx2, 0, 0, 210);
//Données de la partie 1
$pdf->SetFont('Helvetica','B','12');
//Type Chaudiere Bois
if($R->typeprojet == "Chaudiere Bois"){
$pdf->SetXY(16, 57);
$pdf->Cell(2,2,'X',0,1,'L',false);}
//Type Hybride
if($R->typeprojet == "PAC_AE_H"){
$pdf->SetXY(16, 67);
$pdf->Cell(2,2,'X',0,1,'L',false);
}else{ //OU PAC AE
$pdf->SetXY(16, 62);
$pdf->Cell(2,2,'X',0,1,'L',false);
}
$pdf->SetXY(102, 121.5);
$pdf->Cell(95,6,': '.$R->nom.'',0,1,'L',false);
$pdf->SetXY(32, 127.2);
$pdf->Cell(95,6,': '.$R->prenom.'',0,1,'L',false);
$pdf->SetXY(53, 133);
$pdf->Cell(95,6,': '.$R->rueC.'',0,1,'L',false);
$pdf->SetXY(52, 138.6);
$pdf->Cell(95,6,': '.$R->CodePC.' / '.$R->VilleC.'',0,1,'L',false);
//DEPERDITIONS DE L'HABITATION
$pdf->SetXY(24, 189);
$pdf->Cell(30,5,''.$R->Lambda.'',0,1,'L',false);
$pdf->SetXY(24, 194.5);
$pdf->Cell(30,5,''.$R->Volume.'',0,1,'L',false);
$pdf->SetXY(33, 200);
$pdf->Cell(30,5,''.$R->DeltaT.'',0,1,'L',false);
$pdf->SetXY(97, 211);
$pdf->Cell(30,5,''.$R->Deperditions.'',0,1,'L',false);
//PAGE 8 DIMENSIONNEMENT 2/3
$pdf->AddPage();
$pdf->setSourceFile('Required/Notedimensionnement.pdf');
$tplIdx2 = $pdf->importPage(2);
$pdf->useTemplate($tplIdx2, 0, 0, 210);
// CONDITIONS POUR REMPLISSAGE
if($R->Emetteurs =="RF"){$Em = "Radiateurs en fonte";}
if($R->Emetteurs =="RAA"){$Em = "Radiateurs acier anciens";}
if($R->Emetteurs =="RAR"){$Em = "Radiateurs acier recents";}
if($R->Emetteurs =="RBT"){$Em = "Radiateurs basse temperature";}
if($R->Emetteurs =="PC"){$Em = "Plancher chauffant";}
if($R->Emetteurs =="PCR"){$Em = "Plancher chauffant et radiateurs";}
$pdf->SetFont('Helvetica','B','6');
$pdf->SetXY(16, 55);
$pdf->Cell(30,5,'Temperature de base :-'.$R->TempExtRef.'.C, Temperature arret de la pac : -25.C . Deperditions de l habitation :'
.$R->Deperditions.' Watts. Emetteurs en place : '.$Em.'',0,1,'L',false);
if($R->typeprojet != "PAC_AE_H"){
if($R->Regimeau == "BT35"){
$pdf->SetXY(16, 61);
$pdf->Cell(30,5,'Les emetteurs en place permettent l utilisation d un regime d eau tres faible. L eau chaude sanitaire sera produite par un ballon annexe afin de conserver un SCOP eleve.',0,1,'L',false);
}
if($R->Regimeau == "MT55"){
$pdf->SetXY(16, 61);
$pdf->Cell(30,5,'Les emetteurs en place sont aptes a couvrir les deperditions de l habitation malgre la reduction du regime d eau.',0,1,'L',false);
}
if($R->Regimeau == "HT70"){
$pdf->SetXY(16, 61);
$pdf->Cell(30,5,'Les emetteurs en place necessite de conserver un regime d eau eleve superieur a 65.C',0,1,'L',false);
}
if($R->Regimeau == "BT35"){
$pdf->SetXY(16, 67);
$pdf->Cell(30,5,'La pompe a chaleur hors appoint est dimmensionnee entre 80 et 100% des deperditions, les emetteurs permettant un regime d eau tres faible, un SCOP eleve sera recherche.',0,1,'L',false);
}
if($R->Regimeau == "BT55"){
$pdf->SetXY(16, 67);
$pdf->Cell(30,5,'La pompe a chaleur hors appoint est dimmensionnee entre 80 et 100% des deperditions avec un parametrage de la loi d eau pour atteindre le meilleur SCOP possible.',0,1,'L',false);
}
if($R->Regimeau == "HT"){
$pdf->SetXY(16, 67);
$pdf->Cell(30,5,'La pompe a chaleur hors appoint est dimmensionnee entre 80 et 100% des deperditions avec un parametrage de la loi d eau pour atteindre le regime de temperature max a la temperature de base.',0,1,'L',false);
}
if($R->Regimeau == "BT35"){$Puissance="P7m35"; $loieau = "35 @ -10Cext / 25 @ 20Cext";}
elseif ($R->Regimeau == "MT55"){$Puissance="P7m55"; $loieau = "55 @ -10Cext / 30 @ 20Cext";}
elseif ($R->Regimeau == "HT"){$Puissance="P7m70"; $loieau = "70 @ -10Cext / 35 @ 20Cext";}
$tc = round ($R2->$Puissance/$R->Deperditions*100);
$pdf->SetXY(16, 72.5);
$pdf->Cell(30,5,'La pompe a chaleur avec appoint est dimmensionnee a plus de 120% des deperditions. Taux de couverture Hors appoint : '.$tc.'%. Taux de couverture avec appoint : '.$R->PTauxcouv. '%.' ,0,1,'L',false);
$pdf->SetXY(16, 78.5);
$pdf->Cell(30,5,'En annexe le graphique (Puissance de la PAC selectionnee / Deperditions de l habitation).',0,1,'L',false);
//CADRE PUISSANCE PRECO
$pdf->SetFont('Helvetica','','8');
$pdf->SetXY(100, 83.5);
$pdf->Cell(30,5,'A temperature de ref = '.$R->Deperditions.' Watts. Modele '.$R2->appel.'',0,1,'L',false);
$pdf->SetXY(90, 90);
if(($R->PACECS == "EcsInt")||($R->PACECS == "RaccoB")){
$pdf->Cell(30,5,' Chauffage: '.$R2->Puissance.'',0,1,'L',false);
$pdf->SetXY(99, 96);
$pdf->Cell(30,5,''.$R2->Puissance.' pour '.$R->Volumeau.' L avec V3V + tampon de reserve',0,1,'L',false);
}else{
$pdf->SetXY(90, 90);
$pdf->Cell(30,5,' Chauffage seulement :'.$R2->Puissance.'',0,1,'L',false);
$pdf->SetXY(99, 96);
$pdf->Cell(30,5,'Hors pompe a chaleur',0,1,'L',false);
}
}
//CALCUL AVEC DJU
$conso = (24*$R2->$Puissance*2500*0.94)/(($R->TempExtRef+$R->TempIntConf)*1*0.9);
$consoF = round ($conso);
$consoFp = $conso*0.76;
$consoFpac = round ($consoFp);
$TC = (($consoFpac)/($consoF))*100;
$TCF = round ($TC);
//CADRE HYBRIDE
$pdf->SetFont('Helvetica','','10');
if($R->typeprojet == "PAC_AE_H"){
$pdf->SetXY(80, 123.3);
$pdf->Cell(30,5,'Regulation par sonde exterieure et Cout des energies.',0,1,'L',false);
$pdf->SetXY(106, 129);
$pdf->Cell(30,5,'Si Ppac < aux deperditions. PAC seule : '.$consoFpac.'',0,1,'L',false);
$pdf->SetXY(170, 135);
$pdf->Cell(30,5,''.$consoF.'',0,1,'L',false);
$pdf->SetXY(60, 146);
$pdf->Cell(30,5,''.$TCF.'',0,1,'L',false);
}
//PAGE 9 annexe dimensionnement 3/3
$pdf->AddPage();
$pdf->SetXY(20, 10);
$pdf->Cell(2,2,'Annexe 1',0,1,'L',false);
//Graphique deperditions
$projet ="../../../FICHIERS/$ID";
$chemin ="../../../FICHIERS/$ID/Qualitenr";
// Vérifie si le répertoire existe :
if (!is_dir($projet)) {
mkdir($projet, 0777,true);
}
// Création du nouveau répertoire
if(!is_dir($chemin)) {
mkdir($chemin, 0777,true);
}
//require '../9JPgraph/genjpgraphqualitenr.php';
//$pdf->Image('../../../FICHIERS/'.$ID.'/qualitenr/graph'.$ID.'.png',10,20,190);
$pdf->Output('F', '../../../FICHIERS/'.$ID.'/Sonergia/sonergia'.$ID.'.pdf');
//$pdf->Output('I', 'sonergia'.$ID.'.pdf');
//header("location:../../index.php/agp");
//MISE A JOUR DE LA BASE $Devis en Disponible
$Update = $dbco->prepare('UPDATE dossier SET EtatAides = :modif WHERE ID = :ID');
$Update->bindvalue(':modif','Dossier disponible');
$Update->bindvalue('ID', $ID);
$Update->execute();
header("location:../../../../index.php/agp");
?>