- CO2 Footprint energie
- CO2 Footprint materiaal
- Regelgeving
- Milieudata
- Solar
- Tools hogesterktestaal
- EN15978 – Module A2+A4: Transport
- Kapspanten voor hallen
- Milieubelasting dakligger incl. PV-panelen (PDF)
- Bepaal milieubelasting gevelkolom incl. PV-panelen (PDF)
- Milieubelasting middenkolom (PDF)
- Milieuwinst middenkolom hogere staalsoorten
- Vergelijk milieubelasting S235,S355,S460
- Bepaal milieubelasting buizen (PDF)
- Bereken milieubelasting hoofddraagconstructie
$errors[]=’File size must be maximum 2 MB’;
}
if(empty($errors)==true) {
move_uploaded_file($file_tmp,$dir.”/”.$file_name);
$LogoUploaden = $file_name;
}else{
//print_r($errors);
}
}
if(isset($_FILES[‘afbeelding’])){
$errors= array();
$file_name = $_FILES[‘afbeelding’][‘name’];
$file_size = $_FILES[‘afbeelding’][‘size’];
$file_tmp = $_FILES[‘afbeelding’][’tmp_name’];
$file_type = $_FILES[‘afbeelding’][’type’];
$temporary = explode(‘.’,$_FILES[‘afbeelding’][‘name’]);
$file_ext=strtolower(end($temporary));
$extensions= array(“jpeg”,”jpg”,”png”);
if(in_array($file_ext,$extensions)=== false){
$errors[]=”extension not allowed, please choose a JPEG or PNG file.”;
$AfbeeldingUploaden = “geenUploadAfbeelding”;
}
if($file_size > 2097152) {
$errors[]=’File size must be maximum 2 MB’;
}
if(empty($errors)==true) {
move_uploaded_file($file_tmp,$dir.”/”.$file_name);
$AfbeeldingUploaden = $file_name;
}else{
//print_r($errors);
}
}
if(isset($_FILES[‘voorkant’])){
$errors= array();
$file_name = $_FILES[‘voorkant’][‘name’];
$file_size = $_FILES[‘voorkant’][‘size’];
$file_tmp = $_FILES[‘voorkant’][’tmp_name’];
$file_type = $_FILES[‘voorkant’][’type’];
$temporary = explode(‘.’,$_FILES[‘voorkant’][‘name’]);
$file_ext=strtolower(end($temporary));
$extensions= array(“jpeg”,”jpg”,”png”);
if(in_array($file_ext,$extensions)=== false){
$errors[]=”extension not allowed, please choose a JPEG or PNG file.”;
$VoorkantUploaden = “geenUploadVoorkant”;
}
if($file_size > 2097152) {
$errors[]=’File size must be maximum 2 MB’;
}
if(empty($errors)==true) {
move_uploaded_file($file_tmp,$dir.”/”.$file_name);
$VoorkantUploaden = $file_name;
}else{
//print_r($errors);
}
}
//EINDE INLEZEN PLAATJES
require ‘vendor/autoload.php’;
use PhpOffice\PhpSpreadsheet\Spreadsheet;
use PhpOffice\PhpSpreadsheet\Reader\Csv;
use PhpOffice\PhpSpreadsheet\Reader\Xlsx;
$file_mimes = array(’text/x-comma-separated-values’, ’text/comma-separated-values’, ‘application/octet-stream’, ‘application/vnd.ms-excel’, ‘application/x-csv’, ’text/x-csv’, ’text/csv’, ‘application/csv’, ‘application/excel’, ‘application/vnd.msexcel’, ’text/plain’, ‘application/vnd.openxmlformats-officedocument.spreadsheetml.sheet’);
if(isset($_FILES[‘file’][‘name’]) && in_array($_FILES[‘file’][’type’], $file_mimes)) {
$arr_file = explode(‘.’, $_FILES[‘file’][‘name’]);
$extension = end($arr_file);
if(‘csv’ == $extension) {
$reader = new \PhpOffice\PhpSpreadsheet\Reader\Csv();
} else {
$reader = new \PhpOffice\PhpSpreadsheet\Reader\Xlsx();
}
$spreadsheet = $reader->load($_FILES[‘file’][’tmp_name’]);
$page1 = $spreadsheet->getSheet(0)->toArray();
$page2 = $spreadsheet->getSheet(1)->toArray();
$page3 = $spreadsheet->getSheet(2)->toArray();
$productNaam = $page1[11][3];
if ($productNaam === “GGBS” || $productNaam === “Geotechnical binder 90-10” || $productNaam === “CEM IIIA”) {//EXTRA SHEET ECOCEM 2
$page4 = $spreadsheet->getSheet(4)->toArray();
$page5 = $spreadsheet->getSheet(3)->toArray();
}
else {
$page4 = $spreadsheet->getSheet(3)->toArray();
}
}
//**************************** EINDE SPREADSHEET INLEZEN ****************************
//****************** PRODUCTNAAM OPZOEKEN (OVERZICHT CERTIFICATEN.XLS) ******************
if (strpos($productNaam,”European”)) {//VERKORTEN NAAM VOOR HAKWOOD
$productNaamKort = “Hakwood Duoplank”;
}
else {
$productNaamKort = $productNaam;
}
//****************** EIND PRODUCTNAAM OPZOEKEN (OVERZICHT CERTIFICATEN.XLS) ******************
//****************** INLEZEN MRPI NUMMER+EPD NUMMER+DATUM UITGIFTE+DATUM VERVAL (OVERZICHT CERTIFICATEN.XLS) ******************
$certificatenFile = ‘MRPI-EPD overzicht Certificaten.xlsx’;
$overzichtCertificaten = \PhpOffice\PhpSpreadsheet\IOFactory::load($certificatenFile);
$certificaatData = $overzichtCertificaten->getSheet(0)->toArray();
$lengteCertificaatdata= count($certificaatData);
for ($i = 0; $i < $lengteCertificaatdata; $i++) {
if (in_array($productNaam,$certificaatData[$i], TRUE) !== FALSE) {//ZOEK PRODUCTNAAM OP
if (empty($certificaatData[$i][3])) {
$MRPInummer = “”;
}
else {
$MRPInummer = $certificaatData[$i][3];
}
if (empty($certificaatData[$i][4])) {
$EPDnummer = “”;
}
else {
$EPDnummer = $certificaatData[$i][4];
}
if (empty($certificaatData[$i][5])) {//
$datumUitgifte = “”;
$datumVerval = “”;
}
else {
$datumUitgifteShuffle = explode(“/”, $certificaatData[$i][5]);
if ($datumUitgifteShuffle[0] > 9 && $datumUitgifteShuffle[1] > 9 ){
$datumUitgifte = $datumUitgifteShuffle[1].”-“.$datumUitgifteShuffle[0].”-“.$datumUitgifteShuffle[2];
}
elseif ($datumUitgifteShuffle[0] < 9 && $datumUitgifteShuffle[1] < 9 ) { $datumUitgifte = “0”.$datumUitgifteShuffle[1].”-0″.$datumUitgifteShuffle[0].”-“.$datumUitgifteShuffle[2]; } elseif ($datumUitgifteShuffle[0] > 9 && $datumUitgifteShuffle[1] < 9 ) { $datumUitgifte = “0”.$datumUitgifteShuffle[1].”-“.$datumUitgifteShuffle[0].”-“.$datumUitgifteShuffle[2]; } else { $datumUitgifte = $datumUitgifteShuffle[1].”-0″.$datumUitgifteShuffle[0].”-“.$datumUitgifteShuffle[2]; } $datumVervalShuffle = explode(“/”, $certificaatData[$i][6]);//OMSCHRIJVEN DATUM FORMAT VERVAL if ($datumVervalShuffle[0] > 9 && $datumVervalShuffle[1] > 9 ){
$datumVerval = $datumVervalShuffle[1].”-“.$datumVervalShuffle[0].”-“.$datumVervalShuffle[2];
}
elseif ($datumUitgifteShuffle[0] < 9 && $datumUitgifteShuffle[1] < 9 ) { $datumVerval = “0”.$datumVervalShuffle[1].”-0″.$datumVervalShuffle[0].”-“.$datumVervalShuffle[2]; } elseif ($datumUitgifteShuffle[0] > 9 && $datumUitgifteShuffle[1] < 9 ) {
$datumVerval = “0”.$datumVervalShuffle[1].”-“.$datumVervalShuffle[0].”-“.$datumVervalShuffle[2];
}
else {
$datumVerval = $datumVervalShuffle[1].”-0″.$datumVervalShuffle[0].”-“.$datumVervalShuffle[2];
}
}
if (empty($certificaatData[$i][10])) {
$EUclassification = “”;//INVULLEN
}
else {
$EUclassification = $certificaatData[$i][10];
}
break;
}
if ($i===($lengteCertificaatdata-1)) {
$productNaam = “Productnaam niet in lijst”;
$datumUitgifte = “”;
$datumVerval = “”;
$MRPInummer = “”;
$EPDnummer = “”;
}
}
//LOGO + AFBEELDING + LIFECYCLE STAGES, ZOEKEN ONAFHANKELIJK EXTENSIE
global $MRPInummer;
if ($MRPInummer ===”” || empty($MRPInummer)) {
$logo = “Logo company.jpg”;//STRING !!!!
$afbeelding = “Afbeelding product.jpg”;
$voorkant = “Afbeelding voorkant.jpg”;
}
else {//ER IS WEL EEN MRPI NUMMER MAAR ER IS NOG GEEN LOGO OF AFBEELDING OF VOORKANT
if ($LogoUploaden === “geenUploadLogo”) {//VERVANG LOGOARRAY DOOR $LogoUploaden
$logo = “Logo company.jpg”;
}
else {
$logo = $dir.”/”.$LogoUploaden;
}
//AFBEELDINGEN
if ($page1[11][0] === “Ecocem France”) {
$afbeeldingArray = glob($dir.”/Afbeelding 1.1.00071.2019.*”, GLOB_BRACE);//LET OP: PAKT OOK PDF !!
}
elseif ($page1[11][0] === “Spenner Werk Duisburg” || $page1[11][0] === “Spenner Zement”) {
$afbeeldingArray = glob($dir.”/Afbeelding 1.1.00072.2019.*”, GLOB_BRACE);//LET OP: PAKT OOK PDF !!
}
elseif ($AfbeeldingUploaden ===”geenUploadAfbeelding”) {
$afbeelding = “Afbeelding product.jpg”;
}
else {
$afbeelding = $dir.”/”.$AfbeeldingUploaden;
}
if ($page1[11][0] === “Ecocem France”) {
$voorkantArray = glob($dir.”/Voorkant 1.1.00071.2019.*”, GLOB_BRACE);//LET OP: PAKT OOK PDF !!
}
elseif ($page1[11][0] === “Spenner Werk Duisburg” || $page1[11][0] === “Spenner Zement”) {
$voorkantArray = glob($dir.”/Voorkant 1.1.00072.2019.*”, GLOB_BRACE);
}
elseif ($VoorkantUploaden === “geenUploadVoorkant”) {
$voorkant = “Afbeelding voorkant.jpg”;
}
else {
$voorkant = $dir.”/”.$VoorkantUploaden;
}
$lifeCycleStages = glob($dir.”/Life cycle stages “.$dir.”.*”, GLOB_BRACE);
}
$grootteLogo = getimagesize($logo);//BREEDTE X HOOGTE IN PIXELS
$grootteAfbeelding = getimagesize($afbeelding);
//****************** EINDE INLEZEN LOGO, AFBEELDING, VOORKANT ******************
//**************************** START CERTIFICAAT ****************************
include(‘fpdf181/fpdf.php’);
class PDF extends FPDF
//**************************** PAGINANUMMERS + HEADERS + FOOTERS ****************************
{
function Header()
{
global $milieudatabase;
global $grootteLogo;
global $logo;
global $EPDnummer;
if ($this->PageNo() > 1) {
$this->Image(‘EPD EN15804 VERIFIED.png’,10,8,42);
$this->Image(‘Logo_MRPI_2011_Large.jpg’,155,6,45);
$this->Image(‘V-MRPI-extralargetransparent.jpg’,40,40,-260);
$this->SetFont(‘Arial’,”,12);
$this->SetY(15);
$this->Cell(90);
if ($EPDnummer === “”|| empty($EPDnummer)) {//ROOD BIJ CONCEPT MRPI BLAD
$this->SetTextColor(255,0,0);
$this->Cell(30,10,”MRPI”.chr(174).”-EPD STICHTING MRPI”.chr(174).” CONCEPT”,0,0,’C’);
}
$this->Ln(20);
$this->Image(‘V-MRPI-extralargetransparent spiegelbeeld.jpg’,40,150,-260);
//$h_logo = ($grootteLogo[0]*25.4)/300;//CONTROLE 300DPI RESOLUTIE -> AANNAME RESOLUTIE OK
if ($this->PageNo() > 2) {
if ($grootteLogo[1] > $grootteLogo[0]) {//HOOGTE > BREEDTE
$yLogoFooter = 269;
$xLogoFooter = 164;
$this->Image($logo,$xLogoFooter,$ylogoFooter,0,25);//HOOGTE 25
}
else {
if ($logo ==”Logo company.jpg”) {
$yLogoFooter = 297-5-$grootteLogo[1]/$grootteLogo[0]*40;//BREEDTE > HOOGTE
$xLogoFooter = 210-10-40;//BREEDTE 40MM GENOMEN
$this->Image($logo,$xLogoFooter,$yLogoFooter,40,0);//BREEDTE 40MM
}
else {
$yLogoFooter = 297-5-$grootteLogo[1]/$grootteLogo[0]*50;//BREEDTE > HOOGTE
$xLogoFooter = 210-10-50;//BREEDTE 50MM GENOMEN
$this->Image($logo,$xLogoFooter,$yLogoFooter,50,0);//BREEDTE 50MM
}
}
}
}
}
function Footer()
{
global $productNaamKort;
global $EPDnummer;
global $MRPInummer;
if ($this->PageNo() > 1) {
$this->SetXY(10,-15);
$this->SetFont(‘Arial’,’I’,9);
$this->Cell(10,10,’P’.$this->PageNo().’/{nb}’,0,0,’L’);
if ($EPDnummer === “”|| empty($EPDnummer)) {
$this->SetTextColor(255,0,0);
}
//CENTREREN VOETTEKST AFH. LENGTE
$lengteProductnaamKort = $this->GetStringWidth($productNaamKort);
//print_r($lengteProductnaamKort);
$this->SetX(10+(110-$lengteProductnaamKort)/2);//tot aan 210-5-55 = 150 – 20 – 19 ruimte ong. 110
$this->Cell(19,10,”www.mrpi.nl: “,0,0,’L’);
$this->SetFont(‘Arial’,’IU’,9);
$this->Cell(60,10,$MRPInummer.” “.iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $productNaamKort),0,0,’L’);//CONVERTEREN NAAM MET REGISTERTEKENS
}
}//EINDE FUNCTION FOOTER
}
//**************************** EIND PAGINANUMMERS + HEADERS + FOOTERS ****************************
//********************************* KOPPEN – TEKSTINLEZEN – TABELINLEZEN *********************************
function toepassingsgebied($taal,$naamLCAspecialist,$bedrijfLCAspecialist,$naamToetser,$bedrijfToetser,$pdf) {//$pdf voor gebruik FPDF functionaliteit
if ($taal === “English”) {
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,9);
$pdf->Cell(59,5,”This MRPI”.chr(174).”-EPD certificate is verified by “,0,0,’L’);
$pdf->SetFont(‘Arial’,’B’,9);$pdf->Cell(0,5,$naamToetser.”, “.$bedrijfToetser.”.”,0,2,’L’);$pdf->SetFont(‘Arial’,”,9);
$pdf->SetXY(30,148);
$pdf->Cell(48,5,”The LCA study has been done by “,0,0,’L’);
$pdf->SetFont(‘Arial’,’B’,9);$pdf->Cell(0,5,$naamLCAspecialist.”, “.$bedrijfLCAspecialist.”.”,0,2,’L’);$pdf->SetFont(‘Arial’,”,9);
$pdf->SetXY(30,153);
$pdf->MultiCell(165,5,”The certificate is based on an LCA-dossier according to ISO14025 and NEN-EN15804+A1. It is verified according to the ‘EPD-MRPI verification protocol May 2017.v3.1′. EPD’s of construction products may not be comparable if they do not comply with NEN-EN15804+A1. Declaration of SVHC that are listed on the ‘Candidate List of Substances of Very High Concern for authorisation’ when content exceeds the limits for registration with ECHA.”,0,’L’,false);
}
else {
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,9);
$pdf->Cell(61,5,”Dit MRPI”.chr(174).”-EPD certificaat is getoetst door “,0,0,’L’);
$pdf->SetFont(‘Arial’,’B’,9);$pdf->Cell(0,5,$naamToetser.”, “.$bedrijfToetser.”.”,0,2,’L’);$pdf->SetFont(‘Arial’,”,9);
$pdf->SetXY(30,148);
$pdf->Cell(43,5,”De LCA studie is gedaan door “,0,0,’L’);
$pdf->SetFont(‘Arial’,’B’,9);$pdf->Cell(0,5,$naamLCAspecialist.”, “.$bedrijfLCAspecialist.”.”,0,2,’L’);$pdf->SetFont(‘Arial’,”,9);
$pdf->SetXY(30,153);
$pdf->MultiCell(0,5,”Het certificaat is gebaseerd op een LCA-dossier volgens ISO14025 en NEN-EN15804+A1. Het is getoetst aan de hand van het ‘EPD-MRPI verification protocol May 2017′. EPD’s van bouwproducten zijn niet vergelijkbaar als ze niet voldoen aan NEN-EN15804+A1. Stoffen die voorkomen op de kandidatenlijst van SVHC’s van het ECHA worden in dit certificaat gedeclareerd als ze de limiet voor registratie van die stof overschrijden.”,0,’L’,false);
}
}
if ($taal === “English”) {
$voorblad1 = “according to ISO 14025 and EN 15804”;
$voorblad2 = “This declaration is for:”;
$voorblad3 = “Provided by:”;
$voorblad4 = “program operator”;
$voorblad5 = “publisher”;
$voorblad6 = “MRPI”.chr(174).” registration”;
$voorblad7 = “EPD registration”;
$voorblad8 = “date of first issue”;
$voorblad9 = “date of this issue”;
$voorblad10 = “expiry date”;
$toetsing1 = “DEMONSTRATION OF VERIFICATION”;
$toetsing2 = “CEN standard EN15804 serves as the core PCR[a]”;
$toetsing3 = “Independent verification of the declaration and data, \n according to EN ISO 14025:2010: \n internal: external: X”;
$toetsing4 = “(where appropriate[b]) Third party verifier: \n \n \n \n \n”;
$toetsing5 = “[a] Product Category Rules [b] Optional for B-to-B communication, \n mandatory for B-to-C communication (see EN ISO 14025:2010, 9.4).”;
$kop1 = “PROGRAM OPERATOR”;
$kop2 = “COMPANY INFORMATION”;
$kop3 = “SCOPE OF DECLARATION”;
$kop4 = “VISUAL PRODUCT”;
$kop5 = “PRODUCT”;
$kop6 = “MRPI”.chr(174).” REGISTRATION”;
$kop7 = “EPD REGISTRATION”;
$kop8 = “DATE OF ISSUE”;
$kop9 = “EXPIRY DATE”;
$kop10 = “DECLARED UNIT/FUNCTIONAL UNIT”;
$kop11 = “DESCRIPTION OF PRODUCT”;
$kop12 = “MORE INFORMATION”;
$kop13 = “DETAILED PRODUCT DESCRIPTION”;
$kop14 = “SCOPE AND TYPE”;
$kop15 = “REPRESENTATIVENESS”;
$kop16 = “ENVIRONMENTAL IMPACT per functional unit or declared unit”;
$kop17 = “RESOURCE USE per functional unit or declared unit”;
$kop18 = “OUTPUT FLOWS AND WASTE CATEGORIES per functional unit or declared unit”;
$kop19 = “CALCULATION RULES”;
$kop20 = “SCENARIOS AND ADDITIONAL TECHNICAL INFORMATION”;
$kop21 = “DECLARATION OF SVHC”;
$kop22 = “REFERENCES”;
$kop23 = “REMARKS”;
$tabel1= “PRODUCT STAGE”;
$tabel2 = “CONSTRUCTION”;
$tabel3 = “USE STAGE”;
$tabel4 = “END OF LIFE”;
$tabel5 = “BENEFITS AND”;
$tabel6 = ” “;
$tabel7 = “PROCESS”;
$tabel8 = “STAGE”;
$tabel9 = “LOADS BEYOND THE”;
$tabel10 = “STAGE”;
$tabel11 = “SYSTEM BOUNDARIES”;
$figuur1 = ‘ModulesVertical.png’;
$bijschriftMassatabel = “(*) > 1% of total mass”;
}
else {
$voorblad1 = “volgens ISO 14025 en EN 15804”;
$voorblad2 = “Deze declaratie is voor:”;
$voorblad3 = “van:”;
$voorblad4 = “program operator”;
$voorblad5 = “uitgever”;
$voorblad6 = “MRPI”.chr(174).” registratie”;
$voorblad7 = “EPD registratie”;
$voorblad8 = “datum eerste uitgifte”;
$voorblad9 = “datum deze uitgifte”;
$voorblad10 = “vervaldatum”;
$toetsing1 = “BEWIJS VAN TOETSING”;
$toetsing2 = “CEN norm EN15804 is de PCR[a]”;
$toetsing3 = “Onafhankelijke toetsing van certificaat en dossier, volgens EN ISO 14025:2010: \n intern: extern: X”;
$toetsing4 = “(Indien van toepassing) Onafhankelijke toetser: \n \n \n \n \n”;
$toetsing5 = “[a] Product Category Rules [b] Facultatief voor B-to-B communicatie, \n verplicht voor B-to-C communicatie (zie EN ISO 14025: 2010,9.4).”;
$kop1 = “UITGEVER CERTIFICAAT”;
$kop2 = “BEDRIJFSINFORMATIE”;
$kop3 = “TOEPASSINGSGEBIED CERTIFICAAT”;
$kop4 = “AFBEELDING”;
$kop5 = “PRODUCT”;
$kop6 = “MRPI”.chr(174).” REGISTRATIE”;
$kop7 = “EPD REGISTRATIE”;
$kop8 = “DATUM UITGIFTE”;
$kop9 = “VERVALDATUM”;
$kop10 = “PRODUCT EENHEID/FUNCT. EENHEID”;
$kop11 = “BESCHRIJVING PRODUCT”;
$kop12 = “MEER INFORMATIE”;
$kop13 = “UITGEBREIDE PRODUCT BESCHRIJVING”;
$kop14 = “TOEPASSINGSGEBIED EN TYPE”;
$kop15 = “REPRESENTATIVITEIT”;
$kop16 = “MILIEUBELASTING per functionele eenheid of producteenheid”;
$kop17 = “GRONDSTOF GEBRUIK per functionele eenheid of producteenheid”;
$kop18 = “OUTPUT STROMEN EN AFVALCATEGORIËN per functionele eenheid of producteenheid”;
$kop19 = “REKENREGELS”;
$kop20 = “SCENARIOS EN AANVULLENDE TECHNISCHE INFORMATIE”;
$kop21 = “DECLARATIE VAN SVHC”;
$kop22 = “REFERENTIES”;
$kop23 = “OPMERKINGEN”;
$tabel1= “PRODUCTIE FASE”;
$tabel2 = “CONSTRUCTIE”;
$tabel3 = “GEBRUIKSFASE”;
$tabel4 = “EINDE LEVENSDUUR”;
$tabel5 = “OPBRENGSTEN EN”;
$tabel6 = ” “;
$tabel7 = “PROCES”;
$tabel8 = “FASE”;
$tabel9 = “LASTEN BUITEN DE”;
$tabel10 = “FASE”;
$tabel11 = “SYSTEMGRENZEN”;
$figuur1 = ‘ModulesVerticaal.png’;
$bijschriftMassatabel = “(*) > 1% van totale massa”;
}
function tekstInlezen($tekst,$pdf) {
$tekstblokBreedte = 160;
$trimTekst1 = trim($tekst, ” \n”);//EERST RETURNS AAN HET BEGIN TEKST VERWIJDEREN
$trimTekst = str_replace(“\n \n\n”,”\n\n”, $trimTekst1);//LEGE REGELS/SPATIES VERWIJDEREN
if (strpos($trimTekst, “\n\n”) !==false) {//TEKSTBLOK BEVAT MEERDERE BLOKKEN
$tekstblok = explode(“\n\n”,$trimTekst);
$aantalTekstblokken = count($tekstblok);//AANTAL TEKSTBLOKKEN INCL. KOP
for ($i = 0; $i < $aantalTekstblokken; $i++) {//ELK TEKSTBLOK SPLITSEN if (strpos($tekstblok[$i],”\n”) !==false) { $kop = explode(“\n”,$tekstblok[$i],2);//SPLISEN IN KOP=0 + TEKSTBLOK=1 if (substr($kop[0],-1) === “.” || substr($kop[0],-1) === “:” || substr($kop[0],-1) === “;”) {//KIJK OF KOP PUNT BEVAT AAN HET EINDE OF DUBBELE PUNT $pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$kop[0],0,’J’,false);
}
else {
$pdf->SetFont(‘Arial’,’I’,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$kop[0],0,’L’,false);
}
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$kop[1].”\n \n”,0,’J’,false);
}
else {//GEEN KOPJES
if (strpos($tekstblok[$i],”.”) || strpos($tekstblok[$i],”:”) || strpos($tekstblok[$i],”;”)) {//IN FEITE ZIN
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$tekstblok[$i].”\n \n”,0,’J’,false);
}
else {
$pdf->SetFont(‘Arial’,’I’,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$tekstblok[$i].”\n \n”,0,’J’,false);
}
}
}
}
else {//GEEN TEKSTBLOKKEN MAAR 1 STUK TEKST
if (strpos($trimTekst,”\n”) !==false) {
$kop = explode(“\n”,$trimTekst,2);//SPLISEN IN KOP EN TEKSTBLOK
if (substr($kop[0],-1) === “.” || substr($kop[0],-1) === “:”) {//KIJK OF KOP PUNT BEVAT AAN HET EINDE OF DUBBELE PUNT
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$kop[0],0,’J’,false);
}
else {
$pdf->SetFont(‘Arial’,’I’,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$kop[0],0,’L’,false);
}
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$kop[1].”\n \n”,0,’J’,false);
}
else {//GEEN KOPJES
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell($tekstblokBreedte,5,$trimTekst.”\n \n”,0,’J’,false);
}
}
}
function tabelInlezen($tabblad,$regel,$pdf) {
$yImageGreen = $pdf->GetY()-6;
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,9);
$pdf->SetTextColor(255,255,255);
$pdf->SetFillColor(42,187,144);//OFFICIELE GROEN
$pdf->SetDrawColor(42,187,144);
$yGreen = $yImageGreen+6;
$pdf->SetXY(30,$yGreen);
//KOP TABEL MET 2 OF 3 OF 4 KOLOMMEN
if (empty($tabblad[$regel][3]) === FALSE && strpos($tabblad[$regel][3],”<“) === FALSE) {//4 KOLOMMEN $tekstLengte0 = $pdf->GetStringWidth($tabblad[$regel][0]);
$tekstLengte1= $pdf->GetStringWidth($tabblad[$regel][1]);
$tekstLengte2 = $pdf->GetStringWidth($tabblad[$regel][2]);
$tekstLengte3 = $pdf->GetStringWidth($tabblad[$regel][3]);
//CELLEN EVEN HOOG MAKEN
$aantalRegels0[$regel] = ceil(($tekstLengte0+2)/60);//+2mm MARGE !!!
$aantalRegels1[$regel] = ceil(($tekstLengte1+2)/35);//MAX 35
$aantalRegels2[$regel] = ceil(($tekstLengte2+2)/35);//MAX 35
$aantalRegels3[$regel] = ceil(($tekstLengte3+2)/35);//MAX 35
$hoogteCel[$regel] = max($aantalRegels0[$regel],$aantalRegels1[$regel],$aantalRegels2[$regel],$aantalRegels3[$regel])*5;
if ($hoogteCel[$regel] > 5) {
if ($aantalRegels0[$regel] > 1) {$hoogte0[$regel] = 5;} else {$hoogte0[$regel] = 10;}
if ($aantalRegels1[$regel] > 1) {$hoogte1[$regel] = 5;} else {$hoogte1[$regel] = 10;}
if ($aantalRegels2[$regel] > 1) {$hoogte2[$regel] = 5;} else {$hoogte2[$regel] = 10;}
if ($aantalRegels3[$regel] > 1) {$hoogte3[$regel] = 5;} else {$hoogte3[$regel] = 10;}
}
else {
$hoogte0[$regel] = 5; $hoogte1[$regel] = 5; $hoogte2[$regel] = 5; $hoogte3[$regel] = 5;
}
$pdf->SetXY(30,$yGreen);$pdf->MultiCell(60,$hoogte0[$regel],$tabblad[$regel][0],1,’L’,true);
$pdf->SetXY(90,$yGreen);$pdf->MultiCell(35,$hoogte1[$regel],$tabblad[$regel][1],1,’L’,true);
$pdf->SetXY(125,$yGreen);$pdf->MultiCell(35,$hoogte2[$regel],$tabblad[$regel][2],1,’L’,true);
$pdf->SetXY(160,$yGreen);$pdf->MultiCell(35,$hoogte3[$regel],$tabblad[$regel][3],1,’L’,true);
}
elseif (empty($tabblad[$regel][2]) === FALSE && strpos($tabblad[$regel][2],”<“) === FALSE) {//3 KOLOMMEN //CELLEN EVEN HOOG MAKEN $aantalRegels0[$regel] = ceil(($pdf->GetStringWidth($tabblad[$regel][0])+2)/60);//+2mm MARGE !!!
$aantalRegels1[$regel] = ceil(($pdf->GetStringWidth($tabblad[$regel][1])+2)/35);
$aantalRegels2[$regel] = ceil(($pdf->GetStringWidth($tabblad[$regel][2])+2)/35);
$hoogteCel[$regel] = max($aantalRegels0[$regel],$aantalRegels1[$regel],$aantalRegels2[$regel])*5;
if ($hoogteCel[$regel] > 5) {
if ($aantalRegels0[$regel] > 1) {$hoogte0[$regel] = 5;} else {$hoogte0[$regel] = 10;}
if ($aantalRegels1[$regel] > 1) {$hoogte1[$regel] = 5;} else {$hoogte1[$regel] = 10;}
if ($aantalRegels2[$regel] > 1) {$hoogte2[$regel] = 5;} else {$hoogte2[$regel] = 10;}
}
else {$hoogte0[$regel] = 5; $hoogte1[$regel] = 5; $hoogte2[$regel] = 5;}
$pdf->SetXY(30,$yGreen);$pdf->MultiCell(60,$hoogte0[$regel],$tabblad[$regel][0],1,’L’,true);
$pdf->SetXY(90,$yGreen);$pdf->MultiCell(35,$hoogte1[$regel],$tabblad[$regel][1],1,’L’,true);
$pdf->SetXY(125,$yGreen);$pdf->MultiCell(35,$hoogte2[$regel],$tabblad[$regel][2],1,’L’,true);
}
else {//2 KOLOMMEN
//CELLEN EVEN HOOG MAKEN
$aantalRegels0[$regel] = ceil(($pdf->GetStringWidth($tabblad[$regel][0])+2)/60);//+2mm MARGE !!!
$aantalRegels1[$regel] = ceil(($pdf->GetStringWidth($tabblad[$regel][1])+2)/35);
$hoogteCel[$regel] = max($aantalRegels0[$regel],$aantalRegels1[$regel])*5;
if ($hoogteCel[$regel] > 5) {
if ($aantalRegels0[$regel] > 1) {$hoogte0[$regel] = 5;} else {$hoogte0[$regel] = 10;}
if ($aantalRegels1[$regel] > 1) {$hoogte1[$regel] = 5;} else {$hoogte1[$regel] = 10;}
}
else {$hoogte0[$regel] = 5; $hoogte1[$regel] = 5;}
$pdf->SetXY(30,$yGreen);$pdf->MultiCell(60,$hoogte0[$regel],$tabblad[$regel][0],1,’L’,true);
$pdf->SetXY(90,$yGreen);$pdf->MultiCell(35,$hoogte1[$regel],$tabblad[$regel][1],1,’L’,true);
}
//INHOUD TABEL MET 2 OF 3 OF 4 KOLOMMEN
$pdf->SetFont(‘Arial’,”,9);
$pdf->SetTextColor(0,0,0);
$pdf->SetFillColor(255,255,255);
$pdf->SetDrawColor(0,0,0);
for ($i = $regel+1; $i < $regel+5;$i++) {
if (empty($tabblad[$i][1]) === FALSE && strpos($tabblad[$i][1],”<“) === FALSE) {//MAAK RIJ
if (empty($tabblad[$i][3]) === FALSE && strpos($tabblad[$i][3],”<“) === FALSE) {//4 KOLOMMEN //CELLEN EVEN HOOG MAKEN $aantalRegels0[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][0])+2)/60);//+2mm MARGE !!!
$aantalRegels1[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][1])+2)/35);
$aantalRegels2[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][2])+2)/35);
$aantalRegels3[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][3])+2)/35);
$hoogteCel[$i] = max($aantalRegels0[$i],$aantalRegels1[$i],$aantalRegels2[$i],$aantalRegels3[$i])*5;
if ($hoogteCel[$i] > 5) {
if ($aantalRegels0[$i] > 1) {$hoogte0[$i] = 5;} else {$hoogte0[$i] = 10;}
if ($aantalRegels1[$i] > 1) {$hoogte1[$i] = 5;} else {$hoogte1[$i] = 10;}
if ($aantalRegels2[$i] > 1) {$hoogte2[$i] = 5;} else {$hoogte2[$i] = 10;}
if ($aantalRegels3[$i] > 1) {$hoogte3[$i] = 5;} else {$hoogte3[$i] = 10;}
}
else {$hoogte0[$i] = 5; $hoogte1[$i] = 5; $hoogte2[$i] = 5; $hoogte3[$i] = 5;}
$pdf->SetXY(30,$pdf->GetY());$pdf->MultiCell(60,$hoogte0[$i],$tabblad[$i][0],1,’L’,true);
$pdf->SetXY(90,$pdf->GetY()-$hoogteCel[$i]);$pdf->MultiCell(35,$hoogte1[$i],$tabblad[$i][1],1,’L’,true);
$pdf->SetXY(125,$pdf->GetY()-$hoogteCel[$i]);$pdf->MultiCell(35,$hoogte2[$i],$tabblad[$i][2],1,’L’,true);
$pdf->SetXY(160,$pdf->GetY()-$hoogteCel[$i]);$pdf->MultiCell(35,$hoogte3[$i],$tabblad[$i][3],1,’L’,true);
}
elseif (empty($tabblad[$i][2]) === FALSE && strpos($tabblad[$i][2],”<“) === FALSE) {//3 KOLOMMEN //CELLEN EVEN HOOG MAKEN $aantalRegels0[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][0])+2)/60);//+2mm MARGE !!!
$aantalRegels1[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][1])+2)/55);
$aantalRegels2[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][2])+2)/55);
$hoogteCel[$i] = max($aantalRegels0[$i],$aantalRegels1[$i],$aantalRegels2[$i])*5;
if ($hoogteCel[$i] > 5) {
if ($aantalRegels0[$i] > 1) {$hoogte0[$i] = 5;} else {$hoogte0[$i] = 10;}
if ($aantalRegels1[$i] > 1) {$hoogte1[$i] = 5;} else {$hoogte1[$i] = 10;}
if ($aantalRegels2[$i] > 1) {$hoogte2[$i] = 5;} else {$hoogte2[$i] = 10;}
}
else {$hoogte0[$i] = 5; $hoogte1[$i] = 5; $hoogte2[$i] = 5;}
$pdf->SetXY(30,$pdf->GetY());$pdf->MultiCell(60,$hoogte0[$i],$tabblad[$i][0],1,’L’,true);
$pdf->SetXY(90,$pdf->GetY()-$hoogteCel[$i]);$pdf->MultiCell(35,$hoogte1[$i],$tabblad[$i][1],1,’L’,true);
$pdf->SetXY(125,$pdf->GetY()-$hoogteCel[$i]);$pdf->MultiCell(35,$hoogte2[$i],$tabblad[$i][2],1,’L’,true);
}
else {//2 KOLOMMEN
//CELLEN EVEN HOOG MAKEN
$aantalRegels0[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][0])+2)/60);//+2mm MARGE !!!
$aantalRegels1[$i] = ceil(($pdf->GetStringWidth($tabblad[$i][1])+2)/35);
$hoogteCel[$i] = max($aantalRegels0[$i],$aantalRegels1[$i])*5;
//print_r($hoogteCel[$i]);
if ($hoogteCel[$i] > 5) {
if ($aantalRegels0[$i] > 1) {$hoogte0[$i] = 5;} else {$hoogte0[$i] = 10;}
if ($aantalRegels1[$i] > 1) {$hoogte1[$i] = 5;} else {$hoogte1[$i] = 10;}
}
else {$hoogte0[$i] = 5; $hoogte1[$i] = 5;}
$pdf->SetXY(30,$pdf->GetY());$pdf->MultiCell(60,$hoogte0[$i],$tabblad[$i][0],1,’L’,true);
$pdf->SetXY(90,$pdf->GetY()-$hoogteCel[$i]);$pdf->MultiCell(35,$hoogte1[$i],$tabblad[$i][1],1,’L’,true);
}
}
}
}
//******************************************************** EIND KOP + TEKSTINLEZEN + TABELINLEZEN *****************************************************************
//************************************************************************ GLOSSY *********************************************************************************
$pdf = new PDF();
$pdf->AddPage();
$pdf->SetAutoPageBreak(false);
$pdf->SetMargins(0,0,0);
//AFBEELDING VOORKANT INSCHALEN
$pdf->Image($voorkant,10.2,127.5,108.5,124.5);//121.5,127,87
//KLEUREN
//grijs = “154,154,182”;197,197,213
//lichtblauw = “51,102,255”;
//groen = “42,187,144 (ORIGINEEL)”;156,232,208 ++115,223,190 ++ 136,228,200
//donkerBLAUW = “45,53,118”;
$pdf->SetFillColor(255,255,255);//VLAK BOVEN RECHTS
$pdf->SetXY(121.5, 10);
$pdf->Cell(78.5,52.5,””,0,0,’L’,true);
$pdf->SetFillColor(197,197,213);//VLAK BOVEN LINKS
$pdf->SetXY(10.1, 10);
$pdf->Cell(108.5,52.5,””,0,0,’L’,true);
$pdf->SetFillColor(42,187,144);//VLAK MIDDEN LINKS
$pdf->SetXY(10,67.5);
$pdf->Cell(108.5,55,””,0,0,’L’,true);
$pdf->SetFillColor(255,255,255);//VLAK MIDDEN RECHTSBOVEN
$pdf->SetXY(121.5,67.5);
$pdf->Cell(78.5,80,””,0,0,’L’,true);
$pdf->SetFillColor(42,187,144);//VLAK MIDDEN RECHTSONDER
$pdf->SetXY(121.5,125);
$pdf->Cell(78.5,125,””,0,0,’L’,true);
$pdf->SetFillColor(42,187,144);//VLAK ONDER LINKS
$pdf->SetXY(10.1,252);
$pdf->Cell(108.5,34.75,””,0,0,’L’,true);
$pdf->SetFillColor(255,255,255);//VLAK ONDER RECHTS
$pdf->SetXY(121.5,254.5);
$pdf->Cell(78.5,32.4,””,0,0,’L’,true);
$pdf->SetFillColor(255,255,255);//VLAK ONDER BUITEN KADER
$pdf->SetXY(9,287.25);
$pdf->Cell(200,9.75,””,0,0,’L’,true);
//MONDRIAANLIJNEN
$pdf->SetLineWidth(3);
$pdf->Line(120,11.5,120,285.5);
$pdf->SetLineWidth(5);
$pdf->Line(12.5,65,197.5,65);
$pdf->Line(12.5,125,118,125);
$pdf->Line(121.5,252,197.5,252);
//MARGELIJNEN
$pdf->SetLineWidth(0.5);
$pdf->Line(10,10,200,10);
$pdf->Line(10,287,200,287);
$pdf->Line(10,10,10,287);
$pdf->Line(200,10,200,287);
$pdf->Image(‘Logo_MRPI_2011_Large.jpg’,130,15,65);
$pdf->Image(‘EPD EN15804 VERIFIED.png’,130,258,55);//270
$kopblokX =15;
$kopblokY =25;
$pdf->SetXY($kopblokX, $kopblokY);
$pdf->SetFont(‘Arial’,’B’,17);
$pdf->SetTextColor(0,0,0);
$pdf->Cell(50,7,”Environmental”,0,2,’L’);
$pdf->Cell(50,7,”Product”,0,2,’L’);
$pdf->Cell(50,7,”Declaration”,0,2,’L’);
$pdf->SetFont(‘Arial’,’I’,14);
$pdf->Cell(50,5,$voorblad1,0,2,’L’);
//LOGO VOORKANT INSCHALEN: RUIMTE 79.5 X 57.5 HOEK = (121.5,67.5)
if ($grootteLogo[0] > $grootteLogo[1]) {//BREEDTE > HOOGTE
$pdf->Image($logo,121.5+79.5/2-65/2,67.5+57.5/2-$grootteLogo[1]*(65/$grootteLogo[0])/2,65,0);
}
else {
$pdf->Image($logo,165-$grootteLogo[0]*(57/$grootteLogo[0])/2,100-$grootteLogo[1]*(57/$grootteLogo[0])/2,0,50);
}
$productblokX = 15;
$productblokY = 72;
$pdf->SetXY($productblokX, $productblokY);
$pdf->SetFont(‘Arial’,”,14);
$pdf->Cell(40,6,$voorblad2,0,2,’L’);
$pdf->SetFont(‘Arial’,’B’,15);
$pdf->MultiCell(100,7,iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $productNaam),2,’L’);
$pdf->SetX($productblokX);$pdf->MultiCell(40,8,” “,2,’L’);
$pdf->SetFont(‘Arial’,”,14);
$pdf->SetX($productblokX);$pdf->MultiCell(40,6,$voorblad3,2,’L’);
$pdf->SetFont(‘Arial’,’B’,15);
$pdf->SetX($productblokX);$pdf->MultiCell(100,8,$page1[11][0],2,’L’);
//EVENTUEEL LOGO MILIEUDATABASE TOEVOEGEN
if ($milieudatabase === “Ja”) {
$tekstblokY = 130;
$pdf->Image(‘Logo_NMD_full_color.png’,121.5,230,78.3,0);
}
else {
$tekstblokY = 140;
}
$tekstblokX = 124;
$pdf->SetXY($tekstblokX, $tekstblokY);
$pdf->SetFont(‘Arial’,”,11);
$pdf->SetTextColor(0,0,0);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$voorblad4,0,2,’C’);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,”Stichting MRPI”.chr(174),0,2,’C’);
$pdf->SetFont(‘Arial’,”,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$voorblad5,0,2,’C’);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,”Stichting MRPI”.chr(174),0,2,’C’);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,”www.mrpi.nl”,0,2,’C’);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,” “,0,2,’L’);
$pdf->SetFont(‘Arial’,”,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$voorblad6,0,2,’C’);
$pdf->SetFont(‘Arial’,’B’,11);
if (empty($MRPInummer) || strpos($MRPInummer,”MRPI”)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$MRPInummer,0,2,’C’);
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$voorblad7,0,2,’C’);
$pdf->SetFont(‘Arial’,’B’,11);
if (empty($EPDnummer) || strpos($EPDnummer,”EPD”)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$EPDnummer,0,2,’C’);
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$voorblad8,0,2,’C’);
$pdf->SetFont(‘Arial’,’B’,11);
if (empty($datumUitgifte) || strpos($datumUitgifte,”ISSUE”)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$datumUitgifte,0,2,’C’);//THIS ISSUE GELIJK AAN FIRST ISSUE
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$voorblad9,0,2,’C’);
$pdf->SetFont(‘Arial’,’B’,11);
if (empty($datumUitgifte) || strpos($datumUitgifte,”ISSUE”)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$datumUitgifte,0,2,’C’);//THIS ISSUE GELIJK AAN FIRST ISSUE
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,11);
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$voorblad10,0,2,’C’);
$pdf->SetFont(‘Arial’,’B’,11);
if (empty($datumVerval) || strpos($datumVerval,”EXPIRY”)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->SetX($tekstblokX);$pdf->Cell(70,6,$datumVerval,0,2,’C’);
$pdf->SetTextColor(0,0,0);
$classificatieblokX = 15;
$classificatieblokY = 255;
if ($productNaam ==”International Intercryl 525″ || $productNaam == “International Interchar”) {
}
else {
$NLSfBclassification = iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $page1[26][0]);
if (empty($NLSfBclassification)) {
//NIETS LATEN ZIEN
}
else {
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetXY($classificatieblokX,$classificatieblokY);$pdf->Cell(30,5,”NL/SfB class.”,0,2,’L’);
$pdf->SetFont(‘Arial’,’I’,11);
$pdf->MultiCell(100,5,$NLSfBclassification,2,’L’);
}
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,’B’,13);
$pdf->SetFont(‘Arial’,’I’,13);
if (empty($EUclassification)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
}
$pdf->SetMargins(1,1,0.7);//TERUG ORIGINELE MARGINS 1CM
$pdf->SetLineWidth(0.2);//TERUG NAAR DEFAULT LIJNDIKTE
//************************************************************ GEGEVENSPAGINA ***********************************************************
$pdf->AliasNbPages();
$pdf->SetTopMargin(25);
$pdf->AddPage();
//UITGEVER
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,35,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,39);
$pdf->Cell(0,5,$kop1,0,2,’L’);//UITGEVER CERTIFICAAT
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
$pdf->MultiCell(32,5,”Stichting MRPI”.chr(174).” Kingsfordweg 151 1043GR Amsterdam”,0,’L’,false);
//BEDRIJFSINFORMATIE
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,65,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,69);
$pdf->Cell(0,5,$kop2,0,2,’L’);//BEDRIJFSINFORMATIE
//BEDRIJFSlOGO INSCHALEN: RUIMTE 70X25
if ($grootteLogo[0] > 3.5*$grootteLogo[1]) {//BREEDTE > HOOGTE
$y_logo = 77;
$pdf->Image($logo,30,$y_logo+(25-$grootteLogo[1]*70/$grootteLogo[0])/2,70,0);
}
else {
$y_logo = 77;
$pdf->Image($logo,30,$y_logo,0,25);
}
//BEDRIJFSGEGEVENS UIT SHEET OVERNEMEN
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,’I’,10);
$pdf->SetXY(30,102);
$pdf->Cell(0,5,iconv(‘UTF-8’, ‘windows-1252′, $page1[11][0]),0,2,’L’);
$pdf->Cell(0,5,iconv(‘UTF-8’, ‘windows-1252′, $page1[12][0]),0,2,’L’);
$pdf->Cell(0,5,iconv(‘UTF-8’, ‘windows-1252′, $page1[13][0]),0,2,’L’);
$pdf->Cell(0,5,iconv(‘UTF-8’, ‘windows-1252′, $page1[14][0]),0,2,’L’);
//TEL VERVANG + DOOR 00
$pdf->Cell(0,5,iconv(‘UTF-8’, ‘windows-1252′, str_replace(“+”,”00″,$page1[15][0])),0,2,’L’);
//LENGTE CONTACTPERSOON BEPALEN EN CELBREEDTE AANPASSEN
$lengteContactString = $pdf ->GetStringWidth($page1[16][0]) + 3;
if (strpos($page1[16][0],”Neufert”)) {
$pdf->Cell($lengteContactString,5,iconv(‘UTF-8’, ‘windows-1252′, “info@spenner-zement.de”),0,2,’L’);
}
else {
$pdf->Cell($lengteContactString,5,iconv(‘UTF-8’, ‘windows-1252′, $page1[16][0]),0,2,’L’);
}
$pdf->Cell(0,5,iconv(‘UTF-8’, ‘windows-1252′, $page1[17][0]),0,2,’L’);
//TOEPASINGSGEBIED CERTIFICAAT
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,134,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,138);
$pdf->Cell(0,5,$kop3,0,2,’L’);//TOEPASSINGSGEBIED CERTIFICAAT
$naamLCAspecialist = iconv(‘UTF-8’, ‘windows-1252’,$page1[20][0]);
$bedrijfLCAspecialist = iconv(‘UTF-8’, ‘windows-1252’,$page1[21][0]);
$naamToetser = iconv(‘UTF-8’, ‘windows-1252’, $page1[22][0]);
$bedrijfToetser = iconv(‘UTF-8’, ‘windows-1252’,$page1[23][0]);
toepassingsgebied($taal,$naamLCAspecialist,$bedrijfLCAspecialist,$naamToetser,$bedrijfToetser,$pdf);
//AFBEELDING PRODUCT
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,174,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,178);
$pdf->Cell(0,5,$kop4,0,2,’L’);//AFBEELDING
//SCHALEN AFBEELDING NAAR AFBEELDINGSRUIMTE (70MM X 90MM)
if ($grootteAfbeelding[0] > $grootteAfbeelding[1]) {//BREDER DAN HOGER
$y_afbeelding = 190+90/2-($grootteAfbeelding[1]/$grootteAfbeelding[0]*70)/2;
$pdf->Image($afbeelding,25,$y_afbeelding,70,0);//AANNAME VOLDOENDE PIXELS DUS GEWOON 70MM BREED
}
else {
$y_afbeelding = 190;
$pdf->Image($afbeelding,25,$y_afbeelding,0,90);
}
//EIND LINKERKOLOM VOORPAGINA
//PRODUCT
$pdf->Image(‘V-MRPI-GREEN.jpg’,115,35,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,39);
$pdf->Cell(0,5,$kop5,0,2,’L’);//PRODUCT
if (strlen(iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $productNaam)) < 72 ) {//36 PER REGEL 10P $pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,’10’);
$pdf->MultiCell(0,5,iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $productNaam),0,’L’,false);
}
elseif (strlen(iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $productNaam)) < 84 ) {// 42 PER REGEL 9P $pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,’9′);
$pdf->MultiCell(0,5,iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $productNaam),0,’L’,false);
}
else {
$pdf->SetTextColor(255,0,0);
$pdf->SetFont(‘Arial’,”,’10’);
$pdf->MultiCell(0,5,””,0,’L’,false);
}
//MRPI REGISTRATIENUMMER
$pdf->Image(‘V-MRPI-GREEN.jpg’,115,50,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,54);
$pdf->Cell(0,5,$kop6,0,2,’L’);
$pdf->SetFont(‘Arial’,”,10);
if ($MRPInummer === “” || empty($MRPInummer)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->Cell(0,5,$MRPInummer,0,2,’L’);
//EPD REGISTRATIENUMMER
$pdf->Image(‘V-MRPI-GREEN.jpg’,115,65,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,69);
$pdf->Cell(0,5,$kop7,0,2,’L’);
$pdf->SetFont(‘Arial’,”,10);//CHECK OF CONCEPT OF NIET
if ($EPDnummer === “” || empty($EPDnummer)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->Cell(0,5,$EPDnummer,0,2,’L’);
//DATUM UITGIFTE
$pdf->Image(‘V-MRPI-GREEN.jpg’,115,80,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,84);
$pdf->Cell(0,5,$kop8,0,2,’L’);//DATUM VAN UITGIFTE
$pdf->SetFont(‘Arial’,”,10);
if ($datumUitgifte === “” || empty($datumUitgifte)) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->Cell(0,5,$datumUitgifte,0,2,’L’);
//DATUM VERVAL
$pdf->Image(‘V-MRPI-GREEN.jpg’,115,95,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,99);
$pdf->Cell(0,5,$kop9,0,2,’L’);//VERVALDATUM
$pdf->SetFont(‘Arial’,”,10);
if ($datumVerval === “” || $datumVerval === ” “) {
$pdf->SetTextColor(255,0,0);
}
else {
$pdf->SetTextColor(0,0,0);
}
$pdf->Cell(0,5,$datumVerval,0,2,’L’);
//PRODUCTEENHEID
$pdf->Image(‘V-MRPI-GREEN.jpg’,115,110,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,114);
$pdf->Cell(0,5,$kop10,0,2,’L’);//PRODUCTEENHEID+FUNCTIONELE EENHEID
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
$declaredFunctionalUnit = iconv(‘UTF-8’, ‘windows-1252’, $page1[14][3]);
$pdf->SetTextColor(0,0,0);
if (strlen($declaredFunctionalUnit) < 230) {//PRODUCTEENHEID PASSEND MAKEN $pdf->SetFont(‘Arial’,”,10);
$pdf->MultiCell(70,5,$declaredFunctionalUnit,0,’J’,false);
}
elseif (strlen($declaredFunctionalUnit) < 300){ $pdf->SetFont(‘Arial’,”,8);
$pdf->MultiCell(70,5,$declaredFunctionalUnit,0,’J’,false);
}
else {
$pdf->SetTextColor(255,0,0);
$pdf->SetFont(‘Arial’,”,10);
$declaredFunctionalUnit = “”;
$pdf->MultiCell(70,5,$declaredFunctionalUnit,0,’L’,false);
}
//BESCHRIJVING VAN HET PRODUCT
$pdf->Image(‘V-MRPI-GREEN.jpg’,115,174,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,178);
$pdf->Cell(0,5,$kop11,0,2,’L’);//BESCHRIJVING
$beschrijvingProduct = iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’,$page1[17][3]);//PROBEER TE VERVANGEN VREEMDE TEKENS
$pdf->SetTextColor(0,0,0);
if (strlen($beschrijvingProduct) < 160) {//BESCHRIJVING PASSEND MAKEN AANTAL TEKENS $pdf->SetFont(‘Arial’,”,10);
$pdf->MultiCell(70,5,$beschrijvingProduct,0,’J’,false);
}
elseif (strlen($beschrijvingProduct) < 188){ $pdf->SetFont(‘Arial’,”,8);//MAXIMAAL 4X45 = 180 TEKENS INCLUSIEF SPATIES
$pdf->MultiCell(70,5,$beschrijvingProduct,0,’J’,false);//SCHRIJVEN BESCHRIJVING PRODUCT
}
else {
$pdf->SetTextColor(255,0,0);
$pdf->SetFont(‘Arial’,”,10);
$beschrijvingProduct = “”;
$pdf->MultiCell(70,5,$beschrijvingProduct,0,’L’,false);//SCHRIJVEN BESCHRIJVING PRODUCT
}
$lengteBeschrijving = $pdf ->GetStringWidth($beschrijvingProduct);
if ($lengteBeschrijving < 70) { $y_beschrijving = 194; } else { $y_beschrijving = 204; } //MEER INFORMATIE $pdf->Image(‘V-MRPI-GREEN.jpg’,115,$y_beschrijving-4,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(130,$y_beschrijving);
$pdf->Cell(0,5,$kop12,0,2,’L’);//MEER INFORMATIE
$meerInformatie = iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’,$page1[20][3]);
$pdf->SetTextColor(0,0,0);
if (strlen($meerInformatie) < 44) {//PASSEND MEER INFORMATIE $pdf->SetFont(‘Arial’,’I’,10);
$pdf->MultiCell(70,5,$meerInformatie,0,’L’,false);
}
else {
$pdf->SetFont(‘Arial’,’I’,9);
$pdf->MultiCell(70,4,$meerInformatie,0,’L’,false);
}
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BEWIJS VAN TOETSING xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
$pdf->SetAutoPageBreak(true, 10);//FIT DEMONSTRATION VERIFICATION
$pdf->SetFont(‘Arial’,’I’,11);
$pdf->SetTextColor(0,0,0);
$pdf->SetXY(110,218);
$pdf->Cell(90,5,$toetsing1,1,2,’C’);
$pdf->SetFont(‘Arial’,”,8);
$pdf->Cell(90,5,$toetsing2,1,2,’C’);
$pdf->MultiCell(90,5,$toetsing3,1,’C’);
$pdf->SetXY(110,243);
if ($EPDnummer === “” || empty($EPDnummer)) {//VERIFIER PAS TOEVOEGEN ALS NUMMER TOEGEKEND
$pdf->SetTextColor(255,0,0);
$verifier = “NAME VERIFIER + SIGNATURE”;
}
else {
if (strpos($page1[22][0], “Jonkers”)) {//EERST LCA SPECIALIST, DAN VERIFIER
$verifier = “Niels Jonkers, Ecochain”;
$pdf->Image(‘Sign_Niels Jonkers.jpeg’,145,248,28);
}
elseif (strpos($page1[22][0],”Jansen”)) {
$verifier = “Kamiel Jansen, NIBE BV”;
$pdf->Image(‘Hand_tek_kamiel.png’,145,250,30);
}
elseif (strpos($page1[22][0], “Ewijk”)) {
$verifier = “Harry van Ewijk, SGS Search”;
$pdf->Image(‘HarryVanEwijk.jpeg’,145,248,35);
}
else {
$verifier = “Bob Roijen, SGS Intron B.V.”;
$pdf->Image(‘Bob Roijen.png’,145,248,35);
}
}
$pdf->MultiCell(90,5,$toetsing4.$verifier,1,’C’);
$pdf->SetXY(110,273);
$pdf->SetTextColor(0,0,0);
$pdf->MultiCell(90,5,$toetsing5,1,’L’);
$pdf->SetAutoPageBreak(true, 30);//TERUG NAAR STANDAARD
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx START PAGINAS VULLEN xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
$pdf->SetTextColor(0,0,0);
$pdf->AddPage();
//UITGEBREIDE PRODUCT BESCHRIJVING
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,35,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,39);
$pdf->Cell(0,5,$kop13,0,2,’L’);
$pdf->SetTextColor(0,0,0);
$detailedProductDescription1 = iconv(‘UTF-8’, ‘windows-1252//TRANSLIT’, $page2[1][0]);//TRANSLIT = REPLACE, IGNORE = VERWIJDEREN
tekstInlezen($detailedProductDescription1,$pdf);
//TABEL MASSAPERCENTAGE
$yImageGreen = $pdf->GetY()-6;
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,9);
$pdf->SetTextColor(255,255,255);
$pdf->SetFillColor(42,187,144);
$pdf->SetDrawColor(42,187,144);
$yGreen = $yImageGreen+6;
$pdf->SetXY(30,$yGreen);
//CHECK OF TABEL MASSAPERCENTAGE VOL OF LEEG + LENGTE INVOER EN MAXIMALE LENGTE !!!!!
$arrayMassatabel = array();
for ($i = 4; $i < 12;$i++) {//8 rijen !!!
if (empty($page2[$i][2]) === FALSE && strpos($page2[$i][2],”<“) === FALSE) {//MAAK RIJ //BEPAAL LENGTE TEKST IN CEL $i + ARRAY VOL MAKEN $lengteTekstMassapercentage = $pdf -> GetStringWidth($page2[$i][0]);
array_push($arrayMassatabel,$lengteTekstMassapercentage);
}
}
$maxBreedteMassaTabel = ceil(max($arrayMassatabel));//AFRONDEN OMHOOG NAAR HEEL GETAL
//KOPREGEL TABEL MASSAPERCENTAGE
if (strpos($page1[3][0],”Hakwood”)) {
$pdf->Cell(90,5,iconv(‘UTF-8’, ‘windows-1252′, $page2[3][0]),1,0,’L’,true);//ONDERDEEL
$pdf->Cell(35,5,iconv(‘UTF-8’, ‘windows-1252′, $page2[3][1]),1,0,’C’,true);//KG OF %
$pdf->Cell(35,5,iconv(‘UTF-8’, ‘windows-1252′, $page2[3][2]),1,1,’C’,true);
}
else {
$pdf->Cell($maxBreedteMassaTabel+5,5,iconv(‘UTF-8’, ‘windows-1252′, $page2[3][0]),1,0,’L’,true);//ONDERDEEL
$pdf->Cell(25,5,iconv(‘UTF-8’, ‘windows-1252′, $page2[3][2]),1,1,’C’,true);//KG OF %
}
$pdf->SetFont(‘Arial’,”,9);
$pdf->SetTextColor(0,0,0);
$pdf->SetFillColor(255,255,255);
$pdf->SetDrawColor(0,0,0);
//VULLEN MASSA PERCENTAGE TABEL
for ($i = 4; $i < 12;$i++) {//8 rijen !!!
if (empty($page2[$i][2]) === FALSE && strpos($page2[$i][2],”<“) === FALSE) {//MAAK RIJ $pdf->SetX(30);
$lengteTekstMassapercentage = $pdf -> GetStringWidth($page2[$i][0]);
array_push($arrayMassatabel,$lengteTekstMassapercentage);
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
$pdf->Cell($maxBreedteMassaTabel+5,5,$page2[$i][0],1,0,’L’,true);
$pdf->Cell(25,5,$page2[$i][2],1,1,’C’,true);
}
}
$pdf->SetX(30);
$pdf->SetFont(‘Arial’,’B’,10);
$pdf->Cell(90,5,$bijschriftMassatabel,0,0,’L’);
//TOEPASSINGSGEBIED EN TYPE = SCOPE AND TYPE
$yImageGreen = $pdf -> GetY()+4;
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$yGreen = $pdf -> GetY()+8;
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop14,0,2,’L’);//TOEPASSINGSGEBIED EN TYPE
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
if (empty($page2[9][0])) {//STANDAARD SJABLOON INVULLEN
$scopeAndType = iconv(‘UTF-8’, ‘windows-1252’, $page2[11][0]);
}
elseif (empty($page2[10][0])) {//SPENNER ZEMENT MET TABEL MASSAPERCENTAGE 6 INGREDIENTEN OF 7 OF 8 INGREDIENTEN !!
$scopeAndType = iconv(‘UTF-8’, ‘windows-1252’, $page2[12][0]);
}
elseif (empty($page2[11][0])) {//7 ingredienten
$scopeAndType = iconv(‘UTF-8’, ‘windows-1252’, $page2[13][0]);
}
elseif (empty($page2[12][0])) {//8 ingredienten
$scopeAndType = iconv(‘UTF-8’, ‘windows-1252’, $page2[14][0]);
}
else {
$scopeAndType = iconv(‘UTF-8’, ‘windows-1252’, $page2[11][0]);
}
// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CUSTOM FLEETWOOD xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
if (strpos($page1[7][0], “Fleetwood”) !== false) {
$tekstblok = explode(“\n\n”,$scopeAndType);//TEKST BEVAT MEERDERE BLOKKEN
$aantalTekstblokken = count($tekstblok);//AANTAL TEKSTBLOKKEN INCL. KOP
for ($i = 0; $i < 3; $i++) {//ELK TEKSTBLOK SPLITSEN if ($i === 1) { $pdf->AddPage();
}
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell(165,5,$tekstblok[$i].”\n \n”,0,’J’,false);
}
}
else {
tekstInlezen($scopeAndType,$pdf);//STANDAARD VOOR SCOPE AND TYPE
}
//KOP TABEL MODULES DIE INGEVULD ZIJN
$yModules = $pdf->GetY();//CONTROLEER OF TABEL MODULES PAST
if ($yModules > 200) {
$pdf->AddPage();
$yImageGreen = 35;
$yGreen = 39;
}
else {
$yImageGreen = $yModules-2;
$yGreen = $yImageGreen+2;
}
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,8);
$pdf->SetTextColor(255,255,255);
$pdf->SetFillColor(42,187,144);//GROENE KLEUR CELLEN
$pdf->SetXY(30,$yGreen);$pdf->Cell(31,6,$tabel1,0,0,’L’,true);
$pdf->SetXY(61,$yGreen);$pdf->Cell(25,6,$tabel2,0,0,’C’,true);
$pdf->SetXY(86,$yGreen);$pdf->Cell(44,6,$tabel3,0,0,’C’,true);
$pdf->SetXY(130,$yGreen);$pdf->Cell(31,6,$tabel4,0,0,’C’,true);
$pdf->SetXY(161,$yGreen);$pdf->Cell(35,6,$tabel5,0,1,’C’,true);
$pdf->SetXY(30,$yGreen+6);$pdf->Cell(31,6,$tabel6,0,0,’L’,true);
$pdf->SetXY(61,$yGreen+6);$pdf->Cell(25,6,$tabel7,0,0,’C’,true);
$pdf->SetXY(86,$yGreen+6);$pdf->Cell(44,6,$tabel6,0,0,’C’,true);
$pdf->SetXY(130,$yGreen+6);$pdf->Cell(31,6,$tabel8,0,0,’C’,true);
$pdf->SetXY(161,$yGreen+6);$pdf->Cell(35,6,$tabel9,0,1,’C’,true);
$pdf->SetXY(30,$yGreen+12);$pdf->Cell(31,6,$tabel6,0,0,’L’,true);
$pdf->SetXY(61,$yGreen+12);$pdf->Cell(25,6,$tabel10,0,0,’C’,true);
$pdf->SetXY(86,$yGreen+12);$pdf->Cell(44,6,$tabel6,0,0,’C’,true);
$pdf->SetXY(130,$yGreen+12);$pdf->Cell(31,6,$tabel6,0,0,’C’,true);
$pdf->SetXY(161,$yGreen+12);$pdf->Cell(35,6,$tabel11,0,2,’C’,true);
$pdf->Image($figuur1,29.8,null,166,0,’PNG’);
$pdf->SetXY(30.1,$pdf ->GetY()-0.18);//MODULES AANKRUISEN INHOUD
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,7);
$pdf->Cell(10,5,$page3[2][0],1,0,’C’);
$pdf->SetX(40);$pdf->Cell(10,5,$page3[2][1],1,0,’C’);
$pdf->SetX(50);$pdf->Cell(10.5,5,$page3[2][2],1,0,’C’);
$pdf->SetX(60.5);$pdf->Cell(12.5,5,$page3[2][3],1,0,’C’);
$pdf->SetX(73);$pdf->Cell(11.5,5,$page3[2][4],1,0,’C’);
$pdf->SetX(84.5);$pdf->Cell(6,5,$page3[2][5],1,0,’C’);
$pdf->SetX(90.5);$pdf->Cell(6,5,$page3[2][6],1,0,’C’);
$pdf->SetX(96.5);$pdf->Cell(6.5,5,$page3[2][7],1,0,’C’);
$pdf->SetX(103);$pdf->Cell(6.5,5,$page3[2][8],1,0,’C’);
$pdf->SetX(109.5);$pdf->Cell(6.5,5,$page3[2][9],1,0,’C’);
$pdf->SetX(116);$pdf->Cell(6.9,5,$page3[2][10],1,0,’C’);
$pdf->SetX(122.9);$pdf->Cell(6.9,5,$page3[2][11],1,0,’C’);
$pdf->SetX(129.8);$pdf->Cell(9.1,5,$page3[2][12],1,0,’C’);
$pdf->SetX(138.9);$pdf->Cell(7.3,5,$page3[2][13],1,0,’C’);
$pdf->SetX(146.2);$pdf->Cell(7.3,5,$page3[2][14],1,0,’C’);
$pdf->SetX(153.5);$pdf->Cell(7.5,5,$page3[2][15],1,0,’C’);
$pdf->SetX(161);$pdf->Cell(34.3,5,$page3[2][16],1,1,’C’);
$pdf->SetX(30);
$pdf->SetFont(‘Arial’,”,8);
$pdf->MultiCell(165,5,$page3[2][17].”\n”.$page3[2][19].”\n “.$page3[2][21],0,’L’);//MODULE BEREKEND
// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CUSTOM FLEETWOOD xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
if (strpos($page1[7][0], “Fleetwood”) !== false) {
$tekstblok = explode(“\n\n”,$scopeAndType);//LAATSTE TEKSTBLOK
$aantalTekstblokken = count($tekstblok);
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell(165,5,$tekstblok[3].”\n \n”,0,’J’,false);
}
// XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX LIFECYCLE STAGES NA MODULES XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
if (empty($lifeCycleStages)) {
}
else {
$pdf->Image($lifeCycleStages[0],30,null,165);//SCHEMA MET LIFE CYCLE STAGES ETC.
$yImageGreen = $pdf -> GetY()+4;
$yGreen = $pdf-> GetY()+8;
}
//REPRESENTATIVITEIT
$representativeness1 = iconv(‘UTF-8’, ‘windows-1252’, $page3[5][0]);
//GENOEG RUIMTE VOOR REPRESENTATIVENESS ?
$y_representativeness1 = $pdf -> GetY();
if ($y_representativeness1 > 230) {
$pdf->AddPage();
$yImageGreen = 35;
}
else {
$yImageGreen = $pdf -> GetY();
}
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$yGreen = $yImageGreen+4;
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop15,0,2,’L’);//REPRESENTATIVITEIT (INDIEN GEMIDDELD)
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
//KIJKEN OF VELD REPRESENTATIVIETIET LEEG IS !!!!!! ROOD MAKEN INDIEN JA ???
if (empty($representativeness1)) {
$pdf->SetTextColor(255,0,0);
$representativeness1 = “Not applicable as this is an environmental product declaration for a specific product from a specific manufacturer on a specific location.”;
}
tekstInlezen($representativeness1,$pdf);
$pdf->SetTextColor(0,0,0);
// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx TABEL 1: MILIEUBELASTING per functionele eenheid of producteenheid, TABELLEN OP TWEE PAGINAS
if ($productNaam === “GGBS” || $productNaam === “Geotechnical binder 90-10” || $productNaam === “CEM IIIA”) {//EXTRA SHEET ECOCEM 2
$eindeLoop = 2;
}
else {
$eindeLoop = 1;
}
for ($k = 0; $k < $eindeLoop; $k++) {//LOOP VOOR DUBBELE TABELLEN ECOCEM2 if ($k === 0) { if ($eindeLoop === 2) { $tabelNaam = “Fos sur Mer”; } else { $tabelNaam = “”; } } else { $page3 = $page5; $tabelNaam = “Dunkirk”; } $pdf->SetAutoPageBreak(true, 20);//KLEINER BIJ TABELLEN
if ($pdf->GetY() < 144 && $toxiciteiten === “Ja”) { $yImageGreen = $pdf -> GetY()-4;
$yGreen = $yImageGreen+4;
$startpositieY = $yGreen+6;//startpositie Y +6
}
elseif ($pdf-> GetY() < 145 && $toxiciteiten === “Nee”) { $yImageGreen = $pdf -> GetY()-2;
$yGreen = $yImageGreen+4;
$startpositieY = $yGreen+6;//startpositie Y +6
}
else {
$pdf->AddPage();
$yImageGreen = 35;
$yGreen = 39;
$startpositieY = 45;//45 is nieuwe pagina
}
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop16.” “.$tabelNaam,0,2,’L’);//MILIEUBELASTING MET DAARACHTER EVENTUEEL TABELNAAM VOOR ECOCEM2
$celhoogte = 8;
$INA = 7;//celbreedte bij INA of bij 0 !!!
$celbreedte = 10.3;
//BEPAAL MAATGEVENDE CELBREEDTE
$kolomA1D = array();
$breedteCellen1 = array();
for ($kolomTabel = 2; $kolomTabel < 20;$kolomTabel++) {
for ($rijTabel = 8;$rijTabel < 22;$rijTabel++) { if ($rijTabel === 16) {//RIJ TOXICITEIT UITLEG OVERSLAAN } else { if ($page3[$rijTabel][$kolomTabel] == “INA” || empty($page3[$rijTabel][$kolomTabel])) { $cel = $INA; } else { $cel = $celbreedte; } array_push($kolomA1D, $cel); } } array_push($breedteCellen1, max($kolomA1D)); $kolomA1D = array();//MAAK ARRAY KOLOM WEER LEEG } //KOP TABEL 1 $pdf->SetFont(‘Arial’,’B’,7);
$pdf->SetTextColor(255,255,255);
$pdf->SetFillColor(42,187,144);
$startpositieX = 15;//startpositie X tabelcoordinaat
$i = $startpositieY+5;//celcoordinaat Y in mm
$X = $startpositieX;
$pdf->SetXY($startpositieX,$startpositieY);$pdf->Cell(10,5,” “,1,0,’C’,TRUE);$X = $startpositieX+10;
$pdf->SetX($X);$pdf->Cell(18,5,$page3[7][1],1,0,’C’,TRUE);$X = $X+18;
for ($j = 0; $j < 17;$j++) { $pdf->SetX($X);$pdf->Cell($breedteCellen1[$j],5,$page3[7][$j+2],1,0,’C’,TRUE);$X = $X+$breedteCellen1[$j];
}
$pdf->SetX($X);$pdf->Cell($breedteCellen1[17],5,”D”,1,0,’C’,TRUE);
//EERSTE TWEE KOLOMMEN TABEL 1
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,8);
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”ADPE”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,4,”kg \n Sb-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”ADPF”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”GWP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,4,”kg \n CO2-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”ODP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,4,”kg \n CFC11-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”POCP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,4,”kg \n ethene-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”AP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,4,”kg \n SO2-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”EP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,4,”kg \n (PO4)3–eq.”,1,’C’);$i=$i+8;
//INHOUD TABEL 1 TOT TOXICITEITEN
$i = $startpositieY+5;
$X = $startpositieX+10+18;
for ($rijTabel = 8;$rijTabel < 15;$rijTabel++)
{
for ($inhoudCel = 2;$inhoudCel < 20;$inhoudCel++) { if ($page3[$rijTabel][$inhoudCel] == “INA”){ $pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen1[$inhoudCel-2],8,”INA”,1,’C’);
}
elseif ($page3[$rijTabel][$inhoudCel] == “0”){
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen1[$inhoudCel-2],8,”0.00″,1,’C’);
}
else {$split1 = explode(“E”,$page3[$rijTabel][$inhoudCel]);
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen1[$inhoudCel-2],4,”$split1[0] \n E $split1[1]”,1,’C’);
}
$X = $X+$breedteCellen1[$inhoudCel-2];
}
$i = $i+8;
$X = $startpositieX+10+18;
}
//LEGENDAREGEL TABEL 1 + EERSTE TWEE KOLOMMEN TOXICITEITEN
if ($toxiciteiten === “Ja”)
{
$pdf->SetXY($startpositieX,$i);$pdf->Cell(array_sum($breedteCellen1)+10+18,4,$page3[15][0],1,0,’L’);
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,8);
$i = $i+4;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”HTP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg DCB-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”FAETP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg DCB-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”MAETP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg DCB-eq.”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”TETP”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg DCB-eq.”,1,’C’);$i=$i+8;
if ($page3[20][5] < 0.000000000000000000000000000000001) {//EVENTUEEL ECI ERUIT HALEN ALS ECI WAARDE A1-A3 = 0 $i = $i-8-8-8-8; } else { $pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”ECI”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”Euro”,1,’C’);
$i = $i-8-8-8-8;
}
//INHOUD TABEL 1 TOXICITEITEN
$X = $startpositieX+10+18;
if ($page3[20][5] < 0.000000000000000000000000000000001 ){//EVENTUEEL ECI ERUIT HALEN
$rijTabelmax = 20;
}
else {
$rijTabelmax = 21;
}
for ($rijTabel = 16;$rijTabel < $rijTabelmax;$rijTabel++)
{
for ($inhoudCel = 2;$inhoudCel < 20;$inhoudCel++) { if ($page3[$rijTabel][$inhoudCel] == “INA”){ $pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen1[$inhoudCel-2],8,”INA”,1,’C’);
}
elseif ($page3[$rijTabel][$inhoudCel] == “0”){
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen1[$inhoudCel-2],8,”0.00″,1,’C’);
}
else {$split1 = explode(“E”,$page3[$rijTabel][$inhoudCel]);
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen1[$inhoudCel-2],4,”$split1[0] \n E $split1[1]”,1,’C’);
}
$X = $X+$breedteCellen1[$inhoudCel-2];
}
$i = $i+8;
$X = $startpositieX+10+18;
}
}//EIND IF TOXICITEITEN
//LEGENDA TABEL 1: INLEZEN TAAL UIT SPREADSHEET !!!!!
$i = $i+2;
$pdf->SetXY($startpositieX,$i);
$pdf->SetFont(‘Arial’,”,8);
$pdf->SetTextColor(0,0,0);
if ($toxiciteiten === “Nee”){
$pdf->Cell(80,4,$page3[8][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[9][20],0,0,’L’);$pdf->Cell(80,4,$page3[10][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[11][20],0,0,’L’);$pdf->Cell(80,4,$page3[12][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[13][20],0,0,’L’);$pdf->Cell(80,4,$page3[14][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[15][20],0,1,’L’);
}
//TOXICITEITEN JA OF NEE …
else {//HELE LEGENDA ONDER ELKAAR WANT TOCH NIEUWE PAGINA !
$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[8][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[9][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[10][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[11][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[12][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[13][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[14][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[15][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[16][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[17][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[18][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(100,4,$page3[19][20],0,1,’L’);$pdf->SetX($startpositieX);
if ($page3[20][5] < 0.000000000000000000000000000000001 ){//EVENTUEEL ECI ERUIT HALEN } else { $pdf->Cell(100,4,$page3[20][20],0,0,’L’);
}
}
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx TABEL 2 OP NIEUWE PAGINA OF NIET
if ($pdf->GetY() < 180) { if ($toxiciteiten == “Ja”) {//TUSSENRUIMTE VERKLEINEN ZONDER TOXICITEITEN $pdf->AddPage();
$startpositieY2 =45;
}
else {
$startpositieY2 =148;//STARTPOSITIE VAN TABEL 2
}
}
else {
$pdf->AddPage();
$startpositieY2 =45;
}
//TABEL 2 RESOURCE USE per functionele eenheid of producteenheid
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$startpositieY2-10,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,$startpositieY2-6);
$pdf->Cell(0,5,$kop17.” “.$tabelNaam,0,2,’L’);//GRONDSTOF GEBRUIK PER FUNCIONELE EENHEID
//MAATGEVENDE CELBREEDTE TABEL 2
$kolomA1D = array();
$breedteCellen2 = array();
for ($kolomTabel = 2; $kolomTabel < 20;$kolomTabel++)
{
for ($rijTabel = 35;$rijTabel < 45;$rijTabel++) { if ($page3[$rijTabel][$kolomTabel] == “INA” || empty($page3[$rijTabel][$kolomTabel])) { $cel = $INA; } else { $cel = $celbreedte; } array_push($kolomA1D, $cel); } array_push($breedteCellen2, max($kolomA1D)); $kolomA1D = array(); } //TABEL 2 KOP $pdf->SetFont(‘Arial’,’B’,7);
$pdf->SetTextColor(255,255,255);
$pdf->SetFillColor(42,187,144);
$pdf->SetXY($startpositieX,$startpositieY2);$pdf->Cell(10,5,” “,1,0,’C’,TRUE);$X = $startpositieX+10;
$pdf->SetX($X);$pdf->Cell(18,5,$page3[34][1],1,0,’C’,TRUE);$X = $X+18;
for ($j = 0; $j < 17;$j++) { $pdf->SetX($X);$pdf->Cell($breedteCellen2[$j],5,$page3[34][$j+2],1,0,’C’,TRUE);$X = $X+$breedteCellen2[$j];
}
$pdf->SetX($X);$pdf->Cell($breedteCellen2[17],5,”D”,1,0,’C’,TRUE);
//EERSTE TWEE KOLOMMEN
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,8);
$i = $startpositieY2+5;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”PERE”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”PERM”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”PERT”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”PENRE”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”PENRM”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”PENRT”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”SM”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”RSF”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”NRSF”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”FW”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”m3″,1,’C’);$i=$i+8;
//GENEREER INHOUD TABEL 2
$i = $startpositieY2+5;
$X = $startpositieX+10+18;
for ($rijTabel = 35;$rijTabel < 45;$rijTabel++)
{
for ($inhoudCel3 = 2;$inhoudCel3 < 20;$inhoudCel3++) { if ($page3[$rijTabel][$inhoudCel3] == “INA”){ $pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen2[$inhoudCel3-2],8,”INA”,1,’C’);
}
elseif ($page3[$rijTabel][$inhoudCel3] == “0.00”){
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen2[$inhoudCel3-2],8,”0.00″,1,’C’);
}
else {$split2 = explode(“E”,$page3[$rijTabel][$inhoudCel3]);
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen2[$inhoudCel3-2],4,”$split2[0] \n E $split2[1]”,1,’C’);
}
$X = $X+$breedteCellen2[$inhoudCel3-2];
}
$i = $i+8;
$X = $startpositieX+10+18;
}
//LEGENDA TABEL 2
$i = $i+2;
$pdf->SetXY($startpositieX,$i);
$pdf->SetFont(‘Arial’,”,8);
$pdf->SetTextColor(0,0,0);
//LEGENDA TABEL 2 RESOURCE USE
$pdf->Cell(105,4,$page3[34][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(105,4,$page3[35][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(105,4,$page3[36][20],0,0,’L’);$pdf->Cell(100,4,$page3[37][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(105,4,$page3[38][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(105,4,$page3[39][20],0,0,’L’);$pdf->Cell(100,4,$page3[40][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(105,4,$page3[41][20],0,0,’L’);$pdf->Cell(100,4,$page3[42][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(105,4,$page3[43][20],0,0,’L’);$pdf->Cell(100,4,$page3[44][20],0,1,’L’);
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx TABEL 3 OP NIEUWE PAGINA OF NIET
if ($pdf->GetY() < 170) { $yImageGreen = 170; $yGreen = 174; $startpositieY3 =180;//STARTPOSITIE VAN TABEL 3 } else { $pdf->AddPage();
$yImageGreen = 35;
$yGreen = 39;
$startpositieY3 =45;
}
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,iconv(‘UTF-8’, ‘windows-1252′, $kop18).” “.$tabelNaam,0,2,’L’);//OUTPUT STROMEN, LET OP TREMA IN NEDERLANDS
//MAATGEVENDE CELBREEDTE TABEL 3
$kolomA1D = array();
$breedteCellen3 = array();
for ($kolomTabel = 2; $kolomTabel < 20;$kolomTabel++)
{
for ($rijTabel = 24;$rijTabel < 32;$rijTabel++) { if ($page3[$rijTabel][$kolomTabel] == “INA” || empty($page3[$rijTabel][$kolomTabel])) { $cel = $INA; } else { $cel = $celbreedte; } array_push($kolomA1D, $cel); } array_push($breedteCellen3, max($kolomA1D)); $kolomA1D = array();//MAAK ARRAY KOLOM WEER LEEG } //TABEL 3 KOP $pdf->SetFont(‘Arial’,’B’,7);
$pdf->SetTextColor(255,255,255);
$pdf->SetFillColor(42,187,144);
$pdf->SetXY($startpositieX,$startpositieY3);$pdf->Cell(10,5,” “,1,0,’C’,TRUE);$X = $startpositieX+10;
$pdf->SetX($X);$pdf->Cell(18,5,$page3[23][1],1,0,’C’,TRUE);$X = $X+18;
for ($j = 0; $j < 17;$j++) { $pdf->SetX($X);$pdf->Cell($breedteCellen3[$j],5,$page3[23][$j+2],1,0,’C’,TRUE);$X = $X+$breedteCellen3[$j];
}
$pdf->SetX($X);$pdf->Cell($breedteCellen3[17],5,”D”,1,0,’C’,TRUE);
//TABEL 3 EERSTE TWEE KOLOMMEN
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,8);
$i = $startpositieY3+5;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”HWD”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”NHWD”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”RWD”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”CRU”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”MFR”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”MER”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”kg”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”EEE”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
$pdf->SetXY($startpositieX,$i);$pdf->Cell(10,8,”ETE”,1,0,’C’);
$pdf->SetXY($startpositieX+10,$i);$pdf->MultiCell(18,8,”MJ”,1,’C’);$i=$i+8;
//GENEREER INHOUD TABEL 3
$i = $startpositieY3+5;
$X = $startpositieX+10+18;
for ($rijTabel = 24;$rijTabel < 32;$rijTabel++)
{
for ($inhoudCel2 = 2;$inhoudCel2 < 20;$inhoudCel2++) { if ($page3[$rijTabel][$inhoudCel2] == “INA”){ $pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen3[$inhoudCel2-2],8,”INA”,1,’C’);
}
elseif ($page3[$rijTabel][$inhoudCel2] == “0”){
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen3[$inhoudCel2-2],8,”0.00″,1,’C’);
}
else {$split3 = explode(“E”,$page3[$rijTabel][$inhoudCel2]);
$pdf->SetXY($X,$i);
$pdf->MultiCell($breedteCellen3[$inhoudCel2-2],4,”$split3[0] \n E $split3[1]”,1,’C’);
}
$X = $X+$breedteCellen3[$inhoudCel2-2];
}
$i = $i+8;
$X = $startpositieX+10+18;
}
//LEGENDA TABEL 3
$i = $i+2;
$pdf->SetXY($startpositieX,$i);
$pdf->SetFont(‘Arial’,”,8);
$pdf->SetTextColor(0,0,0);
$pdf->Cell(80,4,$page3[23][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(80,4,$page3[24][20],0,0,’L’);$pdf->Cell(80,4,$page3[25][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(80,4,$page3[26][20],0,0,’L’);$pdf->Cell(80,4,$page3[27][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(80,4,$page3[28][20],0,0,’L’);$pdf->Cell(80,4,$page3[29][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->Cell(80,4,$page3[30][20],0,0,’L’);$pdf->Cell(80,4,$page3[31][20],0,1,’L’);$pdf->SetX($startpositieX);
$pdf->SetAutoPageBreak(true, 30);//TERUG NAAR STANDAARD BOTTOM MARGIN
//REKENREGELS = CALCULATION RULES
if ($pdf->GetY() > 220) {
$pdf->AddPage();
$yImageGreen = 35;
if ($page1[11][0] === “Ecocem France”) {
$yImageGreen = 27;
}
}
else {
$yImageGreen = $pdf->GetY();
}
$calculationRules1 = iconv(‘UTF-8’, ‘windows-1252’, $page3[47][0]);
if (empty($calculationRules1)) {//OPLOSSING DUBBELE TABELLEN ECOCEM2
}
else {
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$yGreen = $yImageGreen+4;
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop19,0,2,’L’);//REKENREGELS
$pdf->SetTextColor(0,0,0);
$calculationRules1 = iconv(‘UTF-8’, ‘windows-1252’, $page3[47][0]);
tekstInlezen($calculationRules1,$pdf);
}
//TABEL CALCULATIONRULES
if (strpos($page3[50][0],”HEAD”) || empty($page3[50][0])) {
$calculationRulesY = $pdf->GetY();
}
else {
tabelInlezen($page3,60,$pdf);
$calculationRulesY = $pdf->GetY()+4;
}
$pdf->SetY($calculationRulesY);
$calculationRules2 = iconv(‘UTF-8’, ‘windows-1252’, $page3[57][0]);
if (empty($calculationRules2)) {}
else {tekstInlezen($calculationRules2,$pdf);
}
}// ********************************************** EIND DUBBELE TABEL VOOR ECOCEM2 ********************************************************
// XXXXXXXXXXXXXXXXXXX SCENARIOS EN AANVULLENDE TECHNISCHE INFORMATIE
if ($pdf->GetY() > 210) {
$pdf->AddPage();
$yImageGreen = 35;
}
else {
$yImageGreen = $pdf->GetY()-4;
}
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$yGreen = $yImageGreen+4;
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop20,0,2,’L’);//SCENARIOS EN AANVULLENDE TECHNISCHE INFORMATIE
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
$scenarios1 = iconv(‘UTF-8’, ‘windows-1252’, $page4[1][0]);//INLEZEN EERSTE STUK TEKST
tekstInlezen($scenarios1,$pdf);
//TABEL 1 SCENARIOS
if (strpos($page4[4][0],”HEAD”) || empty($page4[4][0])) {
$scenarios2Y = $pdf->GetY();
}
else {
$fitTabel1SC = $pdf->GetY();//KIJK OF TABEL PAST OP PAGINA
if ($fitTabel1SC > 235) {
$pdf->AddPage();
tabelInlezen($page4,4,$pdf);
$scenarios2Y = $pdf->GetY()+4;
}
else {
tabelInlezen($page4,4,$pdf);
$scenarios2Y = $pdf->GetY()+4;
}
}
$pdf->SetY($scenarios2Y);
$scenarios2 = iconv(‘UTF-8’, ‘windows-1252’, $page4[11][0]);
if (empty($scenarios2)) {}
else {tekstInlezen($scenarios2,$pdf);
}
//TABEL 2 SCENARIOS
if (strpos($page4[14][0],”HEAD”) || empty($page4[14][0])) {
$scenarios3Y = $pdf->GetY();
}
else {
$fitTabel2SC = $pdf->GetY();
if ($fitTabel2SC > 235) {
$pdf->AddPage();
tabelInlezen($page4,14,$pdf);
$scenarios3Y = $pdf->GetY()+4;
}
else {
tabelInlezen($page4,14,$pdf);
$scenarios3Y = $pdf->GetY()+4;
}
}
$pdf->SetY($scenarios3Y);
$scenarios3 = iconv(‘UTF-8’, ‘windows-1252’, $page4[21][0]);
if (empty($scenarios3)) {}
else {tekstInlezen($scenarios3,$pdf);
}
//CUSTOM TABEL AKZONOBEL2
if ($productNaam === “International Intercryl 525” || $productNaam === “International Interchar”) {
$yImageGreen = $pdf->GetY()-5;
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,9);
$pdf->SetTextColor(255,255,255);
$pdf->SetFillColor(42,187,144);//OFFICIELE GROEN
$pdf->SetDrawColor(42,187,144);
$yGreen = $yImageGreen+6;
$pdf->SetXY(30,$yGreen);
for ($i = 0; $i < 9; $i++){//KOP CUSTOM TABEL if ($i === 0) {$breedte5 =60;} elseif ($i === 1) {$breedte5 = 20;} else {$breedte5 = 12;} $pdf->Cell($breedte5,5,$page4[44][$i],0,0,’L’,true);
}
$pdf->SetFont(‘Arial’,”,8);
$pdf->SetTextColor(0,0,0);
$pdf->SetFillColor(255,255,255);
$pdf->SetDrawColor(0,0,0);
$h = 5;
for ($rijTabel5 = 45;$rijTabel5 < 47;$rijTabel5++) { $pdf->SetXY(30,$yGreen+$h);
for ($i5 = 0;$i5 < 9;$i5++) { if ($i5 === 0) {$b5 = 60;} elseif ($i5 === 1) {$b5 = 20;} else {$b5 = 12;} $pdf->Cell($b5,5,$page4[$rijTabel5][$i5],1,0,’L’,true);
}
$h = $h+5;
}
$pdf->SetXY(30,$yGreen+$h);
$pdf->SetFont(‘Arial’,’B’,10);
$pdf->Cell(0,5,”(*) including VOC characterization factor”,0,0,’L’);
$y_VOC = $pdf->GetY();
if ($y_VOC > 265) {
$pdf->AddPage();
}
}//EINDE CUSTOM TABEL INTERCHAR & INTERCRYL
//BEPAAL EERST TOTAAL RUIMTEBESLAG DECL SVHC + REFERENCES + REMARKS
$declarationSVHC = iconv(‘UTF-8’, ‘windows-1252’, $page4[24][0]);
$lengteDec = $pdf->GetStringWidth($declarationSVHC);
$hoogteDec = ceil($lengteDec/160)*8;
$references = iconv(‘UTF-8’, ‘windows-1252’, $page4[27][0]);
$lengteRef = $pdf->GetStringWidth($references);
$hoogteRef = ceil($lengteRef/160)*8;
$remarks = iconv(‘UTF-8’, ‘windows-1252’, $page4[30][0]);
$lengteRem = $pdf->GetStringWidth($remarks);
$hoogteRem = ceil($lengteRem/160)*8;
$totaleHoogte = $hoogteDec+8+$hoogteRef+8+$hoogteRem;
$y_DecRefRem = $pdf -> GetY();
if ($y_DecRefRem>(270 – $totaleHoogte)) {
$pdf->AddPage();
$yImageGreen = $pdf -> GetY();
}
else {
$yImageGreen = $pdf -> GetY()-6;
}
//DECLARATIES SVHC
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$yGreen = $yImageGreen+4;
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop21,0,2,’L’);
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
tekstInlezen($declarationSVHC,$pdf);
//REFERENTIES = REFERENCES
//CONTROLE VERVANG VOOR BULLITS
if (strpos($references,”>”)) {
}
else {
$references = preg_replace(‘/^[^A-Za-z]+/’, chr(144).” “, $references);//VERVANG ALLE TEKENS VOOR EERSTE LETTER VANAF BEGIN STRING DOOR BULLIT
$references = preg_replace(‘/\n[^A-Za-z]+/’, “\n” .chr(144).” “, $references);//ALS BOVEN MET NEWLINES MEE
$references = rtrim($references,chr(144).” “);//LAATSTE BULLET WEG u2022
}
$yImageGreen = $pdf -> GetY();
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$yGreen = $yImageGreen+4;
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop22,0,2,’L’);
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
$pdf->MultiCell(165,5,$references,0,’L’,false);
//OPMERKINGEN = REMARKS
$yImageGreen = $pdf -> GetY();
$pdf->Image(‘V-MRPI-GREEN.jpg’,15,$yImageGreen,13);
$pdf->SetFont(‘Arial’,’B’,11);
$pdf->SetTextColor(51,102,255);
$yGreen = $yImageGreen+4;
$pdf->SetXY(30,$yGreen);
$pdf->Cell(0,5,$kop23,0,2,’L’);
$pdf->SetTextColor(0,0,0);
$pdf->SetFont(‘Arial’,”,10);
$pdf->SetX(30);
tekstInlezen($remarks,$pdf);
//CONCEPT OF NIET
if ($EPDnummer === “” || empty($EPDnummer)) {
$pdf->Output(‘I’,$dir.”/MRPI-EPD.”.$productNaamKort.”.Concept.pdf”);//F is locaal opslaan
}
else {
//1.1.00072%20MRPI-EPD%20Spenner%20Duisburg%20CEM%20III-A%2042,5%20N.v2.pdf
$pdf->Output(‘I’,$dir.”/”.$MRPInummer.”MRPI-EPD.”.$productNaamKort.”.pdf”);
}
?>