source: trunk/info/info/alkisn/alkisfsnw.php @ 390

Revision 390, 43.2 KB checked in by frank.jaeger, 7 years ago (diff)

Nachbesserung: Format der Bodenschätzung-Zeilen
RevLine 
[362]1<?php
2/*      Modul: alkisfsnw.php
3
4        ALKIS-Buchauskunft, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo).
5        FlurstÃŒcksnachweis fuer ein FlurstÃŒckskennzeichen aus ALKIS PostNAS
6
7        Version:
8        2016-02-24 Version fuer norGIS-ALKIS-Import
[375]9        2016-03-14 Korrekturen
[377]10        2016-12-01 HTML5, Gemeinsam genutzte Datenbanken ermöglichen
11        2016-12-05 Nutzungsart-Kategorie ist nun in Text enthalten, nicht mehr aus der Definition ausschneiden
[387]12        2017-06-08 optional "berechtigte Buchungen" anzeigen, Function "eigentuemer" ohne Parameter $con,
13                                Validierung Eingabeparameter, Feinkorrekturen
[389]14        2017-10-11 Sauber filtern auf 'endet IS NULL', Ausgabe der BodenschÀtzung
[390]15        2017-10-11 Nachbesserung Formatierung der SchÀtzungs-Zeilen
[362]16
17        ToDo:
[389]18        - Parameter zum Umschalten mit/ohne BodenschÀtzung?
19        - Bessere Differenzierung bei den Nutzungsarten (Tabelle dafÃŒr aufbauen)
[362]20*/
21session_start();
[387]22
23// Var. aus Parameter initalisieren
[375]24$eig="n";
[387]25$berbu="n";
26$showkey="n";
27
28// alle Parameter in Variable umwandeln
[362]29$cntget = extract($_GET);
[387]30
31// strikte Validierung aller Parameter
32if (isset($gmlid)) {
33        if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
34        $fskennz='';
35} else { // Alternativ
36        $gmlid='';
37        if (isset($fskennz)) { // llgggg-fff-11111/222 oder z.B.'052647002001910013__' oder '05264700200012______'
38                if (!preg_match('#^[0-9\-_/]{8,20}$#', $fskennz)) {die ("Eingabefehler fskennz");}
39        } else {
40                $fskennz='';
41        }
42}
43if (!isset($gkz) or !preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
44if (!preg_match('#^[j|n]{0,1}$#', $eig)) {die("Eingabefehler eig");}
45if (!preg_match('#^[j|n]{0,1}$#', $berbu)) {die ("Eingabefehler berbu");}
46if (!preg_match('#^[j|n]{0,1}$#', $showkey)) {die ("Eingabefehler showkey");}
47if ($showkey == "j") {$showkey=true;} else {$showkey=false;} // "j"/"n" als boolean umwandeln, ist praktischer abzufragen, wird oft gebraucht
48
[362]49require_once("alkis_conf_location.php");
50if ($auth == "mapbender") {require_once($mapbender);}
51include("alkisfkt.php");
52?>
[377]53<!doctype html>
54<html lang="de">
[362]55<head>
[377]56        <meta charset="utf-8">
[387]57        <meta name="viewport" content="width=device-width, initial-scale=1.0">
[362]58        <title>ALKIS Flurst&uuml;cksnachweis</title>
59        <link rel="stylesheet" type="text/css" href="alkisauszug.css">
60        <link rel="shortcut icon" type="image/x-icon" href="ico/Flurstueck.ico">
61        <script type="text/javascript">
62                function ALKISexport() {
63                        window.open(<?php echo "'alkisexport.php?gkz=".$gkz."&tabtyp=flurstueck&gmlid=".$gmlid."'"; ?>);
64                }
65        </script>
66</head>
67<body>
68<?php
69// S t a r t
[377]70$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisfsnw.php'");
[387]71if (!$con) echo "\n<p class='err'>Fehler beim Verbinden der DB</p>";
[362]72
73// Ein (ALB- ?) FlurstÃŒcks-Kennzeichen wurde alternativ zur gml_id ÃŒbermittelt
[387]74if ($fskennz != '') {
[362]75        // Übergabe Format z.B. "llgggg-fff-nnnn/zz.nn" oder "gggg-ff-nnn/zz"
76        $arr=explode("-", $fskennz, 4);
77        $zgemkg=trim($arr[0]);
[387]78        if (strlen($zgemkg) == 20 and !isset($arr[1])) { // Oh, ist wohl schon das Datenbank-Feldformat
[362]79                $fskzdb=$zgemkg;
80        } else { // Nö, ist wohl eher ALB-Format
81                // Das Kennzeichen auseinander nehmen.
82                if (strlen($zgemkg) == 6) {
83                        $land=substr($zgemkg, 0, 2);
84                        $zgemkg=substr($zgemkg, 2, 4);
85                } else { // kein schöner Land ..
86                        $land=$defland; // Default-Land aus config
87                }
88                $zflur=str_pad($arr[1], 3 , "0", STR_PAD_LEFT); // Flur-Nr
89                $zfsnr=trim($arr[2]); // FlurstÃŒcke-Nr
90                $zn=explode("/", $zfsnr, 2); // Bruch?
[387]91                $zzaehler=str_pad(trim($zn[0]), 5 , "0", STR_PAD_LEFT);
92                if (isset($zn[1])) {
93                        $znenner=trim($zn[1]);
94                } else {
95                        $znenner="";
96                }
[362]97                if (trim($znenner, " 0.") == "") { // kein Bruch oder nur Nullen
98                        $znenner="____"; // in DB-Spalte mit Tiefstrich aufgefÃŒllt
99                } else {
100                        $zn=explode(".", $znenner, 2); // .00 wegwerfen
101                        $znenner=str_pad($zn[0], 4 , "0", STR_PAD_LEFT);
102                }
103                // nun die Teile stellengerecht wieder zusammen setzen         
104                $fskzdb=$land.$zgemkg.$zflur.$zzaehler.$znenner.'__'; // FS-Kennz. Format Datenbank
105        }
106        // Spalte "flurstueckskennzeichen" ist in DB indiziert
107        // Format z.B.'052647002001910013__' oder '05264700200012______'
108        $sql ="SELECT gml_id FROM ax_flurstueck WHERE flurstueckskennzeichen= $1 AND endet IS NULL ;";
109
110        $v = array($fskzdb);
111        $res = pg_prepare("", $sql);
112        $res = pg_execute("", $v);
113        if ($row = pg_fetch_array($res)) {
114                $gmlid=$row["gml_id"];
115        } else {
[387]116                echo "\n<p class='err'>Fehler! Kein Treffer f&uuml;r Flurst&uuml;ckskennzeichen='".$fskennz."' (".$fskzdb.")</p>";
117                echo "<p>Kennzeichen veraltet? <a href='./alkisfshist.php?gkz=".$gkz."&fskennz=".$fskennz."'>Suche in der Flurst&uuml;cks-Historie</a></p>";
118                echo "\n</body>\n</html>";
119                return;
[362]120        }
121        pg_free_result($res);
122}
123
124// F L U R S T U E C K
125$sql ="SELECT f.name, f.flurnummer, f.zaehler, f.nenner, f.regierungsbezirk, f.kreis, f.gemeinde, f.amtlicheflaeche, st_area(f.wkb_geometry) AS fsgeomflae, f.zeitpunktderentstehung, g.gemarkungsnummer, g.bezeichnung
126FROM ax_flurstueck f LEFT JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer
[389]127WHERE f.gml_id= $1 AND f.endet IS NULL AND g.endet IS NULL;";
[362]128
129$v = array($gmlid); // mit gml_id suchen
130$res = pg_prepare("", $sql);
131$res = pg_execute("", $v);
132
133if (!$res) {
[387]134        echo "\n<p class='err'>Fehler bei Flurstuecksdaten</p>";
135        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmlid."'</p>";}
[362]136}
137if ($row = pg_fetch_array($res)) {
138        $gemkname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
139        $gmkgnr=$row["gemarkungsnummer"];
140        $bezirk=$row["regierungsbezirk"];
141        $kreis=$row["kreis"];
142        $gemeinde=$row["gemeinde"];
143        $flurnummer=$row["flurnummer"];
144        $zaehler=$row["zaehler"];
145        $nenner=$row["nenner"];
146        $flstnummer=$zaehler;
147        if ($nenner > 0) {$flstnummer.="/".$nenner;} // BruchNr
148        $fsbuchflae=$row["amtlicheflaeche"]; // amtliche Fl. aus DB-Feld
149        $fsgeomflae=$row["fsgeomflae"]; // aus Geometrie ermittelte FlÀche
[389]150        $the_Xfactor = $fsbuchflae / $fsgeomflae; // Multiplikator zur Umrechnung geometrische AbschnittsflÀchen in BuchflÀche
[362]151        $fsbuchflaed=number_format($fsbuchflae,0,",",".") . " m&#178;"; // Display-Format dazu
152        $fsgeomflaed=number_format($fsgeomflae,0,",",".") . " m&#178;";
153        $entsteh=$row["zeitpunktderentstehung"];
154        $name=$row["name"]; // Fortfuehrungsnummer(n)
155        $arrn = explode(",", trim($name, "{}") ); // PHP-Array
156} else {
[387]157        echo "\n<p class='err'>Fehler! Kein Treffer f&uuml;r Flurst&uuml;ck mit gml_id=".$gmlid."</p>";
158        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmlid."'</p>";}
159        echo "\n</body>\n</html>";
[362]160        return;
161}
162pg_free_result($res);
[377]163
[362]164// Balken
165if ($eig=="j") {
[387]166        echo "<p class='fsei'>ALKIS Flurst&uuml;ck ".$gmkgnr."-".$flurnummer."-".$flstnummer."&nbsp;</p>"
167        ."\n<h2><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Flurst&uuml;ck mit Eigent&uuml;mer</h2>";
[362]168} else {
[387]169        echo "<p class='fskennz'>ALKIS Flurst&uuml;ck ".$gmkgnr."-".$flurnummer."-".$flstnummer."&nbsp;</p>"
170        ."\n<h2><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Flurst&uuml;ck</h2>";
[362]171}
[377]172
173// PrÃŒfung der Gebiets-Berechtigung bei gemeinsam genutzten Datenbanken (Kreis und Gemeinde)
174// FÃŒr das gkz (z.B. aus dem Mapfile-Namen) wird in der Konfiguration ein Filter gesetzt.
175if ( ($filtkreis != '' and $filtkreis != $kreis) or ($filtgem != '' and $filtgem != $gemeinde) ) {
176        // Einer der gesetzten Filter passt nicht
177        if ($debug > 2) {
178        //++ Schönes Bild? Stop-Zeichen?
[387]179                echo "\n<p class='err'>Filter Kreis='".$filtkreis."', Gemeinde='".$filtgem."'</p>"
180                ."\n<p class='err'>Flstk. Kreis='".$fskrs."', Gemeinde='".$fsgem."'</p>";
[377]181        }
182        echo "\n<br><p class='stop1'>Zugriff nicht erlaubt</p>"
183        ."\n<br><p class='stop2'>Dies Flurst&uuml;ck liegt ausserhalb der zust&auml;ndigen Stadt oder Gemeinde.</p>\n</body>\n</html>";
184        exit;
185}
186
187echo "\n<table class='outer'>\n<tr>\n\t<td>" // linke Seite
[387]188        ."\n\t\t<table class='kennzfs' title='Flurst&uuml;ckskennzeichen'>\n\t\t<tr>" // darin Tabelle Kennzeichen
189                ."\n\t\t\t<td class='head'>Gmkg</td>\n\t\t\t<td class='head'>Flur</td>\n\t\t\t<td class='head'>Flurst-Nr.</td>\n\t\t</tr>"
190                ."\n\t\t<tr>\n\t\t\t<td title='Gemarkung'>";
[362]191                if ($showkey) {
192                        echo "<span class='key'>".$gmkgnr."</span><br>";
193                }
[377]194                echo $gemkname."&nbsp;</td>"
[387]195                ."\n\t\t\t<td title='Flurnummer'>".$flurnummer."</td>"
196                ."\n\t\t\t<td title='Flurst&uuml;cksnummer (Z&auml;hler / Nenner)'><span class='wichtig'>".$flstnummer."</span></td>\n\t\t</tr>"
197        ."\n\t\t</table>"
[377]198."\n\t</td>\n\t<td>" // rechte Seite
[387]199        ."\n\t\t<table class='fsd'>" // FS-Daten 2 Spalten
200                ."\n\t\t<tr>\n\t\t\t<td>Entstehung</td>"
201                ."\n\t\t\t<td>".$entsteh."</td>\n\t\t</tr>"
202                ."\n\t\t<tr>"
203                        ."\n\t\t\t<td>letz. Fortf</td>"
204                        ."\n\t\t\t<td title='Jahrgang / Fortf&uuml;hrungsnummer - Fortf&uuml;hrungsart'>";
[362]205                                foreach($arrn AS $val) { // Zeile f. jedes Element des Array
206                                        echo trim($val, '"')."<br>";
207                                }
[377]208                        echo "</td>"
[387]209                ."\n\t\t</tr>"
210        ."\n\t\t</table>"
[377]211."\n\t</td>\n</tr>\n</table>";
[362]212//      echo "\n<tr>\n\t<td>Finanzamt</td>\n\t<td>".$finanzamt." ".$finame  . "</td>\n</tr>";
213// Ende Seitenkopf
214
[377]215echo "\n<hr>"
216."\n<p class='nwlink noprint'>weitere Auskunft:</p>" // oben rechts von der Tabelle
217."\n<table class='fs'>";
[362]218
219// ** G e b i e t s z u g e h o e r i g k e i t **
220// eine Tabellenzeile mit der Gebietszugehoerigkeit eines Flurstuecks wird ausgegeben
221// Schluessel "land" wird nicht verwendet, gibt es Bestaende wo das nicht einheitlich ist?
222echo "\n<tr>\n\t<td class='ll'><img title='Im Gebiet von' src='ico/Gemeinde.png' width='16' height='16' alt=''> Gebiet:</td>";
223
224// G e m e i n d e
225$sql="SELECT bezeichnung FROM ax_gemeinde WHERE regierungsbezirk= $1 AND kreis= $2 AND gemeinde= $3 AND endet IS NULL;";
226
227$v = array($bezirk,$kreis,$gemeinde);
228$res = pg_prepare("", $sql);
229$res = pg_execute("", $v);
230if (!$res) {
[387]231        echo "\n<p class='err'>Fehler bei Gemeinde</p>";
232        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";}
[362]233}
234$row = pg_fetch_array($res);
235$gnam = htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
[390]236echo "\n\t<td class='lr'>Gemeinde</td>\n\t<td class='lr' colspan='3'>";
[387]237if ($showkey) {echo "<span class='key'>(".$gemeinde.")</span> ";}
[377]238// Link zur FS-Historie (passt nicht ganz in die Zeile "Gemeinde", aber gut unter "weitere Auskunft")
[387]239echo $gnam."</td>\n\t<td class='nwlink'>"
240        ."\n\t\t<p class='nwlink noprint'>"
241                ."\n\t\t\t<a href='alkisfshist.php?gkz=".$gkz."&amp;gmlid=".$gmlid;
242                        if ($showkey) {echo "&amp;showkey=j";}
[377]243                        echo "' title='Vorg&auml;nger-Flurst&uuml;cke'>Historie "
244                        ."<img src='ico/Flurstueck_Historisch.png' width='16' height='16' alt=''>"
245                ."</a>"
[387]246        ."\n\t\t</p>"
247. "\n\t</td>\n</tr>";
[362]248pg_free_result($res);
249
250// K r e i s
251$sql="SELECT bezeichnung FROM ax_kreisregion WHERE regierungsbezirk= $1 AND kreis= $2 AND endet IS NULL;";
252$v = array($bezirk,$kreis);
253$res = pg_prepare("", $sql);
254$res = pg_execute("", $v);
255if (!$res) {
[387]256        echo "\n<p class='err'>Fehler bei Kreis</p>";
257        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";}
[362]258}
259$row = pg_fetch_array($res);
260$knam = htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
[390]261echo "\n<tr>\n\t<td>&nbsp;</td>\n\t<td>Kreis</td>\n\t<td class='lr' colspan='3'>";
[387]262if ($showkey) {echo "<span class='key'>(".$kreis.")</span> ";}
263echo $knam."</td>\n\t<td>&nbsp;</td>\n</tr>";
[362]264pg_free_result($res);
265
266// R e g - B e z
267$sql="SELECT bezeichnung FROM ax_regierungsbezirk WHERE regierungsbezirk= $1 AND endet IS NULL;";
268$v = array($bezirk);
269$res = pg_prepare("", $sql);
270$res = pg_execute("", $v);
271if (!$res) {
[387]272        echo "\n<p class='err'>Fehler bei Regierungsbezirk</p>";
273        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";}
[362]274}
275$row=pg_fetch_array($res);
276$bnam=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
[390]277echo "\n<tr>\n\t<td>&nbsp;</td>\n\t<td>Regierungsbezirk</td>\n\t<td class='lr' colspan='3'>";
[387]278if ($showkey) {echo "<span class='key'>(".$bezirk.")</span> ";}
279echo $bnam."</td>\n\t<td>&nbsp;</td>\n</tr>";
[362]280pg_free_result($res);
281// ENDE G e b i e t s z u g e h o e r i g k e i t
282
283// ** L a g e b e z e i c h n u n g **
284
285// Lagebezeichnung MIT Hausnummer
286// ax_flurstueck  >weistAuf>  AX_LagebezeichnungMitHausnummer
287$sql="SELECT DISTINCT l.gml_id, l.gemeinde, l.lage, l.hausnummer, s.bezeichnung
288FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf) 
289JOIN 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
290WHERE f.gml_id= $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL   
291ORDER BY l.gemeinde, l.lage, l.hausnummer;";
292
293$v = array($gmlid);
294$res = pg_prepare("", $sql);
295$res = pg_execute("", $v);
296
297if (!$res) {
[387]298        echo "\n<p class='err'>Fehler bei Lagebezeichnung mit Hausnummer</p>";
[362]299        if ($debug > 1) {
[387]300                echo "\n<p class='dbg'>Fehler:".pg_last_error()."</p>";
301                if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmlid."'</p>";}
[362]302        }
303} else {
304        $j=0;
305        while($row = pg_fetch_array($res)) {
306                $sname = htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name
307                echo "\n<tr>\n\t";
308                        if ($j == 0) {
[387]309                                echo "\n\t<td class='ll'><img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''> Adresse:</td>";
[362]310                        } else {
[387]311                                echo "\n\t<td>&nbsp;</td>";
[362]312                        }
[377]313                        echo "\n\t<td>&nbsp;</td>"
[390]314                        ."\n\t<td class='lr' colspan='3'>";
[362]315                        if ($showkey) {
316                                echo "<span class='key' title='Straßenschl&uuml;ssel'>(".$row["lage"].")</span>&nbsp;";
317                        }
[377]318                        echo $sname."&nbsp;".$row["hausnummer"]."</td>"
319                        ."\n\t<td>\n\t\t<p class='nwlink noprint'>"
320                                ."\n\t\t\t<a title='Lagebezeichnung mit Hausnummer' href='alkislage.php?gkz=".$gkz."&amp;ltyp=m&amp;gmlid=".$row["gml_id"];
[362]321                                if ($showkey) {echo "&amp;showkey=j";}
[377]322                                echo "'>Lage <img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a>"
323                        ."\n\t\t</p>\n\t</td>"
324                ."\n</tr>";
[362]325                $j++;
326        }
327        $cnt_adressen=$j;
328        pg_free_result($res);
329}
330// +++ Verbesserung: mehrere HsNr zur gleichen Straße als Liste?
331
332// Lagebezeichnung OHNE Hausnummer  (Gewanne oder nur Strasse)
333// ax_flurstueck  >zeigtAuf>  AX_LagebezeichnungOhneHausnummer
334$sql ="SELECT l.gml_id, l.unverschluesselt, l.gemeinde, l.lage, s.bezeichnung
335FROM ax_flurstueck f JOIN ax_lagebezeichnungohnehausnummer l ON l.gml_id=ANY(f.zeigtauf)
336LEFT 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
337WHERE f.gml_id = $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL;";
338
339$v = array($gmlid);
340$res = pg_prepare("", $sql);
341$res = pg_execute("", $v);
342if (!$res) {
[387]343        echo "\n<p class='err'>Fehler bei Lagebezeichnung ohne Hausnummer</p>";
[362]344        //if ($debug > 1) {echo "<p class='dbg'>Fehler:".pg_result_error($res)."</p>";}
[387]345        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmlid."'</p>";}
[362]346}
347$j=0;
348// Es wird auch eine Zeile ausgegeben, wenn kein Eintrag gefunden!
349while($row = pg_fetch_array($res)) {
350        $gewann = htmlentities($row["unverschluesselt"], ENT_QUOTES, "UTF-8");
351        $skey=$row["lage"]; // Strassenschl.
352        $lgml=$row["gml_id"]; // key der Lage
353        if (!$gewann == "") {
[377]354                echo "\n<tr>"
355                        ."\n\t<td class='ll' title='Lagebezeichnung'><img src='ico/Lage_Gewanne.png' width='16' height='16' alt=''> Gewanne:</td>"
356                        ."\n\t<td></td>"
[390]357                        ."\n\t<td class='lr' colspan='3'>".$gewann."</td>"
[377]358                        ."\n\t<td>\n\t\t<p class='nwlink noprint'>"
359                                ."\n\t\t\t<a title='Lagebezeichnung Ohne Hausnummer' href='alkislage.php?gkz=".$gkz."&amp;ltyp=o&amp;gmlid=".$lgml;
[362]360                                if ($showkey) {echo "&amp;showkey=j";}                         
[377]361                                echo "'>\n\t\t\tLage <img src='ico/Lage_Gewanne.png' width='16' height='16' alt=''></a>"
362                        ."\n\t\t</p>\n\t</td>"
363                ."\n</tr>";
[362]364        }
365        // Gleicher DB-Eintrag in zwei HTML-Zeilen, besser nur ein Link
366        if ($skey > 0) {
[377]367                echo "\n<tr>"
368                        ."\n\t<td class='ll'><img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''> Stra&szlig;e:</td>"
369                        ."\n\t<td></td>"
[390]370                        ."\n\t<td class='lr' colspan='3'>";
[362]371                        if ($showkey) {
372                                echo "<span class='key'>(".$skey.")</span>&nbsp;";
373                        }
[377]374                        echo $row["bezeichnung"]."</td>"
375                        ."\n\t<td>\n\t\t<p class='nwlink noprint'>"
376                                ."\n\t\t\t<a title='Lagebezeichnung Ohne Hausnummer' href='alkislage.php?gkz=".$gkz."&amp;ltyp=o&amp;gmlid=".$lgml;
[362]377                                if ($showkey) {echo "&amp;showkey=j";}                         
[377]378                                echo "'>\n\t\t\tLage <img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''>\n\t\t\t</a>"
379                        ."\n\t\t</p>\n\t</td>"
380                ."\n</tr>";
[362]381        }
382        $j++;
383}
384pg_free_result($res);
385// ENDE  L a g e b e z e i c h n u n g
386
387// ** N U T Z U N G ** Gemeinsame FlÀche von NUA und FS
388// Tabellenzeilen (3 Spalten) mit tats. Nutzung zu einem FS ausgeben
389
390/* N U T Z U N G   C l a s s i c (alt)
391$sql ="SELECT m.title, m.fldclass, m.fldinfo, n.gml_id, n.nutz_id, n.class, n.info, n.zustand, n.name, n.bezeichnung, m.gruppe,
392st_area(st_intersection(n.wkb_geometry,f.wkb_geometry)) AS schnittflae, c.label, c.blabla
393FROM ax_flurstueck f, nutzung n JOIN nutzung_meta m ON m.nutz_id=n.nutz_id
394LEFT JOIN nutzung_class c ON c.nutz_id=n.nutz_id AND c.class=n.class
395WHERE f.gml_id= $1 AND st_intersects(n.wkb_geometry,f.wkb_geometry) = true
396AND st_area(st_intersection(n.wkb_geometry,f.wkb_geometry)) > 0.05
397AND f.endet IS NULL ORDER BY schnittflae DESC;";
398
399$v = array($gmlid);
400$res = pg_prepare("", $sql);
401$res = pg_execute("", $v);
402if (!$res) {
[387]403        echo "\n<p class='err'>Fehler bei Suche tats. Nutzung</p>";
404        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmlid."'</p>";}
[362]405}
406$the_Xfactor=$fsbuchflae / $fsgeomflae; // geom. ermittelte FlÀche auf amtl. BuchflÀche angleichen
407$j=0;
408while($row = pg_fetch_array($res)) {
409        $grupp=$row["gruppe"]; // 4 Gruppen
410        $nutzid=$row["nutz_id"]; // 27 Tabellen, num. Key
411        $title=htmlentities($row["title"], ENT_QUOTES, "UTF-8"); // Titel der 27 Tabellen
412        $fldclass=$row["fldclass"]; // Name 1. Zusatzfeld
413        $fldinfo= $row["fldinfo"];  // Name 2. Zus.
414        $gml=$row["gml_id"];
415        $class=$row["class"]; // 1. Zusatzfeld verschlÃŒsselt -> nutzung_class
416        $info=$row["info"]; // 2. Zus. verschlÃŒsselt (noch keine Info zum entschl.)
417        $schnittflae=$row["schnittflae"];
418        $label=$row["label"]; // Nutzungsart entschlÃŒsselt
419        $zus=$row["zustand"]; // im Bau
420        $nam=$row["name"]; // Eigenname
421        $bez=$row["bezeichnung"]; // weiterer Name (unverschl.)
422        $blabla=htmlentities($row["blabla"], ENT_QUOTES, "UTF-8");
423        $label=str_replace("/", "<br>", $label); // Ersetzt "/" durch html-Zeilenwechsel
424
425        echo "\n<tr>\n\t";
426                if ($j == 0) {
427                        echo "<td class='ll' title='Abschnitt der tats&auml;chlichen Nutzung'><img src='ico/Abschnitt.png' width='16' height='16' alt=''> Nutzung:</td>";
428                } else {
429                        echo "<td>&nbsp;</td>";
430                }
431                $absflaebuch = $schnittflae * $the_Xfactor; // angleichen geometrisch an amtliche FlÀche
432                $schnittflae = number_format($schnittflae,1,",",".") . " m&#178;"; // geometrisch
433                $absflaebuch = number_format($absflaebuch,0,",",".") . " m&#178;"; // Abschnitt an BuchflÀche angeglichen
434                echo "\n\t<td class='fla' title='geometrisch berechnet: ".$schnittflae."'>".$absflaebuch."</td>";
435
[390]436                echo "\n\t<td class='lr' colspan='3'>";
[362]437                        if ($class == 0) {
438                                if ($showkey) {echo "<span class='key'>(".$nutzid.")</span> ";}
439                                echo $title; // Name der Tabelle
440                        } elseif ( ($fldclass == "Funktion" OR $fldclass == "Vegetationsmerkmal") AND $label != "") { // Kurze Anzeige
441                                if ($showkey) {echo "<span class='key' title='".$fldclass."'>(".$nutzid."-".$class.")</span> ";}
442                                if ($blabla = "") {
443                                        echo $label;
444                                } else {
445                                        echo "<span title='".$blabla."'>".$label."</span>";
446                                }
447                        } else { // ausfuehrlichere Anzeige
448                                echo $title; // NUA-Tabelle
449                                if ($class != "") { // NUA-SchlÃŒssel
450                                        echo ", ".$fldclass.": "; // Feldname
451                                        if ($showkey) {echo "<span class='key' title='".$fldclass."'>(".$nutzid."-".$class.")</span> ";}
452                                        if ($label != "") { // Bedeutung dazu wurde erfasst
453                                                if ($blabla = "") {
454                                                        echo $label;
455                                                } else {
456                                                        echo "<span title='".$blabla."'>".$label."</span>";
457                                                }
458                                        } else { // muss noch erfasst werden
459                                                echo $class." "; // SchlÃŒssel als Ersatz fÃŒr Bedeutung
460                                        }
461                                }
462                        }
463                        if ($info != "") { // manchmal ein zweites Zusatzfeld (wie entschlÃŒsseln?)
464                                echo ", ".$fldinfo."=".$info;
465                        }
466                        if ($zus != "") { // Zustand
467                                echo "\n\t\t<br>";
468                                if ($showkey) {echo "<span class='key'>(".$zus.")</span> ";}
469                                echo "<span title='Zustand'>";                         
470                                switch ($zus) {
471                                        case 2100: echo "Außer Betrieb, stillgelegt, verlassen"; break;
472                                        case 4000: echo "Im Bau"; break;
473                                        case 8000: echo "Erweiterung, Neuansiedlung"; break;
474                                        default: echo "Zustand: ".$zus; break;
475                                }
476                                echo "</span>";
477                        }
478                        if ($nam != "") {echo "<br>Name: ".$nam;}
479                        if ($bez != "") {echo "<br>Bezeichnung: ".$bez;}
480
481                echo "</td>";
482                echo "\n\t<td>";
483                        switch ($grupp) { // Icon nach 4 Objektartengruppen
484                                case "Siedlung":   $ico = "Abschnitt.png"; break;
485                                case "Verkehr":    $ico = "Strassen_Klassifikation.png"; break;
486                                case "Vegetation": $ico = "Wald.png"; break;
487                                case "GewÀsser":   $ico = "Wasser.png";        break;
488                                default:        $ico = "Abschnitt.png"; break;
489                        }
490                        // Icon ist auch im Druck sichtbar, class='noprint' ?           
491                        echo "<p class='nwlink'><img title='".$title."' src='ico/".$ico."' width='16' height='16' alt='NUA'></p>";
492                echo "</td>";
493        echo "\n</tr>";
494        $j++;
495}
496  E N D E   N U T Z U N G   C l a s s i c  */
497
498/* Status "Nutzung":
499
500 Die Classic-Tabelle "nutzung" ist eine Zusammenfassung aller Tabellen mit Nutzungs-FlÀchen
501 Die Classic-Tabelle "nutzung_meta" zeigt die Kategorie und Gruppe des Nutzungs-Abschnitts an.
502
503 Aus der norGIS-Struktur wird ersatzweise VORLÄUFIG die Tabelle "nutz_21" verwendet,
504 die das alte ALB-Format der Nutzungs-Abschnitte von FlurstÃŒcken simuliert.
505 Hier finden sich bereits verschnittene FlÀchen, aber die gml_id fehlt.
506
507 Die EntschlÃŒsselung der Nutzungsart in den verschiedenen ALKIS-Varianten ist darin unterentwickelt.
[387]508 Diese ist eigentlich fÃŒr jede der getrennten Tabellen der Gruppe Nutzungsart individuell.
[362]509 Die Classic-Lösung mit 2 Zusatzfeldern war schon sehr pauschalisiert, aber
510 durch die RÃŒck-Konvertierung in ALB-Strukturen in der norGIS-Version ist das zu stark vereinfacht.
511 z.B. wird "WohnbauflÀche" mit der Zusatzeigenschaft "Art der Bebauung": 'Offen'
512 nun zur Nutzungsart "Offen".
513 Durch JOIN auf die "alkis_elemente" mit einem Teil des SchlÃŒssels wird das zur "WohnbauflÀche, Offen".
514 Es sollte eine Tabellen-Struktur bereit gestellt werden, die auch aussagt, dass der Wert "Offen" zur
515 Zusatz-Eigenschaft "Art der Bebauung" gehört. Dazu muss das PostProcessing erweitert werden. */
516
[375]517
[362]518$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
519 FROM nutz_21 n JOIN nutz_shl s ON n.nutzsl = s.nutzshl
520 JOIN alkis_elemente e ON e.kennung = substring(n.nutzsl from 1 for 5)
521WHERE n.flsnr = $1 ORDER BY cast(n.fl AS integer) DESC;";
522// Flurstueckskennzeichen mit Trennzeichen im ALB-Format wie 'llgggg-fff-zzzzz/nnn'
523$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);
524$v = array($fskennzalb);
525$res = pg_prepare("", $sql);
526$res = pg_execute("", $v);
527if (!$res) {
[387]528        echo "\n<p class='err'>Fehler bei Suche tats. Nutzung</p>";
529        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = FS-Kennz = '".$fskennzalb."'</p>";}
[362]530}
531
532$j=0;
533while($row = pg_fetch_array($res)) {
534        $flae=$row["fl"]; // BuchflÀche
535        $nutzsl=$row["nutzsl"]; // SchlÃŒssel
536        $nutzung=$row["nutzung"]; // Bezeichnung aus ALB-Tabelle, "fein"
537        $defi=$row["definition"]; // Langer Text mit Beschreibung
538        $title=htmlentities($defi, ENT_QUOTES, "UTF-8"); // .. fÃŒr Anzeige aufbereitet
539
540        echo "\n<tr>\n\t";
541                if ($j == 0) {
542                        echo "<td class='ll' title='Abschnitt der tats&auml;chlichen Nutzung'><img src='ico/Abschnitt.png' width='16' height='16' alt=''> Nutzung:</td>";
543                } else {
544                        echo "<td>&nbsp;</td>";
545                }
546                $absflaebuch = number_format($flae,0,",",".") . " m&#178;"; // Formatierte Abschnitts-Buch-FlÀche
547                echo "\n\t<td class='fla' title='Buchfl&auml;che des Abschnitts'>".$absflaebuch."</td>";
548
[390]549                echo "\n\t<td class='lr' colspan='3' title='".$title."'>";
[362]550                        if ($showkey) {echo "<span class='key'>(".$nutzsl.")</span> ";}
[377]551                        echo $nutzung
552                ."</td>"
553                ."\n\t<td>";
[389]554/*              // Derzeit ist keine Gruppe zugeordnet
[362]555                        switch ($grupp) { // Icon nach 4 Objektartengruppen
556                                case "Siedlung":   $ico = "Abschnitt.png"; break;
557                                case "Verkehr":    $ico = "Strassen_Klassifikation.png"; break;
558                                case "Vegetation": $ico = "Wald.png"; break;
559                                case "GewÀsser":   $ico = "Wasser.png";        break;
560                                default:        $ico = "Abschnitt.png"; break;
561                        }
562                        // Icon ist auch im Druck sichtbar, class='noprint' ?           
563                        echo "<p class='nwlink'><img title='".$title."' src='ico/".$ico."' width='16' height='16' alt='NUA'></p>";
564*/
[377]565                echo "</td>"
566        ."\n</tr>";
[362]567        $j++;
568}
569pg_free_result($res);
570
[377]571echo "\n<tr>" // Summenzeile
[390]572        ."\n\t<td class='re' title='amtliche Fl&auml;che (Buchfl&auml;che)'>Fl&auml;che:</td>"
[377]573        ."\n\t<td class='fla sum'>"
574        ."<span title='geometrisch berechnete Fl&auml;che = ".$fsgeomflaed."' class='flae'>".$fsbuchflaed."</span></td>";
[362]575
576        // Flaeche und Link auf GebÀude-Auswertung
[390]577        echo "\n\t<td colspan='3'>&nbsp;</td>\n\t<td>"
[377]578                ."\n\t\t<p class='nwlink noprint'>" // Gebaeude-Verschneidung
579                        ."\n\t\t\t<a href='alkisgebaeudenw.php?gkz=".$gkz."&amp;gmlid=".$gmlid;
[362]580                        if ($showkey) {echo "&amp;showkey=j";}
581                        if ($cnt_adressen > 0) { // wenn Adresse vorgekommen ist
582                                echo "' title='Geb&auml;udenachweis'>Geb&auml;ude ";
583                        } else { // GebÀude mit Adresse gibt es NICHT, das ist klar
584                                echo "' title='Suche Geb&auml;ude ohne Adresse auf dem Flurst&uuml;ck oder angrenzende Geb&auml;ude'>Suche ";
585                        }
[377]586                        echo "<img src='ico/Haus.png' width='16' height='16' alt=''></a>"
587                ."\n\t\t</p>"
588        ."\n\t</td>"
589."\n</tr>";
[389]590// ENDE  N U T Z U N G
[362]591
[389]592
593// K L A S S I F I Z I E R U N G
594
595// Klassifizierung nach  W a s s e rrecht
596/*
597        // Tabelle immer leer?
598$sql="SELECT h.v, w.artderfestlegung, st_area(st_intersection(w.wkb_geometry, f.wkb_geometry)) AS schnittflae, f.amtlicheflaeche, st_area(f.wkb_geometry) as fsgeomflae
599FROM ax_flurstueck f
600JOIN ax_klassifizierungnachwasserrecht w
601 ON st_intersects(w.wkb_geometry, f.wkb_geometry) AND st_area(st_intersection(w.wkb_geometry, f.wkb_geometry)) > 0.05
602LEFT JOIN alkis_wertearten h
603 ON cast(w.artderfestlegung AS character varying) = h.k AND h.element='ax_klassifizierungnachwasserrecht' AND h.bezeichnung='artderfestlegung'
604WHERE f.gml_id = $1 AND f.endet IS NULL AND w.endet IS NULL ORDER BY schnittflae DESC";
605
606$v = array($gmlid);
607$res = pg_prepare("", $sql);
608$res = pg_execute("", $v);
609if (!$res) {echo "\n<p class='err'>Fehler bei DB-Abfrage zur Klassifizierung Wasser</p>\n";}
610
611if(!empty($res) && pg_num_rows($res) > 0) {
612        echo "\n<table>";
613        while($row = pg_fetch_array($res)) {
614                $fsbuchflae=$row["amtlicheflaeche"];
615                $fsgeomflae=$row["fsgeomflae"];
616                $the_Xfactor=$fsbuchflae / $fsgeomflae; // ++ nicht in Loop, ist konst. je FS
617                $absflaebuch = $row['schnittflae'] * $the_Xfactor;
618                echo"\n<tr><td></td><td></td></tr>"
619                ."\n<tr><td><b>FlÀche</b></td><td class='klassifizerung'><span class=''>".number_format(intval($absflaebuch),0,",",".")." m²</span></td></tr>"       
620                ."\n<tr><td><b>Bezeichnung</b></td><td class='klassifizerung'><span class=''>".$row['v']."</span></td></tr>"
621                ."\n<tr><td></td><td></td></tr>";       
622        }
623        echo "</table>";
624}
625// Klassifizierung nach  S t r a ß e n recht
626        // Tabelle immer leer?
627*/
628
629// B o d e n s c h À t z u n g
630// ---------------------------
631// Tabelle "klas_3x" (norbit-ALB): Dort fehlen Bodenart und Zustandsstufe, es ist aber bereits auf BuchflÀche umgerechnet.
632
633$sql="SELECT
634 kulturart.k as kulturartk, kulturart.v as kulturartv, bodenart.k as bodenartk, bodenart.v as bodenartv, zustbod.v AS zustbodv,
635 b.bodenzahlodergruenlandgrundzahl as bodenzahl, b.ackerzahlodergruenlandzahl AS ackerzahl,
636 b.jahreszahl, st_area(st_intersection(b.wkb_geometry, f.wkb_geometry)) AS schnittflae
637FROM ax_flurstueck f
638JOIN 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
639LEFT JOIN alkis_wertearten AS bodenart  ON cast(b.bodenart  AS character varying) = bodenart.k  AND bodenart.element='ax_bodenschaetzung'  AND bodenart.bezeichnung='bodenart'
640LEFT JOIN alkis_wertearten AS kulturart ON cast(b.kulturart AS character varying) = kulturart.k AND kulturart.element='ax_bodenschaetzung' AND kulturart.bezeichnung='kulturart'
641LEFT JOIN alkis_wertearten AS zustbod   ON cast(b.zustandsstufeoderbodenstufe AS character varying) = zustbod.k AND zustbod.element='ax_bodenschaetzung' AND zustbod.bezeichnung='zustandsstufeoderbodenstufe'
642WHERE f.gml_id = $1 AND f.endet IS NULL AND b.endet IS NULL ORDER BY schnittflae DESC";
643
644$v = array($gmlid);
645$res = pg_prepare("", $sql);
646$res = pg_execute("", $v);
647if (!$res) {echo "\n<p class='err'>Fehler bei DB-Abfrage zur Klassifizierung Boden</p>\n";}
648
649$gesertragsmz = 0; // Gesamt-ErtragsMesszahl
650$klasflae = 0; // Summe klassifizierte FlÀche
651$j=0;
652if(!empty($res) && pg_num_rows($res) > 0) {
653        while ($row = pg_fetch_array($res)) {
654                $kulturartk=$row['kulturartk']; // Key  -
655                $kulturartv=$row['kulturartv']; //              - Value
656                // 1000="Ackerland (A)", 2000="Acker-GrÃŒnland (AGr)", 3000="GrÃŒnland (Gr)", 4000="GrÃŒnland-Acker (GrA)"             
657                if (substr($kulturartv, 0, 3) == 'Ack') { // A
658                        $kbez1="Bodenzahl";
659                        $kbez2="Ackerzahl";
660                } else { // Gr
661                        $kbez1="Gr&uuml;nlandgrundzahl";
662                        $kbez2="Gr&uuml;nlandzahl";
663                }
664                $absflae = $row['schnittflae'];
665                $absbuchflae = $absflae * $the_Xfactor;
666                $klasflae+=$absbuchflae;
667                $ertragszahl = intval($absbuchflae * $row['ackerzahl'] / 100);
668                $gesertragsmz+=$ertragszahl;
669        //      $absflaedis = number_format($absflae,0,",",".")." m&#178;";  // als Tool-Tip ?
670                $absbuchflaedis = number_format($absbuchflae,0,",",".")." m&#178;";
671                $boedenzahl=ltrim($row['bodenzahl'], '0');
672                $ackerzahl=ltrim($row['ackerzahl'], '0');
673
674                // Sp. 1/4
675                if ($j == 0) {
676                        echo "\n<tr>\n\t<td class='ll' title='Abschnitt Bodensch&auml;tzung'><img src='ico/Landwirt.png' width='16' height='16' alt=''> Bodensch&auml;tzung:</td>";
677                } else {
678                        echo "\n<tr>\n\t<td>&nbsp;</td>";
679                }
680
681                // Sp. 2/4
[390]682                echo "\n\t<td class='fla' title='Ertragsmesszahl: Produkt von ".$kbez2."/100 und Fl&auml;che.'>EMZ ".$ertragszahl."</td>";
[389]683
[390]684                // Sp. 3/4 - unterteilt in 3 Sp.
685                echo "\n\t<td class='re' title='Fl&auml;che des Sch&auml;tzungsabschnitts'>".$absbuchflaedis."</td>";
686                echo "\n\t<td class='lr'><span title='".$kbez1."'>".$boedenzahl."</span>/<span title='".$kbez2."'>".$ackerzahl."</span></td>";
687                echo "\n\t<td class='lr'>";
688                        if ($showkey) {echo "\n\t\t<span class='key'>(".$kulturartk.")</span> ";}
689                        echo "\n\t\t<span title='Kulturart'>".$kulturartv."</span> ";
690                        if ($showkey) {echo "\n\t\t<span class='key'>(".$row['bodenartk'].")</span> ";}
691                        echo "\n\t\t<span title='Bodenart'>".$row['bodenartv']."</span> ";
692                        echo "\n\t\t<span title='Zustandsstufe'>".$row['zustbodv']."</span>";
[389]693                        if (isset($row['jahreszahl'])) {echo "\n\t\t <span title='Jahreszahl'>".$row['jahreszahl']."</span>";}
694                //      ++ Entstehungsart (Array) derzeit leer. 1:N entschlÃŒsseln. entstehungsartoderklimastufewasserverhaeltnisse
695                // $ent = explode(",", trim($entsteh, "{}") ); // [] --> PHP-Array
696                //      if (isset($row['sonstiges'])) {echo "\n\t\t, <span title='Sonstige Angaben'>".$row['sonstiges']."</span>";} -- immer leer (Konverter-Fehler?)
[390]697                echo "\n\t</td>";
[389]698
699                // Sp. 4/4 - leer, keine Links
[390]700                echo "\n\t<td>&nbsp;</td>\n</tr>";
[389]701                $j++;
702        }
703        // Summenzeile
704        $klasflaedis = number_format($klasflae,0,",",".")." m&#178;";
[390]705        echo "\n<tr>\n\t<td class='re'>Ertragsmesszahl:</td>"
706        ."\n\t<td class='fla sum' title='Summe der Ertragsmesszahlen f&uuml;r dies Flurst&uuml;ck'>".$gesertragsmz."</td>"
707        ."\n\t<td class='re'>".$klasflaedis."</td>\n\t<td colspan='3'>&nbsp;</td>\n</tr>";
[389]708}
709
[362]710// H i n w e i s  auf Bodenneuordnung oder eine strittige Grenze
711// b.name, b.artderfestlegung,
712$sql_boden ="SELECT a.k AS wert, a.v AS art_verf, b.gml_id AS verf_gml, b.bezeichnung AS verf_bez,
713b.name AS verf_name, d.bezeichnung AS stelle_bez, d.stelle AS stelle_key
714FROM ax_bauraumoderbodenordnungsrecht b
715LEFT JOIN alkis_wertearten a ON cast(b.artderfestlegung AS character varying)=a.k AND a.element='ax_bauraumoderbodenordnungsrecht' AND a.bezeichnung='artderfestlegung'
716LEFT JOIN ax_dienststelle d ON b.stelle=d.stelle
717WHERE b.endet IS NULL AND d.endet IS NULL 
718AND (ST_Within((SELECT wkb_geometry FROM ax_flurstueck WHERE gml_id = $1 AND endet IS NULL ), wkb_geometry)
719 OR ST_Overlaps((SELECT wkb_geometry FROM ax_flurstueck WHERE gml_id = $1 AND endet IS NULL), wkb_geometry));";
720
721pg_prepare($con, "bodeneuordnung", $sql_boden);
722$res_bodeneuordnung = pg_execute($con, "bodeneuordnung", array($gmlid));
723if (!$res_bodeneuordnung) {
[387]724        echo "\n<p class='err'>Fehler bei Bau-, Raum- oder Bodenordnungsrecht</p>";
725        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".$sql_boden."<br>$1 = gml_id = '".$gmlid."'</p>";}
[362]726}
727
728$sql_str="SELECT gml_id FROM ax_besondereflurstuecksgrenze WHERE endet IS NULL AND 1000 = ANY(artderflurstuecksgrenze)
729AND ST_touches((SELECT wkb_geometry FROM ax_flurstueck WHERE gml_id = $1 AND endet IS NULL),wkb_geometry);";
730
731pg_prepare($con, "strittigeGrenze", $sql_str);
732$res_strittigeGrenze = pg_execute($con, "strittigeGrenze", array($gmlid));
733if (!$res_strittigeGrenze) {
[387]734        echo "\n<p class='err'>Fehler bei strittige Grenze</p>";
735        if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".$sql_str."<br>$1 = gml_id = '".$gmlid."'</p>";}
[362]736}
737
738if (pg_num_rows($res_bodeneuordnung) > 0 OR pg_num_rows($res_strittigeGrenze) > 0) {
[377]739        echo "\n<tr>"
740        ."\n\t<td title='Hinweise zum Flurst&uuml;ck'><h6><img src='ico/Hinweis.png' width='16' height='16' alt=''> "
[390]741        ."Hinweise:</h6></td>\n\t<td colspan='5'>&nbsp;</td>"
[377]742        ."\n</tr>";
[362]743
744        if (pg_num_rows($res_bodeneuordnung) > 0) {
745
746                while ($row = pg_fetch_array($res_bodeneuordnung)) { // 3 Zeilen je Verfahren
747
748                        // Zeile 1 - kommt immer, darum hier den Link
749                        echo "\n<tr title='Bau-, Raum- oder Bodenordnungsrecht'>"
[390]750                                ."\n\t<td>Bodenrecht</td>"
751                                ."\n\t<td class='re'>Festlegung: </td>" // "Art der Festlegung" zu lang
752                                ."\n\t<td colspan='3'>";
[362]753                                        if ($showkey) {echo "<span class='key'>(".$row['wert'].")</span> ";}
754                                        echo $row['art_verf']
[390]755                                ."</td>";
[362]756                                // LINK:
[390]757                                echo "\n\t<td>"
758                                        ."\n\t\t<p class='nwlink noprint'>"
[377]759                                        ."\n\t\t\t<a href='alkisbaurecht.php?gkz=".$gkz."&amp;gmlid=".$row['verf_gml'];
[362]760                                        if ($showkey) {echo "&amp;showkey=j";}
[377]761                                        echo "' title='Bau-, Raum- oder Bodenordnungsrecht'>Recht <img src='ico/Gericht.png' width='16' height='16' alt=''></a>"
[390]762                                        ."\n\t\t</p>"           
763                                ."\n\t</td>"
[362]764                        ."\n</tr>";
765
766                        // Zeile 2
767                        $dstell=$row['stelle_key'];
768                        if ($dstell != "") { // Kann auch leer sein
[377]769                                echo "\n<tr title='Flurbereinigungsbeh&ouml;rde'>"
770                                        ."\n\t<td>&nbsp;</td>"
[390]771                                        ."\n\t<td class='re'>Dienststelle: </td>"
772                                        ."\n\t<td colspan='3'>";
[362]773                                                if ($showkey) {echo "<span class='key'>(".$dstell.")</span> ";}
[377]774                                                echo $row['stelle_bez']
775                                        ."</td>"
[362]776                                        ."\n\t<td>&nbsp;</td>"
777                                ."\n</tr>";
778                        }
779
780                        // Zeile 3
781                        $vbez=$row['verf_bez']; // ist nicht immer gefÃŒllt
782                        $vnam=$row['verf_name']; // noch seltener
783                        if ($vbez != "") {
[377]784                                echo "\n<tr title='Verfahrensbezeichnung'>"
[390]785                                        ."\n\t<td>&nbsp;</td>"
786                                        ."\n\t<td class='re'>Verfahren: </td>"
787                                        ."\n\t<td colspan='3'>";
[362]788                                                if ($vnam == "") {
789                                                        echo $vbez; // nur die Nummer
790                                                } else {        // Name oder beides
791                                                        if ($showkey) {echo "<span class='key'>(".$vbez.")</span> ";}
792                                                        echo $vnam;
793                                                }
[377]794                                        echo "</td>"
795                                        ."\n\t<td>&nbsp;</td>"
796                                ."\n</tr>";
[362]797                        }
798                }
799        }
800        if (pg_num_rows($res_strittigeGrenze) > 0) { // 1 Zeile
801                echo "\n<tr>\n<td>Strittige Grenze:</td>"
[390]802                ."<td colspan=4>Mindestens eine Flurst&uuml;cksgrenze ist als <b>strittig</b> zu bezeichnen. Sie kann nicht festgestellt werden, weil die Beteiligten sich nicht &uuml;ber den Verlauf einigen. Nach sachverst&auml;ndigem Ermessen der Katasterbeh&ouml;rde ist anzunehmen, dass das Liegenschaftskataster nicht die rechtm&auml;&szlig;ige Grenze nachweist.</td>"
[362]803                ."\n<td>&nbsp;</td>\n</tr>";
804        }
805}
806echo "\n</table>";
807
808// G R U N D B U C H
[387]809echo "\n\n<table class='outer'>"
[362]810        ."\n<tr>"
811                ."\n\t<td>"
[387]812                        ."\n\t\t<h3 id='gb'><img src='ico/Grundbuch_zu.png' width='16' height='16' alt=''> Grundb&uuml;cher</h3>"
[362]813                ."\n\t</td>"
814                ."\n\t<td>"
815                        ."\n\t\t<p class='nwlink noprint'>"
[387]816                                ."\n\t\t\t<a href='".$_SERVER['PHP_SELF']. "?gkz=".$gkz."&amp;gmlid=".$gmlid."&amp;berbu=".$berbu;
[362]817                                if ($showkey) {echo "&amp;showkey=j";}
818
[387]819                                // Umschalter: FS-Nachweis ruft sich selbst mit geaendertem Parameter auf. Positionierung auf Marke "#gb"
[362]820                                if ($eig=="j") {
821                                        echo "&amp;eig=n#gb' title='Flurst&uuml;cksnachweis'>ohne Eigent&uuml;mer</a>";
[387]822                                } else {
[362]823                                        echo "&amp;eig=j#gb' title='Flurst&uuml;cks- und Eigent&uuml;mernachweis'>mit Eigent&uuml;mer "
824                                        ."<img src='ico/EigentuemerGBzeile.png' width='16' height='16' alt=''></a>";
825                                }
826                        echo "\n\t\t</p>"
827                ."\n\t</td>"
828        ."\n</tr>"
[387]829."\n</table>";
[362]830
831// B U C H U N G S S T E L L E N  zum FS (istGebucht)
832$sql ="SELECT s.gml_id, s.buchungsart, s.laufendenummer as lfd, s.zaehler, s.nenner, s.nummerimaufteilungsplan as nrpl, s.beschreibungdessondereigentums as sond, b.v AS bart, b.d AS barttitle
833FROM ax_flurstueck f JOIN ax_buchungsstelle s ON s.gml_id=f.istgebucht
834LEFT JOIN alkis_wertearten b ON cast(s.buchungsart AS character varying)=b.k AND b.element='ax_buchungsstelle' AND b.bezeichnung='buchungsart'
835WHERE f.gml_id= $1 AND f.endet IS NULL AND s.endet IS NULL ORDER BY s.laufendenummer;";
836
837$v = array($gmlid);
838$ress = pg_prepare("", $sql);
839$ress = pg_execute("", $v);
840if (!$ress) {
[387]841        echo "\n<p class='err'>Keine Buchungsstelle.</p>";
[362]842        if ($debug > 1) {
843                echo "<p class='dbg'>Fehler:".pg_result_error($ress)."</p>";
[387]844                if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmlid."'</p>";}
[362]845        }
846}
847$bs=0; // Z.BuchungsStelle
[387]848while($rows = pg_fetch_array($ress)) {  // Schleife Buchungs-Stelle
[362]849        $gmls=$rows["gml_id"]; // gml b-Stelle
850        $lfd=$rows["lfd"]; // BVNR
851        $barttitle=htmlentities($rows["barttitle"], ENT_QUOTES, "UTF-8"); // .. fÃŒr Anzeige aufbereitet
852
853        // B U C H U N G S B L A T T  zur Buchungsstelle (istBestandteilVon)
854        $sql="SELECT b.gml_id, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung as blatt, b.blattart, wb.v AS blattartv, wb.d AS blattartd, z.bezeichnung
855        FROM ax_buchungsstelle s JOIN ax_buchungsblatt b ON b.gml_id=s.istbestandteilvon
856        LEFT JOIN ax_buchungsblattbezirk z ON z.land=b.land AND z.bezirk=b.bezirk
857        LEFT JOIN alkis_wertearten wb ON cast(b.blattart AS character varying)=wb.k AND wb.element='ax_buchungsblatt' AND wb.bezeichnung='blattart'
858        WHERE s.gml_id = $1 AND s.endet IS NULL AND b.endet IS NULL AND z.endet IS NULL
859        ORDER BY b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung ;";
860
861        $v=array($gmls);
862        $resg=pg_prepare("", $sql);
863        $resg=pg_execute("", $v);
864        if (!$resg) {
[387]865                echo "\n<p class='err'>Kein Buchungsblatt.</p>";
866                if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmls."'</p>";}
[362]867        }
868        $bl=0; // Z.Blatt
869        while($rowg = pg_fetch_array($resg)) {
870                $gmlg=$rowg["gml_id"];
871                $beznam=$rowg["bezeichnung"];
872                $blattkeyg=$rowg["blattart"]; // Key
873                $blattartg=$rowg["blattartv"]; // Value
[387]874                $blatt=$rowg["blatt"];
[362]875                echo "\n<hr>"
876                ."\n<table class='outer'>"
877                ."\n<tr>"; // 1 row only
878                        echo "\n\t<td>"; // Outer linke Spalte:
879
880                                // Rahmen mit GB-Kennz
881                                if ($blattkeyg == 1000) {
[387]882                                        echo "\n\t\t<table class='kennzgb' title='Bestandskennzeichen'>";
[362]883                                }else {
[387]884                                        echo "\n\t\t<table class='kennzgbf' title='Bestandskennzeichen'>"; // GB fiktiv = Rahmen dotted
[362]885                                }
[387]886                                        echo "\n\t\t<tr>\n\t\t\t<td class='head'>Bezirk</td>"
887                                                ."\n\t\t\t<td class='head' title='".$rowg["blattartd"]."'>";
[362]888                                                if ($showkey) {echo "<span class='key'>".$blattkeyg."</span>&nbsp;";}
889                                                echo $blattartg."</td>"
[387]890                                                ."\n\t\t\t<td class='head'>Lfd-Nr.</td>"
891                                                ."\n\t\t\t<td class='head'>Buchungsart</td>"
892                                        ."\n\t\t</tr>"
893                                        ."\n\t\t<tr>"
894                                                ."\n\t\t\t<td title='Grundbuchbezirk'>";
895                                                if ($showkey) {echo "<span class='key'>".$rowg["bezirk"]."</span><br>";}
[377]896                                                echo $beznam."&nbsp;</td>"
[387]897                                                ."\n\t\t\t<td title='Grundbuch-Blatt'><span class='wichtig'>".$blatt."</span></td>"
898                                                ."\n\t\t\t<td title='Bestandsverzeichnis-Nummer (BVNR, Grundst&uuml;ck)'>".$lfd."</td>"
899                                                ."\n\t\t\t<td title='".$barttitle."'>";
[362]900                                                if ($showkey) {echo "<span class='key'>".$rows["buchungsart"]."</span><br>";}
[377]901                                                echo $rows["bart"]."</td>"
[387]902                                        ."\n\t\t</tr>"
903                                ."\n\t\t</table>";
[362]904
905                                // Miteigentumsanteil
906                                if ($rows["zaehler"] <> "") {
907                                        echo "\n<p class='ant'>".$rows["zaehler"]."/".$rows["nenner"]."&nbsp;Anteil am Flurst&uuml;ck</p>";
908                                }
[387]909                        echo "\n\t</td>\n\t<td>"; // Outer rechte Spalte: NW-Links
910
911                                echo "\n\t\t<p class='nwlink noprint'>weitere Auskunft:<br>";
912                                        if ($showkey) {echo "<span class='key'>".$blattkeyg."</span> ";}
913                                        echo "\n\t\t\t<a href='alkisbestnw.php?gkz=".$gkz."&amp;gmlid=".$gmlg;
914                                                if ($showkey) {echo "&amp;showkey=j";}
915                                                echo "#bvnr".$lfd; // Die # hinter die &-Paramter
[362]916                                                if ($blattkeyg == 1000) {
917                                                        echo "' title='Grundbuchnachweis mit kompletter Eigent&uuml;merangabe'>";
918                                                } else {
919                                                        echo "' title='Grundbuchnachweis'>";
920                                                }
921                                                echo $blattartg." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''>"
922                                        ."</a>"
[387]923                                ."\n\t\t</p>";
[362]924
[387]925                                // berechtigte Buchungstellen (im rechten Teil der Àußeren Tab.
926                                $cnt_ber = ber_bs_hinw($gmls, $gmlid); // Hinweis ausgeben, zÀhlen
[362]927
[387]928                        echo "\n\t</td>" // ende aussen rechts
[362]929                ."\n</tr>"
930                ."\n</table>";
931
932                // +++ Weitere Felder ausgeben? BeschreibungDesUmfangsDerBuchung
933                if ($rows["sond"] != "") {
[387]934                        echo "\n<p class='sond' title='Sondereigentum'>Verbunden mit dem Sondereigentum<br>".$rows["sond"]."</p>";
[362]935                }
936                if ($rows["nrpl"] != "") {
[387]937                        echo "\n<p class='nrap' title='Nummer im Aufteilungsplan'>Nummer <span class='wichtig'>".$rows["nrpl"]."</span> im Aufteilungsplan.</p>";
[362]938                }
939
940                // E I G E N T U E M E R, zum GB
941                // Person <-benennt< AX_Namensnummer  >istBestandteilVon-> AX_Buchungsblatt
942                if ($eig=="j") { // Wahlweise mit/ohne EigentÃŒmer
[389]943                        $n = eigentuemer($gmlg, false, ""); // hier ohne Adresse
[362]944                        if ($n == 0) {
945                                if ($blattkeyg == 1000) {
946                                        echo "\n<p class='err'>Keine Namensnummer gefunden.</p>";
947                                } else {
948                                        echo "\n<p>ohne Eigent&uuml;mer.</p>";
949                                }
950                        }
951                }
[387]952
953                // B e r e c h t i g t e   B u c h u n g e n  ... zu dieser Buchungs-Stelle. Optional.
954                if ($berbu=="j") { // Wahlweise anzeigen
955                        echo "\n<hr>\n<h3 id='berbu'><img src='ico/Grundbuch.png' width='16' height='16' alt=''> Berechtigte Buchungen</h3>"
956                        ."\n<p>".$cnt_ber." Buchungen mit Rechten an der Buchung ".$lfd." auf ".$blattartg." ".$blatt." von ".$beznam.":</p>";
957                        ber_bs_anz($gmls, $eig); // berechtigte Buchungstellen und GB-BlÀtter Anzeigen, und ggf. auch mit EigentÃŒmer
958                }
959                $bl++; // ZÀhl Blatt
[362]960        }
[387]961        if ($bl == 0) {echo "\n<p class='err'>Kein Buchungsblatt zur Buchungstelle gefunden.</p>";}
962        $bs++; // ZÀhl Buchungs-Stelle
[362]963}
[387]964
[362]965pg_free_result($resg);
[387]966if ($bs == 0) {echo "\n<p class='err'>Keine Buchungstelle zum Flurst&uuml;ck gefunden.</p>";}
[362]967pg_close($con);
968echo <<<END
969
[377]970<div class='buttonbereich noprint'>
971<hr>
972        <a title="zur&uuml;ck" href='javascript:history.back()'><img src="ico/zurueck.png" width="16" height="16" alt="zur&uuml;ck"></a>&nbsp;
973        <a title="Drucken" href='javascript:window.print()'><img src="ico/print.png" width="16" height="16" alt="Drucken"></a>&nbsp;
974        <a title="Export als CSV" href='javascript:ALKISexport()'><img src="ico/download_fs.png" width="32" height="16" alt="Export"></a>&nbsp;
975</div>
[362]976END;
[387]977footer($gmlid, $_SERVER['PHP_SELF']."?", "&amp;eig=".$eig."&amp;berbu=".$berbu);
[362]978?>
979</body>
980</html>
Note: See TracBrowser for help on using the repository browser.