Your IP : 216.73.216.65
<?php
use setasign\Fpdi\Fpdi;
//require_once('../fpdf/fpdf.php');
require_once('../Outils/fpdf/fpdf.php');
//require_once('../fpdi-2.3.7/src/autoload.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 './ATA/INTRANET/Outils/co.php';
//require_once '../Outils/co.php';
//recuperation les informations selon ID en get (page?ID=)
$ID=$_GET['ID'];
$T=$_GET['T'];
$Tp = $_GET['Tp'];
$Tm = $_GET['Tm'];
$sth = $dbco->prepare("SELECT * FROM dossier D JOIN client C ON D.IDclient=C.IDc JOIN ".$Tp." P ON D.IDprojet=P.IDp WHERE D.ID = $ID");
$sth->execute();
$R = $sth->fetch(PDO::FETCH_OBJ);
//recuperation des informations selon IDm
$sth2 = $dbco->prepare("SELECT * FROM ".$R->tablemateriel." WHERE IDm = '$Tm'");
$sth2->execute();
$R2 = $sth2->fetch(PDO::FETCH_OBJ);
$ent = $dbco->prepare("SELECT * FROM entreprise WHERE ID = '1'");
$ent->execute();
$ent1 = $ent->fetch(PDO::FETCH_OBJ);
$DF = $R->DateFinalisation;
$DF1 = new DateTime($DF);
$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);
}
// initiate FPDI
$pdf= new FPDI();
if(($R->typeprojet =='PAC_AE_M')||($R->typeprojet == 'PAC_AE_S')) {
if(($R->Emetteurs =="RF")||($R->Emetteurs=="RAA")||($R->Emetteurs =="RAR")||($R->Emetteurs =="RBT")){$Emetteurs = "Radiateurs";}
elseif($R->Emetteurs =="PC"){$Emetteurs ="Plancher Chauffant";}elseif($R->Emetteurs =="PCR"){$Emetteurs = "Plancher Chauffant + Rads";}
if($R->ProdEcsE=="1"){$ecstype ="Instantanee";}
elseif($R->ProdEcsE== "2"){$ecstype ="Ballon Accumulateur";}elseif($R->ProdEcsE=="3"){$ecstype = "Ballon Electrique";}
if($R->ProdChaufE=="CF"){$Ctype ="Chaudiere Fioul";}
elseif($R->ProdChaufE== "CFC"){$Ctype ="Chaudiere Condens Fioul";}
elseif($R->ProdChaufE=="CG"){$Ctype = "Chaudiere Gaz";}
elseif($R->ProdChaufE=="CGC"){$Ctype = "Chaudiere Condens Gaz";}
elseif($R->ProdChaufE=="CE"){$Ctype = "Chaudiere Electrique";}
elseif($R->ProdChaufE=="CC"){$Ctype = "Chaudiere Charbon";}
elseif($R->ProdChaufE=="CB"){$Ctype = "Chaudiere Bois";}
if($R->EcsNew=="Oui"){$EcsNew ="Integre"; $Ecs = 1;}
elseif($R->EcsNew=="Non"){$EcsNew ="Sans ECS"; $Ecs = 0;}
elseif($R->EcsNew=="RaccoB"){$EcsNew ="Ballon Accumulateur"; $Ecs = 0;}
elseif($R->EcsNew=="RaccoBN"){$EcsNew ="Ballon Accu neuf"; $Ecs = 0;}
elseif($R->EcsNew=="EcsInst"){$EcsNew ="Instantanee par PAC"; $Ecs = 0;}
elseif($R->EcsNew=="TH"){$EcsNew ="Ballon Thermodynamique"; $Ecs = 0;}
if($R->typeprojet=='PAC AA'){}
//Page de Présentation
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/tech1.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
//Numero Simulation
$pdf->SetFont('Helvetica','B','50');
$pdf->SetXY(75, 261.5);
$pdf->Cell(0,8,''.$R->ID.'',0,1,'L',false);
// Information client PAGE 2
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/tech2.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
// Coordonnées
$pdf->SetFont('Helvetica','','9');
$pdf->SetXY(40, 41.6);
$pdf->Cell(0,8,''.$R->nom.'',0,1,'L',false);
$pdf->SetXY(44, 49);
$pdf->Cell(0,8,''.$R->prenom.'',0,1,'L',false);
$pdf->SetXY(40.9, 56.4);
$pdf->Cell(0,8,''.$R->NumP.'',0,1,'L',false);
$pdf->SetXY(126.3, 41.6);
$pdf->Cell(0,8,''.$R->rue.'',0,1,'L',false);
$pdf->SetXY(121.5, 49);
$pdf->Cell(0,8,''.$R->Ville.'',0,1,'L',false);
$pdf->SetXY(132, 56.5);
$pdf->Cell(0,8,''.$R->CodeP.'',0,1,'L',false);
$pdf->SetXY(42, 63.6);
$pdf->Cell(0,8,''.$R->email.'',0,1,'L',false);
//Chantier
$pdf->SetXY(43.9, 89.7);
$pdf->Cell(0,8,''.$R->rueC.'',0,1,'L',false);
$pdf->SetXY( 39, 97.3);
$pdf->Cell(0,8,''.$R->VilleC.'',0,1,'L',false);
$pdf->SetXY(49, 104.8);
$pdf->Cell(0,8,''.$R->CodePC.'',0,1,'L',false);
//$pdf->Image('../FICHIERS/'.$ID.'/photos/photoext.'.$ID.'.jpg',10,170,130); Vrai lien
$pdf->Image('../../FICHIERS/'.$ID.'/photos/photoext.'.$ID.'.jpg',10,170,130);
// Information chantier PAGE3
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/tech3.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
// Donées de l'habitation
$pdf->SetFont('Helvetica','','9');
$pdf->SetXY(41, 41.6);
$pdf->Cell(0,8,''.$R->Proptype.'',0,1,'L',false);
// Surface
$pdf->SetXY(44.3 , 48.9);
$pdf->Cell(0,8,''.$R->SurfChauf.' m2',0,1,'L',false);
// Volume
$pdf->SetXY(44.4, 56.5);
$pdf->Cell(0,8,''.$R->Volume.' m3',0,1,'L',false);
//Coef Deperdition
$pdf->SetXY(133.8 , 41.6);
$pdf->Cell(0,8,''.$R->Lambda.' ',0,1,'L',false);
// Déperditions
$pdf->SetXY(126.9, 48.9);
$pdf->Cell(0,8,''.$R->Deperditions.' watts',0,1,'L',false);
//Production Chauffage
$pdf->SetXY(63.8, 63.8);
$pdf->Cell(0,8,''.$Ctype.' ',0,1,'L',false);
//Production Eau Chaude Sanitaire
$pdf->SetXY(78.5, 71.2);
$pdf->Cell(0,8,''.$ecstype.' ',0,1,'L',false);
//Emetteurs
$pdf->SetXY(48.2,78.5 );
$pdf->Cell(0,8,''.$Emetteurs.' ',0,1,'L',false);
//Temperature De Réference
$pdf->SetXY(51 ,96 );
$pdf->Cell(0,8,' -9 C ',0,1,'L',false);
//Temperature de Confort
$pdf->SetXY(143,91.9 );
$pdf->Cell(0,8,''.$R->TempIntConf. 'C',0,1,'L',false);
//informations electriques
$pdf->SetXY(65, 117.3);
$pdf->Cell(0,8,''.$R->AboElec.'',0,1,'L',false);
//distribution hydraulique
$pdf->SetXY(139, 117);
$pdf->Cell(0,8,''.$R->PlombG.'',0,1,'L',false);
//etat du tableau electrique
$pdf->SetXY(69, 124.6);
$pdf->Cell(0,8,''.$R->TabElec.'',0,1,'L',false);
//consommations estimees
$pdf->SetXY(47.3, 145.9);
$pdf->Cell(0,8,''.$R->ConsoTEx.' kwh',0,1,'L',false);
$pdf->SetXY(40.2, 153);
$pdf->Cell(0,8,''.$R->ConsoEcs.' kwh',0,1,'L',false);
//Graphique deperditions
//require 'genjpgraphqualitenr.php';
//require '../genpdf/9JPgraph/genjpgraphqualitenr.php';
$pdf->Image('../../FICHIERS/'.$ID.'/qualitenr/graph'.$ID.'.png',35,180,155);
// Information chantier PAGE4
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/tech4.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
//Image Pac
$pdf->Image('../Outils/produits/projetpacae/'.$R2->Marque.'/'.$R2->IMG.'.jpg',50,20,70);
$pdf->Image('../Outils/produits/projetpacae/specs/'.$R2->IDm.'.png',90,122,70);
$pdf->Image('../Outils/produits/projetpacae/'.$R2->Marque.'/logoblc.png',8,152,60);
$pdf->Image('../Outils/produits/projetpacae/appel/'.$R2->IDm.'.png',8,165,50);
$pdf->Image('../Outils/produits/projetpacae/'.$R2->Marque.'/texte.png',5,210,110);
// Information chantier PAGE5
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/tech5.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
if($R->Regimeau == "BT35"){$Puissance="Puissance9BT35";$temp="Basse Temp 35"; $loieau = "35 @ -10Cext / 25 @ 20Cext";}
elseif ($R->Regimeau == "BT55"){$Puissance="Puissance9BT55";$temp="Basse Temp 55"; $loieau = "55 @ -10Cext / 30 @ 20Cext";}
elseif ($R->Regimeau == "HT"){$Puissance="Puissance9HT";$temp="Haute Temp 70"; $loieau = "70 @ -10Cext / 35 @ 20Cext";}
// REGIME EAU ET TEMPERATURES
//depose chaudiere
$pdf->SetFont('Helvetica','','9');
$pdf->SetXY(142.5, 45.5);
$pdf->Cell(0,8,''.$Ctype.'',0,1,'L',false);
//emetteurs existants
$pdf->SetXY(145, 50.8);
$pdf->Cell(0,8,''.$Emetteurs.'',0,1,'L',false);
//Regimeau
$pdf->SetXY(152, 56.2);
$pdf->Cell(0,8,''.$temp.' C',0,1,'L',false);
//DEPERDITIONS ET PUISSANCE
//Déperditions
$pdf->SetXY(124.7,90.2);
$pdf->Cell(0,8,''.$R->Deperditions.' Watts ',0,1,'L',false);
//Cibles puissance fonction déperditions
$cible80 = $R->Deperditions*0.8;
$cible120 = $R->Deperditions*1.20;
$pdf->SetXY(142.5,95.3);
$pdf->Cell(0,8,''.$cible80.' < PAC < '.$R->Deperditions.' Watts',0,1,'L',false);
$pdf->SetXY(150.5,100.3);
$pdf->Cell(0,8,''.$cible120.' Watts Minimum',0,1,'L',false);
//Puissance a -10°C hors appoint
$pdf->SetXY(157, 80.5);
//$pdf->Cell(0,8,''.$R2->$Puissance.' Watts ',0,1,'L',false);
//Puissance a -10°C avec appoint
$pdf->SetXY(157, 86.3);
$pa=$R2->$Puissance+3000;
//$pdf->Cell(0,8,''.$pa.' Watts ',0,1,'L',false);
//Taux de couverture 80-100%
$tauxcouvpac = round ($R2->$Puissance/$R->Deperditions)*100;
$pdf->SetXY(126.5,139.3);
$pdf->Cell(0,8,''.$R2->$Puissance." Watts soit ".$tauxcouvpac.' % des deperditions.',0,1,'L',false);
//Taux de couverture >120%
$pdf->SetXY(127.9,149.7);
$pdf->Cell(0,8,''.$pa. ' Watts soit '.$R->PTauxcouv.' % des deperditions.',0,1,'L',false);
//REGULATION
//Loi eau
$pdf->SetXY(129,188.3);
$pdf->Cell(0,8,''.$loieau.'',0,1,'L',false);
//Appoint electrique
$pdf->SetXY(173,193.7);
$pdf->Cell(0,8,' -'.$R->TempExtRef.'C',0,1,'L',false);
//CONSOMMATIONS
$pdf->SetXY(153.9,233.3);
$pdf->Cell(0,8,''.$R->ConsoPac.' kwh',0,1,'L',false);
if($Ecs == 1){
$consopacecs = round ($R->ConsoEcs/$R2->ScopEcs);
$pdf->SetXY(144.6,238.2);
$pdf->Cell(0,8,''.$consopacecs.' kwh',0,1,'L',false);
}
// Information chantier PAGE6
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/Tech6.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
if((($R->Emetteurs =="RF")||($R->Emetteurs=="RAA")||($R->Emetteurs =="RAR")||($R->Emetteurs =="RBT")) && ($Ecs == 0)){
$pdf->Image('../genpdf/6qualitenr/required/hydraulique/Schema_hydraulique_RAD.jpg',5,180,170);
}
if((($R->Emetteurs =="RF")||($R->Emetteurs=="RAA")||($R->Emetteurs =="RAR")||($R->Emetteurs =="RBT")) && ($Ecs == 1)){
$pdf->Image('../genpdf/6qualitenr/required/hydraulique/Schema_hydraulique_RAD_ECS.jpg',5,180,170);
}
if($R->Emetteurs =="PC" && ($Ecs == 0)){
$pdf->Image('../genpdf/6qualitenr/required/hydraulique/Schema_hydraulique_PC.jpg',5,180,170);
}
if($R->Emetteurs =="PC" && ($Ecs == 1)){
$pdf->Image('../genpdf/6qualitenr/required/hydraulique/Schema_hydraulique_PC_ECS.jpg',5,180,170);
}
if($R->Emetteurs =="PCR"){
$pdf->Image('../genpdf/6qualitenr/required/hydraulique/Schema_hydraulique_PC_RAD.jpg',5,180,170);
}
// Information chantier PAGE7
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/Tech7.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
//CONFORMITE HYDRAULIQUE
//Accessoires obligatoires
//Disconnecteur
$pdf->SetXY(33.4, 33.4);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Manomètre pression
$pdf->SetXY(125.4, 33.4);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Manomètre pression
$pdf->SetXY(33.4, 41.4);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Manomètre pression
$pdf->SetXY(125.4, 41.5);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Vase d’expansion
$pdf->SetXY(33.4, 49.4);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Fitre anti-boue
$pdf->SetXY(125.4, 49.4);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Vanne d’équilibrage
$pdf->SetXY(33.4, 57.3);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Purgeurs
$pdf->SetXY(125.4, 57.3);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Aquastat plancher
if($Emetteurs== "Plancher Chauffant" || $Emetteurs== "Plancher Chauffant + Rads" ){
$pdf->SetXY(33.4, 68.6);
$pdf->Cell(0,8,''.'X',0,1,'L',false);}
//Groupe de sécurité
if($Ecs== "1" || $Ecs== "2" ){
$pdf->SetXY(125.4, 68.6);
$pdf->Cell(0,8,''.'X',0,1,'L',false);}
//CONFORMITE ÉLECTRIQUE
//Vérifications obligatoires
//Compatibilité abonnement
$pdf->SetXY(33.4, 105.6);
$pdf->Cell(0,8,'X',0,1,'L',false);
//Section cable alimentation Enedis
$pdf->SetXY(33.4, 113.6);
$pdf->Cell(0,8,'X',0,1,'L',false);
//section
$pdf->SetXY(98, 114.5);
$pdf->Cell(0,8,''.$R->enedis.' mm2',0,1,'L',false);
//informations
$pdf->SetXY(53.4, 122.2);
$pdf->Cell(0,8,''.$R->messagelec.' / '.$R->messagenedis.'',0,1,'L',false);
//CONFORMITE ÉLECTRIQUE
//Accessoires obligatoires
$PUE=$R2->protecUE;
$PUI=$R2->protecUI;
$PTot=$PUE+$PUI;
if($PTot <40){$EPTot = "40 A";}
elseif($PTot>40){$EPTot = "63 A";}
//Protection 30 mA puissance
$pdf->SetXY(125.4, 105.6);
$pdf->Cell(0,8,''.'X',0,1,'L',false);
//Formule
$pdf->SetXY(180, 106.7);
$pdf->Cell(0,8,''.''.$EPTot.'',0,1,'L',false);
//Protection UE puissance
$pdf->SetXY(125.4, 114);
$pdf->Cell(0,8,'X',0,1,'L',false);
$pdf->SetXY(176, 114.7);
$pdf->Cell(0,8,''.$R2->protecUE.' A',0,1,'L',false);
//Protection UI puissance
$pdf->SetXY(125.4, 121.6);
$pdf->Cell(0,8,'X',0,1,'L',false);
//Formule
$pdf->SetXY(173, 122.4);
$pdf->Cell(0,8,''.$R2->protecUI.' A',0,1,'L',false);
//Formule Accessoires Obligatoires
//tampon
$pdf->SetXY(80, 180.3);
$pdf->Cell(0,8,''.$R->Tampon.' litres',0,1,'L',false);
//Vase expansion
if($R->VolumeVase <5 ) {$VolumeVase = "5L integre PAC";}
else if($R->VolumeVase >5 && $R->VolumeVase <11 ) {$VolumeVase = "5L integre PAC + 6L externe";}
else if($R->VolumeVase >11 && $R->VolumeVase <17 ) {$VolumeVase = "5L integre PAC + 12L externe";}
else if($R->VolumeVase >17 && $R->VolumeVase <23 ) {$VolumeVase = "5L integre PAC + 18L externe";}
else if($R->VolumeVase >23 && $R->VolumeVase <30 ) {$VolumeVase = "5L integre PAC + 25L externe";}
$pdf->SetXY(83, 252.5);
$pdf->Cell(0,8,''.$VolumeVase.' litres',0,1,'L',false);
//Pression gonflage
$Pression = $R->altimetrie*0.1+0.5;
$pdf->SetXY(91, 260);
$pdf->Cell(0,8,''.$Pression.' bars',0,1,'L',false);
// Information chantier PAGE8 (Mise en service TESTO)
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/Tech8.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
// Information chantier PAGE9 (Controle TESTO)
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/Tech9.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
// Information chantier PAGE10 (Synthese 1)
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/Tech10.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
$pdf->Image('../../FICHIERS/'.$ID.'/Photos/PhotoUIP.'.$ID.'.jpg',40,10,120);
// Information chantier PAGE11 (Synthese 2)
$pdf->AddPage();
$pdf->setSourceFile('../genpdf/6qualitenr/required/Tech11.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);
}
//Sortie du fichier
//$pdf->Output("I", 'test');
$pdf->Output('F', '../../FICHIERS/'.$ID.'/Qualitenr/Qualitenr'.$ID.'.pdf');
?>