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();
}
