source: trunk/info/info/alkisn/alkisbaurecht.php @ 427

Revision 427, 8.7 KB checked in by frank.jaeger, 2 years ago (diff)

Überarbeitung der Auskunft: Durch Functions den Code verdichtet. Drei neue Arten von Bauwerken.
Line 
1<?php
2/*      alkisbaurecht.php - Baurecht
3
4        ALKIS-Auskunft
5        Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
6
7        Version:
8        2016-02-24 Version fÃŒr norGIS-ALKIS-Import
9        ....
10        2020-02-20 Authentifizierung ausgelagert in Function darf_ich()
11        2020-12-03 function selbstverlinkung() statt $_SERVER['PHP_SELF']
12        2020-12-15 Input-Validation und Strict Comparisation (===)
13        2021-12-09 Neue Parameter: $katAmtMix (Kataster-Amt-Mix), $PrntBtn (Drucken-SchaltflÀche)
14        2022-01-13 Limit in Variable. Neue Functions LnkStf(), DsKy()
15*/
16ini_set("session.cookie_httponly", 1);
17session_start();
18$showkey="n"; $nodebug=""; // Var. aus Parameter initalisieren
19$cntget = extract($_GET); // Parameter in Variable umwandeln
20
21// strikte Validierung aller Parameter
22if (isset($gmlid)) {
23        if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
24} else {
25        die("Fehlender Parameter");
26}
27if (isset($gkz)) {
28        if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
29} else {
30        die("Fehlender Parameter");
31}
32if (!preg_match('#^[j|n]{0,1}$#', $showkey)) {die ("Eingabefehler showkey");}
33if ($showkey === "j") {$showkey=true;} else {$showkey=false;}
34if (!preg_match('#^j{0,1}$#', $nodebug)) {die("Eingabefehler nodebug");}
35
36include "alkis_conf_location.php";
37include "alkisfkt.php";
38
39echo <<<END
40<!doctype html>
41<html lang="de">
42<head>
43        <meta charset="utf-8">
44        <meta name="viewport" content="width=device-width, initial-scale=1.0">
45        <title>ALKIS Bau-, Raum- oder Bodenordnungsrecht</title>
46        <link rel="stylesheet" type="text/css" href="alkisauszug.css">
47        <link rel="shortcut icon" type="image/x-icon" href="ico/Gericht.ico">
48</head>
49<body>
50END;
51
52$erlaubnis = darf_ich(); if ($erlaubnis === 0) {die('<p class="stop1">Abbruch</p></body>');}
53$dbg=$debug;
54if ($nodebug === "j") {$dbg=0;}
55$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisbaurecht.php'");
56if (!$con) echo "\n<p class='err'>Fehler beim Verbinden der DB</p>";
57
58// Spalte "a.dokumentation" ist immer leer
59$sql ="SELECT r.ogc_fid, r.artderfestlegung as adfkey, r.name, r.stelle, r.bezeichnung AS rechtbez,
60a.beschreibung AS adfbez, d.bezeichnung AS stellbez, d.stellenart, wd.beschreibung, wd.dokumentation, round(st_area(r.wkb_geometry)::numeric,0) AS flae
61FROM ax_bauraumoderbodenordnungsrecht r
62LEFT JOIN ax_artderfestlegung_bauraumoderbodenordnungsrecht a ON r.artderfestlegung = a.wert
63LEFT JOIN ax_dienststelle d ON r.land=d.land AND r.stelle=d.stelle ".UnqKatAmt("r","d")
64."LEFT JOIN ax_behoerde wd ON d.stellenart = wd.wert
65WHERE r.gml_id= $1 AND r.endet IS NULL AND d.endet IS NULL;";
66
67$v = array($gmlid);
68$res = pg_prepare("", $sql);
69$res = pg_execute("", $v);
70if (!$res) {
71        echo "\n<p class='err'>Fehler bei Baurecht.</p>";
72        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
73}
74if ($dbg > 0) {
75        $zeianz=pg_num_rows($res);
76        if ($zeianz > 1){
77                echo "\n<p class='err'>Die Abfrage liefert mehr als ein (".$zeianz.") Baurecht-Objekt!</p>";
78                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";}
79        }
80}
81if ($row = pg_fetch_assoc($res)) {
82        $artfest=$row["adfkey"];  // Art der Festlegung, Key
83        $verfnr=$row["rechtbez"]; // Verfahrens-Nummer
84        $enam=$row["name"];
85        $stellb=$row["stellbez"];
86        $stella=$row["stellenart"];
87        $behb=$row["beschreibung"];
88        $behd=$row["dokumentation"];
89
90        echo "<p class='balken recht'>ALKIS Bau-, Raum- oder Bodenordnungsrecht ".$artfest."-".$verfnr."&nbsp;</p>";
91        echo "\n<h2><img src='ico/Gericht.png' width='16' height='16' alt=''> Bau-, Raum- oder Bodenordnungsrecht</h2>";
92        echo "\n<table>"
93                ."\n<tr>"
94                        ."\n\t<td class='li'>Art der Festlegung:</td>"
95                        ."\n\t<td>".DsKy($artfest, '* Art der Festlegung')."<span class='wichtig'>".$row["adfbez"]."</span></td>"
96                ."\n</tr>";
97                if ($enam != "") {
98                        echo "\n<tr>"
99                                ."\n\t<td class='li'>Eigenname des Gebietes:</td>"
100                                ."\n\t<td>".$enam."</td>"
101                        . "\n</tr>";
102                }
103                if ($verfnr != "") {
104                        echo "\n<tr>"
105                                ."\n\t<td class='li'>Verfahrensnummer:</td>"
106                                ."\n\t<td>".$verfnr."</td>"
107                        ."\n</tr>";
108                }
109                if ($stellb != "") { // z.B. Umlegung *mit* und Baulast *ohne* Dienststelle
110                        echo "\n<tr>"
111                        ."\n\t<td class='li'>Dienststelle:</td>\n\t<td>".DsKy($row["stelle"], 'Dienststelle-*').$stellb."</td>"
112                        ."\n</tr>";
113                        if ($stella != "") {
114                                echo "\n<tr>"
115                                ."\n\t<td class='li'>Art der Dienststelle:</td>"
116                                ."\n\t<td>".DsKy($stella, '* Art der Dienststelle')."<span title='".$behd."'>".$behb."</span>"."</td>"
117                                ."\n</tr>";
118                        }
119                }
120                echo "\n<tr>"
121                        ."\n\t<td class='li'>Fl&auml;che:</td>";
122                        $flae=number_format($row["flae"],0,",",".")." m&#178;";
123                        echo "\n\t<td>".$flae."</td>"
124                ."\n</tr>"
125        . "\n</table>";
126} else {
127        echo "\n<p class='err'>Fehler! Kein Treffer bei gml_id=".$gmlid."</p>";
128}
129
130echo "\n<h2><img src='ico/Flurstueck.png' width='16' height='16' alt=''> betroffene Flurst&uuml;cke</h2>\n"
131."\n<p>Ermittelt durch geometrische Verschneidung. Nach Gr&ouml;&szlig;e absteigend.</p>";
132
133$fslimit=200;
134$sql ="SELECT f.gml_id, g.bezeichnung, f.gemarkungsnummer, f.flurnummer, f.zaehler, f.nenner, f.amtlicheflaeche, round(st_area(ST_Intersection(r.wkb_geometry,f.wkb_geometry))::numeric,1) AS schnittflae
135FROM ax_flurstueck f 
136JOIN ax_gemarkung g ON f.gemeindezugehoerigkeit_land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer ".UnqKatAmt("f","g")
137."JOIN ax_bauraumoderbodenordnungsrecht r
138ON st_intersects(r.wkb_geometry,f.wkb_geometry) = true AND st_area(st_intersection(r.wkb_geometry,f.wkb_geometry)) > 0.05
139WHERE r.gml_id= $1 AND f.endet IS NULL AND r.endet IS NULL ";
140if ($filtgem === '' ) {
141        $v=array($gmlid);
142} else {
143        $sql.="AND f.gemeindezugehoerigkeit_kreis = $2 AND f.gemeindezugehoerigkeit_gemeinde = $3 "; // ZustÀndiges Gebiet
144        $v=array($gmlid, $filtkreis, $filtgem);
145}
146$sql.="ORDER BY schnittflae DESC LIMIT ".$fslimit.";";
147// > 0.0 ist gemeint, Ungenauigkeit durch st_simplify
148// Limit: Flurbereinig. kann groß werden!
149// Trotz Limit lange Antwortzeit, wegen OrderBy -> intersection
150
151$res=pg_prepare("", $sql);
152$res=pg_execute("", $v);
153if (!$res) {
154        echo "\n<p class='err'>Keine Flurst&uuml;cke ermittelt.<br></p>";
155        //if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";} // ggf. mehrere Parameter!
156}
157
158echo "\n<table class='fs'>"
159        ."\n<tr>"
160                ."\n\t<td class='head' title='Gemarkung'>Gemarkung</td>"
161                ."\n\t<td class='head' title='Flurnummer'>Flur</td>"
162                ."\n\t<td class='head' title='Flurst&uuml;cksnummer Z&auml;hler / Nenner'>Flurst&uuml;ck</td>"
163                ."\n\t<td class='heads fla' title='geometrische Schnittfl&auml;che'><img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'>Fl&auml;che</td>"
164                ."\n\t<td class='head fla' title='amtliche Flurst&uuml;cksfl&auml;che, Buchfl&auml;che'>von</td>"
165                ."\n\t<td class='head nwlink' title='Link zum Flurst&uuml;ck'>weitere Auskunft</td>"
166        ."\n</tr>";
167
168        $fscnt=0;
169        while($row = pg_fetch_assoc($res)) {
170                $fscnt++;
171                $gmkgnr=$row["gemarkungsnummer"];
172                $gemarkung=$row["bezeichnung"];
173                $nen=$row["nenner"];
174                echo "\n<tr>"
175                        ."\n\t<td>".DsKy($gmkgnr, 'Gemarkungsnummer').$gemarkung."</td>"
176                        ."\n\t<td>".$row["flurnummer"]."</td>"
177                        ."\n\t<td><span class='wichtig'>".$row["zaehler"];
178                        if ($nen != "") {echo "/".$nen;}
179                        echo "</span></td>"
180                        ."\n\t<td class='fla'>".$row["schnittflae"]." m&#178;</td>"
181                        ."\n\t<td class='fla'>".$row["amtlicheflaeche"]." m&#178;</td>"
182                        ."\n\t<td class='nwlink noprint'>"
183                                ."\n\t\t<a href='alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$row["gml_id"].LnkStf()."&amp;eig=n' "
184                                        ."title='Flurst&uuml;cksnachweis'>Flurst&uuml;ck "
185                                        ."\n\t\t\t<img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''>"
186                                ."\n\t\t</a>"
187                        ."\n\t</td>"
188                ."\n</tr>";
189        }
190echo "\n</table>";
191
192if ($fscnt === 0) { // nicht gefunden
193        if ($filtgem === '' ) { // ungefiltert
194                echo "\n<p class='err'>Kein Flurst&uuml;ck gefunden.</p>";
195        } else { // Wahrscheinliche Ursache = Filter
196                echo "\n<p class='err'>Kein Flurst&uuml;ck im berechtigten Bereich.</p>";
197        //      if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = ".$gmlid." $2 = ".$filtkreis." $3 = ".$filtgem."</p>";}
198        }
199} elseif ($fscnt >= $fslimit) {
200        echo "<p>... und weitere Flurst&uuml;cke (Limit ".$fslimit." erreicht).</p>";
201}
202
203pg_close($con);
204echo "
205<div class='buttonbereich noprint'>\n<hr>"
206        ."\n\t<a title='zur&uuml;ck' href='javascript:history.back()'><img src='ico/zurueck.png' width='16' height='16' alt='zur&uuml;ck' /></a>&nbsp;";
207if ($PrntBtn==true){echo "\n\t<a title='Drucken' href='javascript:window.print()'><img src='ico/print.png' width='16' height='16' alt='Drucken'></a>&nbsp;";}
208echo "\n</div>";
209
210footer($gmlid, selbstverlinkung()."?", "");
211?>
212
213</body>
214</html>
Note: See TracBrowser for help on using the repository browser.