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