Your IP : 216.73.216.65

Current Path : /home/ataenra/www/ATA/INTRANET/GenPDF/10Fgaz/
Upload File :
Current File : /home/ataenra/www/ATA/INTRANET/GenPDF/10Fgaz/genpdfgaz.php

<?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';

//recuperation les informations selon ID en get (page?ID=)
$ID = $_GET['ID'];
$sth = $dbco->prepare("SELECT * FROM dossier D JOIN client C ON D.IDclient=C.IDc JOIN ".$Tp." P ON P.IDp=D.IDprojet WHERE  ID = $ID"); 
$sth->execute();
$R = $sth->fetch(PDO::FETCH_OBJ);

//recuperation des informations selon IDPAC 
$sth2 = $dbco->prepare("SELECT * FROM tablepac WHERE  IDm = '$R->IDm'"); 
$sth2->execute();
$R2 = $sth2->fetch(PDO::FETCH_OBJ);

$sth3 = $dbco->prepare("SELECT * FROM fgaz WHERE ID = '$R->FGaz'"); 
$sth3->execute();
$R3 = $sth3->fetch(PDO::FETCH_OBJ);

$sth4 = $dbco->prepare("SELECT * FROM outils WHERE ref = '$R3->IdetectF'"); 
$sth4->execute();
$R4 = $sth4->fetch(PDO::FETCH_OBJ);

$projet ="../../FICHIERS/$ID";
$chemin ="../../FICHIERS/$ID/Fgaz";
// 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;
    $pdf->SetAutoPagebreak(False);
    $pdf->AddPage();
     
    $pdf->setSourceFile('../GenPDF/10Fgaz/required/cerfa_15497_03.pdf');
     
    $tplIdx = $pdf->importPage(1);
    $pdf->useTemplate($tplIdx, 0, 0, 210);   



//Numero de fiche
$pdf->SetFont('Helvetica','','10');
$pdf->SetXY(10, 35);
$pdf->Cell(50,8,''.$R3->NumFiche.''.$R3->ID.'',0,0,'L',false);

//Operateur
$pdf->SetFont('Helvetica','','10');
$pdf->SetXY(50, 32);
$pdf->Cell(50,8,'SAS ATA ENRGIES',0,0,'L',false);
$pdf->SetXY(50, 36);
$pdf->Cell(50,8,'4 Rue Leruste 59150 WATTRELOS',0,0,'L',false);
$pdf->SetXY(50, 40);
$pdf->Cell(50,8,'SIRET : XXX.XXX.XXX.XXXXX',0,0,'L',false);

//Detendeur
$pdf->SetXY(130, 32);
$pdf->Cell(50,8,''.$R3->nomD.'',0,0,'L',false);
$pdf->SetXY(130, 36);
$pdf->Cell(50,8,''.$R3->adresseD.'',0,0,'L',false);
$pdf->SetXY(130, 40);
$pdf->Cell(50,8,''.$R3->SiretD.'',0,0,'L',false);

//Numero de capacite
$pdf->SetXY(75, 48);
$pdf->Cell(50,8,''.$R3->NumCapacite.'',0,0,'L',false);

//Equipement
$pdf->SetXY(42, 60);
$pdf->Cell(50,8,''.$R3->Equipement.'',0,0,'L',false);

//Fluide
$pdf->SetXY(175, 54.5);
$pdf->Cell(50,8,''.$R3->Fluide.'',0,0,'L',false);

//ChargeT
$pdf->SetXY(175, 60);
$pdf->Cell(50,8,''.$R3->ChargeT.'',0,0,'L',false);

//Tco2
$pdf->SetXY(172, 65);
$pdf->Cell(50,8,''.$R3->TCo2.'',0,0,'L',false);

//INTERVENTION
if($R3->Interv =="Installation"){
    $pdf->SetFont('Helvetica','','10');
    $pdf->SetXY(53.5, 70);
    $pdf->Cell(50,8,'X',0,0,'L',false);
}
if($R3->Interv =="Installation avec mise en service"){
    $pdf->SetFont('Helvetica','','10');
    $pdf->SetXY(53.5, 70);
    $pdf->Cell(50,8,'X',0,0,'L',false);
    $pdf->SetXY(53.5, 75);
    $pdf->Cell(50,8,'X',0,0,'L',false);
}
if($R3->Interv =="Mise en service"){
    $pdf->SetFont('Helvetica','','10');
    $pdf->SetXY(53.5, 75);
    $pdf->Cell(50,8,'X',0,0,'L',false);
}    

//Tco2
$pdf->SetXY(80, 96);
$pdf->Cell(50,8,''.$R3->IdetectF.'',0,0,'L',false);

$test = $R4->Dcontrol;
$dateTime = new DateTime($test);
//Controle Le
$pdf->SetXY(155, 96);
$pdf->Cell(50,8,''.$dateTime->format('d     m        Y').'',0,0,'L',false);

//Presence detecteur de fuite 
if($R3->PDfuite =="Oui"){
$pdf->SetXY(117, 103);
$pdf->Cell(50,8,'X',0,0,'L',false);}elseif($R3->PDfuite =="Non")
{
$pdf->SetXY(149, 103);
$pdf->Cell(50,8,'X',0,0,'L',false);
}

//Quantite de fluide HFC / PFC
if($R3->TCo2 <5000 ){

}elseif(($R3->TCo2 >5000 )&&($R3->TCo2 <30000)){

$pdf->SetXY(107, 116.8);
$pdf->Cell(50,8,'X',0,0,'L',false);
}

//Fuite sur installation ?
if($R3->Cfuites =="Oui"){
    $pdf->SetXY(20.5, 148.6);
    $pdf->Cell(50,8,'X',0,0,'L',false);

}elseif($R3->Cfuites =="Non"){
    $pdf->SetXY(20.5, 152.3);
    $pdf->Cell(50,8,'X',0,0,'L',false);
}

//Quantite de fluide charge
if($R3->QA != "0"){
    $pdf->SetXY(90, 168.5);
    $pdf->Cell(50,8,''.$R3->QA.'',0,0,'L',false);
    $pdf->SetXY(90, 163.7);
    $pdf->Cell(50,8,''.$R3->QA.'',0,0,'L',false);
}else{
    $pdf->SetXY(90, 163.7);
    $pdf->Cell(50,8,'0',0,0,'L',false);
}

//Observations
if($R3->Observations != "0"){
    $pdf->SetFont('Helvetica','','8');
    $pdf->SetXY(15, 230);
    $pdf->Cell(50,8,''.$R3->Observations.'',0,0,'L',false);
}


//Nom signataire
$pdf->SetFont('Helvetica','','10');
    $pdf->SetXY(50, 258.5);
    $pdf->Cell(50,8,''.$R3->OPnom.'',0,0,'L',false);
    $pdf->SetXY(50, 265.5);
    $pdf->Cell(50,8,''.$R3->OPqualite.'',0,0,'L',false);
    $pdf->SetXY(50, 275);
    $pdf->Cell(50,8,''.$R3->DateA.'',0,0,'L',false);


//Nom Detendeur
$pdf->SetFont('Helvetica','','10');
    $pdf->SetXY(120, 258.5);
    $pdf->Cell(50,8,''.$R->nom.' '.$R->prenom.'',0,0,'L',false);
    $pdf->SetXY(120, 265.5);
    $pdf->Cell(50,8,'Client',0,0,'L',false);
    $pdf->SetXY(120, 275);
    $pdf->Cell(50,8,''.$R3->DateA.'',0,0,'L',false);


$pdf->Output('F', '../../FICHIERS/'.$ID.'/A_Signer/Cerfa'.$ID.'.pdf'); 

//$pdf->Output("I", 'test');


?>