Your IP : 216.73.216.65

Current Path : /home/ataenra/www/ATA/INTRANET/GenPDF/5DossierTech/
Upload File :
Current File : /home/ataenra/www/ATA/INTRANET/GenPDF/5DossierTech/genpdfdossier.php

<?php
    use setasign\Fpdi\Fpdi;
    require_once('../fpdf/fpdf.php');
    require_once('../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';

//recuperation les informations selon ID en get (page?ID=)
$ID = $_GET['ID'];
$sth = $dbco->prepare("SELECT * FROM pacaevar WHERE  ID = $ID"); 
$sth->execute();

$R = $sth->fetch(PDO::FETCH_OBJ);

$sth2 = $dbco->prepare("SELECT * FROM tablepac WHERE  id = '$R->IDPAC'"); 
$sth2->execute();

$R2 = $sth2->fetch(PDO::FETCH_OBJ);

$projet ="../FICHIERS/$ID";
$chemin ="../FICHIERS/$ID/Documents";
// 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();

    // Ajoute une page avec une grille et une graduation par d�faut (5mm)
    //$pdf->grid = true;
//if($R->TypeF=="SOL PACPV"){  
    $pdf->AddPage();
 
    if(($R->TypeF=="PAC AE")||($R->TypeF=="PAC AA")){
    $pdf->setSourceFile('required/modelepdf/ATA_Feuille_dossier_QualiPac.pdf');
    }elseif(($R->TypeF=="BOIS P")||($R->TypeF=="BOIS C")){
    $pdf->setSourceFile('required/modelepdf/ATA_Feuille_dossier_QualiBois.pdf'); 
    }elseif(($R->TypeF=="SOL CESI")||($R->TypeF=="SOL SSC")){
    $pdf->setSourceFile('required/modelepdf/ATA_Feuille_dossier_QualiSol.pdf');
    }elseif($R->TypeF=="SOL PV"){
    $pdf->setSourceFile('required/modelepdf/ATA_Feuille_dossier_QualiPv.pdf');
    }elseif($R->TypeF=="SOL PACPV"){
    $pdf->setSourceFile('required/modelepdf/ATA_Feuille_dossier_QualiPacPv.pdf');
    }

    $tplIdx = $pdf->importPage(1);
    $pdf->useTemplate($tplIdx, 0, 0, 210);
   
//TITRE DU DOCUMENT
    $pdf->SetFont('Helvetica','','20');
    $pdf->SetXY(106, 58);
    $pdf->Cell(20,14,''.$ID.'',0,1,'L',false);
 


//Nature des travaux
    $pdf->SetFont('Helvetica','','16');
    $pdf->SetXY(72, 78.5);
    if($R->TypeF=="PAC AE"){
    $naturetravaux = "Installation Pompe a Chaleur Air/Eau";
    }elseif($R->TypeF=="PAC AA"){
    $naturetravaux = "Installation Pompe a Chaleur Air/Air"; 
    }elseif($R->TypeF=="SOL CESI"){
    $naturetravaux = "Installation d un ballon ECS Solaire";
    }elseif($R->TypeF=="SOL SSC"){
    $naturetravaux = "Installation d un Systeme Solaire Combine";
    }elseif($R->TypeF=="SOL PV"){
    $naturetravaux = "Installation de panneaux photovoltaiques";
    }elseif($R->TypeF=="SOL PACPV"){
    $naturetravaux = "Installation d un systeme Hybride PAC et PhotoVoltaique";
    }
    $pdf->Cell(120,14,''.$naturetravaux.'',0,1,'L',false);

//DATE VISITE TECHNIQUE    
$pdf->SetXY(75, 101.5);
$pdf->Cell(20,14,''.$R->date.'',0,1,'L',false);

//DATE DOssier Sonergia   
$pdf->SetXY(70, 122);
$pdf->Cell(20,14,''.$R->date.'',0,1,'L',false);

//DATE travaux plani   
$pdf->SetXY(70, 145);
$pdf->Cell(20,14,'X'.$R->DatePlani.'',0,1,'L',false);

//Coordonnees clients
$pdf->SetFont('Helvetica','','12');
$pdf->SetXY(55, 180);
$pdf->Cell(20,14,''.$R->nom.'',0,1,'L',false);
$pdf->SetXY(55, 187);
$pdf->Cell(20,14,''.$R->prenom.'',0,1,'L',false);
$pdf->SetXY(135, 181);
$pdf->Cell(20,14,''.$R->NumP.'',0,1,'L',false);
$pdf->SetXY(128, 187);
$pdf->Cell(20,14,''.$R->email.'',0,1,'L',false);

//Adresse facturation
$pdf->SetXY(55, 213);
$pdf->Cell(50,14,''.$R->rue.'',0,1,'L',false);
$pdf->SetXY(140, 213);
$pdf->Cell(20,14,''.$R->CodeP.'',0,1,'L',false);
$pdf->SetXY(128, 220);
$pdf->Cell(20,14,''.$R->Ville.'',0,1,'L',false);

//Adresse chantier
$pdf->SetXY(55, 246);
$pdf->Cell(20,14,''.$R->rueC.'',0,1,'L',false);
$pdf->SetXY(140, 246);
$pdf->Cell(20,14,''.$R->CodePC.'',0,1,'L',false);
$pdf->SetXY(128, 252);
$pdf->Cell(20,14,''.$R->VilleC.'',0,1,'L',false);











//page2
$pdf->AddPage();

$pdf->setSourceFile('required/modelepdf/FondATA.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);


//TITRE DU DOCUMENT
$pdf->SetFont('Helvetica','B','20');
$pdf->SetXY(10, 10);
$pdf->Cell(0,20,'SYNTHESE PROJET',1,1,'C',false);

//CADRE info adresse
$pdf->SetFont('Helvetica','B','14');
$pdf->SetXY(10, 35);
$pdf->Cell(125,10,'Info adresse',1,1,'C',false);

//CADRE Consommables

$pdf->SetXY(135, 35);
$pdf->Cell(0,10,'Consommables',1,1,'C',false);

//CADRE Info adresse photo
$pdf->SetXY(10, 45);
$pdf->Cell(125,96,'',1,0,'C',false);
$pdf->Cell(0,96,'',1,1,'C',false);
$pdf->Image('../FICHIERS/'.$ID.'/photos/photoext.'.$ID.'.jpg',15,50,115);


if($R->PuissancePacF <= "6"){$section = "3G2.5mm2";}
elseif($R->PuissancePacF <= "10"){$section = "3G6.0mm2";}
else{$section = "3G10mm2";}


//INFO Concommables
$pdf->SetFont('Helvetica','','12');
$pdf->SetXY(140, 47);
$pdf->Cell(0,8,'Longueur liaison : '.$R->DeUeUi.' m',0,1,'L',false);
$pdf->SetXY(140, 53);
$pdf->Cell(0,8,'Type liaision : '.$R2->TypeL.' ',0,1,'L',false);
$pdf->SetXY(140, 59);
$pdf->Cell(0,8,'Section : 5G1.5mm2 ',0,1,'L',false);
$pdf->SetXY(140, 65);
$pdf->Cell(0,8,'Longueur alim : '.$R->DeUe.' m',0,1,'L',false);
$pdf->SetXY(140, 71);
$pdf->Cell(0,8,'Section : '.$R2->sectionalim.'',0,1,'L',false);
$pdf->SetXY(140, 77);
$pdf->Cell(0,8,'type de pose : '.$R->IDPAC.'',0,1,'L',false);
$pdf->SetXY(140, 83);
$pdf->Cell(0,8,'Tampon : '.$R2->tampon.'',0,1,'L',false);
$pdf->SetFont('Helvetica','U','12');
$pdf->SetXY(140, 89);
$pdf->Cell(0,8,'Tableau electrique : ',0,1,'L',false);
$pdf->SetFont('Helvetica','','12');
$pdf->SetXY(140, 95);
$pdf->Cell(0,8,'General : 40 mA',0,1,'L',false);
$pdf->SetXY(140, 101);
$pdf->Cell(0,8,'Exterieur : '.$R2->protecUE. 'A',0,1,'L',false);
$pdf->SetXY(140, 107);
$pdf->Cell(0,8,'Interieur : '.$R2->protecUI. 'A',0,1,'L',false);
$pdf->SetFont('Helvetica','U','12');
$pdf->SetXY(140, 113);
$pdf->Cell(0,8,'Module Hydraulique : ',0,1,'L',false);
$pdf->SetFont('Helvetica','','12');
$pdf->SetXY(140, 119);
$pdf->Cell(0,8,''.$R->modhyd.'',0,1,'L',false);


//CADRE modele  
$pdf->SetFont('Helvetica','B','14');
$pdf->SetXY(10, 147);
$pdf->Cell(0,10,'modele PAC',1,1,'C',false);
$pdf->Cell(0,50,'',1,1,'L',false);

//INFO modele
$pdf->SetFont('Helvetica','','14');
$pdf->SetXY(20, 160);
$pdf->Cell(95,8,'Modele : '.$R2->modele.'',0,0,'L',false);
$pdf->SetXY(20, 167);
$pdf->Cell(95,8,'Type de PAC : '.$R2->typepac.'',0,0,'L',false);
$pdf->Cell(95,8,'Marque : '.$R2->Marque.'',0,1,'L',false);
$pdf->SetXY(20, 174);
$pdf->Cell(95,8,'Puissance en Kw : '.$R2->Puissance.'',0,0,'L',false);
$pdf->Cell(95,8,'Type de courant : '.$R2->Elec.'',0,1,'L',false);
$pdf->SetXY(20, 181);
$pdf->Cell(95,8,'Diametre hydraulique : '.$R2->diamhydprim.'',0,0,'L',false);
$pdf->Cell(95,8,'ECS integre : '.$R2->ecsint.'',0,1,'L',false);
$pdf->SetXY(20, 188);
$pdf->Cell(95,8,'Longueur pre-chargee : '.$R2->lgmaxl.' m',0,0,'L',false);
$pdf->Cell(95,8,'Charge additionnelle : '.$R2->id.' g/m',0,0,'L',false);





//page3
$pdf->AddPage();

$pdf->setSourceFile('required/modelepdf/FondATA.pdf');
$tplIdx = $pdf->importPage(1);
$pdf->useTemplate($tplIdx, 0, 0, 210);

//TITRE DU DOCUMENT
$pdf->SetFont('Helvetica','B','20');
$pdf->SetXY(10, 10);
$pdf->Cell(0,20,'SYNTHESE PROJET',1,1,'C',false);

//CADRE info ext
$pdf->SetFont('Helvetica','B','14');
$pdf->SetXY(10, 35);
$pdf->Cell(125,10,'Infos exterieur',1,1,'C',false);

//CADRE Remarques ext
$pdf->SetFont('Helvetica','B','14');
$pdf->SetXY(135, 35);
$pdf->Cell(0,10,'Remarques ext',1,1,'C',false);

//INFO Info ext
$pdf->SetXY(10, 45);
$pdf->Cell(125,96,'',1,0,'C',false);
$pdf->Cell(0,96,'',1,1,'C',false);
$pdf->Image('../FICHIERS/'.$ID.'/photos/photoeu.'.$ID.'.jpg',15,50,115);

//INFO Remarques ext
$pdf->SetFont('Helvetica','','14');
$pdf->SetXY(140, 50);
$pdf->Cell(0,8,'Table : '.$R->DeUeUi.' m',0,1,'L',false);
$pdf->SetXY(140, 58);
$pdf->Cell(0,8,'Type liaison : '.$R2->TypeL.' ',0,1,'L',false);
$pdf->SetXY(140, 66);
$pdf->Cell(0,8,'longueur : '.$R->DeUe.' m',0,1,'L',false);

//CADRE info int
$pdf->SetFont('Helvetica','B','14');
$pdf->SetXY(10, 147);
$pdf->Cell(125,10,'Infos interieur',1,1,'C',false);

//CADRE Remarques int
$pdf->SetFont('Helvetica','B','14');
$pdf->SetXY(135, 147);
$pdf->Cell(0,10,'Remarques int',1,1,'C',false);

//INFO Info int
$pdf->SetXY(10, 157);
$pdf->Cell(125,98,'',1,0,'C',false);
$pdf->Cell(0,98,'',1,1,'C',false);
$pdf->Image('../FICHIERS/'.$ID.'/photos/photoint.'.$ID.'.jpg',15,163,115);

//INFO Remarques int
$pdf->SetFont('Helvetica','','14');
$pdf->SetXY(140, 163);
$pdf->Cell(0,8,'Table : '.$R->DeUeUi.' m',0,1,'L',false);
$pdf->SetXY(140, 170);
$pdf->Cell(0,8,'Type liaison : '.$R2->TypeL.' ',0,1,'L',false);
$pdf->SetXY(140, 178);
$pdf->Cell(0,8,'longueur : '.$R->DeUe.' m',0,1,'L',false);



$pdf->Output('F', '../FICHIERS/'.$ID.'/Documents/dossier'.$ID.'.pdf'); 
//$pdf->Output('I', 'sonergia'.$ID.'.pdf'); 

//header("location:../../index.php/agp");
 
?>