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

Revision 427, 28.8 KB checked in by frank.jaeger, 2 years ago (diff)

Überarbeitung der Auskunft: Durch Functions den Code verdichtet. Drei neue Arten von Bauwerken.
Line 
1<?php
2/*      alkisfkt.php
3
4        ALKIS-Auskunft
5        Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
6
7        F u n c t i o n s , die von mehreren Modulen verwendet werden.
8
9        Version:
10        2016-02-24 Version fÃŒr norGIS-ALKIS-Import, "function linkgml" raus. Case-EntschlÃŒsselung raus.
11        ....
12        2020-12-03 function selbstverlinkung() statt $_SERVER['PHP_SELF'] fÃŒr Einsatz hinter Gateway mit Änderung des Pfades (Docker/QWC2)
13        2020-12-09 Entschl. BodenschÀtzung korrigiert in function werteliste()
14        2020-12-15 Input-Validation und Strict Comparisation (===)
15        2020-12-16 Sonderfall QWC2 API-Gateway-Umleitung bei Selbstverlinkung
16        2021-12-09 Neue Parameter: $katAmtMix (Kataster-Amt-Mix), $PrntBtn (Drucken-SchaltflÀche)
17                           Footer: Umschalter fÃŒr SchlÃŒssel und Debug unabhÀngig benutzbar. Authentifizierung aus QWC2 nicht hier behandeln.
18        2021-12-30 Bestandsnachweis recursiv ÃŒber alle Buchungs-Ebenen
19        2022-01-13 Functions in Fach-Modul verschoben, wenn nur von einem verwendet. Neue Functions LnkStf(), DsKy()
20*/
21
22function selbstverlinkung() {
23//      Aus der Server-Variable den Pfad entfernen.
24        global $pfadlos_selbstlink;
25        If ($pfadlos_selbstlink === 1) { // Selbstverlinkung ohne Pfad z.B. hinter QWC2 API-Gateway (Umleitung)
26                $mod=strrchr($_SERVER['PHP_SELF'], '/');
27                $mod=substr($mod, 1);
28        } else { // normaler Webserver, die Systemvariable ist korrekt
29                $mod=$_SERVER['PHP_SELF'];
30        }
31        return $mod;
32}
33
34function darf_ich() {
35//      Am Anfang jedes Moduls aufrufen um $customer zu fÃŒllen.       
36//      Der automatisch einloggende anonyme Gast-Benutzers muss bei der Authentifizierung ausgeschlossen werden.
37        global $auth, $customer, $mb_guest_user, $dbg;
38
39        if ($auth === "") {             // nicht prÃŒfen
40                $customer = "";         // dann anonym
41                return 1;                       // alles erlaubt
42        } elseif ($auth === "mapbender") {
43                $customer = "";
44                include '/opt/gdi/mapbender/http/php/mb_validateSession.php';
45
46                if (!isset($_SESSION)) { // keine (passende) Session
47                        if ($dbg > 1) {echo "\n<p class='dbg'>Session nicht gesetzt</p>";}
48                } elseif ( !isset($_SESSION["mb_user_name"]) )  {
49                        if ($dbg > 1) {echo "\n<p class='dbg'>username nicht gesetzt</p>";}
50                } else {
51                        $customer = $_SESSION["mb_user_name"]; // angemeldeter Benutzer
52                }
53                if ($customer == "") {  // Wer bin ich?
54                        echo "<p class='stop2'>Aufruf nur aus Mapbender erlaubt.</p>";
55                        return 0;
56                } elseif ($customer == $mb_guest_user) { // in conf festgelegt
57                        echo "<p class='stop2'>Eine Anmeldung im Mapbender ist notwendig.</p>";
58                        return 0;       // gast-User darf nix
59                } else {
60                        return 1;       // echter User, ist erlaubt
61                }
62        } else {
63                echo "\n<p class='stop2'>Die Berechtigungs-Pr&uuml;fung ist falsch konfiguriert</p>";
64                return 0;       // verboten
65        }
66}
67
68function footer($gmlid, $link, $append) {
69// Einen Seitenfuß ausgeben.
70// Die Parameter &gkz= und &gmlid= kommen in allen Modulen einheitlich vor
71// Den URL-Parameter "&showkey=j/n" umschalten lassen.
72// $append wird angehÀngt wenn gefÌllt. Anwendung: &eig=j bei FSNW, &ltyp=m/p/o bei Lage
73        global $gkz, $showkey, $hilfeurl, $debug, $dbg, $customer;
74
75        echo "\n<footer>";
76        // S c r e e n - F o o t
77        echo "\n\t<div class='confbereich noprint'>"
78        ."\n\t\t<table class='outer'>\n\t\t<tr>";
79
80        // Sp.1: Info Benutzerkennung
81        if (isset($customer) and $customer != '') { // ÃŒber global von fkt. darf_ich()
82                echo "\n\t\t\t<td title='Info'><i>Benutzer:&nbsp;".$customer."</i></td>";
83        } else {
84                echo "\n\t\t\t<td>&nbsp;</td>";
85        }
86
87        // Sp.2: Umschalter
88// +++ ToDo: Texte eindeutiger machen, z.B. Anzeige der SchlÃŒssel ist an >> aus // Anzeige der SchlÃŒssel ist aus >> an
89// oder als Formular / Option-Element
90        echo "\n\t\t\t<td title='Konfiguration'>";
91                $mylink ="\n\t\t\t\t<a class='keyswitch' href='".$link."gkz=".$gkz."&amp;gmlid=".$gmlid.$append;
92
93                if ($showkey) { // Umschalten SchlÃŒssel ein/aus
94                        echo $mylink."&amp;showkey=n";
95                        if ($debug > 0 and $dbg == 0) {echo "&amp;nodebug=j";}
96                        echo "' title='Verschl&uuml;sselungen ausblenden'>Schl&uuml;ssel aus</a>";
97                        $mylink.="&amp;showkey=j";
98                } else {
99                        echo $mylink."&amp;showkey=j";
100                        if ($debug > 0 and $dbg == 0) {echo "&amp;nodebug=j";}
101                        echo "' title='Verschl&uuml;sselungen anzeigen'>Schl&uuml;ssel ein</a>";
102                        $mylink.="&amp;showkey=n";
103                }
104
105                if ($debug > 0) {       // nur fÃŒr Entwicklung
106                        if ($dbg > 0) { // temporÀr eine Ansicht OHNE debug
107                                echo "<br>".$mylink."&amp;nodebug=j' title='Debug-Ausgaben tempor&auml;r abschalten'>Testausgaben aus</a>";
108                        } else {                // Abschaltung beenden
109                                echo "<br>".$mylink."' title='Debug-Ausgaben wie konfiguriert'>Testausgaben ein</a>";
110                        }
111                }
112
113        echo "\n\t\t\t</td>";
114
115        // Sp.3: Dokumentation
116        echo "\n\t\t\t<td title='Hilfe'>"
117                ."\n\t\t\t\t<p class='nwlink'>\n\t\t\t\t\t<a target='_blank' href='".$hilfeurl."' title='Dokumentation'>Hilfe zur ALKIS-Auskunft</a>\n\t\t\t\t</p>\n\t\t\t</td>"
118                ."\n\t\t</tr>\n\t\t</table>"
119        ."\n\t</div>";
120
121        // P r i n t - F o o t
122        if (isset($customer) and $customer != '') {
123                echo "\n\t<p class='onlyprint'><i>Benutzer:&nbsp;".$customer."</i></p>";
124        }
125
126        echo "\n</footer>\n";
127        return 0;
128}
129
130function UnqKatAmt($t1, $t2){
131// Wenn der Datenbestand aus NBA-Verfahren mehrerer KatasterÀmter gemixt wurde, dann muss beim SQL-JOIN auf einige SchlÌsseltabellen
132// zusÀtzlich dafÌr gesort werden, dass nur die SchlÌssel des gleichen Katasteramtes verwendet werden. Sonst bekommt man redundante Treffer.
133// Benötigt den Alias der zu verbindenden Tabellen.
134// Liefert einen String zum EinfÃŒgen hinter "JOIN .. ON".
135        global $katAmtMix; // aus Conf
136        if ($katAmtMix){
137                return "AND substr(".$t1.".gml_id,1,6) = substr(".$t2.".gml_id,1,6) ";
138        } else {
139                return "";
140        }
141}
142
143function LnkStf(){
144// Link-Staffeltab - Die Parameter showkey und nodebug im href eines <a>-Tag an ein anderes Modul weiter geben.
145// Gibt einen String zurÃŒck, der im href eingefÃŒgt wird.
146        global $debug, $dbg, $showkey;
147
148        if ($showkey) { // SchlÃŒssel anzeigen
149                $ret="&amp;showkey=j";
150        } else {
151                $ret="";
152        }
153
154        // Nur relevant in einer Entwicklungsumgebung:
155        // Falls debug-Ausgaben erlaubt sind (conf) kann man das temporÀr einschrÀnken, umgekehrt nicht.
156        // $dbg = aktueller Arbeitswert, $debug = aus Conf.
157        if ($dbg === 0 AND $debug > 0){
158                $ret.="&amp;nodebug=j";
159        }
160        return $ret;
161}
162
163function DsKy($derKey, $Tipp){
164// Display Key - Optional einen ALKIS-internen SchlÃŒsselwert vor dem entschlÃŒsselten Wert ausgeben.
165// Die Option wird gesteuert durch einen Schalter im Seitenfuß.
166// Liefert einen HTML-Text zur Verwendung in einem Echo-Befehl. Zur Verkettung mit Literalen.
167        global $showkey;
168        $Tipp = str_replace("*", "Schl&uuml;ssel", $Tipp); // hÀufig verwendet
169        if ($showkey and $derKey != "") {
170                $html="<span class='key' title='".$Tipp."'>(".$derKey.")&nbsp;</span>";
171        } else {
172                $html="";
173        }
174        return $html;
175}
176
177function ber_bs_zaehl($gmls) {
178// Berechtigte Buchungs-Stellen zÀhlen.
179
180        // Buchungstelle dienend <(Recht)an< Buchungstelle herrschend
181        $sql ="SELECT count(sh.gml_id) AS anz FROM ax_buchungsstelle sd JOIN ax_buchungsstelle sh ON sd.gml_id=ANY(sh.an) "
182        ."WHERE sd.gml_id= $1 AND sh.endet IS NULL AND sd.endet IS NULL;";
183        $v = array($gmls); // GML dienende Buchungs-Stelle
184        $resan = pg_prepare("", $sql);
185        $resan = pg_execute("", $v);
186        if (!$resan) {echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen z&auml;hlen'.</p>";}
187        $rowan = pg_fetch_assoc($resan);
188        $anz=$rowan["anz"];
189        pg_free_result($resan);
190        return $anz; // Funktionswert = Anzahl der berechtigten Buchungen
191}
192
193function buchung_anzg($gmlbs, $eig, $jsfenster, $gml_fs, $trtyp) {
194// In einem FS-Nachw. EINE Buchungsstelle anzeigen.
195// Parameter:
196//  $gmlbs: GML-ID der anzuzeigenden Buchungs-Stelle
197//  $eig: EigentÃŒmer ausgeben j/n
198//  $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool)
199//  $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig)
200//      $trtyp: Tabellen-Zeilen-Typ. Werte: 1="mit GS-Link", 2="ohne GS-Link", 3="ohne GS-Link +Zeile einfÀrben"
201        global $gkz, $dbg, $showkey, $bartgrp, $barttypgrp, $stufe, $katAmtMix;
202
203        $sqlbs="SELECT sh.gml_id AS hgml, sh.buchungsart, sh.laufendenummer as lfd, sh.zaehler, sh.nenner, sh.nummerimaufteilungsplan as nrpl, sh.beschreibungdessondereigentums as sond, " // Buchungs-Stelle herrschend
204        ."b.gml_id AS g_gml, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung as blatt, b.blattart, z.bezeichnung, a.beschreibung AS bart, a.dokumentation AS barttitle, w.beschreibung AS blattartv "
205        ."FROM ax_buchungsstelle sh "
206        ."JOIN ax_buchungsblatt b ON b.gml_id=sh.istbestandteilvon "
207        ."LEFT JOIN ax_buchungsblattbezirk z ON z.land=b.land AND z.bezirk=b.bezirk ".UnqKatAmt("z","b")
208        ."LEFT JOIN ax_buchungsart_buchungsstelle a ON sh.buchungsart = a.wert " // entschl. Buchungsart
209        ."LEFT JOIN ax_blattart_buchungsblatt w ON b.blattart = w.wert " // entschl. Blatt-Art
210        ."WHERE sh.gml_id= $1 AND sh.endet IS NULL AND b.endet IS NULL AND z.endet IS NULL;";
211
212        $v = array($gmlbs); // ID dienende Buchungs-Stelle
213        $resbs = pg_prepare("", $sqlbs);
214        $resbs = pg_execute("", $v);
215        if (!$resbs) {
216                echo "\n<p class='err'>Fehler bei 'Buchungsstelle ausgeben'.</p>";
217                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlbs."'", $sqlbs), ENT_QUOTES, "UTF-8")."</p>";}
218        }
219        $gezeigt = 0; // Funktionswert default
220        if ($dbg > 0) {
221                $zeianz=pg_num_rows($resbs);
222                if ($zeianz > 1){
223                        echo "\n<p class='err'>Die Abfrage liefert mehr als eine (".$zeianz.") Buchung!</p>";
224                        if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sqlbs), ENT_QUOTES, "UTF-8")."</p>";}
225                }
226        }
227        if ($rowbs = pg_fetch_assoc($resbs)) { // EIN Treffer
228                $blattkeyber=$rowbs["blattart"]; // SchlÃŒssel von Blatt-Art des GB
229                if ($blattkeyber != '5000' or $dbg > 1) { // "Fiktives Blatt" nur bei Entwicklung anzeigen
230                        $gezeigt = 1; // Funktionswert nach Treffer
231                        $hgml=$rowbs["hgml"]; // GML-ID der (herrschenden) BuchungsStelle
232                        $bartkey=$rowbs["buchungsart"]; // Buchungsart SchlÃŒssel
233                        $bart=$rowbs["bart"]; // Buchungsart Text
234                        $beznam=$rowbs["bezeichnung"]; // Bezirk
235                        $blattartber=$rowbs["blattartv"]; // Wert von Blatt-Art des GB
236                        $nrpl=$rowbs["nrpl"]; // Nr im Auft.plan
237                        $sond=$rowbs["sond"]; // Beschr. d.Sondereigentums
238                        $gbgml=$rowbs["g_gml"]; // GML-ID des Grundbuch-Blattes
239                        $blatt=ltrim($rowbs["blatt"], "0");
240                        $lfd=ltrim($rowbs["lfd"], "0");
241                        if ($bartkey != $bartgrp) { // Wechsel Buchungsart
242                                $barttitle=$rowbs["barttitle"]; // Buchungsart ErklÀrung
243                                switch (true) { // Die Buchungsart einem Typ (Gruppierung) zuweisen
244                                        case ($bartkey <= 1999): $barttyp = "E"; break; // Eigentum/GrundstÃŒck
245                                        case ($bartkey >= 2000): $barttyp = "R"; break; // GrundstÃŒcksgleiches Recht, z.B. 2101 "Erbbaurecht"
246                                        default: $barttyp = "E"; break;
247                                }
248                                if ($barttypgrp != $barttyp) { // Wenn der Typ wechselt, neue Überschrift in Tabelle
249                                        switch ($barttyp) { // Text der Überschrift
250                                                case "E":
251                                                        if ($eig === 'j') {$h3txt = "Buchung und Eigentum";}
252                                                        else {$h3txt = "Buchung";}
253                                                break;
254                                                case "R": $h3txt = "Grundst&uuml;cksgleiche Rechte"; break;
255                                        }
256                                        if ($barttypgrp === "" and $gml_fs != "") { // die erste Überschrift mit ID und Umschalter
257                                                echo "\n\t<tr>\n\t\t<td colspan='3'>\n\t\t\t<h3 id='gb'>".$h3txt."</h3>\n\t\t</td>"; // 1-3
258                                                echo "\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>" // 4
259                                                        ."\n\t\t\t\t<a href='".selbstverlinkung()."?gkz=".$gkz."&amp;gmlid=".$gml_fs.LnkStf();
260                                                        if ($eig=="j") { // Umschalter: FS-Nachweis ruft sich selbst mit geÀndertem Param. auf. Pos. auf Marke "#gb"
261                                                                echo "&amp;eig=n#gb' title='Umschalter: Flurst&uuml;cksnachweis'>ohne Eigent&uuml;mer</a>";
262                                                        } else {
263                                                                echo "&amp;eig=j#gb' title='Umschalter: Flurst&uuml;cks- und Eigent&uuml;mernachweis'>mit Eigent&uuml;mer "
264                                                                ."<img src='ico/EigentuemerGBzeile.png' width='16' height='16' alt=''></a>";
265                                                        }
266                                                echo "\n\t\t\t</p>\n\t\t</td>";
267                                        } else {
268                                                echo "\n\t<tr>\n\t\t<td colspan='3'>\n\t\t\t<h3>".$h3txt."</h3>\n\t\t</td>\n\t\t<td>&nbsp;</td>"; // 1-4
269                                        }
270                                        echo "\n\t</tr>";
271                                        $barttypgrp = $barttyp;
272                                }
273                                echo "\n\t<tr>" // Buchungsart als Zwischenzeile
274                                        ."\n\t\t<td class='ll'><img src='ico/Grundbuch.png' width='16' height='16' alt=''> Buchungsart:</td>"
275                                        ."\n\t\t<td colspan='2' title='".$barttitle."'>".DsKy($bartkey, 'Buchungsart')."<span class='wichtig'>".$bart."</span>"
276                                        ."</td>\n\t\t<td></td>" // 4
277                                ."\n\t</tr>";
278                                $bartgrp=$bartkey; // Gruppe merken
279                        } // Ende Wechsel der Buchungsart
280
281                        echo "\n\t<tr>" // Zeile mit 4 Spalten fÃŒr Buchung und EigentÃŒmer
282                                ."\n\t\t<td class='ll'><img src='ico/Grundbuch_zu.png' width='16' height='16' alt=''> Buchung:"; // 1
283                        if ($showkey and $dbg > 2) {echo "<br><span class='key'>Stufe ".$stufe."<br>".$hgml."</span> ";}
284                        echo "</td>\n\t\t<td colspan='2'>"; // 2-3
285
286                                        // innere Tabelle: Rahmen mit GB-Kennz.
287                                        if ($blattkeyber == 1000) {
288                                                echo "\n\t\t\t<table class='kennzgb' title='Bestandskennzeichen'>";
289                                        } else {
290                                                echo "\n\t\t\t<table class='kennzgbf' title='Bestandskennzeichen'>"; // dotted
291                                        }
292                                        echo "\n\t\t\t<tr>"
293                                        ."\n\t\t\t\t<td class='head'>Bezirk</td>"
294                                        ."\n\t\t\t\t<td class='head'>".DsKy($blattkeyber, 'Blattart-*').$blattartber."</td>"
295                                        ."\n\t\t\t\t<td class='head'>Lfd-Nr</td>"
296                                        ."\n\t\t\t</tr>";
297
298                                        if ($trtyp === 3) { // Treffer-Grundst. einfÀrben
299                                                echo "\n\t\t\t<tr class='paa'>";
300                                        } else {
301                                                echo "\n\t\t\t<tr>";
302                                        }
303                                        echo "\n\t\t\t\t<td title='Grundbuchbezirk'>".DsKy($rowbs["bezirk"], 'GB-Bezirk-*').$beznam."</td>"
304                                        ."\n\t\t\t\t<td title='Grundbuch-Blatt'><span class='wichtig'>".$blatt."</span></td>"
305                                        ."\n\t\t\t\t<td title='Bestandsverzeichnis-Nummer (BVNR, Grundst&uuml;ck)'>".$lfd."</td>"
306                                        ."\n\t\t\t</tr>"
307                                        ."\n\t\t\t</table>";
308
309                                        if ($rowbs["zaehler"] != "") {
310                                                echo "\n\t\t\t<p class='ant'>".$rowbs["zaehler"]."/".$rowbs["nenner"]."&nbsp;Anteil am Flurst&uuml;ck</p>";
311                                        }
312                                        if ($nrpl != "") {
313                                                echo "\n\t\t\t<p class='nrap' title='Nummer im Aufteilungsplan'>Nummer <span class='wichtig'>".$nrpl."</span> im Aufteilungsplan.</p>";
314                                        }
315                                        if ($sond != "") {
316                                                echo "\n\t\t\t<p class='sond' title='Sondereigentum'>Verbunden mit dem Sondereigentum: ".$sond."</p>";
317                                        }
318                                echo "\n\t\t</td>"; // 2-3
319
320                                echo "\n\t\t<td>"; // 4
321                                        echo "\n\t\t\t<p class='nwlink noprint'>".DsKy($blattkeyber, 'Blattart-*');
322                                        //      Bestand
323                                                $url="alkisbestnw.php?gkz=".$gkz."&amp;gmlid=".$gbgml.LnkStf();
324                                                if ($jsfenster) {$url="javascript:imFenster(\"".$url."\")";} // Sonderfall "Inlay" aus Feature-Info
325                                                echo "\n\t\t\t\t<a href='".$url."' title='Grundbuchnachweis'>".$blattartber
326                                                ." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''></a>";
327                                        //      Buchung
328                                                if ($trtyp === 1) {
329                                                        echo "<br>".DsKy($bartkey, 'Buchungsart');
330                                                        $url="alkisgsnw.php?gkz=".$gkz."&amp;gmlid=".$hgml.LnkStf();
331                                                        if ($jsfenster) {$url="javascript:imFenster(\"".$url."\")";}
332                                                        echo "\n\t\t\t\t<a href='".$url."' title='GrundstÃŒcksnachweis: ".$bart."'>Buchung"
333                                                        ." <img src='ico/Grundstueck_Link.png' width='16' height='16' alt=''></a>";
334                                                }
335                                        echo "\n\t\t\t</p>"
336                                ."\n\t\t</td>"
337                        ."\n\t</tr>";
338                        if ($eig === "j") {
339                                $n = eigentuemer($gbgml, true, $jsfenster); // mit Adresse
340                        }
341                }
342        }
343        pg_free_result($resbs);
344        return $gezeigt; // 1 wenn eine Buchung ausgegeben wurde
345}
346
347function ber_bs_anzg($gmls, $eig, $jsfenster, $gml_fs, $gsanfrd) {
348// In einem FS-Nachw. die berechtigten (herrschenden) Buchungsstellen anzeigen z.B. "Wohnungs-/Teileigentum".
349// Parameter:
350//  $gmls: GML-ID der dienenden Buchungs-Stelle. Im ersten Durchlauf also, die BS auf der das FS gebucht ist.
351//  $eig: EigentÃŒmer ausgeben j/n
352//  $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool)
353//  $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig)
354//      $gsanfrd: In einem GS-Nachw. die GML-ID der in de URL angeforderten Buchungsstelle (-> Hervorhebung)
355        global $dbg, $gezeigt;
356
357        // sh=Buchungstelle herrschend >(Recht)an> sd=Buchungstelle dienend >istBestandteilVon> BLATT -> Bezirk
358        $sql="SELECT sh.gml_id AS hgml, sh.buchungsart, sh.laufendenummer as lfd, sh.zaehler, sh.nenner, sh.nummerimaufteilungsplan as nrpl, sh.beschreibungdessondereigentums as sond, "
359        ."b.gml_id AS g_gml, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung as blatt, b.blattart "
360        ."FROM ax_buchungsstelle sh JOIN ax_buchungsblatt b ON b.gml_id=sh.istbestandteilvon "
361        ."WHERE $1 = ANY(sh.an) AND sh.endet IS NULL AND b.endet IS NULL "
362        ."ORDER BY b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung, sh.laufendenummer;";
363
364        $v = array($gmls); // ID dienende BuchungsStelle
365        $resber = pg_prepare("", $sql);
366        $resber = pg_execute("", $v);
367        if (!$resber) {
368                echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen'.</p>";
369                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmls."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
370        }
371        $an=0;
372        $verfolg=array(); // Ein (zunÀchst leeres) Array fÃŒr weitere GML-IDs anlegen
373        while($rowan = pg_fetch_assoc($resber)) { // Loop durch Result von berechtigte BS
374                $hgml=$rowan["hgml"]; // GML-ID der berechtigten Buchungs-Stelle
375
376                if ($hgml === $gsanfrd) {
377                        $trtyp=3; // einfÀrben, o. Lnk.
378                } else {
379                        if ($gezeigt) {
380                                $trtyp=2; // ohne Link auf GS
381                        } else { // Wenn Stufe 1 "Fiktives Blatt" war, welches ausgeblendet wurde, dann auf Stufe 2 einen GS-Link ausgeben
382                                $trtyp=1; // mit Link auf GS
383                        }
384                }
385                $gezeigt2=buchung_anzg($hgml, $eig, $jsfenster, $gml_fs, $trtyp); // Die herrschende Buchung anzeigen wenn nicht fiktiv
386                $an++;
387                $weitere=ber_bs_zaehl($hgml);
388                if ($weitere > 0) { // gibt es WEITERE berechtigte Buchungen dazu?
389                        $verfolg[] = $hgml; // neuen Wert fÃŒr weitere Verfolgung in Array anfÃŒgen
390                }
391        }
392        pg_free_result($resber);
393        return $verfolg; // weitere zu verfolgende GML-ID zurÃŒck geben
394}
395
396function kurz_namnr($lang) {
397// Namensnummer kÌrzen. Nicht benötigte Stufen der Dezimalklassifikation abschneiden
398        $kurz=str_replace(".00","",$lang); // leere Stufen (nur am Ende)
399        $kurz=str_replace("0000","",$kurz); // ganz leer (am Anfang)
400        $kurz=ltrim($kurz, "0"); // fÃŒhrd. Nullen
401        $kurz=str_replace(".0",".",$kurz); // fÃŒhrd. Null jeder Stufe
402        $kurz=rtrim($kurz); // Leerzeichen hinten
403        return $kurz;
404}
405
406function eigentuemer($gmlid, $mitadresse, $jsfenster) {
407/*      Tabelle mit EigentÃŒmerdaten zu einem Grundbuchblatt ausgeben
408        Sp.1="EigentÃŒmer" Sp.2=NamNr, Sp.3=Name/Adresse, Sp.4=Link
409  Parameter:
410        $gmlid: ID GB-Blatt
411        $mitadresse: Option (t/f) ob die Adresszeile ausgegeben werden soll
412        $jsfenster: Beim Link mit Javascript ein neues Fenster öffnen
413  Return = Anzahl Namensnummern */
414        global $dbg, $gkz, $showkey;
415        if ($jsfenster) { // beim Link aus iFrame ausbrechen
416                $lnkvor  = "javascript:imFenster(\"";
417                $lnknach = "\")";               
418        } else {       
419                $lnkvor = "";
420                $lnknach = "";
421        }
422
423        // N a m e n s n u m m e r
424        // ax_namensnummer >istBestandteilVon> ax_buchungsblatt
425        $sqln="SELECT n.gml_id, n.laufendenummernachdin1421 AS lfd, n.zaehler, n.nenner, n.artderrechtsgemeinschaft AS adr, n.beschriebderrechtsgemeinschaft as beschr, n.eigentuemerart, n.anlass, n.benennt, "
426        ."wn.beschreibung AS adrv, we.beschreibung AS eiartv, "
427        ."p.gml_id AS gmlpers, p.nachnameoderfirma, p.vorname, p.geburtsname, to_char(cast(p.geburtsdatum AS date),'DD.MM.YYYY') AS geburtsdatum, p.namensbestandteil, p.akademischergrad "
428        ."FROM ax_namensnummer n "
429        ."LEFT JOIN ax_artderrechtsgemeinschaft_namensnummer wn ON n.artderrechtsgemeinschaft = wn.wert "
430        ."LEFT JOIN ax_eigentuemerart_namensnummer we ON n.eigentuemerart = we.wert "   
431        ."LEFT JOIN ax_person p ON p.gml_id = n.benennt "
432        ."WHERE n.istbestandteilvon = $1 AND n.endet IS NULL AND p.endet IS NULL "
433        ."ORDER BY n.laufendenummernachdin1421;";
434        // "benennt" ist leer bei "Beschrieb der Rechtsgemeinschaft".
435
436        $v = array($gmlid); // GB-Blatt
437        $resn = pg_prepare("", $sqln);
438        $resn = pg_execute("", $v);
439        if (!$resn) {
440                echo "\n<p class='err'>Fehler bei Eigent&uuml;mer</p>";
441                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1", "'".$gmlid."'", $sqln )."</p>";}
442        }
443
444        $n=0; // Z.NamNum.
445        while($rown = pg_fetch_assoc($resn)) {
446                $gmlnn=$rown["gml_id"];
447                $namnum=kurz_namnr($rown["lfd"]);
448                $rechtsg=$rown["adr"];
449                $beschr=htmlentities($rown["beschr"], ENT_QUOTES, "UTF-8");
450                $adrv=htmlentities($rown["adrv"], ENT_QUOTES, "UTF-8");
451                $eiartkey=$rown["eigentuemerart"]; // Key
452                $eiart=$rown["eiartv"]; // Value
453                $anlass=$rown["anlass"]; // ???
454                $gmlpers=$rown["gmlpers"]; // leer bei RechtsverhÀltnis
455                $akadem=$rown["akademischergrad"];
456                $nachnam=$rown["nachnameoderfirma"];
457                $vorname=$rown["vorname"];
458                $nbest=$rown["namensbestandteil"];
459                $gebdat=$rown["geburtsdatum"];
460                $gebnam=$rown["geburtsname"];
461                $zaehler=str_replace(".", ",", $rown["zaehler"]); // Dezimal-KOMMA wenn dem Notar der Bruch nicht reicht
462                $nenner=str_replace(".", ",", $rown["nenner"]);
463
464                echo "\n\t<tr>";
465                if($n === 0) { // 1. Zeile zum GB
466                        echo "\n\t\t<td class='ll'><img src='ico/Eigentuemer_2.png' width='16' height='16' alt=''> Eigent&uuml;mer:</td>"; // 1
467                } else { // Folgezeile
468                        echo "\n\t\t<td class='ll'>&nbsp;</td>";
469                }
470                if ($rechtsg != "" ) { // Erbengemeinschaft usw.
471                        echo "\n\t\t<td colspan='2'>";
472                        if ($rechtsg == 9999) { // sonstiges
473                                echo "\n\t\t\t<p class='zus' title='Beschrieb der Rechtsgemeinschaft'>".$beschr."</p>";
474                        } else {
475                                echo "\n\t\t\t<p class='zus' title='Art der Rechtsgemeinschaft'>".$adrv."</p>";
476                        }
477                } else { // Namensnummer
478                        echo "\n\t\t<td class='nanu' title='Namens-Nummer'>\n\t\t\t<p>".$namnum."&nbsp;</p>\n\t\t</td>"
479                        . "\n\t\t<td>";
480                }
481                if ($anlass > 0 ) {echo "<p>Anlass=".$anlass."</p>";}
482                // Andere Namensnummern? Relation: ax_namensnummer >bestehtAusRechtsverhaeltnissenZu> ax_namensnummer
483                // Die Relation 'Namensnummer' besteht aus RechtsverhÀltnissen zu 'Namensnummer' sagt aus, dass mehrere Namensnummern zu einer Rechtsgemeinschaft gehören können.
484                // Die Rechtsgemeinschaft selbst steht unter einer eigenen AX_Namensnummer, die zu allen Namensnummern der Rechtsgemeinschaft eine Relation besitzt.
485
486                $diePerson="";
487                if ($akadem != "") {$diePerson=$akadem." ";}
488                $diePerson.=$nachnam;
489                if ($vorname != "") {$diePerson.=", ".$vorname;}
490                if ($nbest != "") {$diePerson.=". ".$nbest;}
491                if ($gebdat != "") {$diePerson.=", geb. ".$gebdat;}
492                if ($gebnam != "") {$diePerson.=", geb. ".$gebnam;}
493                $diePerson=htmlentities($diePerson, ENT_QUOTES, "UTF-8");
494
495                if ($eiartkey == "") {$eiart="Eigent&uuml;mer" ;} // Default
496                echo "\n\t\t\t<p class='geig' title='Eigent&uuml;merart: ".$eiart."'>".$diePerson."</p>\n\t\t</td>"
497                ."\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>".DsKy($eiartkey, 'Eigent&uuml;merart-*')
498                ."\n\t\t\t\t<a href='".$lnkvor."alkisnamstruk.php?gkz=".$gkz."&amp;gmlid=".$gmlpers.LnkStf()
499                .$lnknach."' title='vollst&auml;ndiger Name und Adresse eines Eigent&uuml;mers'>".$eiart
500                ." \n\t\t\t\t\t<img src='ico/Eigentuemer.png' width='16' height='16' alt=''>\n\t\t\t\t</a>\n\t\t\t</p>"
501                ."\n\t\t</td>\n\t</tr>";
502
503                if ($mitadresse) { // optional
504                        // A d r e s s e  zur Person
505                        $sqla ="SELECT a.gml_id, a.ort_post, a.postleitzahlpostzustellung AS plz, a.strasse, a.hausnummer, a.bestimmungsland "
506                        ."FROM ax_anschrift a JOIN ax_person p ON a.gml_id=ANY(p.hat) "
507                        ."WHERE p.gml_id= $1 AND a.endet IS NULL AND p.endet IS NULL "
508                        ."ORDER BY a.beginnt DESC LIMIT 2;";
509                        $v = array($gmlpers);
510                        $resa = pg_prepare("", $sqla);
511                        $resa = pg_execute("", $v);
512                        if (!$resa) {
513                                echo "\n\t<p class='err'>Fehler bei Adressen</p>";
514                                if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".str_replace("$1", "'".$gmlpers."'", $sqla)."</p>";}
515                        }
516                        $j=0;
517                        while($rowa = pg_fetch_assoc($resa)) {
518                                $j++;
519                                if ($j === 1) { // erste ("jÃŒngste") Adresse anzeigen
520                                        $gmla=$rowa["gml_id"];
521                                        $plz=$rowa["plz"]; // integer
522                                        if($plz === 0) {
523                                                $plz="";
524                                        } else {
525                                                $plz=str_pad($plz, 5, "0", STR_PAD_LEFT);
526                                        }
527                                        $ort=htmlentities($rowa["ort_post"], ENT_QUOTES, "UTF-8");
528                                        $str=htmlentities($rowa["strasse"], ENT_QUOTES, "UTF-8");
529                                        $hsnr=$rowa["hausnummer"];
530                                        $land=htmlentities($rowa["bestimmungsland"], ENT_QUOTES, "UTF-8");
531
532                                        echo "\n\t<tr>\n\t\t<td class='ll'>&nbsp;</td>\n\t\t<td>&nbsp;</td>"
533                                        ."\n\t\t<td><p class='gadr'>";
534                                        if ($str.$hsnr != "") {echo $str." ".$hsnr."<br>";}
535                                        if ($plz.$ort != "") {echo $plz." ".$ort;}
536                                        if ($land != "" and $land != "DEUTSCHLAND") {echo ", ".$land;}
537                                        echo "</p></td>"
538                                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>";
539                                } else { // manchmal mehrere Angaben
540                                        echo "\n\t<tr>\n\t\t<td class='ll'>&nbsp;</td>\n\t\t<td>&nbsp;</td>"
541                                        ."\n\t\t<td><p class='dbg' title='Siehe Auskunft zur Person'>weitere Adresse</p></td>"
542                                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>";
543                                }
544                        }
545                        pg_free_result($resa);
546                }       // 'keine Adresse' kann vorkommen, z.B. "Deutsche Telekom AG"
547
548                if ($zaehler != "") { // Anteil als eigene Tab-Zeile
549                        $comnt="Anteil der Berechtigten in Bruchteilen (Par. 47 GBO) an einem gemeinschaftlichen Eigentum (Grundst&uuml;ck oder Recht).";
550                        echo "\n\t<tr>\n\t\t<td class='ll'>&nbsp;</td>\n\t\t<td>&nbsp;</td>"
551                        ."\n\t\t<td><p class='avh' title='".$comnt."'>".$zaehler."/".$nenner." Anteil</p></td>"
552                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>";
553                }
554                if ($gmlpers == "") { // KEINE Person. benennt ist leer. Das kommt vor hinter der Zeile "Erbengemeinschaft" und ist dann KEIN Fehler
555                        if ($dbg > 1) {echo "\n\t\t\t<p class='dbg'>Rechtsgemeinschaft = '".$rechtsg."'</p>";}
556                        if ($rechtsg !== '9999') {
557                                echo "\n<p class='err'>(Die Person mit der ID '".$gmlpers."' fehlt im Datenbestand)</p>";
558                        }
559                        echo "</td>\n\t\t<td>&nbsp;</td>\n\t</tr>";
560                }
561                $n++;
562        }
563        pg_free_result($resn);
564        return $n;
565}
566
567function fortfuehrungen($entsteh, $dbzeart, $dbzename) {
568// Tabelle im Kopf von FlurstÃŒck und FS-Historie. 2 Z./Sp. Entstehung/FortfÃŒhrung
569// Parameter: Die DB-Spalten "zeitpunktderentstehung"[], "zeigtaufexternes_art"[] und "zeigtaufexternes_name"[]
570        global $dbg, $showkey;
571
572        echo "\n\t<table class='fsd'>" // FS-Daten 2 Spalten
573        ."\n\t\t<tr>\n\t\t\t<td>Entstehung</td>"
574        ."\n\t\t\t<td title='Zeitpunkt der Enstehung'>".$entsteh."</td>\n\t\t</tr>";
575        echo "\n\t<tr>\n\t\t\t<td>";
576        $arrart=explode(",", trim($dbzeart, "{}"));
577        foreach($arrart AS $artval) { // Eine Zeile fÃŒr jedes Element von "zeigtaufexternes_art"
578                $artval=trim($artval, '"');
579                $artpos=strpos($artval, '#');
580                if ($artpos > 0) { // AED
581                        $artkey=substr($artval, $artpos + 1);
582                        switch ($artkey) { // keine SchlÃŒsseltabelle?
583                                case '5100':
584                                        $arttxt="Grundst&uuml;ckshinweis (aus ALB-Historie)";
585                                        $artinfo="";
586                                        break;
587                                case '5200':
588                                        $arttxt="Entstehung des Flurst&uuml;cks";
589                                        $artinfo="'Entstehung des FlurstÃŒcks' enthÀlt das Jahr der Entstehung, die lfd. Nr. der FortfÃŒhrung und den SchlÃŒssel der FortfÃŒhrungsart zur manuellen Recherche in den Grundbuchakten.";
590                                        break;
591                                case '5300':
592                                        $arttxt="Letzte Fortf&uuml;hrung des Flurst&uuml;cks";
593                                        $artinfo="'Letzte FortfÃŒhrung' enthÀlt das Jahr der letzten FortfÃŒhrung, die lfd. Nr. der FortfÃŒhrung und den SchlÃŒssel der FortfÃŒhrungsart zur manuellen Recherche in den Grundbuchakten.";
594                                        break;
595                                default:
596                                        $arttxt=$artval;
597                                        $artinfo="";
598                        }
599                        if ($showkey) {echo "<span class='key'><a target='_blank' title='".htmlentities($artinfo, ENT_QUOTES, "UTF-8")."' href='".$artval."'>(".$artkey.")</a></span> ";}
600                        echo $arttxt."<br>";
601                } else {
602                        $artpos=strpos($artval, '/');
603                        if ($artpos > 0) { // ibR
604                                $artkey=substr($artval, $artpos + 1);
605                                $arttxt=substr($artval, 0, $artpos);
606                                echo DsKy($artkey, 'Fortf&uuml;hrungsart').$arttxt."<br>";
607                        }
608                }
609        }
610        echo "</td>\n\t\t\t<td title='Jahrgang / Fortf&uuml;hrungsnummer - Fortf&uuml;hrungsart'>";
611        $arrname=explode(",", trim($dbzename, "{}")); // Eine Zeile fÃŒr jedes Element von "zeigtaufexternes_name"
612        foreach($arrname AS $val) {echo trim($val, '"')."<br>";}
613        echo "</td>\n\t\t</tr>\n\t</table>";
614}
615
616function fskenn_dbformat($fskennz) {
617// Erzeugt aus dem Bindetrich-getrennten FlurstÃŒckskennzeichen "llgggg-fff-nnnn/zz.nn" oder "gggg-ff-nnn/zz"
618// das ALKIS-DB-interne Format des FlurstÃŒckskennzeichens.
619        global $defland;
620        $arr=explode("-", $fskennz, 4); // zerlegen
621        $zgemkg=trim($arr[0]);
622        if (strlen($zgemkg) === 20 and !isset($arr[1])) {
623                $fskzdb=$zgemkg; // ist schon Datenbank-Feldformat
624        } else { // Das Kennzeichen auseinander nehmen.
625                if (strlen($zgemkg) === 6) {
626                        $land=substr($zgemkg, 0, 2);
627                        $zgemkg=substr($zgemkg, 2, 4);
628                } else { // kein schöner Land ..
629                        $land=$defland; // Default-Land aus config
630                }
631                $zflur=str_pad($arr[1], 3 , "0", STR_PAD_LEFT); // Flur-Nr
632                $zfsnr=trim($arr[2]); // FlurstÃŒcks-Nr
633                $zn=explode("/", $zfsnr, 2); // Bruch?
634                $zzaehler=str_pad(trim($zn[0]), 5 , "0", STR_PAD_LEFT);
635                if (isset($zn[1])) {
636                        $znenner=trim($zn[1]);
637                } else {
638                        $znenner="";
639                }
640                if (trim($znenner, " 0.") === "") { // kein Bruch oder nur Nullen
641                        $znenner="____"; // in DB-Spalte mit Tiefstrich aufgefÃŒllt
642                } else {
643                        $zn=explode(".", $znenner, 2); // .00 wegwerfen
644                        $znenner=str_pad($zn[0], 4 , "0", STR_PAD_LEFT);
645                }
646                // die Teile stellengerecht wieder zusammen setzen             
647                $fskzdb=$land.$zgemkg.$zflur.$zzaehler.$znenner.'__'; // FS-Kennz. Format Datenbank
648        }
649        return $fskzdb;
650}
651?>
Note: See TracBrowser for help on using the repository browser.