function F_GBIKAART($p) { $tokens = explode("|", $p); if (count($tokens) >= 2) { $sWaarde = $tokens[0]; $sDatacode = $tokens[1]; $sKaart = $tokens[2]; $sPosition = $tokens[3]; $sLaag = $tokens[4]; $sImglink = $tokens[5]; $sSearch = $tokens[6]; } F_LOG("Bekijk kaart :" . $sKaart); F_STYLE(); print "<div class=\"linkerkolom\">\n"; if ($sWaarde == "DATASETLIST") { print "<div class=\"broodkruimel\">\n"; print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span><a href=\"?e=@GBI&p=DATASETEDIT|" . $sDatacode . "|" . $sKaart . "|" . $sPosition . "|" . $sLaag . "|" . "\">Gegevens kaartlaag</A><span class=\"tussenteken\"> </span>Kaart: {$sKaart}\n"; print "</div>\n"; print "<br>\n"; } else { print "<div class=\"broodkruimel\">\n"; print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span><a href=\"?e=@GBI&p=SEARCHLIST|" . $sPosition . "|next|" . $sSearch . "\">Zoeken op trefwoord</a><span class=\"tussenteken\"> </span><a href=\"?e=@GBI&p=DATASETEDIT|" . $sDatacode . "|" . $sKaart . "|" . $sPosition . "|" . $sLaag . "|" . $sSearch . "\">Gegevens kaartlaag</A><span class=\"tussenteken\"> </span>Kaart: {$sKaart}\n"; print "</div>\n"; print "<br>\n"; } print "</div>\n"; print "<script type=\"text/javascript\" src=\"js/swfobject.js\"></script>\n"; //print("<script type=\"text/javascript\" src=\"js/layers.js\"></script>\n"); print "<script type=\"text/javascript\" src=\"js/fscripts10.js\"></script>\n"; print "<style type=\"text/css\">\n"; print "#flashcontent { height: 100%; width: 100%; }\n"; print "</style>\n"; print "<body>\n"; print "<br>\n"; print "<center>\n"; print "<table class=\"tabelkader\">\n"; print "<tr>\n"; print "<td class=\"tabelkop\">\n"; $sImsid = explode(".", $sLaag); print "<div class=\"nieuwsberichten\">\n"; print "<div class=\"geo\">\n"; $sAltTitel = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode); print "<A HREF=\"kaart.php?e=@KAART&p=" . $sAltTitel . "\" TARGET=\"_blank\">Kaart in volledig scherm</A>"; //print("<A HREF=\"?e=@GBIKAARTFULL&laag=geoportaal&vis=" . $sImsid[1] . "&gdb=" . $sKaart . "&gdb_legend=" . $sImglink . "&full=true" . "\" TARGET=\"_blank\">Kaart in volledig scherm</A>"); print "</div>\n"; print "</td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td class=\"tabelflash\">\n"; print "<div id=\"flashcontent\">\n"; print "</div>\n"; print "</td>\n"; print "</tr>\n"; print "</table>\n"; print "</center>\n"; print "<script type=\"text/javascript\">\n"; print "goFlamingo(\"../config\",\"geoportaal,locationfinder\");\n"; print "</script>"; //print("<script type=\"text/javascript\">\n"); //print("var so = new SWFObject(\"flamingo/flamingo.swf?config=../config/test.xml\", \"flamingo\", \"100%\", \"100%\", \"8\", \"#eaeaea\");\n"); //print("so.write(\"flashcontent\");\n"); //print("</script>\n"); print "<br>\n"; F_ENDSTYLE(); }
function F_PRINT($p) { global $db, $dsn; $db->Connect($dsn); $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC; //print $query; $tokens = explode("|", $p); $sAction = $tokens[0]; F_STYLE; if (@$_SESSION["GBIMUTEREN"] == TRUE) { if ($sAction == "TOTAL") { $pdf =& new Cezpdf('a4', 'portrait'); $pdf->ezSetMargins(50, 70, 50, 50); // een lijn boven en onder op alle pagina's $all = $pdf->openObject(); $pdf->saveState(); $pdf->setStrokeColor(0, 0, 0, 1); $pdf->line(20, 40, 578, 40); $pdf->line(20, 822, 578, 822); $pdf->addText(21, 34, 6, 'Geografische Metagegevens | Provincie Drenthe'); $pdf->restoreState(); $pdf->closeObject(); $pdf->addObject($all, 'all'); $pdf->ezSetDy(-100); $mainFont = './fonts/Arial.afm'; $bdFont = './fonts/Times-Bold.afm'; //selecteer een font $pdf->selectFont($mainFont); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->setLineStyle(601.89); $pdf->setStrokeColor(0.882, 0.913, 0.964); $pdf->ellipse(0, 601.89, 297.64, 601.89); $pdf->restoreState(); $pdf->saveState(); $pdf->setColor(1, 1, 1); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->filledRectangle(0, 701.89, 595.28, 200); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 601.89, 595.28, 100); $pdf->setColor(1, 1, 1); $pdf->ezText("Overzicht metagegevens", 30, array('justification' => 'centre')); $pdf->ezText("provincie Drenthe\n", 30, array('justification' => 'centre')); $pdf->restoreState(); $pdf->addJpegFromFile('./images/drenthe.jpg', 370, 750, 196.5, 29); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 100, 595.28, 30); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->ezSety(125); $datum = date("j-m-Y"); $pdf->ezText("Versie: {$datum}", 18, array('justification' => 'right')); $pdf->saveState(); $pdf->setColor(0, 0.478, 0.741); $pdf->filledRectangle(0, 0, 20, 841.89); $pdf->restoreState(); $pdf->addJpegFromFile('./images/wapen.jpg', 520, 50, 54.2, 39.2); $pdf->setColor(0, 0, 0); $pdf->ezNewPage(); $sSQL = "SELECT DATACODE, DATASET_TITEL, OPMERKING, OPBOUWDATUM, ACTIE FROM DATASET ORDER BY DATASET_TITEL"; $result = $db->Execute($sSQL); while (!$result->EOF) { $sDatacode = $result->fields[0]; $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode); $pdf->selectFont($bdFont); $pdf->ezText("Algemeen:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $datatabel = array(array('omschr' => 'Titel dataset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "DATASET_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Alternatieve titel:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ALT_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Omschrijving dataset:', 'waarde' => F_GBIPDFTEXT("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode)), array('omschr' => 'Algemene opmerking:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "OPMERKING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Referentie datum:', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "BRONDATUM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Brondatum:', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "OPBOUWDATUM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Bronvermelding:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "BRONVERMELDING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Opbouwmethode:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "OPBOUWMETHODE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Gebeurtenis:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ACTIE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Status:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "STATUS" . "|" . "DATACODE=" . $sDatacode))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); $sTrefwoorden = F_SELECTRECORD("SELECT TREFTEXT.TREFWOORD FROM TREFCODE INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE WHERE TREFCODE.DATACODE=" . $sDatacode . " ORDER BY TREFTEXT.TREFWOORD"); $sTref = str_replace("|", ", ", $sTrefwoorden); //Inhoud $pdf->selectFont($bdFont); $pdf->ezText("Inhoud:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $sContactpersoon = F_SELECTRECORD("SELECT CONTACTPERSOON FROM DATASET WHERE DATACODE = " . $sDatacode); $datatabel = array(array('omschr' => 'Contactpersoon inhoud:', 'waarde' => F_GBIPDFTEXT("CONTACT" . "|" . "CONTACTPERSOON" . "|" . "CONTACT_ID=" . $sContactpersoon)), array('omschr' => 'Beleidsterrein:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "BELEIDSVELD" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Team:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "TEAM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Thema:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "THEMA" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Gebruiksbeperking:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "GEBRUIKSBEPERKING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Veiligheidsrestricties:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "VEILIGHEID" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Toegangsrestricties:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "JURIDISCH" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Copyright:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "COPYRIGHT" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Herzienings frequentie:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "BIJHOUDING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Toepassingsschaal:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "SCHAAL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Contact leverancier:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "CONTACT_LEVERANCIER" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Trefwoorden:', 'waarde' => $sTref), array('omschr' => 'Dekking (begin datum):', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "DEKKING_BEGIN" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Dekking (eind datum):', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "DEKKING_EIND" . "|" . "DATACODE=" . $sDatacode))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); //Specifiek $pdf->selectFont($bdFont); $pdf->ezText("Specifiek:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $sGebied = F_SELECTRECORD("SELECT DEELGEBIED FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode); $datatabel = array(array('omschr' => 'Geografisch gebied:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "DEELGEBIED" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Aanvullende informatie:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "AANVUL_INFO" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Ruimtelijk schema:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "RSCHEMA" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Bestandsnaam:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "NAAM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Fysieke locatie:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "FYSIEKE_LOCATIE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Datatype:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "DATATYPE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Geometrie:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "GEOMETRIE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Nauwkeurigheid:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "POS_NAUWKEURIGHEID" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Kwaliteitsbeschrijving:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "KWALITEIT_BESCH" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Minimale x-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MIN_X" . "|" . "GEBIED='" . $sGebied . "'")), array('omschr' => 'Maximale x-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MAX_X" . "|" . "GEBIED='" . $sGebied . "'")), array('omschr' => 'Minimale y-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MIN_Y" . "|" . "GEBIED='" . $sGebied . "'")), array('omschr' => 'Maximale y-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MAX_Y" . "|" . "GEBIED='" . $sGebied . "'"))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); $sItem = F_SELECTRECORD("SELECT STD_ITEM FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode); $sCode = F_SELECTRECORD("SELECT ITEMDEFINITIE FROM ITEMS WHERE ITEMS.DATACODE = " . $sDatacode . " AND ITEMS.ITEMNAAM = '" . $sItem . "'"); $sDefitem = F_SELECTRECORD("SELECT ITEMDEFINITIE FROM ITEMS WHERE DATACODE= " . $sDatacode . " AND ITEMNAAM = '" . $sItem . "'"); $sItemrec = F_SELECTRECORD("SELECT VOLGNR, ITEMNAAM, ITEMDEFINITIE FROM ITEMS WHERE DATACODE=" . $sDatacode . " ORDER BY VOLGNR"); $sItemrecs = str_replace("|", "\n", $sItemrec); $sItemrecss = str_replace("^", " ", $sItemrecs); $datatabel = array(array('omschr' => 'Standaarditem:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "STD_ITEM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Definitie standaarditem:', 'waarde' => $sDefitem), array('omschr' => 'Items:', 'waarde' => $sItemrecss)); $pdf->selectFont($bdFont); $pdf->ezText("Items:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); //metadata $sMetapersoon = F_SELECTRECORD("SELECT METAPERSOON FROM DATASET WHERE DATACODE = " . $sDatacode); $sGeopersoon = F_SELECTRECORD("SELECT GEOLOKET FROM DATASET WHERE DATACODE = " . $sDatacode); $datatabel = array(array('omschr' => 'Contactpersoon inhoud:', 'waarde' => F_GBIPDFTEXT("CONTACT" . "|" . "CONTACTPERSOON" . "|" . "CONTACT_ID=" . $sMetapersoon)), array('omschr' => 'Datum opbouw:', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "INVOERDATUM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Taal dataset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "TAAL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Karakterset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "KARAKTERSET" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Metadatastandaard:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "METADATASTD" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Versie metadatastandaard:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "VERSIE_METASTD" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Code referentiesysteem:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "CODE_REF" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Organisatie referentiesysteem:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ORG_NAMESPACE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Contactpersoon distributie:', 'waarde' => F_GBIPDFTEXT("CONTACT" . "|" . "CONTACTPERSOON" . "|" . "CONTACT_ID=" . $sGeopersoon))); $pdf->selectFont($bdFont); $pdf->ezText("Metadata:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $result->MoveNext(); if (!$result->EOF) { $pdf->ezNewPage(); } } $pdf->ezStream(); } if ($sAction == "OPENBAAR") { $pdf =& new Cezpdf('a4', 'portrait'); $pdf->ezSetMargins(50, 70, 50, 50); // een lijn boven en onder op alle pagina's $all = $pdf->openObject(); $pdf->saveState(); $pdf->setStrokeColor(0, 0, 0, 1); $pdf->line(20, 40, 578, 40); $pdf->line(20, 822, 578, 822); $pdf->addText(21, 34, 6, 'Geografische Metagegevens | Provincie Drenthe'); $pdf->restoreState(); $pdf->closeObject(); $pdf->addObject($all, 'all'); $pdf->ezSetDy(-100); $mainFont = './fonts/Arial.afm'; $bdFont = './fonts/Times-Bold.afm'; //selecteer een font $pdf->selectFont($mainFont); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->setLineStyle(601.89); $pdf->setStrokeColor(0.882, 0.913, 0.964); $pdf->ellipse(0, 601.89, 297.64, 601.89); $pdf->restoreState(); $pdf->saveState(); $pdf->setColor(1, 1, 1); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->filledRectangle(0, 701.89, 595.28, 200); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 601.89, 595.28, 100); $pdf->setColor(1, 1, 1); $pdf->ezText("Overzicht openbare gegevens", 30, array('justification' => 'centre')); $pdf->ezText("provincie Drenthe\n", 30, array('justification' => 'centre')); $pdf->restoreState(); $pdf->addJpegFromFile('./images/drenthe.jpg', 370, 750, 196.5, 29); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 100, 595.28, 30); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->ezSety(125); $datum = date("j-m-Y"); $pdf->ezText("Versie: {$datum}", 18, array('justification' => 'right')); $pdf->saveState(); $pdf->setColor(0, 0.478, 0.741); $pdf->filledRectangle(0, 0, 20, 841.89); $pdf->restoreState(); $pdf->addJpegFromFile('./images/wapen.jpg', 520, 50, 54.2, 39.2); $pdf->setColor(0, 0, 0); $pdf->ezNewPage(); $sSQL = "SELECT DATACODE, DATASET_TITEL, OPMERKING, OPBOUWDATUM, ACTIE FROM DATASET WHERE VEILIGHEID = 'vrij toegankelijk' ORDER BY DATASET_TITEL"; $result = $db->Execute($sSQL); while (!$result->EOF) { $sDatacode = $result->fields[0]; $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode); $pdf->selectFont($mainFont); $datatabel = array(array('omschr' => 'Titel dataset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "DATASET_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Alternatieve titel:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ALT_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Omschrijving dataset:', 'waarde' => F_GBIPDFTEXT("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); $result->MoveNext(); if (!$result->EOF) { //$pdf->ezNewPage(); } } $pdf->ezStream(); } if ($sAction == "NIETOPENBAAR") { $pdf =& new Cezpdf('a4', 'portrait'); $pdf->ezSetMargins(50, 70, 50, 50); // een lijn boven en onder op alle pagina's $all = $pdf->openObject(); $pdf->saveState(); $pdf->setStrokeColor(0, 0, 0, 1); $pdf->line(20, 40, 578, 40); $pdf->line(20, 822, 578, 822); $pdf->addText(21, 34, 6, 'Geografische Metagegevens | Provincie Drenthe'); $pdf->restoreState(); $pdf->closeObject(); $pdf->addObject($all, 'all'); $pdf->ezSetDy(-100); $mainFont = './fonts/Arial.afm'; $bdFont = './fonts/Times-Bold.afm'; //selecteer een font $pdf->selectFont($mainFont); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->setLineStyle(601.89); $pdf->setStrokeColor(0.882, 0.913, 0.964); $pdf->ellipse(0, 601.89, 297.64, 601.89); $pdf->restoreState(); $pdf->saveState(); $pdf->setColor(1, 1, 1); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->filledRectangle(0, 701.89, 595.28, 200); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 601.89, 595.28, 100); $pdf->setColor(1, 1, 1); $pdf->ezText("Overzicht niet openbare gegevens", 30, array('justification' => 'centre')); $pdf->ezText("provincie Drenthe\n", 30, array('justification' => 'centre')); $pdf->restoreState(); $pdf->addJpegFromFile('./images/drenthe.jpg', 370, 750, 196.5, 29); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 100, 595.28, 30); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->ezSety(125); $datum = date("j-m-Y"); $pdf->ezText("Versie: {$datum}", 18, array('justification' => 'right')); $pdf->saveState(); $pdf->setColor(0, 0.478, 0.741); $pdf->filledRectangle(0, 0, 20, 841.89); $pdf->restoreState(); $pdf->addJpegFromFile('./images/wapen.jpg', 520, 50, 54.2, 39.2); $pdf->setColor(0, 0, 0); $pdf->ezNewPage(); $sSQL = "SELECT DATACODE, DATASET_TITEL, OPMERKING, OPBOUWDATUM, ACTIE FROM DATASET WHERE TYPE = 1 AND VEILIGHEID = 'niet toegankelijk' OR VEILIGHEID = 'vertrouwelijk' ORDER BY DATASET_TITEL"; $result = $db->Execute($sSQL); while (!$result->EOF) { $sDatacode = $result->fields[0]; $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode); $pdf->selectFont($mainFont); $datatabel = array(array('omschr' => 'Titel dataset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "DATASET_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Alternatieve titel:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ALT_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Omschrijving dataset:', 'waarde' => F_GBIPDFTEXT("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); $result->MoveNext(); if (!$result->EOF) { //$pdf->ezNewPage(); } } $pdf->ezStream(); } if ($sAction == "DATASET") { $sFilterValuePrint = @$_POST["PRINT"]; if ($sFilterValuePrint != "" and $sFilterValuePrint != NULL) { $pdf =& new Cezpdf('a4', 'portrait'); $pdf->ezSetMargins(50, 70, 50, 50); // een lijn boven en onder op alle pagina's $all = $pdf->openObject(); $pdf->saveState(); $pdf->setStrokeColor(0, 0, 0, 1); $pdf->line(20, 40, 578, 40); $pdf->line(20, 822, 578, 822); $pdf->addText(21, 34, 6, 'Geografische Metagegevens | Provincie Drenthe'); $pdf->restoreState(); $pdf->closeObject(); $pdf->addObject($all, 'all'); $pdf->ezSetDy(-100); $mainFont = './fonts/Arial.afm'; $bdFont = './fonts/Times-Bold.afm'; //selecteer een font $pdf->selectFont($mainFont); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->setLineStyle(601.89); $pdf->setStrokeColor(0.882, 0.913, 0.964); $pdf->ellipse(0, 601.89, 297.64, 601.89); $pdf->restoreState(); $pdf->saveState(); $pdf->setColor(1, 1, 1); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->filledRectangle(0, 701.89, 595.28, 200); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 601.89, 595.28, 100); $pdf->setColor(1, 1, 1); $pdf->ezText("Overzicht metagegevens", 30, array('justification' => 'centre')); $pdf->ezText("provincie Drenthe\n", 30, array('justification' => 'centre')); $pdf->restoreState(); $pdf->addJpegFromFile('./images/drenthe.jpg', 370, 750, 196.5, 29); $pdf->saveState(); $pdf->setColor(0.04, 0.58, 0.99); $pdf->filledRectangle(0, 100, 595.28, 30); $pdf->restoreState(); $pdf->setColor(1, 1, 1); $pdf->ezSety(125); $datum = date("j-m-Y"); $pdf->ezText("Versie: {$datum}", 18, array('justification' => 'right')); $pdf->saveState(); $pdf->setColor(0, 0.478, 0.741); $pdf->filledRectangle(0, 0, 20, 841.89); $pdf->restoreState(); $pdf->addJpegFromFile('./images/wapen.jpg', 520, 50, 54.2, 39.2); $pdf->setColor(0, 0, 0); $pdf->ezNewPage(); $sSQL = "SELECT DATACODE, DATASET_TITEL, OPMERKING, OPBOUWDATUM, ACTIE FROM DATASET WHERE DATACODE = {$sFilterValuePrint} ORDER BY DATASET_TITEL"; $result = $db->Execute($sSQL); while (!$result->EOF) { $sDatacode = $result->fields[0]; $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode); $pdf->selectFont($bdFont); $pdf->ezText("Algemeen:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $datatabel = array(array('omschr' => 'Titel dataset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "DATASET_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Alternatieve titel:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ALT_TITEL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Omschrijving dataset:', 'waarde' => F_GBIPDFTEXT("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode)), array('omschr' => 'Algemene opmerking:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "OPMERKING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Referentie datum:', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "BRONDATUM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Brondatum:', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "OPBOUWDATUM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Bronvermelding:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "BRONVERMELDING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Opbouwmethode:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "OPBOUWMETHODE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Gebeurtenis:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ACTIE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Status:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "STATUS" . "|" . "DATACODE=" . $sDatacode))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); $sTrefwoorden = F_SELECTRECORD("SELECT TREFTEXT.TREFWOORD FROM TREFCODE INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE WHERE TREFCODE.DATACODE=" . $sDatacode . " ORDER BY TREFTEXT.TREFWOORD"); $sTref = str_replace("|", ", ", $sTrefwoorden); //Inhoud $pdf->selectFont($bdFont); $pdf->ezText("Inhoud:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $sContactpersoon = F_SELECTRECORD("SELECT CONTACTPERSOON FROM DATASET WHERE DATACODE = " . $sDatacode); $datatabel = array(array('omschr' => 'Contactpersoon inhoud:', 'waarde' => F_GBIPDFTEXT("CONTACT" . "|" . "CONTACTPERSOON" . "|" . "CONTACT_ID=" . $sContactpersoon)), array('omschr' => 'Beleidsterrein:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "BELEIDSVELD" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Team:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "TEAM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Thema:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "THEMA" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Gebruiksbeperking:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "GEBRUIKSBEPERKING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Veiligheidsrestricties:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "VEILIGHEID" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Toegangsrestricties:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "JURIDISCH" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Copyright:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "COPYRIGHT" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Herzienings frequentie:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "BIJHOUDING" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Toepassingsschaal:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "SCHAAL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Contact leverancier:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "CONTACT_LEVERANCIER" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Trefwoorden:', 'waarde' => $sTref), array('omschr' => 'Dekking (begin datum):', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "DEKKING_BEGIN" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Dekking (eind datum):', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "DEKKING_EIND" . "|" . "DATACODE=" . $sDatacode))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); //Specifiek $pdf->selectFont($bdFont); $pdf->ezText("Specifiek:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $sGebied = F_SELECTRECORD("SELECT DEELGEBIED FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode); $datatabel = array(array('omschr' => 'Geografisch gebied:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "DEELGEBIED" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Aanvullende informatie:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "AANVUL_INFO" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Ruimtelijk schema:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "RSCHEMA" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Bestandsnaam:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "NAAM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Fysieke locatie:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "FYSIEKE_LOCATIE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Datatype:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "DATATYPE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Geometrie:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "GEOMETRIE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Nauwkeurigheid:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "POS_NAUWKEURIGHEID" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Kwaliteitsbeschrijving:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "KWALITEIT_BESCH" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Minimale x-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MIN_X" . "|" . "GEBIED='" . $sGebied . "'")), array('omschr' => 'Maximale x-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MAX_X" . "|" . "GEBIED='" . $sGebied . "'")), array('omschr' => 'Minimale y-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MIN_Y" . "|" . "GEBIED='" . $sGebied . "'")), array('omschr' => 'Maximale y-coördinaat:', 'waarde' => F_GBIPDFTEXT("GEBIED" . "|" . "MAX_Y" . "|" . "GEBIED='" . $sGebied . "'"))); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); $sItem = F_SELECTRECORD("SELECT STD_ITEM FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode); $sCode = F_SELECTRECORD("SELECT ITEMDEFINITIE FROM ITEMS WHERE ITEMS.DATACODE = " . $sDatacode . " AND ITEMS.ITEMNAAM = '" . $sItem . "'"); $sDefitem = F_SELECTRECORD("SELECT ITEMDEFINITIE FROM ITEMS WHERE DATACODE= " . $sDatacode . " AND ITEMNAAM = '" . $sItem . "'"); $sItemrec = F_SELECTRECORD("SELECT VOLGNR, ITEMNAAM, ITEMDEFINITIE FROM ITEMS WHERE DATACODE=" . $sDatacode . " ORDER BY VOLGNR"); $sItemrecs = str_replace("|", "\n", $sItemrec); $sItemrecss = str_replace("^", " ", $sItemrecs); $datatabel = array(array('omschr' => 'Standaarditem:', 'waarde' => F_GBIPDFTEXT("GEOGRAFISCH" . "|" . "STD_ITEM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Definitie standaarditem:', 'waarde' => $sDefitem), array('omschr' => 'Items:', 'waarde' => $sItemrecss)); $pdf->selectFont($bdFont); $pdf->ezText("Items:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $pdf->ezText("", 10, array('justification' => 'centre')); //metadata $sMetapersoon = F_SELECTRECORD("SELECT METAPERSOON FROM DATASET WHERE DATACODE = " . $sDatacode); $sGeopersoon = F_SELECTRECORD("SELECT GEOLOKET FROM DATASET WHERE DATACODE = " . $sDatacode); $datatabel = array(array('omschr' => 'Contactpersoon inhoud:', 'waarde' => F_GBIPDFTEXT("CONTACT" . "|" . "CONTACTPERSOON" . "|" . "CONTACT_ID=" . $sMetapersoon)), array('omschr' => 'Datum opbouw:', 'waarde' => F_GBIPDFDATUM("DATASET" . "|" . "INVOERDATUM" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Taal dataset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "TAAL" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Karakterset:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "KARAKTERSET" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Metadatastandaard:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "METADATASTD" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Versie metadatastandaard:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "VERSIE_METASTD" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Code referentiesysteem:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "CODE_REF" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Organisatie referentiesysteem:', 'waarde' => F_GBIPDFTEXT("DATASET" . "|" . "ORG_NAMESPACE" . "|" . "DATACODE=" . $sDatacode)), array('omschr' => 'Contactpersoon distributie:', 'waarde' => F_GBIPDFTEXT("CONTACT" . "|" . "CONTACTPERSOON" . "|" . "CONTACT_ID=" . $sGeopersoon))); $pdf->selectFont($bdFont); $pdf->ezText("Metadata:", 14, array('justification' => 'left')); $pdf->selectFont($mainFont); $pdf->ezTable($datatabel, array('omschr' => '', 'waarde' => ''), '', array('showHeadings' => 0, 'showLines' => 1, 'shaded' => 2, 'shadeCol' => array(0.921, 0.956, 0.98), 'innerLineThickness' => 0, 'shadeCol2' => array(0.921, 0.956, 0.98), 'xPos' => 'left', 'width' => 500, 'xOrientation' => 'right', 'fontsize' => 12, 'cols' => array('omschr' => array('width' => 132)))); $result->MoveNext(); if (!$result->EOF) { $pdf->ezNewPage(); } } $pdf->ezStream(); } } } else { print "<BR>\n"; print "U bent niet ingelogd. Klik <A HREF=\"?e=@GBIEXEC&p=MENU\"> hier</A> om u aan te melden.\n"; print "<BR>\n"; print "<BR>\n"; print "<BR>\n"; print "<BR>\n"; print "<BR>\n"; print "<BR>\n"; print "<BR>\n"; print "<BR>\n"; print "<BR>\n"; } F_ENDSTYLE(); }