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

Revision 427, 10.6 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/*      alkisausk.php
3
4        ALKIS-Auskunft
5        Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
6
7        Dies Programm wird aus dem Mapserver-Template (FeatureInfo) aufgerufen.
8        Parameter: &gkz, &gml_id (optional &id)
9        Dies Programm gibt einen kurzen Überblick zum FlurstÃŒck, z.B. Eigentuemer ohne Adresse
10        FÃŒr detaillierte Angaben wird zum GB- oder FS-Nachweis verlinkt.
11        Siehe auch alkisinlayausk.php - eine Variante fÃŒr den Einbau in einen iFrame
12
13        Version:
14        2016-02-24 Version fÃŒr norGIS-ALKIS-Import
15        ....
16        2020-12-03 function selbstverlinkung() statt $_SERVER['PHP_SELF']
17        2020-12-15 Input-Validation und Strict Comparisation (===)
18        2022-01-13 Neue Functions LnkStf(), DsKy()
19
20H i n w e i s :  Dies Modul wird beim Entwickler nicht mehr produktiv eingesetzt.
21                Statt dessen wird "alkisinlayausk.php" verwendet um von einer WMS-FeatureInfo in ein Fenster ÃŒberzuleiten.
22                Mangels Praxiseinsatz bleiben Fehler möglicherweise unerkannt.
23*/
24ini_set("session.cookie_httponly", 1);
25session_start();
26$cntget = extract($_GET);
27if (isset($gkz)) {
28        if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
29} else {
30        die("Fehlender Parameter");
31}
32include "alkis_conf_location.php";
33include "alkisfkt.php";
34
35$keys = isset($_GET["showkey"]) ? $_GET["showkey"] : "n";
36if ($keys === "j") {$showkey=true;} else {$showkey=false;}
37echo <<<END
38<!doctype html>
39<html lang="de">
40<head>
41        <meta charset="utf-8">
42        <link rel="stylesheet" type="text/css" href="alkisauszug.css">
43        <link rel="shortcut icon" type="image/x-icon" href="ico/Flurstueck.ico">
44        <title>ALKIS-Auskunft</title>
45</head>
46<body>
47END;
48
49$erlaubnis = darf_ich(); if ($erlaubnis === 0) { die('<p class="stop1">Abbruch</p></body>'); }
50$dbg=$debug;
51$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisausk.php'");
52if (!$con) {echo "<br>Fehler beim Verbinden der DB.\n<br>";}
53
54// F L U R S T Ü C K
55$sql ="SELECT f.flurnummer, f.zaehler, f.nenner, f.amtlicheflaeche, g.gemarkungsnummer, g.bezeichnung, f.gemeindezugehoerigkeit_regierungsbezirk, f.gemeindezugehoerigkeit_kreis, f.gemeindezugehoerigkeit_gemeinde
56FROM ax_flurstueck f LEFT JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer
57WHERE f.gml_id= $1 AND f.endet IS NULL AND g.endet IS NULL;";
58
59$v = array($gmlid);
60$res = pg_prepare("", $sql);
61$res = pg_execute("", $v);
62if (!$res) {
63        echo "\n<p class='err'>Fehler bei Flurstuecksdaten.</p>";
64        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".$sql."<br>$1 = gml_id = '".$gmlid."'</p>";}
65}
66
67if ($row = pg_fetch_array($res)) {
68        $gemkname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
69        $gmkgnr=$row["gemarkungsnummer"];
70        $flurnummer=$row["flurnummer"];
71        $flstnummer=$row["zaehler"];
72        $nenner=$row["nenner"];
73        if ($nenner > 0) $flstnummer.="/".$nenner; // BruchNr
74        $flae=$row["amtlicheflaeche"];
75        $flae=number_format($flae,0,",",".") . " m&#178;";
76        $fsreg=$row["gemeindezugehoerigkeit_regierungsbezirk"]; // Filter ZustÀndigkeit
77        $fskrs=$row["gemeindezugehoerigkeit_kreis"];
78        $fsgem=$row["gemeindezugehoerigkeit_gemeinde"];
79} else {
80        echo "\n<p class='err'>Kein Treffer fuer gml_id=".$gmlid."</p>";
81}
82
83// Balken
84echo "\n<p class='fsausk'>ALKIS-Auskunft Flurst&uuml;ck-&Uuml;bersicht ".$gmkgnr."-".$flurnummer."-".$flstnummer."</p>";
85
86// PrÃŒfung der Gebiets-Berechtigung bei gemeinsam genutzten Datenbanken (Kreis und Gemeinde)
87// FÃŒr das gkz (z.B. aus dem Mapfile-Namen) wird in der Konfiguration ein Filter gesetzt.
88if ( ($filtkreis != '' and $filtkreis != $fskrs) or ($filtgem != '' and $filtgem != $fsgem) ) {
89        // Einer der gesetzten Filter passt nicht
90        if ($dbg > 2) {
91                echo "\n<p class='err'>Filter Kreis='".$filtkreis."', Gemeinde='".$filtgem."'</p>"
92                ."\n<p class='err'>Flstk. Kreis='".$fskrs."', Gemeinde='".$fsgem."'</p>";
93        }
94        echo "\n<br><p class='stop1'>Zugriff nicht erlaubt</p>
95        \n<br><p class='stop2'>Dies Flurst&uuml;ck liegt ausserhalb der zust&auml;ndigen Stadt oder Gemeinde.</p>\n</body>\n</html>";
96        pg_free_result($res);
97        exit;
98}
99
100echo "\n<table class='outer'>\n<tr><td>"
101        ."\n<h1>ALKIS-Auskunft</h1>"
102        ."\n<h2><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Flurst&uuml;ck - &Uuml;bersicht</h2>";
103echo "</td><td align='right'>"
104        ."<img src='pic/AAA.gif' alt=''>"
105."</td></tr></table>";
106
107echo "\n<table class='outer'>\n<tr>\n<td>"
108        ."\n\t<table class='kennzfs' title='Flurst&uuml;ckskennzeichen'>\n\t<tr>"
109        ."\n\t\t<td class='head'>Gemarkung</td>\n\t\t<td class='head'>Flur</td>\n\t\t<td class='head'>Flurst-Nr.</td>\n\t</tr>"
110        ."\n\t<tr>\n\t\t<td title='Gemarkung'>".DsKy($gmkgnr, 'Gemarkungsnummer').$gemkname."</td>"
111        ."\n\t\t<td title='Flurnummer'>".$flurnummer."</td>"
112        ."\n\t\t<td title='Flurst&uuml;cksnummer (Z&auml;hler / Nenner)'><span class='wichtig'>".$flstnummer."</span></td>\n\t</tr>"
113        ."\n\t</table>"
114."\n</td>\n<td>"
115."\n\t<p class='nwlink'>weitere Auskunft:<br>";
116
117// FlurstÃŒcksnachweis (o. Eigent.)
118echo "\n\t<a href='alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$gmlid."&amp;eig=n".LnkStf()
119        ."' title='Flurst&uuml;cksnachweis, alle Flurst&uuml;cksdaten'>Flurst&uuml;ck "
120        ."<img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''>"
121."</a><br>";
122
123// FS- u. Eigent.-NW
124echo "\n\t\t<a href='alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$gmlid."&amp;eig=j".LnkStf()
125        ."' title='Flurst&uuml;ck mit Eigent&uuml;mer'>Flurst&uuml;ck mit Eigent&uuml;mer "
126        ."<img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''>"
127."</a><br>";
128
129// FS-Historie
130echo "\n\t\t<a href='alkisfshist.php?gkz=".$gkz."&amp;gmlid=".$gmlid.LnkStf()
131        ."' title='Vorg&auml;nger des Flurst&uuml;cks'>Historie "
132        ."<img src='ico/Flurstueck_Historisch.png' width='16' height='16' alt=''>"
133."</a><br>";
134
135// GebÀude-NW
136echo "\n\t\t<a href='alkisgebaeudenw.php?gkz=".$gkz."&amp;gmlid=".$gmlid.LnkStf()
137        ."' title='Geb&auml;udenachweis'>Geb&auml;ude "
138        ."<img src='ico/Haus.png' width='16' height='16' alt=''>"
139."</a>"
140. "\n\t</p>\n</td>";
141
142// Lagebezeichnung MIT Hausnummer (Adresse)
143$sql ="SELECT DISTINCT l.gml_id, s.gml_id AS kgml, l.gemeinde, l.lage, l.hausnummer, s.bezeichnung
144FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf)
145LEFT JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage
146WHERE f.gml_id= $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL ORDER BY l.gemeinde, l.lage, l.hausnummer;";
147
148$v = array($gmlid);
149$res = pg_prepare("", $sql);
150$res = pg_execute("", $v);
151if (!$res) {
152        echo "\n<p class='err'>Fehler bei Lagebezeichnung mit Hausnummer.</p>";
153        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".$sql."<br>$1 = gml_id = '".$gmlid."'</p>";}
154}
155$j=0;
156while($row = pg_fetch_array($res)) {
157        $sname = htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name
158        echo "\n<tr>\n\t"
159                ."\n\t<td class='lr'>".$sname."&nbsp;".$row["hausnummer"]."</td>"
160                ."\n\t<td>\n\t\t<p class='nwlink noprint'>"
161                        ."\n\t\t\t<a title='Lagebezeichnung mit Hausnummer' href='alkislage.php?gkz=".$gkz."&amp;ltyp=m&amp;gmlid=".$row["gml_id"]."'>Lage "
162                        ."<img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a>&nbsp;"
163                        ."\n\t\t\t<a href='alkisstrasse.php?gkz=".$gkz."&amp;gmlid=".$row["kgml"]
164                        ."' title='Stra&szlig;e'>Stra&szlig;e <img src='ico/Strassen.png' width='16' height='16' alt=''></a>"
165                ."\n\t\t</p>\n\t</td>"
166        ."\n</tr>";
167        $j++;
168}
169echo "\n</tr>\n</table>";
170
171// FlurstÌcksflÀche
172echo "\n<p class='fsd'>Flurst&uuml;cksfl&auml;che: <b>".$flae."</b></p>";
173
174// G R U N D B U C H
175echo "\n<h2><img src='ico/Grundbuch_zu.png' width='16' height='16' alt=''> Grundbuch</h2>";
176// ALKIS: FS >istgebucht> GS >istBestandteilVon> GB.
177$sql ="SELECT b.gml_id, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung as blatt, b.blattart, wa.beschreibung AS blattartv,
178s.gml_id AS s_gml, s.buchungsart, s.laufendenummer, s.zaehler, s.nenner, z.bezeichnung, wb.beschreibung AS bart
179FROM ax_flurstueck f
180JOIN ax_buchungsstelle s ON f.istgebucht=s.gml_id
181JOIN ax_buchungsblatt b ON s.istbestandteilvon=b.gml_id
182LEFT JOIN ax_buchungsblattbezirk z ON z.land=b.land AND z.bezirk=b.bezirk
183LEFT JOIN ax_blattart_buchungsblatt wa ON b.blattart = wa.wert
184LEFT JOIN ax_buchungsart_buchungsstelle wb ON s.buchungsart = wb.wert
185WHERE f.gml_id= $1 AND f.endet IS NULL AND s.endet IS NULL AND b.endet IS NULL AND z.endet IS NULL
186ORDER BY b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung, s.laufendenummer;";
187
188$v = array($gmlid);
189$resg = pg_prepare("", $sql);
190$resg = pg_execute("", $v);
191if (!$resg) {
192        echo "\n<p class='err'>Keine Buchungen.</p>";
193        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".$sql."<br>$1 = gml_id = '".$gmlid."'</p>";}
194}
195
196$j=0; // Z.Blatt
197while($rowg = pg_fetch_array($resg)) {
198        $beznam=$rowg["bezeichnung"];
199        echo "\n<table class='outer'>\n<tr>\n<td>";
200                $blattkey=$rowg["blattart"];
201                $blattart=$rowg["blattartv"];
202                if ($blattkey === 1000) {
203                        echo "\n\t<table class='kennzgb' title='Bestandskennzeichen'>";
204                } else {
205                        echo "\n\t<table class='kennzgbf' title='Bestandskennzeichen'>"; // dotted
206                }
207                        echo "\n\t<tr>"
208                                ."\n\t\t<td class='head'>Bezirk</td>"
209                                ."\n\t\t<td class='head'>".$blattart."</td>"
210                                ."\n\t\t<td class='head'>Lfd-Nr.</td>"
211                                ."\n\t\t<td class='head'>Buchungsart</td>"
212                        ."\n\t</tr>";
213                        echo "\n\t<tr>"
214                                ."\n\t\t<td title='Grundbuchbezirk'>".DsKy($rowg["bezirk"], 'Grundbuch-Bezirk-*').$beznam."</td>"
215                                ."\n\t\t<td title='Grundbuch-Blatt'><span class='wichtig'>".$rowg["blatt"]."</span></td>"
216                                ."\n\t\t<td title='Bestandsverzeichnis-Nummer (BVNR, Grundst&uuml;ck)'>".$rowg["laufendenummer"]."</td>"
217                                ."\n\t\t<td title='Buchungsart'>".DsKy($rowg["buchungsart"], 'Buchungsart-*').$rowg["bart"]."</td>"
218                        ."\n\t</tr>"
219                ."\n\t</table>";
220
221                if ($rowg["zaehler"] != "") {
222                        echo "\n<p class='ant'>".$rowg["zaehler"]."/".$rowg["nenner"]."&nbsp;Anteil am Flurst&uuml;ck</p>";
223                }
224                echo "\n</td>\n<td>"
225                ."\n\t<p class='nwlink'>weitere Auskunft:<br>"
226                        ."\n\t\t<a href='alkisbestnw.php?gkz=".$gkz."&amp;gmlid=".$rowg[0].LnkStf()
227                        ."' title='Grundbuchnachweis'>".$blattart." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''></a>"
228                ."\n\t</p>"
229        ."\n</td>\n</tr>\n</table>";
230
231        // E I G E N T Ü M E R
232        if ($blattkey === 5000) { // SchlÃŒssel Blatt-Art
233                echo "\n<p>Keine Angaben zum Eigentum bei fiktivem Blatt</p>\n"
234                ."\n<p>Siehe weitere Grundbuchbl&auml;tter mit Rechten an dem fiktiven Blatt.</p>";
235        } else { // kein Eigent. bei fiktiv. Blatt
236                // Ausgabe Name in Function
237                $n = eigentuemer($rowg["gml_id"], false, true); // ohne Adressen
238
239                if ($n === 0) { // keine NamNum, kein Eigent.
240                        echo "\n<p class='err'>Keine Eigent&uuml;mer gefunden.</p>"
241                        ."\n<p class='err'>Bezirk ".$rowg["bezirk"]." Blatt ".$rowg["blatt"]." Blattart ".$blattkey." (".$blattart.")</p>";
242                }
243        }
244        $j++;
245}
246if ($j === 0) {echo "\n<p class='err'>Keine Buchungen gefunden.</p>";}
247echo "\n<hr>";
248
249footer($gmlid, selbstverlinkung()."?", "");
250
251?>
252</body>
253</html>
Note: See TracBrowser for help on using the repository browser.