1 | <?php |
---|
2 | /* alkisfsnw.php |
---|
3 | |
---|
4 | ALKIS-Auskunft |
---|
5 | Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo) |
---|
6 | |
---|
7 | FlurstÃŒcksnachweis fÃŒr ein FlurstÃŒckskennzeichen aus ALKIS PostNAS |
---|
8 | |
---|
9 | Version: |
---|
10 | 2016-02-24 Version fÃŒr norGIS-ALKIS-Import |
---|
11 | ... |
---|
12 | 2020-12-03 function selbstverlinkung() statt $_SERVER['PHP_SELF'] |
---|
13 | 2020-12-09 Verschn. mit "Bau-, Raum- oder Bodenordnungsrecht" korrigiert, Entschl. BodenschÀtzung korrigiert |
---|
14 | 2020-12-16 Input-Validation und Strict Comparisation (===) |
---|
15 | 2021-03-09 Link zum GebÀudenachweis auch mit "Bauwerke" betiteln |
---|
16 | 2021-12-09 Neue Parameter: $katAmtMix (Kataster-Amt-Mix), $PrntBtn (Drucken-SchaltflÀche) |
---|
17 | 2022-01-13 Functions in Fach-Modul verschoben, die nicht von mehreren verwendet werden. Neue Functions LnkStf(), DsKy() |
---|
18 | 2022-07-05 PHP 8.1: Connection verwenden bei "pg_prepare" und "pg_execute", keine NULL-Werte in String-Functions verwenden |
---|
19 | |
---|
20 | ToDo: |
---|
21 | - Tabbelle "nutz_21" ist ein Relikt von NorGIS/ALB und könnte in spÀteren Versionen fehlen. |
---|
22 | - Buchung auf "fiktives Blatt" ist nur mit debug zu sehen: die <tr> in .css grau hinterlegen |
---|
23 | - "Umschalter" (gleiches Modul) anders darstellen als Links zu ANDEREN Nachweisen |
---|
24 | - Parameter zum Umschalten mit/ohne BodenschÀtzung? |
---|
25 | - Bessere Differenzierung bei den Nutzungsarten (Tabelle dafÃŒr aufbauen) |
---|
26 | */ |
---|
27 | |
---|
28 | function werteliste($bez ,$sqlin, $con) { |
---|
29 | // Eine oder mehrere EntschlÃŒsselungen in eine Zeile ausgeben. |
---|
30 | // Dient dazu, SchlÌssel-ARRAYs auflösen ohne die Zeile im JOIN mehrfach aufzulisten |
---|
31 | // Anwendung: FS-Nachweis BodenschÀtzung |
---|
32 | global $dbg; |
---|
33 | |
---|
34 | if ($bez === 'e') {$tabelle = 'ax_entstehungsartoderklimastufewasserverhaeltnisse_bodensc';} |
---|
35 | elseif ($bez === 's') {$tabelle = 'ax_sonstigeangaben_bodenschaetzung';} |
---|
36 | |
---|
37 | $sql="SELECT wert, beschreibung FROM ".$tabelle." WHERE wert IN (".$sqlin.") ORDER BY wert LIMIT $1 ;"; |
---|
38 | $v = array('9'); |
---|
39 | $res = pg_prepare($con, "", $sql); |
---|
40 | $res = pg_execute($con, "", $v); |
---|
41 | if (!$res) { |
---|
42 | echo "\n<p class='err'>Fehler bei Werteliste.</p>"; |
---|
43 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";} |
---|
44 | return; |
---|
45 | } |
---|
46 | $zeianz=pg_num_rows($res); |
---|
47 | while($row = pg_fetch_assoc($res)) { |
---|
48 | echo " ".$row["beschreibung"]; |
---|
49 | } |
---|
50 | pg_free_result($res); |
---|
51 | if ($zeianz === 0) { |
---|
52 | echo "(kein Treffer)"; |
---|
53 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";} |
---|
54 | } |
---|
55 | return; |
---|
56 | } |
---|
57 | |
---|
58 | // Start |
---|
59 | ini_set("session.cookie_httponly", 1); |
---|
60 | session_start(); |
---|
61 | |
---|
62 | $eig="n"; $showkey="n"; $nodebug=""; // Var. initalisieren |
---|
63 | $cntget = extract($_GET); // alle Parameter in Variable umwandeln |
---|
64 | |
---|
65 | // strikte Validierung aller Parameter |
---|
66 | if (isset($gmlid)) { |
---|
67 | if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");} |
---|
68 | $fskennz=''; |
---|
69 | } else { // Alternativ |
---|
70 | $gmlid=''; |
---|
71 | if (isset($fskennz)) { |
---|
72 | if (!preg_match('#^[0-9\-_/]{8,20}$#', $fskennz)) {die ("Eingabefehler fskennz");} |
---|
73 | } else { |
---|
74 | die("Fehlender Parameter"); |
---|
75 | } |
---|
76 | } |
---|
77 | if (isset($gkz)) { |
---|
78 | if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");} |
---|
79 | } else { |
---|
80 | die("Fehlender Parameter"); |
---|
81 | } |
---|
82 | if (!preg_match('#^[j|n]{0,1}$#', $eig)) {die("Eingabefehler eig");} |
---|
83 | if (!preg_match('#^[j|n]{0,1}$#', $showkey)) {die ("Eingabefehler showkey");} |
---|
84 | if ($showkey === "j") {$showkey=true;} else {$showkey=false;} // "j"/"n" als bool, ist praktischer, oft gebraucht |
---|
85 | if (!preg_match('#^j{0,1}$#', $nodebug)) {die("Eingabefehler nodebug");} |
---|
86 | |
---|
87 | include "alkis_conf_location.php"; |
---|
88 | include "alkisfkt.php"; |
---|
89 | ?> |
---|
90 | <!doctype html> |
---|
91 | <html lang="de"> |
---|
92 | <head> |
---|
93 | <meta charset="utf-8"> |
---|
94 | <meta name="viewport" content="width=device-width, initial-scale=1.0"> |
---|
95 | <title>ALKIS Flurstücksnachweis</title> |
---|
96 | <link rel="stylesheet" type="text/css" href="alkisauszug.css"> |
---|
97 | <link rel="shortcut icon" type="image/x-icon" href="ico/Flurstueck.ico"> |
---|
98 | <script> |
---|
99 | function ALKISexport(gmlid) { |
---|
100 | window.open('alkisexport.php?gkz=<?php echo $gkz;?>&tabtyp=flurstueck&gmlid=' + gmlid); |
---|
101 | } |
---|
102 | </script> |
---|
103 | </head> |
---|
104 | <body> |
---|
105 | <?php |
---|
106 | $erlaubnis = darf_ich(); if ($erlaubnis === 0) { die('<p class="stop1">Abbruch</p></body>'); } |
---|
107 | $dbg=$debug; |
---|
108 | if ($nodebug === "j") {$dbg=0;} |
---|
109 | |
---|
110 | $con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisfsnw.php'"); |
---|
111 | if (!$con) echo "\n<p class='err'>Fehler beim Verbinden der DB</p>"; |
---|
112 | |
---|
113 | // Ein FlurstÃŒcks-Kennzeichen im DB-Format wurde alternativ zur gml_id ÃŒbermittelt |
---|
114 | if ($fskennz != '') { |
---|
115 | // Spalte "flurstueckskennzeichen" ist in DB indiziert. Format z.B.'052647002001910013__' oder '05264700200012______' |
---|
116 | $sql ="SELECT gml_id FROM ax_flurstueck WHERE flurstueckskennzeichen= $1 AND endet IS NULL;"; |
---|
117 | $v=array(fskenn_dbformat($fskennz)); |
---|
118 | $res = pg_prepare($con, "", $sql); |
---|
119 | $res = pg_execute($con, "", $v); |
---|
120 | if ($row = pg_fetch_assoc($res)) { |
---|
121 | $gmlid=$row["gml_id"]; |
---|
122 | } else { |
---|
123 | echo "\n<p class='err'>Fehler! Kein Treffer für Flurstückskennzeichen='".$fskennz."' (".$fskzdb.")</p>"; |
---|
124 | echo "<p>Kennzeichen veraltet? <a href='./alkisfshist.php?gkz=".$gkz."&fskennz=".$fskennz.LnkStf()."'>Suche in der Flurstücks-Historie</a></p>"; |
---|
125 | echo "\n</body>\n</html>"; |
---|
126 | return; |
---|
127 | } |
---|
128 | pg_free_result($res); |
---|
129 | } |
---|
130 | |
---|
131 | // F L U R S T Ã C K m. Gebiet |
---|
132 | $sql ="SELECT f.zeigtaufexternes_art, f.zeigtaufexternes_name, f.flurnummer, f.zaehler, f.nenner, f.gemeindezugehoerigkeit_regierungsbezirk, f.gemeindezugehoerigkeit_kreis, f.gemeindezugehoerigkeit_gemeinde, f.amtlicheflaeche, st_area(f.wkb_geometry) AS fsgeomflae, |
---|
133 | to_char(cast(f.zeitpunktderentstehung AS date),'DD.MM.YYYY') AS zeitpunktderentstehung, f.istgebucht, g.gemarkungsnummer, g.bezeichnung, r.bezeichnung AS rbez, k.bezeichnung AS kbez, m.bezeichnung AS mbez |
---|
134 | FROM ax_flurstueck f |
---|
135 | LEFT JOIN ax_gemarkung g ON f.gemeindezugehoerigkeit_land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer ".UnqKatAmt("f","g") |
---|
136 | ."LEFT JOIN ax_regierungsbezirk r ON f.gemeindezugehoerigkeit_regierungsbezirk=r.regierungsbezirk ".UnqKatAmt("f","r") |
---|
137 | ."LEFT JOIN ax_kreisregion k ON f.gemeindezugehoerigkeit_regierungsbezirk=k.regierungsbezirk AND f.gemeindezugehoerigkeit_kreis=k.kreis ".UnqKatAmt("f","k") |
---|
138 | ."LEFT JOIN ax_gemeinde m ON m.regierungsbezirk=f.gemeindezugehoerigkeit_regierungsbezirk AND m.kreis=f.gemeindezugehoerigkeit_kreis AND m.gemeinde=f.gemeindezugehoerigkeit_gemeinde ".UnqKatAmt("f","m") |
---|
139 | ."WHERE f.gml_id= $1 AND f.endet IS NULL AND g.endet IS NULL AND m.endet IS NULL AND k.endet IS NULL AND r.endet IS NULL;"; |
---|
140 | |
---|
141 | $v = array($gmlid); // mit gml_id suchen |
---|
142 | $res = pg_prepare($con, "", $sql); |
---|
143 | $res = pg_execute($con, "", $v); |
---|
144 | if (!$res) { |
---|
145 | echo "\n<p class='err'>Fehler bei Flurstuecksdaten</p>"; |
---|
146 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";} |
---|
147 | } |
---|
148 | if ($dbg > 0) { |
---|
149 | $zeianz=pg_num_rows($res); |
---|
150 | if ($zeianz > 1){ |
---|
151 | echo "\n<p class='err'>Die Abfrage liefert mehr als ein (".$zeianz.") Flurstücks-Objekt!</p>"; |
---|
152 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";} |
---|
153 | } |
---|
154 | } |
---|
155 | if ($row = pg_fetch_assoc($res)) { |
---|
156 | $gemkname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); |
---|
157 | $gmkgnr=$row["gemarkungsnummer"]; |
---|
158 | $bezirk=$row["gemeindezugehoerigkeit_regierungsbezirk"]; |
---|
159 | $rbez=htmlentities($row["rbez"], ENT_QUOTES, "UTF-8"); |
---|
160 | $kreis=$row["gemeindezugehoerigkeit_kreis"]; |
---|
161 | $kbez=htmlentities($row["kbez"], ENT_QUOTES, "UTF-8"); |
---|
162 | $gemeinde=$row["gemeindezugehoerigkeit_gemeinde"]; |
---|
163 | $mbez=htmlentities($row["mbez"], ENT_QUOTES, "UTF-8"); |
---|
164 | $flurnummer=$row["flurnummer"]; |
---|
165 | $zaehler=$row["zaehler"]; |
---|
166 | $nenner=$row["nenner"]; |
---|
167 | $flstnummer=$zaehler; |
---|
168 | if ($nenner == NULL) { |
---|
169 | $nenner=""; |
---|
170 | } else { |
---|
171 | $flstnummer.="/".$nenner; |
---|
172 | } // BruchNr |
---|
173 | $fsbuchflae=$row["amtlicheflaeche"]; // amtl. Fl. aus DB-Feld |
---|
174 | $fsgeomflae=$row["fsgeomflae"]; // aus Geometrie ermittelte FlÀche |
---|
175 | $the_Xfactor = $fsbuchflae / $fsgeomflae; // Multiplikator zur Umrechnung geometrische AbschnittsflÀchen in BuchflÀche |
---|
176 | $fsbuchflaed=number_format($fsbuchflae,0,",",".") . " m²"; // Display-Format dazu |
---|
177 | $fsgeomflaed=number_format($fsgeomflae,0,",",".") . " m²"; |
---|
178 | $gml_buchungsstelle=$row["istgebucht"]; // wird erst im GB-Teil benötigt |
---|
179 | $entsteh=$row["zeitpunktderentstehung"]; |
---|
180 | $zeart=$row["zeigtaufexternes_art"]; |
---|
181 | $zename=$row["zeigtaufexternes_name"]; |
---|
182 | if (is_null($zename)) {$zename="";} |
---|
183 | } else { |
---|
184 | echo "\n<p class='err'>Fehler! Kein Treffer für Flurstück mit gml_id=".$gmlid."</p>"; |
---|
185 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";} |
---|
186 | echo "\n</body>\n</html>"; |
---|
187 | return; |
---|
188 | } |
---|
189 | pg_free_result($res); |
---|
190 | |
---|
191 | if ($eig==="j") { // Balken |
---|
192 | echo "<p class='balken fsei'>ALKIS Flurstück ".$gmkgnr."-".$flurnummer."-".$flstnummer." </p>" |
---|
193 | ."\n\n<h2>Flurstück mit Eigentümer</h2>"; |
---|
194 | } else { |
---|
195 | echo "<p class='balken fskennz'>ALKIS Flurstück ".$gmkgnr."-".$flurnummer."-".$flstnummer." </p>" |
---|
196 | ."\n\n<h2>Flurstück</h2>"; |
---|
197 | } |
---|
198 | |
---|
199 | // PrÃŒfung der Gebiets-Berechtigung bei gemeinsam genutzten Datenbanken (Kreis und Gemeinde) |
---|
200 | // FÃŒr das gkz (z.B. aus dem Mapfile-Namen) wird in der Konfiguration ein Filter gesetzt. |
---|
201 | if ( ($filtkreis != '' and $filtkreis != $kreis) or ($filtgem != '' and $filtgem != $gemeinde) ) { |
---|
202 | // Einer der gesetzten Filter passt nicht |
---|
203 | if ($dbg > 2) { |
---|
204 | echo "\n<p class='err'>Filter Kreis='".$filtkreis."', Gemeinde='".$filtgem."'</p>" |
---|
205 | ."\n<p class='err'>Flstk. Kreis='".$fskrs."', Gemeinde='".$fsgem."'</p>"; |
---|
206 | } |
---|
207 | echo "\n<br><p class='stop1'>Zugriff nicht erlaubt</p>" |
---|
208 | ."\n<br><p class='stop2'>Dies Flurstück liegt ausserhalb der zuständigen Stadt oder Gemeinde.</p>\n</body>\n</html>"; |
---|
209 | exit; |
---|
210 | } |
---|
211 | |
---|
212 | echo "\n<table class='outer'>" |
---|
213 | ."\n\t<tr>\n\t\t<td class='ll'><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Kennzeichen:</td>" // Links |
---|
214 | ."\n\t\t<td>" // Mitte |
---|
215 | ."\n\t\t\t<table class='kennzfs' title='Flurstückskennzeichen'>\n\t\t\t\t<tr>" // darin Tabelle Kennzeichen |
---|
216 | ."\n\t\t\t\t\t<td class='head'>Gemarkung</td>\n\t\t\t\t\t<td class='head'>Flur</td>\n\t\t\t\t\t<td class='head'>Flurst-Nr.</td>\n\t\t\t\t</tr>" |
---|
217 | ."\n\t\t\t\t<tr>\n\t\t\t\t\t<td title='Gemarkung'>".DsKy($gmkgnr, 'Gemarkungsnummer').$gemkname." </td>" |
---|
218 | ."\n\t\t\t\t\t<td title='Flurnummer'>".$flurnummer."</td>" |
---|
219 | ."\n\t\t\t\t\t<td title='Flurstücksnummer (Zähler / Nenner)'><span class='wichtig'>".$flstnummer."</span></td>\n\t\t\t\t</tr>" |
---|
220 | ."\n\t\t\t</table>" |
---|
221 | ."\n\t\t</td>\n\t\t<td>"; // Rechts |
---|
222 | fortfuehrungen($entsteh, $zeart, $zename); |
---|
223 | echo "\n\t\t</td>\n\t</tr>\n</table>"; |
---|
224 | |
---|
225 | echo "\n<hr>\n<table class='fs'>"; // FS-Teil 6 Spalten |
---|
226 | echo "\n<tr>\n\t<td></td>\n\t<td></td>\n\t<td></td>\n\t<td></td>\n\t<td></td>" // 1-5 in erster Zeile kein "colspan" verwenden |
---|
227 | ."\n\t<td><p class='nwlink noprint'>weitere Auskunft:</p></td>" |
---|
228 | ."\n</tr>"; |
---|
229 | |
---|
230 | echo "\n<tr>" // Zeile: Gebietszugehörigkeit - Gemeinde / Kreis / Reg.bez. |
---|
231 | ."\n\t<td class='ll'><img title='Im Gebiet von' src='ico/Gemeinde.png' width='16' height='16' alt=''> Gebiet:</td>" |
---|
232 | ."\n\t<td>Gemeinde<br>Kreis<br>Regierungsbezirk</td>" |
---|
233 | ."\n\t<td class='lr' colspan='3'>".DsKy($gemeinde, 'Gemeinde-Nummer').$mbez."<br>".DsKy($kreis, 'Kreis-Nummer').$kbez."<br>".DsKy($bezirk, 'Regierungsbezirk-Nummer').$rbez."</td>" |
---|
234 | ."\n\t<td class='nwlink'>"; |
---|
235 | if ($fsHistorie){ // conf |
---|
236 | echo "\n\t\t<p class='nwlink noprint'>" |
---|
237 | ."\n\t\t\t<a href='alkisfshist.php?gkz=".$gkz."&gmlid=".$gmlid.LnkStf() |
---|
238 | ."' title='Vorgänger-Flurstücke'>Historie <img src='ico/Flurstueck_Historisch.png' width='16' height='16' alt=''></a>\n\t\t</p>\n\t"; |
---|
239 | } |
---|
240 | echo "</td>" |
---|
241 | ."\n</tr>"; |
---|
242 | |
---|
243 | // L a g e b e z e i c h n u n g |
---|
244 | |
---|
245 | // Lagebezeichnung M I T Hausnummer |
---|
246 | // ax_flurstueck >weistAuf> AX_LagebezeichnungMitHausnummer |
---|
247 | $sql="SELECT DISTINCT l.gml_id, l.gemeinde, l.lage, l.hausnummer, s.bezeichnung, s.gml_id AS kgml |
---|
248 | FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf) |
---|
249 | JOIN ax_lagebezeichnungkatalogeintrag s ON l.land=s.land AND l.regierungsbezirk=s.regierungsbezirk AND l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage |
---|
250 | WHERE f.gml_id= $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL |
---|
251 | ORDER BY l.gemeinde, l.lage, l.hausnummer;"; |
---|
252 | |
---|
253 | $v = array($gmlid); |
---|
254 | $res = pg_prepare($con, "", $sql); |
---|
255 | $res = pg_execute($con, "", $v); |
---|
256 | |
---|
257 | if (!$res) { |
---|
258 | echo "\n<p class='err'>Fehler bei Lagebezeichnung mit Hausnummer</p>"; |
---|
259 | if ($dbg > 1) { |
---|
260 | echo "\n<p class='dbg'>Fehler:".pg_last_error()."</p>"; |
---|
261 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";} |
---|
262 | } |
---|
263 | } else { |
---|
264 | $j=0; |
---|
265 | $kgmlalt=""; |
---|
266 | while($row = pg_fetch_assoc($res)) { |
---|
267 | $sname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name |
---|
268 | if (substr($sname, strlen($sname) -3, 3) === 'weg') { // Versuch fuer korrekten Satzbau |
---|
269 | $slink=" am ".$sname; |
---|
270 | } else { |
---|
271 | $slink=" an der ".$sname; |
---|
272 | } |
---|
273 | $hsnr=$row["hausnummer"]; |
---|
274 | echo "\n<tr>"; |
---|
275 | if ($j === 0) { |
---|
276 | echo "\n\t<td class='ll'><img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''> Adresse:</td>"; |
---|
277 | } else { |
---|
278 | echo "\n\t<td> </td>"; |
---|
279 | } |
---|
280 | echo "\n\t<td> </td>" |
---|
281 | ."\n\t<td class='lr' colspan='3'>".DsKy($row["lage"], 'StraÃen-*').$sname." ".$hsnr."</td>" |
---|
282 | ."\n\t<td>\n\t\t<p class='nwlink noprint'>"; |
---|
283 | |
---|
284 | // +++ davor auch Link "StraÃe" |
---|
285 | $kgml=$row["kgml"]; // Wiederholung vermeiden |
---|
286 | if ($kgml != $kgmlalt) { // NEUE Strasse vor Lage |
---|
287 | $kgmlalt=$kgml; // Katalog GML-ID |
---|
288 | echo "\n\t\t\t<a title='Flurstücke mit oder ohne Hausnummer".$slink."' " |
---|
289 | ."href='alkisstrasse.php?gkz=".$gkz."&gmlid=".$kgml.LnkStf()."'>Straße " |
---|
290 | ."<img src='ico/Strassen.png' width='16' height='16' alt='STRA'></a> "; |
---|
291 | } |
---|
292 | |
---|
293 | echo "\n\t\t\t<a title='Flurstücke und Gebäude mit Hausnummer ".$hsnr."' href='alkislage.php?gkz=".$gkz."&ltyp=m&gmlid=".$row["gml_id"].LnkStf() |
---|
294 | ."'>Lage <img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a>" |
---|
295 | ."\n\t\t</p>\n\t</td>" // 6 |
---|
296 | ."\n</tr>"; |
---|
297 | $j++; |
---|
298 | } |
---|
299 | $cnt_adressen=$j; |
---|
300 | pg_free_result($res); |
---|
301 | } |
---|
302 | |
---|
303 | // Lagebezeichnung O H N E Hausnummer (Gewanne oder nur Strasse) |
---|
304 | // ax_flurstueck >zeigtAuf> AX_LagebezeichnungOhneHausnummer |
---|
305 | $sql ="SELECT l.gml_id, coalesce(l.unverschluesselt, '') AS gewann, l.gemeinde, l.lage, s.bezeichnung |
---|
306 | FROM ax_flurstueck f JOIN ax_lagebezeichnungohnehausnummer l ON l.gml_id=ANY(f.zeigtauf) |
---|
307 | LEFT JOIN ax_lagebezeichnungkatalogeintrag s ON l.land=s.land AND l.regierungsbezirk=s.regierungsbezirk AND l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage |
---|
308 | WHERE f.gml_id = $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL;"; |
---|
309 | |
---|
310 | $v = array($gmlid); |
---|
311 | $res = pg_prepare($con, "", $sql); |
---|
312 | $res = pg_execute($con, "", $v); |
---|
313 | if (!$res) { |
---|
314 | echo "\n<p class='err'>Fehler bei Lagebezeichnung ohne Hausnummer</p>"; |
---|
315 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";} |
---|
316 | } |
---|
317 | while($row = pg_fetch_assoc($res)) { |
---|
318 | $skey=$row["lage"]; // Strassenschl. |
---|
319 | $lgml=$row["gml_id"]; // Key der Lage |
---|
320 | $gewann = htmlentities($row["gewann"], ENT_QUOTES, "UTF-8"); |
---|
321 | if ($gewann != '') { |
---|
322 | echo "\n<tr>" |
---|
323 | ."\n\t<td class='ll' title='unverschlüsselte Lagebezeichnung'><img src='ico/Lage_Gewanne.png' width='16' height='16' alt=''> Gewanne:</td>" // 1 |
---|
324 | ."\n\t<td></td>" |
---|
325 | ."\n\t<td class='lr' colspan='3'>".$gewann."</td>" |
---|
326 | ."\n\t<td>\n\t\t<p class='nwlink noprint'>" |
---|
327 | ."\n\t\t\t<a title='Flurstücke mit der Gewanne ".$gewann."' href='alkislage.php?gkz=".$gkz."&ltyp=o&gmlid=".$lgml.LnkStf() |
---|
328 | ."'>\n\t\t\tLage <img src='ico/Lage_Gewanne.png' width='16' height='16' alt=''></a>" |
---|
329 | ."\n\t\t</p>\n\t</td>" |
---|
330 | ."\n</tr>"; |
---|
331 | } elseif ($skey > 0) { |
---|
332 | $sname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name |
---|
333 | if (substr($sname, strlen($sname) -3, 3) === 'weg') { // Versuch fuer korrekten Satzbau |
---|
334 | $slink=" am ".$sname; |
---|
335 | } else { |
---|
336 | $slink=" an der ".$sname; |
---|
337 | } |
---|
338 | echo "\n<tr>" |
---|
339 | ."\n\t<td class='ll'><img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''> Straße:</td>" |
---|
340 | ."\n\t<td></td>\n\t<td class='lr' colspan='3'>".DsKy($skey, 'StraÃen-*').$sname."</td>"; |
---|
341 | echo "\n\t<td>\n\t\t<p class='nwlink noprint'>" |
---|
342 | ."\n\t\t\t<a title='FlurstÃŒcke ".$slink."' href='alkislage.php?gkz=".$gkz."&ltyp=o&gmlid=".$lgml.LnkStf() |
---|
343 | ."'>\n\t\t\tLage <img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''>\n\t\t\t</a>" |
---|
344 | ."\n\t\t</p>\n\t</td>" |
---|
345 | ."\n</tr>"; |
---|
346 | } |
---|
347 | } |
---|
348 | pg_free_result($res); |
---|
349 | |
---|
350 | /* Status "N u t z u n g": |
---|
351 | Die Classic-Tabelle "nutzung" ist eine Zusammenfassung aller Tabellen mit Nutzungs-FlÀchen |
---|
352 | Die Classic-Tabelle "nutzung_meta" zeigt die Kategorie und Gruppe des Nutzungs-Abschnitts an. |
---|
353 | |
---|
354 | Aus der norGIS-Struktur wird ersatzweise VORLÃUFIG die Tabelle "nutz_21" verwendet, |
---|
355 | die das alte ALB-Format der Nutzungs-Abschnitte von FlurstÃŒcken simuliert. |
---|
356 | Hier finden sich bereits verschnittene FlÀchen, aber die gml_id fehlt. |
---|
357 | |
---|
358 | Die EntschlÃŒsselung der Nutzungsart in den verschiedenen ALKIS-Varianten ist darin unterentwickelt. |
---|
359 | Diese ist eigentlich fÃŒr jede der getrennten Tabellen der Gruppe Nutzungsart individuell. |
---|
360 | Die Classic-Lösung mit 2 Zusatzfeldern war schon sehr pauschalisiert, aber |
---|
361 | durch die RÃŒck-Konvertierung in ALB-Strukturen in der norGIS-Version ist das zu stark vereinfacht. |
---|
362 | z.B. wird "WohnbauflÀche" mit der Zusatzeigenschaft "Art der Bebauung": 'Offen' |
---|
363 | nun zur Nutzungsart "Offen". |
---|
364 | Durch JOIN auf die "alkis_elemente" mit einem Teil des SchlÌssels wird das zur "WohnbauflÀche, Offen". |
---|
365 | Es sollte eine Tabellen-Struktur bereit gestellt werden, die auch aussagt, dass der Wert "Offen" zur |
---|
366 | Zusatz-Eigenschaft "Art der Bebauung" gehört. Dazu muss das PostProcessing erweitert werden. */ |
---|
367 | |
---|
368 | $sql="SELECT e.definition, trim(both FROM n.nutzsl) AS nutzsl, trim(both FROM n.fl) AS fl, trim(both FROM s.nutzung) AS nutzung |
---|
369 | FROM nutz_21 n JOIN nutz_shl s ON n.nutzsl = s.nutzshl |
---|
370 | JOIN alkis_elemente e ON e.kennung = substring(n.nutzsl from 1 for 5) |
---|
371 | WHERE n.flsnr = $1 ORDER BY cast(n.fl AS integer) DESC;"; |
---|
372 | // Flurstueckskennzeichen mit Trennzeichen im ALB-Format wie 'llgggg-fff-zzzzz/nnn' |
---|
373 | $fskennzalb=$defland.$gmkgnr."-".str_pad($flurnummer,3,"0",STR_PAD_LEFT)."-".str_pad($zaehler,5,"0",STR_PAD_LEFT)."/".str_pad($nenner,3,"0",STR_PAD_LEFT); |
---|
374 | $v = array($fskennzalb); |
---|
375 | $res = pg_prepare($con, "", $sql); |
---|
376 | $res = pg_execute($con, "", $v); |
---|
377 | if (!$res) { |
---|
378 | echo "\n<p class='err'>Fehler bei Suche tats. Nutzung</p>"; |
---|
379 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$fskennzalb."'",$sql), ENT_QUOTES, "UTF-8")."'</p>";} |
---|
380 | } |
---|
381 | $j=0; |
---|
382 | while($row = pg_fetch_assoc($res)) { |
---|
383 | $flae=$row["fl"]; // BuchflÀche |
---|
384 | $nutzsl=$row["nutzsl"]; // SchlÃŒssel |
---|
385 | $nutzung=$row["nutzung"]; // Bezeichnung aus ALB-Tabelle, "fein" |
---|
386 | $defi=$row["definition"]; // Langer Text mit Beschreibung |
---|
387 | $title=htmlentities($defi, ENT_QUOTES, "UTF-8"); // .. fÃŒr Anzeige aufbereitet |
---|
388 | echo "\n<tr>\n\t"; |
---|
389 | if ($j === 0) { // 1 |
---|
390 | echo "<td class='ll' title='Abschnitt der tatsächlichen Nutzung'><img src='ico/Abschnitt.png' width='16' height='16' alt=''> Nutzung:</td>"; |
---|
391 | } else { |
---|
392 | echo "<td> </td>"; |
---|
393 | } |
---|
394 | $absflaebuch = number_format($flae,0,",",".") . " m²"; // Formatierte Abschnitts-Buch-FlÀche |
---|
395 | echo "\n\t<td></td>" |
---|
396 | ."\n\t<td class='fla' title='Buchfläche des Abschnitts'>".$absflaebuch."</td>" // Sp. wie Fl. in BodenschÀtzg. |
---|
397 | ."\n\t<td></td>" |
---|
398 | ."\n\t<td class='lr' title='".$title."'>".DsKy($nutzsl, 'Nutzungsarten-*').$nutzung."</td>" |
---|
399 | ."\n\t<td>"; |
---|
400 | /* // Derzeit ist keine Gruppe zugeordnet |
---|
401 | switch ($grupp) { // Icon nach 4 Objektartengruppen |
---|
402 | case "Siedlung": $ico = "Abschnitt.png"; break; |
---|
403 | case "Verkehr": $ico = "Strassen_Klassifikation.png"; break; |
---|
404 | case "Vegetation": $ico = "Wald.png"; break; |
---|
405 | case "GewÀsser": $ico = "Wasser.png"; break; |
---|
406 | default: $ico = "Abschnitt.png"; break; |
---|
407 | } |
---|
408 | // Icon ist auch im Druck sichtbar, class='noprint' ? |
---|
409 | echo "<p class='nwlink'><img title='".$title."' src='ico/".$ico."' width='16' height='16' alt='NUA'></p>"; */ |
---|
410 | echo "</td>" |
---|
411 | ."\n</tr>"; |
---|
412 | $j++; |
---|
413 | } |
---|
414 | pg_free_result($res); |
---|
415 | |
---|
416 | echo "\n<tr>" // FlÀchen-Summenzeile |
---|
417 | ."\n\t<td class='re' title='amtliche Fläche (Buchfläche)'>Fläche:</td>" // 1 |
---|
418 | ."\n\t<td> </td>" // 2 |
---|
419 | ."\n\t<td class='fla sum'>" // 3 Flaeche |
---|
420 | ."<span title='geometrisch berechnete Fläche = ".$fsgeomflaed."' class='flae'>".$fsbuchflaed."</span></td>" |
---|
421 | ."\n\t<td> </td>" // 4 |
---|
422 | ."\n\t<td> </td>" // 5 |
---|
423 | ."\n\t<td>" // 6 Link auf GebÀude-Auswertung |
---|
424 | ."\n\t\t<p class='nwlink noprint'>" // Gebaeude-Verschneidung |
---|
425 | ."\n\t\t\t<a href='alkisgebaeudenw.php?gkz=".$gkz."&gmlid=".$gmlid.LnkStf(); |
---|
426 | if ($cnt_adressen > 0) { // wenn Adresse vorgekommen ist |
---|
427 | echo "' title='Gebäude oder Bauwerke auf oder an dem Flurstück'>Gebäude/Bauw."; |
---|
428 | } else { // GebÀude mit Adresse gibt es NICHT, das ist klar |
---|
429 | echo "' title='Suche Gebäude (ohne Adresse) oder Bauwerke auf dem Flurstück'>Gebäude/Bauw."; |
---|
430 | } |
---|
431 | echo "<img src='ico/Haus.png' width='16' height='16' alt=''></a>" |
---|
432 | ."\n\t\t</p>" |
---|
433 | ."\n\t</td>" // 6 |
---|
434 | ."\n</tr>"; |
---|
435 | |
---|
436 | // B o d e n s c h À t z u n g |
---|
437 | // --------------------------- |
---|
438 | // Tabelle "klas_3x" (norbit-ALB): Dort fehlen Bodenart und Zustandsstufe, es ist aber bereits auf BuchflÀche umgerechnet. |
---|
439 | |
---|
440 | // BodenschÀtzungs-Abschnitte mit FlurstÌcken verschneiden, Spalten entschlÌsseln |
---|
441 | $sql="SELECT b.kulturart AS kulturartk, kulturart.beschreibung AS kulturartv, |
---|
442 | b.bodenart AS bodenartk, bodenart.beschreibung AS bodenartv, zustbod.beschreibung AS zustbodv, |
---|
443 | b.entstehungsartoderklimastufewasserverhaeltnisse AS entsteh, b.sonstigeangaben, |
---|
444 | coalesce(b.bodenzahlodergruenlandgrundzahl, '') as bodenzahl, b.ackerzahlodergruenlandzahl AS ackerzahl, |
---|
445 | b.jahreszahl, st_area(st_intersection(b.wkb_geometry, f.wkb_geometry)) AS schnittflae |
---|
446 | FROM ax_flurstueck f |
---|
447 | JOIN ax_bodenschaetzung b ON st_intersects(b.wkb_geometry, f.wkb_geometry) AND st_area(st_intersection(b.wkb_geometry, f.wkb_geometry)) > 0.05 |
---|
448 | LEFT JOIN ax_bodenart_bodenschaetzung bodenart ON b.bodenart = bodenart.wert |
---|
449 | LEFT JOIN ax_kulturart_bodenschaetzung kulturart ON b.kulturart = kulturart.wert |
---|
450 | LEFT JOIN ax_zustandsstufeoderbodenstufe_bodenschaetzung zustbod ON b.zustandsstufeoderbodenstufe = zustbod.wert |
---|
451 | WHERE f.gml_id = $1 AND f.endet IS NULL AND b.endet IS NULL ORDER BY schnittflae DESC"; |
---|
452 | |
---|
453 | $v = array($gmlid); |
---|
454 | $res = pg_prepare($con, "", $sql); |
---|
455 | $res = pg_execute($con, "", $v); |
---|
456 | if (!$res) {echo "\n<p class='err'>Fehler bei DB-Abfrage zur Klassifizierung Boden</p>\n";} |
---|
457 | $gesertragsmz = 0; // Gesamt-ErtragsMesszahl |
---|
458 | $klasflae = 0; // Summe klassifizierte FlÀche |
---|
459 | $j=0; |
---|
460 | if(!empty($res) && pg_num_rows($res) > 0) { |
---|
461 | while ($row = pg_fetch_assoc($res)) { |
---|
462 | $kulturartk=$row['kulturartk']; // Key - |
---|
463 | $kulturartv=$row['kulturartv']; // - Value |
---|
464 | if (substr($kulturartv, 0, 3) === 'Ack') { // A |
---|
465 | $kbez1="Bodenzahl"; |
---|
466 | $kbez2="Ackerzahl"; |
---|
467 | } else { // Gr |
---|
468 | $kbez1="Grünlandgrundzahl"; |
---|
469 | $kbez2="Grünlandzahl"; |
---|
470 | } |
---|
471 | $absflae = $row['schnittflae']; |
---|
472 | $absbuchflae = $absflae * $the_Xfactor; |
---|
473 | $klasflae+=$absbuchflae; |
---|
474 | |
---|
475 | $boedenzahl=ltrim($row['bodenzahl'], '0'); |
---|
476 | if (is_null($row['ackerzahl'])) { |
---|
477 | $ackerzahl=""; |
---|
478 | $ertragszahl = 0; |
---|
479 | } else { |
---|
480 | $ackerzahl=ltrim($row['ackerzahl'], '0'); |
---|
481 | $ertragszahl = intval($absbuchflae * $row['ackerzahl'] / 100); |
---|
482 | } |
---|
483 | $gesertragsmz+=$ertragszahl; |
---|
484 | // $absflaedis = number_format($absflae,0,",",".")." m²"; // als Tool-Tip ? |
---|
485 | $absbuchflaedis = number_format($absbuchflae,0,",",".")." m²"; |
---|
486 | |
---|
487 | $jahr=$row['jahreszahl']; |
---|
488 | $entsteh=$row['entsteh']; |
---|
489 | $sonst=$row['sonstigeangaben']; |
---|
490 | if ($j === 0) { // 1 |
---|
491 | echo "\n<tr>\n\t<td class='ll' title='Abschnitt Bodenschätzung'><img src='ico/Landwirt.png' width='16' height='16' alt=''> Bodenschätzung:</td>"; |
---|
492 | } else { |
---|
493 | echo "\n<tr>\n\t<td> </td>"; |
---|
494 | } |
---|
495 | echo "\n\t<td class='fla' title='Ertragsmesszahl: Produkt von ".$kbez2."/100 und Fläche.'>EMZ ".$ertragszahl."</td>" |
---|
496 | ."\n\t<td class='re' title='Fläche des Schätzungsabschnitts'>".$absbuchflaedis."</td>" |
---|
497 | ."\n\t<td class='lr'><span title='".$kbez1."'>".$boedenzahl."</span>/<span title='".$kbez2."'>".$ackerzahl."</span></td>" |
---|
498 | ."\n\t<td class='lr'>"; |
---|
499 | echo "\n\t\t".DsKy($kulturartk, 'Kulturart')." <span title='Kulturart-*'>".$kulturartv."</span>"; |
---|
500 | echo "\n\t\t<br>".DsKy($row['bodenartk'], 'Bodenart-*')." <span title='Bodenart'>".$row['bodenartv']."</span>"; |
---|
501 | echo "\n\t\t<br><span title='Zustandsstufe'>".$row['zustbodv']."</span>"; |
---|
502 | |
---|
503 | // 2 ARRAYs auflösen |
---|
504 | if (isset($entsteh)) { |
---|
505 | $ent=trim($entsteh, "{}"); |
---|
506 | echo "\n\t\t<br><span title='Enststehungsart oder Klimastufe, Wasserverhältnisse'>".DsKy($ent, '*'); |
---|
507 | werteliste('e', $ent, $con); // ++ Zeilenweise mit <br> ? |
---|
508 | echo "</span>"; |
---|
509 | } |
---|
510 | if (isset($sonst)) { |
---|
511 | $son=trim($sonst, "{}"); |
---|
512 | echo "\n\t\t<br><span title='Sonstige Angaben'>".werteliste('s', $son, $con)."</span>"; // ++ Zeilenweise mit <br> ? |
---|
513 | } |
---|
514 | if (isset($jahr)) { |
---|
515 | echo "\n\t\t<br><span title='Jahreszahl'>".$jahr."</span>"; |
---|
516 | } |
---|
517 | echo "\n\t</td>" |
---|
518 | ."\n\t<td> </td>\n</tr>"; |
---|
519 | $j++; |
---|
520 | } |
---|
521 | // Summenzeile |
---|
522 | $klasflaedis = number_format($klasflae,0,",",".")." m²"; |
---|
523 | echo "\n<tr>\n\t<td class='re'>Ertragsmesszahl:</td>" // 1 |
---|
524 | ."\n\t<td class='fla sum' title='Summe der Ertragsmesszahlen für dies Flurstück'>".$gesertragsmz."</td>" // 2 |
---|
525 | ."\n\t<td class='re'>".$klasflaedis."</td>" // 3 |
---|
526 | ."\n\t<td colspan='3'> </td>\n</tr>"; // 4-6 |
---|
527 | } |
---|
528 | |
---|
529 | // H i n w e i s |
---|
530 | // auf "Bau-, Raum- oder Bodenordnungsrecht" (Baulast, Flurbereinigung) oder eine "strittige Grenze" |
---|
531 | |
---|
532 | // Gemeinsame FlÀche suchen: entweder (ST_Intersects and not ST_Touches) oder (2xST_Within OR ST_Overlaps), ST_Intersects liefert auch angrenzende |
---|
533 | $sql_boden ="SELECT b.artderfestlegung AS wert, a.beschreibung AS art_verf, b.gml_id AS verf_gml, b.bezeichnung AS verf_bez, |
---|
534 | b.name AS verf_name, d.bezeichnung AS stelle_bez, d.stelle AS stelle_key |
---|
535 | FROM ax_flurstueck f |
---|
536 | JOIN ax_bauraumoderbodenordnungsrecht b ON ST_Within(b.wkb_geometry, f.wkb_geometry) OR ST_Within(f.wkb_geometry, b.wkb_geometry) OR ST_Overlaps(b.wkb_geometry, f.wkb_geometry) |
---|
537 | LEFT JOIN ax_artderfestlegung_bauraumoderbodenordnungsrecht a ON b.artderfestlegung=a.wert |
---|
538 | LEFT JOIN ax_dienststelle d ON b.stelle=d.stelle ".UnqKatAmt("b","d") |
---|
539 | ."WHERE f.gml_id = $1 AND f.endet IS NULL AND b.endet IS NULL AND d.endet IS NULL"; |
---|
540 | |
---|
541 | pg_prepare($con, "bodeneuordnung", $sql_boden); |
---|
542 | $res_bodeneuordnung = pg_execute($con, "bodeneuordnung", array($gmlid)); |
---|
543 | if (!$res_bodeneuordnung) { |
---|
544 | echo "\n<p class='err'>Fehler bei Bau-, Raum- oder Bodenordnungsrecht</p>"; |
---|
545 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1", "'".$gmlid."'", $sql_boden)."</p>";} |
---|
546 | } |
---|
547 | $sql_str="SELECT gml_id FROM ax_besondereflurstuecksgrenze WHERE endet IS NULL AND 1000 = ANY(artderflurstuecksgrenze) |
---|
548 | AND ST_touches((SELECT wkb_geometry FROM ax_flurstueck WHERE gml_id = $1 AND endet IS NULL),wkb_geometry);"; |
---|
549 | |
---|
550 | pg_prepare($con, "strittigeGrenze", $sql_str); |
---|
551 | $res_strittigeGrenze = pg_execute($con, "strittigeGrenze", array($gmlid)); |
---|
552 | if (!$res_strittigeGrenze) { |
---|
553 | echo "\n<p class='err'>Fehler bei strittige Grenze</p>"; |
---|
554 | if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1", "'".$gmlid."'", $sql_str)."</p>";} |
---|
555 | } |
---|
556 | if (pg_num_rows($res_bodeneuordnung) > 0 OR pg_num_rows($res_strittigeGrenze) > 0) { |
---|
557 | echo "\n<tr>" |
---|
558 | ."\n\t<td title='Hinweise zum Flurstück'><h6><img src='ico/Hinweis.png' width='16' height='16' alt=''> " // 1 |
---|
559 | ."Hinweise:</h6></td>\n\t<td colspan='5'> </td>\n</tr>";// 2-6 |
---|
560 | if (pg_num_rows($res_bodeneuordnung) > 0) { |
---|
561 | while ($row = pg_fetch_assoc($res_bodeneuordnung)) { // 3 Zeilen je Verfahren |
---|
562 | echo "\n<tr title='Bau-, Raum- oder Bodenordnungsrecht'>" // Zeile 1 - kommt immer, darum hier den Link |
---|
563 | ."\n\t<td>Bodenrecht</td>" // 1 |
---|
564 | ."\n\t<td class='re'>Festlegung: </td>" // 2 "Art der Festlegung" zu lang |
---|
565 | ."\n\t<td colspan='3'>".DsKy($row['wert'], 'Art des Verfahrens').$row['art_verf']."</td>"; |
---|
566 | echo "\n\t<td>" |
---|
567 | ."\n\t\t<p class='nwlink noprint'>" |
---|
568 | ."\n\t\t\t<a href='alkisbaurecht.php?gkz=".$gkz."&gmlid=".$row['verf_gml'].LnkStf() |
---|
569 | ."' title='Bau-, Raum- oder Bodenordnungsrecht'>Recht <img src='ico/Gericht.png' width='16' height='16' alt=''></a>" |
---|
570 | ."\n\t\t</p>" |
---|
571 | ."\n\t</td>" |
---|
572 | ."\n</tr>"; |
---|
573 | $dstell=$row['stelle_key']; // Zeile 2 |
---|
574 | if ($dstell != '') { |
---|
575 | echo "\n<tr title='Flurbereinigungsbehörde'>" |
---|
576 | ."\n\t<td> </td>" // 1 |
---|
577 | ."\n\t<td class='re'>Dienststelle: </td>" // 2 |
---|
578 | ."\n\t<td colspan='3'>".DsKy($dstell, 'Art der Dienststelle').$row['stelle_bez']."</td>" |
---|
579 | ."\n\t<td> </td>" |
---|
580 | ."\n</tr>"; |
---|
581 | } |
---|
582 | $vbez=$row['verf_bez']; // Zeile 3, ist nicht immer gefÃŒllt |
---|
583 | $vnam=$row['verf_name']; // noch seltener |
---|
584 | if ($vbez != '') { |
---|
585 | echo "\n<tr title='Verfahrensbezeichnung'>" |
---|
586 | ."\n\t<td> </td>" |
---|
587 | ."\n\t<td class='re'>Verfahren: </td>" |
---|
588 | ."\n\t<td colspan='3'>"; |
---|
589 | if ($vnam == "") { |
---|
590 | echo $vbez; // nur die Nummer |
---|
591 | } else { // Name oder beides |
---|
592 | echo DsKy($vbez, 'Nummer des Verfahrens').$vnam; |
---|
593 | } |
---|
594 | echo "</td>" |
---|
595 | ."\n\t<td> </td>" |
---|
596 | ."\n</tr>"; |
---|
597 | } |
---|
598 | } |
---|
599 | } |
---|
600 | if (pg_num_rows($res_strittigeGrenze) > 0) { // 1 Zeile |
---|
601 | echo "\n<tr>\n<td>Strittige Grenze:</td>" |
---|
602 | ."<td colspan=4>Mindestens eine Flurstücksgrenze ist als <b>strittig</b> zu bezeichnen. Sie kann nicht festgestellt werden, weil die Beteiligten sich nicht über den Verlauf einigen. Nach sachverständigem Ermessen der Katasterbehörde ist anzunehmen, dass das Liegenschaftskataster nicht die rechtmäßige Grenze nachweist.</td>" |
---|
603 | ."\n<td> </td>\n</tr>"; |
---|
604 | } |
---|
605 | } |
---|
606 | echo "\n</table>"; |
---|
607 | |
---|
608 | // B U C H U N G S S T E L L E N zum FS |
---|
609 | $bartgrp=""; // Buchungsart |
---|
610 | $barttypgrp=""; // Buchungsart Typ |
---|
611 | if ($gml_buchungsstelle === '') { |
---|
612 | echo "\n<p class='err'>Keine Buchungstelle zum Flurstück gefunden.</p>"; // keine Verweis vorhanden? |
---|
613 | } else { |
---|
614 | echo "\n<table class='outer'>"; // ALLE Buchungen und EigentÃŒmer in 4 Spalten EINER Tabelle ausgeben |
---|
615 | |
---|
616 | $stufe=1; // SchleifenzÀhler Tiefe |
---|
617 | $gezeigt=buchung_anzg($gml_buchungsstelle, $eig, false, $gmlid, 1); // die ("dienende") Buchung anzeigen, wenn nicht fiktiv. Liefert 1/0 |
---|
618 | |
---|
619 | $anzber=ber_bs_zaehl($gml_buchungsstelle); // Anzahl berechtigte Buchungen (nÀchste Stufe) zu dieser Buchung ermitteln |
---|
620 | $verf_next = array($gml_buchungsstelle); // Start Recursion mit einem Element |
---|
621 | //if ($dbg > 1) {echo "<p class='dbg'>Nach Stufe ".$stufe.", Anzahl: ". $anzber ."</p>";} |
---|
622 | |
---|
623 | while ($anzber > 0 ) { // Stufe - recursiv in die Tiefe, solange es was zu verfolgen gibt |
---|
624 | $verf_akt=$verf_next; // die nÀchste Stufe als aktuell Ìbernehmen .. |
---|
625 | $verf_next=array(); // .. und zum AuffÃŒllen leeren |
---|
626 | $stufe++; |
---|
627 | foreach($verf_akt as $gml_ber_bs) { |
---|
628 | if (ber_bs_zaehl($gml_ber_bs) > 0) { |
---|
629 | $verf_neu=ber_bs_anzg($gml_ber_bs, $eig, false, $gmlid, ""); // Anzeige ber. Buchungst., ggf. mit EigentÃŒmer. |
---|
630 | $anz_neu=count($verf_neu); // Das Ergebnis zÀhlen |
---|
631 | if ($anz_neu > 0) { // wenn neue geliefert |
---|
632 | $verf_next=array_merge($verf_next, $verf_neu); // die neuen an die Sammlung heften |
---|
633 | } |
---|
634 | } |
---|
635 | } // Ende Buchungs-Array in der Stufe |
---|
636 | $anzber=count($verf_next); // Sammlung auf Stufe zÀhlen, Steuert die Schleife. |
---|
637 | } // Ende Stufe |
---|
638 | |
---|
639 | echo "\n</table>\n\n"; |
---|
640 | |
---|
641 | // Fehler aus "ModellschwÀche" erkennen. |
---|
642 | // Wenn der Verweis der Buchungsstelle auf ein Grundbuch ins Leere lÀuft, weil das Grundbuch |
---|
643 | // nicht im SekundÀrbestand vorhanden ist, dann könnte das am NBA-Verfahren liegen. |
---|
644 | if ( $gezeigt === 0 and $stufe === 1 ) { |
---|
645 | echo "<p class='err'>Das Grundbuch zur Buchung '".$gml_buchungsstelle."' fehlt in der Datenbank.</p>"; |
---|
646 | if ($dbg > 2) { // fehlt die Buchung? |
---|
647 | echo "<p class='dbg'>Suchen mit SQL: SELECT * FROM ax_buchungsstelle WHERE gml_id='".$gml_buchungsstelle."'; </p>"; |
---|
648 | } |
---|
649 | } |
---|
650 | } |
---|
651 | |
---|
652 | pg_close($con); |
---|
653 | echo "<div class='buttonbereich noprint'>\n<hr>" |
---|
654 | ."\n\t<a title='zurück' href='javascript:history.back()'><img src='ico/zurueck.png' width='16' height='16' alt='zurück'></a> "; |
---|
655 | if ($PrntBtn==true){echo "\n\t<a title='Drucken' href='javascript:window.print()'><img src='ico/print.png' width='16' height='16' alt='Drucken'></a> ";} |
---|
656 | echo "\n\t<a title='Export als CSV' href='javascript:ALKISexport(\"".$gmlid."\")'><img src='ico/download_fs.png' width='32' height='16' alt='Export'></a> \n</div>"; |
---|
657 | |
---|
658 | footer($gmlid, selbstverlinkung()."?", "&eig=".$eig); |
---|
659 | ?> |
---|
660 | </body> |
---|
661 | </html> |
---|