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

Revision 430, 8.8 KB checked in by frank.jaeger, 22 months ago (diff)

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