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

Revision 391, 43.3 KB checked in by frank.jaeger, 2 years ago (diff)

ALKIS-Auskunft: Deutsches Datumsformat tt.mm.jjjj bei Geburtsdatum von Eigentümern und Entstehung des Flurstücks.

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