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

Revision 427, 11.3 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/*      alkisstrasse.php
3
4        ALKIS-Auskunft
5        Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
6
7        Alle FlurstÃŒcke an einer Straße anzeigen, egal ob "mit" oder "ohne" Hausnummer
8        Parameter: "gml_id" aus der Tabelle "ax_lagebezeichnungkatalogeintrag"
9
10        Version:
11        2016-02-24 Version fÃŒr norGIS-ALKIS-Import
12        ...
13        2020-02-20 Authentifizierung ausgelagert in Function darf_ich()
14        2020-12-15 Input-Validation und Strict Comparisation (===)
15        2021-12-09 Neue Parameter: $katAmtMix (Kataster-Amt-Mix), $PrntBtn (Drucken-SchaltflÀche)
16        2022-01-13 Neue Functions LnkStf(), DsKy()
17*/
18ini_set("session.cookie_httponly", 1);
19session_start();
20$showkey="n"; $nodebug=""; // Var. aus Parameter initalisieren
21$cntget = extract($_GET); // Parameter in Variable umwandeln
22
23// strikte Validierung aller Parameter
24if (isset($gmlid)) {
25        if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
26} else {
27        die("Fehlender Parameter");
28}
29if (isset($gkz)) {
30        if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
31} else {
32        die("Fehlender Parameter");
33}
34if (!preg_match('#^[j|n]{0,1}$#', $showkey)) {die ("Eingabefehler showkey");}
35if ($showkey === "j") {$showkey=true;} else {$showkey=false;}
36if (!preg_match('#^j{0,1}$#', $nodebug)) {die("Eingabefehler nodebug");}
37
38include "alkis_conf_location.php";
39include "alkisfkt.php";
40?>
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 Stra&szlig;e</title>
47        <link rel="stylesheet" type="text/css" href="alkisauszug.css">
48        <link rel="shortcut icon" type="image/x-icon" href="ico/Strassen.ico">
49        <script type="text/javascript">
50                function ALKISexport(phaus) {
51                        window.open(<?php echo "'alkisexport.php?gkz=".$gkz."&tabtyp=strasse&gmlid=".$gmlid."&haus='"; ?> + phaus);
52                }
53        </script>
54</head>
55<body>
56<?php
57$erlaubnis = darf_ich(); if ($erlaubnis === 0) { die('<p class="stop1">Abbruch</p></body>'); }
58$dbg=$debug; // CONF in Arbeits-Variable
59if ($nodebug === "j") {$dbg=0;}
60
61$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisstrasse.php'");
62if (!$con) echo "\n<p class='err'>Fehler beim Verbinden der DB</p>";
63
64$sql ="SELECT s.land, s.regierungsbezirk, s.kreis, s.gemeinde, s.lage, s.bezeichnung AS snam,
65b.bezeichnung AS bnam, r.bezeichnung AS rnam, k.bezeichnung AS knam, g.bezeichnung AS gnam, o.gml_id AS ogml
66FROM ax_lagebezeichnungkatalogeintrag s
67JOIN ax_bundesland b ON s.land=b.land ".UnqKatAmt("s","b")
68."JOIN ax_regierungsbezirk r ON s.land=r.land AND s.regierungsbezirk=r.regierungsbezirk ".UnqKatAmt("s","r")
69."JOIN ax_kreisregion k ON s.land=k.land AND s.regierungsbezirk=k.regierungsbezirk AND s.kreis=k.kreis ".UnqKatAmt("s","k")
70."JOIN ax_gemeinde g ON s.land=g.land AND s.regierungsbezirk=g.regierungsbezirk AND s.kreis=g.kreis AND s.gemeinde=g.gemeinde ".UnqKatAmt("s","g")
71."LEFT JOIN ax_lagebezeichnungohnehausnummer o ON s.land=o.land AND s.regierungsbezirk=o.regierungsbezirk AND s.kreis=o.kreis AND s.gemeinde=o.gemeinde AND s.lage=o.lage
72WHERE s.gml_id= $1 AND s.endet IS NULL AND b.endet IS NULL AND r.endet IS NULL AND k.endet IS NULL AND g.endet IS NULL AND o.endet IS NULL ;";
73
74$v=array($gmlid);
75$res=pg_prepare("", $sql);
76$res=pg_execute("", $v);
77if (!$res) {
78        echo "\n<p class='err'>Fehler bei Lagebezeichnungskatalogeintrag.</p>";
79        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
80}
81if ($dbg > 0) {
82        $zeianz=pg_num_rows($res);
83        if ($zeianz > 1){
84                echo "\n<p class='err'>Die Abfrage liefert mehr als ein (".$zeianz.") Stra&szlig;en-Objekt!</p>";
85                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";}
86        }
87}
88if ($row = pg_fetch_assoc($res)) {
89        $lage=$row["lage"]; // Str.schl.
90        $snam=$row["snam"]; // Str.name
91        $gem=$row["gemeinde"];
92        $kennz=$gem."-".$lage." (".$snam.")"; // SchlÃŒssel als Sucheingabe in NAV brauchbar?
93        echo "\n<p class='balken strasse'>ALKIS Stra&szlig;e ".$kennz."&nbsp;</p>";
94} else {
95        echo "\n<p class='err'>Kein Treffer bei Lagebezeichnungskatalogeintrag.</p>";
96}
97
98echo "\n<h2>Stra&szlig;e</h2>";
99
100// Tabelle Kennzeichen
101echo "\n<table class='outer'>\n<tr>"
102."\n\t<td class='ll'><img src='ico/Strassen.png' width='16' height='16' alt=''> Stra&szligenname:</td>"
103."\n\t<td>"
104        ."\n\t\t<table class='kennzstra' title='Lage'>"
105                ."\n\t\t<tr>"
106                        ."\n\t\t\t<td class='head'>Land</td>"
107                        ."\n\t\t\t<td class='head'>Reg.-Bez.</td>"
108                        ."\n\t\t\t<td class='head'>Kreis</td>"
109                        ."\n\t\t\t<td class='head'>Gemeinde</td>"
110                        ."\n\t\t\t<td class='head'>Stra&szlig;e</td>"
111                ."\n\t\t</tr>"
112                ."\n\t\t<tr>";
113                echo "\n\t\t\t<td title='Bundesland'>".DsKy($row["land"], 'Bundesland-*').$row["bnam"]."&nbsp;</td>"
114                        ."\n\t\t\t<td title='Regierungsbezirk'>".DsKy($row["regierungsbezirk"], 'Regierungsbezirk-*').$row["rnam"]."&nbsp;</td>"
115                        ."\n\t\t\t<td title='Kreis'>".DsKy($row["kreis"], 'Kreis-*').$row["knam"]."&nbsp;</td>"
116                        ."\n\t\t\t<td title='Gemeinde'>".DsKy($gem, 'Gemeinde-*').$row["gnam"]."&nbsp;</td>"
117                        ."\n\t\t\t<td title='Stra&szlig;e'>".DsKy($lage, 'Stra&szlig;en-*')."<span class='wichtig'>".$snam."</span>&nbsp;</td>"
118                ."\n\t\t</tr>"
119        ."\n\t\t</table>";
120echo "\n\t</td>\n\t<td>";
121
122// Kopf Rechts:
123$ogml=$row["ogml"]; // ID von "Lage Ohne HsNr"
124if ($ogml != "") {
125        echo "\n\t\t<p class='nwlink noprint'>"
126                ."\n\t\t<a href='alkislage.php?gkz=".$gkz."&amp;ltyp=o&amp;gmlid=".$ogml.LnkStf()
127                ."' title='Lage Ohne Hausnummer'>Lage <img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''></a>"
128        ."\n\t\t</p>";
129}
130echo "\n\t</td>\n</tr>\n</table>";
131pg_free_result($res);
132
133// F L U R S T Ü C K E
134echo "\n\n<h3 id='fs'><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Flurst&uuml;cke</h3>"
135."\n<p>Zusammenfassung von 'Lage mit Hausnummer' und 'Lage ohne Hausnummer' an dieser Straße</p>";
136
137// ax_Flurstueck >weistAuf> ax_LagebezeichnungMitHausnummer  > = h = Hauptgebaeude
138// ax_Flurstueck >zeigtAuf> ax_LagebezeichnungOhneHausnummer > = s = Strasse
139// Suchkriterium: gml_id aus Katalog
140$sql ="SELECT fh.gemarkungsnummer, gh.bezeichnung, fh.gml_id, fh.flurnummer, fh.zaehler, fh.nenner, fh.amtlicheflaeche, lh.gml_id AS lgml, lh.hausnummer, 'm' AS ltyp
141 FROM ax_flurstueck fh
142 JOIN ax_lagebezeichnungmithausnummer lh ON lh.gml_id=ANY(fh.weistAuf)
143 JOIN ax_gemarkung gh ON fh.land=gh.land AND fh.gemarkungsnummer=gh.gemarkungsnummer ".UnqKatAmt("fh","gh")
144."JOIN ax_lagebezeichnungkatalogeintrag sh ON lh.land=sh.land AND lh.regierungsbezirk=sh.regierungsbezirk AND lh.kreis=sh.kreis AND lh.gemeinde=sh.gemeinde AND lh.lage=sh.lage
145 WHERE sh.gml_id = $1 AND fh.endet IS NULL AND lh.endet IS NULL AND gh.endet IS NULL AND sh.endet IS NULL
146UNION SELECT fs.gemarkungsnummer, gs.bezeichnung, fs.gml_id, fs.flurnummer, fs.zaehler, fs.nenner, fs.amtlicheflaeche, ls.gml_id AS lgml, '' AS hausnummer, 'o' AS ltyp
147 FROM ax_flurstueck fs
148 JOIN ax_lagebezeichnungohnehausnummer ls ON ls.gml_id=ANY(fs.zeigtauf)
149 JOIN ax_gemarkung gs ON fs.land=gs.land AND fs.gemarkungsnummer=gs.gemarkungsnummer ".UnqKatAmt("fs","gs")
150."JOIN ax_lagebezeichnungkatalogeintrag ss ON ls.land=ss.land AND ls.regierungsbezirk=ss.regierungsbezirk AND ls.kreis=ss.kreis AND ls.gemeinde=ss.gemeinde AND ls.lage=ss.lage
151 WHERE ss.gml_id = $1 AND fs.endet IS NULL AND ls.endet IS NULL AND gs.endet IS NULL AND ss.endet IS NULL
152ORDER BY gemarkungsnummer, flurnummer, zaehler, nenner;";
153
154$v=array($gmlid);
155$resf=pg_prepare("", $sql);
156$resf=pg_execute("", $v);
157if (!$resf) {
158        echo "\n<p class='err'>Fehler bei Flurst&uuml;ck.</p>";
159        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}     
160}
161
162echo "\n<table class='fs'>"
163."\n<tr>"
164        ."\n\t<td class='heads' title='Name der Gemarkung (Ortsteil)'>Gemarkung<img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'></td>"
165        ."\n\t<td class='heads' title='Flur-Nummer'>Flur<img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'></td>"
166        ."\n\t<td class='heads' title='Flurst&uuml;cksnummer (Z&auml;hler / Nenner)'><img src='ico/sort.png' width='10' height='10' alt='' title='Sortierung'>Flurst.</td>"
167        ."\n\t<td class='head fla' title='amtliche Fl&auml;che in Quadratmeter'>Fl&auml;che</td>"
168        ."\n\t<td class='head hsnr' title='Hausnummer aus der Lagebezeichnung des Flurst&uuml;cks'>HsNr.</td>"
169        ."\n\t<td class='head nwlink noprint' title='Verlinkung zu anderen Nachweis-Arten und verbundenen Objekten'>weitere Auskunft</td>"
170."\n</tr>";
171$j=0;
172$gwgmkg=""; // Gruppenwechsel
173$gwflur="";
174$cnths=0; // Count Haus-Lagebez.
175
176$zpaar=false; // Zeilen-Farbwechsel
177while($rowf = pg_fetch_assoc($resf)) {
178        $gmkg=$rowf["bezeichnung"];
179        $flur=str_pad($rowf["flurnummer"], 3, "0", STR_PAD_LEFT);
180        $fskenn=$rowf["zaehler"]; // Bruchnummer
181        if ($rowf["nenner"] != "") {$fskenn.="/".$rowf["nenner"];}
182        $flae=number_format($rowf["amtlicheflaeche"],0,",",".") . " m&#178;";
183        $lgml=$rowf["lgml"]; // ID von "Lage Mit/Ohne"
184        $ltyp=$rowf["ltyp"]; // mit/ohne HsNr
185
186        if ($zpaar) {$trclass='paa';} else {$trclass='unp';}
187        $zpaar=!$zpaar;
188        echo "\n<tr class='".$trclass."'>"
189                ."\n\t<td>".DsKy($rowf["gemarkungsnummer"], 'Gemarkungsnummer');
190                if ($gwgmkg != $gmkg) {
191                        echo "<b>".$gmkg."</b></td>";
192                        $gwgmkg=$gmkg;
193                        $gwflur="";
194                } else {
195                        echo $gmkg."</td>";
196                }
197
198                if ($gwflur != $flur) {
199                        echo "\n\t<td><b>".$flur."</b></td>";
200                        $gwflur=$flur;
201                } else {
202                        echo "\n\t<td>".$flur."</td>";
203                }
204
205                echo "\n\t<td><span class='wichtig'>".$fskenn."</span></td>"
206                ."\n\t<td class='fla'>".$flae."</td>"
207                ."\n\t<td class='hsnr'>".$rowf["hausnummer"]."</td>"
208                ."\n\t<td>\n\t\t<p class='nwlink noprint'>";
209                        if ($ltyp === 'm') { // nur Typ "Mit Haus" anzeigen. Dar Typ 'o' ist immer gleich und identisch mit dem Link im Kopf
210                                echo "\n\t\t<a href='alkislage.php?gkz=".$gkz."&amp;ltyp=".$ltyp."&amp;gmlid=".$lgml.LnkStf()
211                                ."' title='Lagebezeichnung mit Hausnummer'>Lage <img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a>&nbsp;";
212                                $cnths++;
213                        }
214                        // Link FlurstÃŒcksnachweis
215                        echo "\n\t\t<a href='alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$rowf["gml_id"].LnkStf()."&amp;eig=n"
216                        ."' title='Flurst&uuml;cksnachweis'>Flurst&uuml;ck <img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''></a>"
217                ."\n\t\t</p>\n\t</td>"
218        ."\n</tr>";
219        $j++;
220}
221echo "\n</table>";
222if ($j > 6) {
223        echo "<p class='cnt'>".$j." Flurst&uuml;cke";
224        if ($cnths > 1) {echo " und ".$cnths." Hauptgeb&auml;ude";}
225        echo " mit dieser Stra&szlig;e in der Lagebezeichnung</p>";
226}
227pg_free_result($resf);
228
229echo "\n<div class='buttonbereich noprint'>\n<hr>"
230        ."\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;";
231if ($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;";}
232echo "\n\t<a title='Export als CSV' href=\"javascript:ALKISexport('')\">alle<img src='ico/download.png' width='16' height='16' alt='Export'></a>&nbsp;"
233        ."\n\t<a title='CSV - nur Flurst&uuml;cke mit Hausnummer' href=\"javascript:ALKISexport('m')\">mit HsNr<img src='ico/download.png' width='16' height='16' alt='Export'></a>&nbsp;"
234        ."\n\t<a title='CSV - nur Flurst&uuml;cke ohne Hausnummer' href=\"javascript:ALKISexport('o')\">ohne<img src='ico/download.png' width='16' height='16' alt='Export'></a>&nbsp;"
235."\n</div>";
236
237footer($gmlid, selbstverlinkung()."?", "");
238?>
239
240</body>
241</html>
Note: See TracBrowser for help on using the repository browser.