Changeset 427 for trunk/info/info/alkisn/alkisfkt.php

Timestamp:

02/24/22 16:24:19 (2 years ago)

Author:

frank.jaeger

Message:

Überarbeitung der Auskunft: Durch Functions den Code verdichtet. Drei neue Arten von Bauwerken.

File:

• trunk/info/info/alkisn/alkisfkt.php (modified) (23 diffs)

trunk/info/info/alkisn/alkisfkt.php

@@ -1 +1 @@
 <?php
-/*      Modul: alkisfkt.php
-
-        ALKIS-Buchauskunft, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo).
-        F u n c t i o n s
+/*      alkisfkt.php
+
+        ALKIS-Auskunft
+        Author: Frank JÀger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
+
+        F u n c t i o n s , die von mehreren Modulen verwendet werden.
 
         Version:
@@ -15 +17 @@
                            Footer: Umschalter fÌr SchlÌssel und Debug unabhÀngig benutzbar. Authentifizierung aus QWC2 nicht hier behandeln.
         2021-12-30 Bestandsnachweis recursiv ÃŒber alle Buchungs-Ebenen
-
-++ ToDo:
-        - Parameter $lnkclass in eigentuemer() und $jfenster in buchung_anzg() vereinheitlichen
+        2022-01-13 Functions in Fach-Modul verschoben, wenn nur von einem verwendet. Neue Functions LnkStf(), DsKy()
 */
 
@@ -67 +67 @@
 
 function footer($gmlid, $link, $append) {
-        // Einen Seitenfuß ausgeben.
-        // Die Parameter &gkz= und &gmlid= kommen in allen Modulen einheitlich vor
-        // Den URL-Parameter "&showkey=j/n" umschalten lassen.
-        // $append wird angehÀngt wenn gefÌllt. Anwendung: &eig=j bei FSNW, &ltyp=m/p/o bei Lage
+// Einen Seitenfuß ausgeben.
+// Die Parameter &gkz= und &gmlid= kommen in allen Modulen einheitlich vor
+// Den URL-Parameter "&showkey=j/n" umschalten lassen.
+// $append wird angehÀngt wenn gefÌllt. Anwendung: &eig=j bei FSNW, &ltyp=m/p/o bei Lage
         global $gkz, $showkey, $hilfeurl, $debug, $dbg, $customer;
 
@@ -78 +78 @@
         ."\n\t\t<table class='outer'>\n\t\t<tr>";
 
-        // Spalte 1: Info Benutzerkennung
+        // Sp.1: Info Benutzerkennung
         if (isset($customer) and $customer != '') { // ÃŒber global von fkt. darf_ich()
                 echo "\n\t\t\t<td title='Info'><i>Benutzer:&nbsp;".$customer."</i></td>";
@@ -85 +85 @@
         }
 
-        // Spalte 2: Umschalter
+        // Sp.2: Umschalter
+// +++ ToDo: Texte eindeutiger machen, z.B. Anzeige der SchlÃŒssel ist an >> aus // Anzeige der SchlÃŒssel ist aus >> an
+// oder als Formular / Option-Element
         echo "\n\t\t\t<td title='Konfiguration'>";
                 $mylink ="\n\t\t\t\t<a class='keyswitch' href='".$link."gkz=".$gkz."&amp;gmlid=".$gmlid.$append;
@@ -111 +113 @@
         echo "\n\t\t\t</td>";
 
-        // Spalte 3: Dokumentation
+        // Sp.3: Dokumentation
         echo "\n\t\t\t<td title='Hilfe'>"
                 ."\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>"
@@ -128 +130 @@
 function UnqKatAmt($t1, $t2){
 // Wenn der Datenbestand aus NBA-Verfahren mehrerer KatasterÀmter gemixt wurde, dann muss beim SQL-JOIN auf einige SchlÌsseltabellen
-// zusÀtzlich dafÌr gesort werden, dass nur die SchlÌssel des gleichen Katasteramtes verwendet werden. Sont bekommt man redundante Treffer.
+// zusÀtzlich dafÌr gesort werden, dass nur die SchlÌssel des gleichen Katasteramtes verwendet werden. Sonst bekommt man redundante Treffer.
 // Benötigt den Alias der zu verbindenden Tabellen.
 // Liefert einen String zum EinfÃŒgen hinter "JOIN .. ON".
@@ -139 +141 @@
 }
 
+function LnkStf(){
+// Link-Staffeltab - Die Parameter showkey und nodebug im href eines <a>-Tag an ein anderes Modul weiter geben.
+// Gibt einen String zurÃŒck, der im href eingefÃŒgt wird.
+        global $debug, $dbg, $showkey;
+
+        if ($showkey) { // SchlÃŒssel anzeigen
+                $ret="&amp;showkey=j";
+        } else {
+                $ret="";
+        }
+
+        // Nur relevant in einer Entwicklungsumgebung:
+        // Falls debug-Ausgaben erlaubt sind (conf) kann man das temporÀr einschrÀnken, umgekehrt nicht.
+        // $dbg = aktueller Arbeitswert, $debug = aus Conf.
+        if ($dbg === 0 AND $debug > 0){
+                $ret.="&amp;nodebug=j";
+        }
+        return $ret;
+}
+
+function DsKy($derKey, $Tipp){
+// Display Key - Optional einen ALKIS-internen SchlÃŒsselwert vor dem entschlÃŒsselten Wert ausgeben.
+// Die Option wird gesteuert durch einen Schalter im Seitenfuß.
+// Liefert einen HTML-Text zur Verwendung in einem Echo-Befehl. Zur Verkettung mit Literalen.
+        global $showkey;
+        $Tipp = str_replace("*", "Schl&uuml;ssel", $Tipp); // hÀufig verwendet
+        if ($showkey and $derKey != "") {
+                $html="<span class='key' title='".$Tipp."'>(".$derKey.")&nbsp;</span>";
+        } else {
+                $html="";
+        }
+        return $html;
+}
+
 function ber_bs_zaehl($gmls) {
-        // Berechtigte Buchungs-Stellen zaehlen.
+// Berechtigte Buchungs-Stellen zÀhlen.
 
         // Buchungstelle dienend <(Recht)an< Buchungstelle herrschend
@@ -148 +184 @@
         $resan = pg_prepare("", $sql);
         $resan = pg_execute("", $v);
-        if (!$resan) {echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen zaehlen'.</p>";}
+        if (!$resan) {echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen z&auml;hlen'.</p>";}
         $rowan = pg_fetch_assoc($resan);
         $anz=$rowan["anz"];
@@ -156 +192 @@
 
 function buchung_anzg($gmlbs, $eig, $jsfenster, $gml_fs, $trtyp) {
-        // In einem FS-Nachw. EINE Buchungsstelle anzeigen.
-        // Parameter:
-        //  $gmlbs: GML-ID der anzuzeigenden Buchungs-Stelle
-        //  $eig: EigentÃŒmer ausgeben j/n
-        //  $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool)
-        //  $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig)
-        //      $trtyp: Tabellen-Zeilen-Typ. Werte: 1="mit GS-Link", 2="ohne GS-Link", 3="ohne GS-Link +Zeile einfÀrben"
+// In einem FS-Nachw. EINE Buchungsstelle anzeigen.
+// Parameter:
+//  $gmlbs: GML-ID der anzuzeigenden Buchungs-Stelle
+//  $eig: EigentÃŒmer ausgeben j/n
+//  $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool)
+//  $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig)
+//      $trtyp: Tabellen-Zeilen-Typ. Werte: 1="mit GS-Link", 2="ohne GS-Link", 3="ohne GS-Link +Zeile einfÀrben"
         global $gkz, $dbg, $showkey, $bartgrp, $barttypgrp, $stufe, $katAmtMix;
 
@@ -190 +226 @@
         }
         if ($rowbs = pg_fetch_assoc($resbs)) { // EIN Treffer
-                $blattkeyber=$rowbs["blattart"]; // Schluessel von Blatt-Art des GB
+                $blattkeyber=$rowbs["blattart"]; // SchlÃŒssel von Blatt-Art des GB
                 if ($blattkeyber != '5000' or $dbg > 1) { // "Fiktives Blatt" nur bei Entwicklung anzeigen
                         $gezeigt = 1; // Funktionswert nach Treffer
@@ -203 +239 @@
                         $blatt=ltrim($rowbs["blatt"], "0");
                         $lfd=ltrim($rowbs["lfd"], "0");
-                        if ($bartkey != $bartgrp) { // Wechsel der Buchungsart
+                        if ($bartkey != $bartgrp) { // Wechsel Buchungsart
                                 $barttitle=$rowbs["barttitle"]; // Buchungsart ErklÀrung
                                 switch (true) { // Die Buchungsart einem Typ (Gruppierung) zuweisen
@@ -221 +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
                                                 echo "\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>" // 4
-                                                        ."\n\t\t\t\t<a href='".selbstverlinkung()."?gkz=".$gkz."&amp;gmlid=".$gml_fs;
-                                                        if ($showkey) {echo "&amp;showkey=j";}
-                                                        if ($eig=="j") { // Umschalter: FS-Nachweis ruft sich selbst mit geaendertem Parameter auf. Positionierung auf Marke "#gb"
+                                                        ."\n\t\t\t\t<a href='".selbstverlinkung()."?gkz=".$gkz."&amp;gmlid=".$gml_fs.LnkStf();
+                                                        if ($eig=="j") { // Umschalter: FS-Nachweis ruft sich selbst mit geÀndertem Param. auf. Pos. auf Marke "#gb"
                                                                 echo "&amp;eig=n#gb' title='Umschalter: Flurst&uuml;cksnachweis'>ohne Eigent&uuml;mer</a>";
                                                         } else {
@@ -236 +271 @@
                                         $barttypgrp = $barttyp;
                                 }
-
-                                // ++ mehr Abstand oben zur Zeile in .css?
                                 echo "\n\t<tr>" // Buchungsart als Zwischenzeile
-                                        ."\n\t\t<td class='ll'><img src='ico/Grundbuch.png' width='16' height='16' alt=''> Buchungsart:</td>" // 1
-                                        ."\n\t\t<td colspan='2' title='".$barttitle."'>"; // 2-3
-                                                if ($showkey) {echo "<span class='key' title='Buchungsart'>(".$bartkey.")</span> ";}
-                                                echo "<span class='wichtig'>".$bart."</span>"
-                                        ."</td>"
-                                        ."\n\t\t<td></td>" // 4
+                                        ."\n\t\t<td class='ll'><img src='ico/Grundbuch.png' width='16' height='16' alt=''> Buchungsart:</td>"
+                                        ."\n\t\t<td colspan='2' title='".$barttitle."'>".DsKy($bartkey, 'Buchungsart')."<span class='wichtig'>".$bart."</span>"
+                                        ."</td>\n\t\t<td></td>" // 4
                                 ."\n\t</tr>";
                                 $bartgrp=$bartkey; // Gruppe merken
@@ -261 +291 @@
                                         }
                                         echo "\n\t\t\t<tr>"
-                                                ."\n\t\t\t\t<td class='head'>Bezirk</td>"
-                                                ."\n\t\t\t\t<td class='head'>";
-                                                if ($showkey) {echo "<span class='key' title='Blattart'>(".$blattkeyber.")</span> ";}
-                                                echo $blattartber."</td>"
-                                                ."\n\t\t\t\t<td class='head'>Lfd-Nr</td>"
+                                        ."\n\t\t\t\t<td class='head'>Bezirk</td>"
+                                        ."\n\t\t\t\t<td class='head'>".DsKy($blattkeyber, 'Blattart-*').$blattartber."</td>"
+                                        ."\n\t\t\t\t<td class='head'>Lfd-Nr</td>"
                                         ."\n\t\t\t</tr>";
 
@@ -273 +301 @@
                                                 echo "\n\t\t\t<tr>";
                                         }
-                                        echo "\n\t\t\t\t<td title='Grundbuchbezirk'>";
-                                                if ($showkey) {echo "<span class='key' title='GB-Bezirk-Schl&uuml;ssel'>".$rowbs["bezirk"]."</span><br>";}
-                                                echo $beznam."</td>"
-                                                ."\n\t\t\t\t<td title='Grundbuch-Blatt'><span class='wichtig'>".$blatt."</span></td>"
-                                                ."\n\t\t\t\t<td title='Bestandsverzeichnis-Nummer (BVNR, Grundst&uuml;ck)'>".$lfd."</td>"
+                                        echo "\n\t\t\t\t<td title='Grundbuchbezirk'>".DsKy($rowbs["bezirk"], 'GB-Bezirk-*').$beznam."</td>"
+                                        ."\n\t\t\t\t<td title='Grundbuch-Blatt'><span class='wichtig'>".$blatt."</span></td>"
+                                        ."\n\t\t\t\t<td title='Bestandsverzeichnis-Nummer (BVNR, Grundst&uuml;ck)'>".$lfd."</td>"
                                         ."\n\t\t\t</tr>"
                                         ."\n\t\t\t</table>";
@@ -293 +319 @@
 
                                 echo "\n\t\t<td>"; // 4
-                                        echo "\n\t\t\t<p class='nwlink noprint'>";
+                                        echo "\n\t\t\t<p class='nwlink noprint'>".DsKy($blattkeyber, 'Blattart-*');
                                         //      Bestand
-                                                if ($showkey) {echo "<span class='key' title='Blattart'>(".$blattkeyber.")</span> ";}
-                                                $url="alkisbestnw.php?gkz=".$gkz."&amp;gmlid=".$gbgml;
-                                                if ($showkey) {$url.="&amp;showkey=j";}
+                                                $url="alkisbestnw.php?gkz=".$gkz."&amp;gmlid=".$gbgml.LnkStf();
                                                 if ($jsfenster) {$url="javascript:imFenster(\"".$url."\")";} // Sonderfall "Inlay" aus Feature-Info
                                                 echo "\n\t\t\t\t<a href='".$url."' title='Grundbuchnachweis'>".$blattartber
-                                                        ." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''>"
-                                                ."</a>";
+                                                ." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''></a>";
                                         //      Buchung
                                                 if ($trtyp === 1) {
-                                                        echo "<br>";
-                                                        if ($showkey) {echo "<span class='key' title='Buchungsart'>(".$bartkey.")</span> ";}
-                                                        $url="alkisgsnw.php?gkz=".$gkz."&amp;gmlid=".$hgml;
-                                                        if ($showkey) {$url.="&amp;showkey=j";}
+                                                        echo "<br>".DsKy($bartkey, 'Buchungsart');
+                                                        $url="alkisgsnw.php?gkz=".$gkz."&amp;gmlid=".$hgml.LnkStf();
                                                         if ($jsfenster) {$url="javascript:imFenster(\"".$url."\")";}
                                                         echo "\n\t\t\t\t<a href='".$url."' title='GrundstÃŒcksnachweis: ".$bart."'>Buchung"
-                                                                ." <img src='ico/Grundstueck_Link.png' width='16' height='16' alt=''>"
-                                                        ."</a>";
+                                                        ." <img src='ico/Grundstueck_Link.png' width='16' height='16' alt=''></a>";
                                                 }
                                         echo "\n\t\t\t</p>"
-                                ."\n\t\t</td>" // 4
+                                ."\n\t\t</td>"
                         ."\n\t</tr>";
                         if ($eig === "j") {
-                                if ($jsfenster) {$lnkclass = "imFenster";} else {$lnkclass = "";} 
-                                $n = eigentuemer($gbgml, true, $lnkclass); // mit Adresse
+                                $n = eigentuemer($gbgml, true, $jsfenster); // mit Adresse
                         }
                 }
         }
         pg_free_result($resbs);
-        
-        //if ($dbg > 1) {echo "\n<p class='dbg'>Ende function buchung_anzg(), Return = ". $gezeigt ."</p>";}
-        
         return $gezeigt; // 1 wenn eine Buchung ausgegeben wurde
 }
 
 function ber_bs_anzg($gmls, $eig, $jsfenster, $gml_fs, $gsanfrd) {
-        // In einem FS-Nachw. die berechtigten (herrschenden) Buchungsstellen anzeigen z.B. "Wohnungs-/Teileigentum".
-        // Parameter: 
-        //  $gmls: GML-ID der dienenden Buchungs-Stelle. Im ersten Durchlauf also, die BS auf der das FS gebucht ist.
-        //  $eig: EigentÃŒmer ausgeben j/n
-        //  $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool)
-        //  $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig)
-        //      $gsanfrd: In einem GS-Nachw. die GML-ID der in de URL angeforderten Buchungsstelle (-> Hervorhebung)
+// In einem FS-Nachw. die berechtigten (herrschenden) Buchungsstellen anzeigen z.B. "Wohnungs-/Teileigentum".
+// Parameter: 
+//  $gmls: GML-ID der dienenden Buchungs-Stelle. Im ersten Durchlauf also, die BS auf der das FS gebucht ist.
+//  $eig: EigentÃŒmer ausgeben j/n
+//  $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool)
+//  $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig)
+//      $gsanfrd: In einem GS-Nachw. die GML-ID der in de URL angeforderten Buchungsstelle (-> Hervorhebung)
         global $dbg, $gezeigt;
 
@@ -379 +395 @@
 
 function kurz_namnr($lang) {
-        // Namensnummer kÌrzen. Nicht benötigte Stufen der Dezimalklassifikation abschneiden
+// Namensnummer kÌrzen. Nicht benötigte Stufen der Dezimalklassifikation abschneiden
         $kurz=str_replace(".00","",$lang); // leere Stufen (nur am Ende)
         $kurz=str_replace("0000","",$kurz); // ganz leer (am Anfang)
-        $kurz=ltrim($kurz, "0"); // fuehr. Nullen
-        $kurz=str_replace(".0",".",$kurz); // fuehr. Null jeder Stufe
+        $kurz=ltrim($kurz, "0"); // fÃŒhrd. Nullen
+        $kurz=str_replace(".0",".",$kurz); // fÃŒhrd. Null jeder Stufe
         $kurz=rtrim($kurz); // Leerzeichen hinten
-        // echo "/n<p class='dbg'> lang='".$lang."'</p>/n<p class='dbg'> kurz='".$kurz."'</p>";
         return $kurz;
 }
 
-function bnw_bszeile_h() {
-/*      Bestandsnachweis - Buchungs-Stellen-Zeile ausgeben - herrschend.
-        Die GB-Daten hierzu stehen bereits im Kopf und bleiben in der Tab. leer */
-        global $dbg, $gkz, $showkey, $trclass, $lfdnr, $bartkey, $bart, $bartstory, $anteil;
-
-        $bvnr=str_pad($lfdnr, 4, "0", STR_PAD_LEFT);
-        echo "\n<tr class='".$trclass."'>"
-        ."\n\t<td id='bvnr".$bvnr."'><span class='wichtig'>".$bvnr."</span></td>" // Sprungmarke=BVNR auf dem GB-Blatt
-        ."\n\t<td class='dien' title='".$bartstory."'>";
-        if ($showkey) {echo "<span class='key'>".$bartkey."</span> ";}
-        echo $bart."</td>"
-        ."\n\t<td class='dien'>".$anteil."</td>"
-        ."\n\t<td>&nbsp;</td>"
-        ."\n\t<td>&nbsp;</td>"
-        ."\n\t<td>&nbsp;</td>"
-        ."\n\t<td>&nbsp;</td>"
-        ."\n\t<td>&nbsp;</td>\n</tr>";
-}
-
-function bnw_bszeile_d($bezkey, $beznam, $blatt, $blattartkey, $blattart, $lfdnran, $gbgml, $gml_bsan, $ebene, $und) {
-/*      Bestandsnachweis - Buchungsstellen-Zeile ausgeben - dienend
-        Eine Folge-Zeile fÃŒr eine dienende Buchung ausgeben. */
-        global $gkz, $showkey, $trclass, $bartkey, $bart, $bartstory, $anteil;
-
-        $bvnr=str_pad($lfdnran, 4, "0", STR_PAD_LEFT);
-        $filler=str_repeat("&nbsp;", $ebene - 2); // 3 und 4 EinrÃŒcken
-        if ($und){$filler.="und ";}; // Unterscheidung Hierarchie (Ebene wechselt) von Liste (gleiche Ebene)
-        echo "\n<tr class='".$trclass."'>"
-        ."\n\t<td title='Ebene ".$ebene."'>".$filler."an</td>"
-        ."\n\t<td class='dien' title='".$bartstory."'>"; // Sp.2 Buchungsart
-        if ($showkey) {echo "<span class='key'>".$bartkey."</span> ";}
-        echo $bart."</td>"
-        ."\n\t<td class='dien'>".$anteil."</td>"; // Sp.3 Anteil
-
-        // Sp.4 GB-Bezirk
-        echo "\n\t<td class='dien' title='Grundbuch-Bezirk'>"; 
-                if ($showkey) {echo "<span class='key'>".$bezkey."</span> ";}
-                echo htmlentities($beznam, ENT_QUOTES, "UTF-8")
-        ."</td>"
-        ."\n\t<td class='dien' title='".$blattart."'>".$blatt."</td>" // Sp.5
-        ."\n\t<td class='dien' title='Bestandsverzeichnis-Nummer'>".$bvnr."</td>" // Sp.6
-        ."\n\t<td class='dien'></td>"; 
-
-        echo "\n\t<td>\n\t\t<p class='nwlink noprint'>"; // Sp.8 Link
-
-        // Link Bestand Blatt
-        if ($showkey) {echo "<span class='key'>".$blattartkey."</span>";} // Blatt-Art
-        echo "\n\t\t\t<a href='alkisbestnw.php?gkz=".$gkz."&amp;gmlid=".$gbgml;
-                if ($showkey) {echo "&amp;showkey=j";}
-                echo "#bvnr".$lfdnran."' title='Zum Grundbuchnachweis des dienenden Blattes'>".$blattart
-        ." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''></a>";
-
-        if ($bartkey < 2000){
-                // Link Buchung BVNR nur fÃŒr GrundstÃŒck usw.
-                echo "<br>\n\t\t\t<a href='alkisgsnw.php?gkz=".$gkz."&amp;gmlid=".$gml_bsan;
-                if ($showkey) {echo "&amp;showkey=j";}
-                echo "' title='Grundst&uuml;cksnachweis'>Buchung <img src='ico/Grundstueck_Link.png' width='16' height='16' alt=''></a>";       
-        }
-
-        echo "\n\t\t</p>"
-        ."\n\t</td>\n</tr>";
-}
-
-function bnw_bsdaten($gml_h, $ebene) {
-/*      Bestandsnachweis - Buchungsstellen-Daten
-        "dienende" Buchungsstellen suchen. Miteigentumsanteil, Erbbaurecht usw. 
-        Return: gml_id der dienenden Buchungsstelle wenn gefunden? Sonst Leerstring */
-        global $dbg, $bartkey, $bart, $bartstory, $anteil;
-
-//      dann "dienende" Buchungsstellen
-//  sh=herrschend          sd=dienend
-//  ax_buchungsstelle >zu> ax_buchungsstelle (des gleichen Blattes) 
-//  ax_buchungsstelle >an> ax_buchungsstelle (anderes Blatt, z.B Erbbaurecht an)
-//      - "zu" kommt in der Praxis (NRW) nicht vor, wird hier nicht berÃŒcksichtigt
-
-        if ($ebene > 5) {echo "\n<p class='err'>Ungewöhnlich tiefe Schachtelung ".$ebene." der Buchungs-Stellen.</p>";}
-
-        $sql ="SELECT sd.gml_id, sd.buchungsart, sd.zaehler, sd.nenner, sd.laufendenummer AS lfd, sd.beschreibungdesumfangsderbuchung AS udb, "
-        ."sd.nummerimaufteilungsplan AS nrap, sd.beschreibungdessondereigentums AS sond, "
-        ."wb.beschreibung AS bart, wb.dokumentation, "
-        ."b.gml_id as gbgml, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung AS blatt, b.blattart, "
-        ."bb.beschreibung AS blattartv, z.bezeichnung AS beznam "
-        ."FROM ax_buchungsstelle sh "
-        ."JOIN ax_buchungsstelle sd ON sd.gml_id=ANY(sh.an) "
-        ."JOIN ax_buchungsblatt b ON b.gml_id=sd.istbestandteilvon "    
-        ."LEFT JOIN ax_buchungsart_buchungsstelle wb ON sd.buchungsart = wb.wert "
-        ."LEFT JOIN ax_buchungsblattbezirk z ON b.land=z.land AND b.bezirk=z.bezirk ".UnqKatAmt("b","z")
-        ."LEFT JOIN ax_blattart_buchungsblatt bb ON b.blattart = bb.wert "
-        ."WHERE sh.gml_id= $1 AND sh.endet IS NULL AND sd.endet IS NULL AND b.endet IS NULL AND z.endet IS NULL "
-        ."ORDER BY sd.laufendenummer;";
-        $v=array($gml_h); // gml_id "herrschende" B-Stelle
-        $resan=pg_prepare("", $sql);
-        $resan=pg_execute("", $v);
-        if (!$resan) {
-                echo "\n<p class='err'>Fehler bei 'dienende Buchungsstelle'.</p>";
-                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1", "'".$gml_bs."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
-        }
-        $zeianz=pg_num_rows($resan); // Zeilen-Anzahl = Returnwert
-        //if ($dbg > 0) {echo "\n<p class='dbg'>Auf Ebene ".$ebene.": Anzahl diennende Buchungs-Stellen = ".$zeianz.".</p>";}
-        $und = false; // mehrfaches "Recht an" auf gleicher Ebene
-        while($row= pg_fetch_assoc($resan)) {
-                $gml_bsan=$row["gml_id"];       // id der dien. BS
-                $blatt=ltrim($row["blatt"], "0");               
-
-                // als Global-Var zur Sub-Function:
-                $bartkey=$row["buchungsart"];   
-                $bart=$row["bart"]; // Buchungsart, entschlÃŒsselt
-                $bartstory=htmlentities($row["dokumentation"], ENT_QUOTES, "UTF-8");
-                if ($row["zaehler"] == "") {$anteil = "";} 
-                else {$anteil = $row["zaehler"]."/".$row["nenner"];}
-
-                // Zeile ausgeben Buchungsstelle dienend 
-                bnw_bszeile_d($row["bezirk"], $row["beznam"], $blatt, $row["blattart"], $row["blattartv"], $row["lfd"], $row["gbgml"], $gml_bsan, $ebene, $und);
-                $und = true;
-                if ($row["nrap"] != "") { // Nr im Auft.Plan
-                        echo "\n<tr>\n\t<td colspan=3></td><td class='nrap' colspan=4>Nummer <span class='wichtig'>".$row["nrap"]."</span> im Aufteilungsplan.</td><td></td>\n</tr>";
-                }
-                if ($row["sond"] != "") { // Sondereigentumsbeschreibung
-                        echo "\n<tr>\n\t<td></td><td class='sond' colspan=6 title='Sondereigentums-Beschreibung'>Verbunden mit dem Sondereigentum an: ".$row["sond"]."</td><td></td>\n</tr>";
-                }
-
-                // Rekursiver Aufruf der gleichen Function, weitere Ebene dienend?
-                $tiefer = bnw_bsdaten($gml_bsan, ($ebene + 1));
-                If ($tiefer == 0) {  // Wenn nicht, dann kann es FlurstÃŒcke dazu geben
-                        $fscnt= bnw_fsdaten($gml_bsan, false); // FlurstÃŒcksdaten
-                }
-        }
-        pg_free_result($resan);
-        return $zeianz;
-}
-
-function bnw_fsdaten($gml_bs, $mit_buchung_link) {
-/*      Bestandsnachweis - FlurstÃŒcksdaten
-        Die Tabellenzeilen mit den FlurstÃŒcksdaten zu EINER Buchungsstelle im Bestandsnachweis ausgeben.
-        Die Funktion wird entweder aufgerufen fÃŒr die Buchungen direkt auf dem GB (Normalfall)
-        oder bei Erbbaurecht fÃŒr die mit "an" verknÃŒpften Buchungsstellen der untersten Ebene (dienende Buchung).
-        Der Tabellenkopf wird im aufrufenden Programm ausgegeben. 
-        Return: Anzahl der ausgegebenen FlurstÃŒcke */
-        global $dbg, $gkz, $showkey, $filtkreis, $filtgem, $trclass, $katAmtMix, $lfdnr, $altlfdnr, $bartkey, $bart, $bartstory, $anteil;
-
-        $sql="SELECT g.gemarkungsnummer, g.bezeichnung, f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.amtlicheflaeche "
-        ."FROM ax_flurstueck f LEFT JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer ".UnqKatAmt("f","g")
-        ."WHERE f.endet IS NULL AND g.endet IS NULL AND f.istgebucht = $1 ";
-        if ($filtgem === '') { // ungefiltert
-                $v=array($gml_bs);
-        } else {
-                $sql.="AND f.gemeindezugehoerigkeit_kreis = $2 AND f.gemeindezugehoerigkeit_gemeinde = $3 "; // ZustÀndiges Gebiet
-                $v=array($gml_bs, $filtkreis, $filtgem);
-        }
-        $sql.="ORDER BY f.gemarkungsnummer, f.flurnummer, f.zaehler, f.nenner;";
-        $resf = pg_prepare("", $sql);
-        $resf = pg_execute("", $v);
-        if (!$resf) {echo "\n<p class='err'>Fehler bei Flurst&uuml;ck</p>";}
-        $zeianz=pg_num_rows($resf);
-        while($rowf = pg_fetch_assoc($resf)) {
-                $fskenn=$rowf["zaehler"];
-                if ($rowf["nenner"] != "") { // Bruch
-                        $fskenn.="/".$rowf["nenner"];
-                }
-                $flae=number_format($rowf["amtlicheflaeche"],0,",",".") . " m&#178;";
-
-                echo "\n<tr class='".$trclass."'>"; // eine Zeile je Flurstueck
-                
-                // Sp. 1-3 der Tab. Daten aus Buchungsstelle, nicht aus FS
-                if($lfdnr === $altlfdnr) { // gleiches GrundstÃŒck, leer lassen
-                        echo "\n\t<td>&nbsp;</td>"
-                        ."\n\t<td>&nbsp;</td>"
-                        ."\n\t<td>&nbsp;</td>";
-                } else { // Sprungmarke, BVNR
-                        $bvnr=str_pad($lfdnr, 4, "0", STR_PAD_LEFT);
-                        echo "\n\t<td id='bvnr".$bvnr."'>"; // Sprungmarke
-                                echo "<span class='wichtig'>".$bvnr."</span>"
-                        ."\n\t</td>";
-                        echo "\n\t<td title ='".$bartstory."'>"; // Buchungsart 
-                                if ($showkey) {echo "<span class='key'>".$bartkey."</span>&nbsp;";}
-                                echo $bart;
-                        echo "</td>"
-                        ."\n\t<td>&nbsp;</td>"; // Anteil
-                        $altlfdnr=$lfdnr;
-                }
-
-                // Sp. 4-7 aus FlurstÃŒck
-                echo "\n\t<td>";
-                if ($showkey) {echo "<span class='key'>".$rowf["gemarkungsnummer"]."</span> ";}
-                echo $rowf["bezeichnung"]."</td>"
-                ."\n\t<td>".$rowf["flurnummer"]."</td>\n\t<td class='fsnr'><span class='wichtig'>".$fskenn."</span></td>"
-                ."\n\t<td class='fla'>".$flae."</td>";
-                echo "\n\t<td>\n\t\t<p class='nwlink noprint'>";
-
-                // Buchung BVNR
-                If ($mit_buchung_link == true) { // nur bei GrundstÃŒck
-                        echo "\n\t\t\t<a href='alkisgsnw.php?gkz=".$gkz."&amp;gmlid=".$gml_bs;
-                        if ($showkey) {echo "&amp;showkey=j";}
-                        echo "' title='Grundst&uuml;cksnachweis'>Buchung <img src='ico/Grundstueck_Link.png' width='16' height='16' alt=''></a>&nbsp;";                 
-                        $mit_buchung_link = false; // nur in erster Zeile
-                }
-                // Flurstk.
-                echo "\n\t\t\t<a href='alkisfsnw.php?gkz=".$gkz."&amp;gmlid=".$rowf["gml_id"]."&amp;eig=n";
-                        if ($showkey)   {echo "&amp;showkey=j";}
-                        echo "' title='Flurst&uuml;cksnachweis'>Flurst&uuml;ck "
-                        ."<img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''></a>"
-                ."\n\t\t</p>\n\t</td>\n</tr>";
-        }
-        pg_free_result($resf);
-        return $zeianz;
-}
-
-function eigentuemer($gmlid, $mitadresse, $lnkclass) {
-        // Tabelle mit Eigentuemerdaten zu einem Grundbuchblatt ausgeben
-        //  Sp.1="EigentÃŒmer" Sp.2=NamNr, Sp.3=Name/Adresse, Sp.4=Link
-        // Parameter:
-        //      $gmlid = ID GB-Blattes
-        //      $mitadresse = Option (true/false) ob die Adresszeile ausgegeben werden soll
-        // Return = Anzahl Namensnummern
-
-        // Schleife 1: N a m e n s n u m m e r
-        // Beziehung: ax_namensnummer >istBestandteilVon> ax_buchungsblatt
+function eigentuemer($gmlid, $mitadresse, $jsfenster) {
+/*      Tabelle mit EigentÃŒmerdaten zu einem Grundbuchblatt ausgeben
+        Sp.1="EigentÃŒmer" Sp.2=NamNr, Sp.3=Name/Adresse, Sp.4=Link
+  Parameter:
+        $gmlid: ID GB-Blatt
+        $mitadresse: Option (t/f) ob die Adresszeile ausgegeben werden soll
+        $jsfenster: Beim Link mit Javascript ein neues Fenster öffnen
+  Return = Anzahl Namensnummern */
         global $dbg, $gkz, $showkey;
-
-        if ($lnkclass == "") {
+        if ($jsfenster) { // beim Link aus iFrame ausbrechen
+                $lnkvor  = "javascript:imFenster(\"";
+                $lnknach = "\")";               
+        } else {        
                 $lnkvor = "";
                 $lnknach = "";
-        } else { // Link ÃŒber Java-Class "imFenster" aus alkisinlayausk.php
-                $lnkvor  = "javascript:".$lnkclass."(\"";
-                $lnknach = "\")";
-        }
-
-        $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, wn.beschreibung AS adrv, we.beschreibung AS eiartv "
+        }
+
+        // N a m e n s n u m m e r
+        // ax_namensnummer >istBestandteilVon> ax_buchungsblatt
+        $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, "
+        ."wn.beschreibung AS adrv, we.beschreibung AS eiartv, "
+        ."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 "
         ."FROM ax_namensnummer n "
         ."LEFT JOIN ax_artderrechtsgemeinschaft_namensnummer wn ON n.artderrechtsgemeinschaft = wn.wert "
-        ."LEFT JOIN ax_eigentuemerart_namensnummer we ON n.eigentuemerart = we.wert "
-        ."WHERE n.istbestandteilvon= $1 AND n.endet IS NULL ORDER BY n.laufendenummernachdin1421;";
-        // VerknÃŒpfungsfeld "benennt" ist leer bei "Beschrieb der Rechtsgemeinschaft".
+        ."LEFT JOIN ax_eigentuemerart_namensnummer we ON n.eigentuemerart = we.wert "   
+        ."LEFT JOIN ax_person p ON p.gml_id = n.benennt "
+        ."WHERE n.istbestandteilvon = $1 AND n.endet IS NULL AND p.endet IS NULL "
+        ."ORDER BY n.laufendenummernachdin1421;";
+        // "benennt" ist leer bei "Beschrieb der Rechtsgemeinschaft".
 
         $v = array($gmlid); // GB-Blatt
         $resn = pg_prepare("", $sqln);
         $resn = pg_execute("", $v);
-
         if (!$resn) {
-                echo "\n<p class='err'>Fehler bei Eigent&uuml;mer</p>"; // kein Fehler bei Blattarten > 1000
-                //if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1", "'".$gmlid."'", $sqln )."</p>";}
+                echo "\n<p class='err'>Fehler bei Eigent&uuml;mer</p>";
+                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1", "'".$gmlid."'", $sqln )."</p>";}
         }
 
@@ -637 +447 @@
                 $namnum=kurz_namnr($rown["lfd"]);
                 $rechtsg=$rown["adr"];
+                $beschr=htmlentities($rown["beschr"], ENT_QUOTES, "UTF-8");
+                $adrv=htmlentities($rown["adrv"], ENT_QUOTES, "UTF-8");
                 $eiartkey=$rown["eigentuemerart"]; // Key
                 $eiart=$rown["eiartv"]; // Value
-        //      if ($dbg > 1) {echo "\n<p class='dbg'>Eigent&uuml:merart = '".$eiartkey."' = '".$eiart."'</p>";}
+                $anlass=$rown["anlass"]; // ???
+                $gmlpers=$rown["gmlpers"]; // leer bei RechtsverhÀltnis
+                $akadem=$rown["akademischergrad"];
+                $nachnam=$rown["nachnameoderfirma"];
+                $vorname=$rown["vorname"];
+                $nbest=$rown["namensbestandteil"];
+                $gebdat=$rown["geburtsdatum"];
+                $gebnam=$rown["geburtsname"];
+                $zaehler=str_replace(".", ",", $rown["zaehler"]); // Dezimal-KOMMA wenn dem Notar der Bruch nicht reicht
+                $nenner=str_replace(".", ",", $rown["nenner"]);
 
                 echo "\n\t<tr>";
-                        if($n === 0) { // erste EigentÃŒmer-Zeile zu einer Buchung
-                                echo "\n\t\t<td class='ll'><img src='ico/Eigentuemer_2.png' width='16' height='16' alt=''> Eigent&uuml;mer:</td>"; // 1
-                        } else { // Folgezeile
-                                echo "\n\t\t<td class='ll'>&nbsp;</td>"; // 1
-                        }
-
-                        if ($rechtsg != "" ) { // Erbengemeinschaft usw.
-                                echo "\n\t\t<td colspan='2'>"; // 2-3
-                                if ($rechtsg == 9999) { // sonstiges
-                                        echo "\n\t\t\t<p class='zus' title='Beschrieb der Rechtsgemeinschaft'>".htmlentities($rown["beschr"], ENT_QUOTES, "UTF-8")."</p>";
-                                } else {
-                                        echo "\n\t\t\t<p class='zus' title='Art der Rechtsgemeinschaft'>".htmlentities($rown["adrv"], ENT_QUOTES, "UTF-8")."</p>";
+                if($n === 0) { // 1. Zeile zum GB
+                        echo "\n\t\t<td class='ll'><img src='ico/Eigentuemer_2.png' width='16' height='16' alt=''> Eigent&uuml;mer:</td>"; // 1
+                } else { // Folgezeile
+                        echo "\n\t\t<td class='ll'>&nbsp;</td>";
+                }
+                if ($rechtsg != "" ) { // Erbengemeinschaft usw.
+                        echo "\n\t\t<td colspan='2'>";
+                        if ($rechtsg == 9999) { // sonstiges
+                                echo "\n\t\t\t<p class='zus' title='Beschrieb der Rechtsgemeinschaft'>".$beschr."</p>";
+                        } else {
+                                echo "\n\t\t\t<p class='zus' title='Art der Rechtsgemeinschaft'>".$adrv."</p>";
+                        }
+                } else { // Namensnummer
+                        echo "\n\t\t<td class='nanu' title='Namens-Nummer'>\n\t\t\t<p>".$namnum."&nbsp;</p>\n\t\t</td>"
+                        . "\n\t\t<td>";
+                }
+                if ($anlass > 0 ) {echo "<p>Anlass=".$anlass."</p>";}
+                // Andere Namensnummern? Relation: ax_namensnummer >bestehtAusRechtsverhaeltnissenZu> ax_namensnummer 
+                // Die Relation 'Namensnummer' besteht aus RechtsverhÀltnissen zu 'Namensnummer' sagt aus, dass mehrere Namensnummern zu einer Rechtsgemeinschaft gehören können. 
+                // Die Rechtsgemeinschaft selbst steht unter einer eigenen AX_Namensnummer, die zu allen Namensnummern der Rechtsgemeinschaft eine Relation besitzt.
+
+                $diePerson="";
+                if ($akadem != "") {$diePerson=$akadem." ";}
+                $diePerson.=$nachnam;
+                if ($vorname != "") {$diePerson.=", ".$vorname;}
+                if ($nbest != "") {$diePerson.=". ".$nbest;}
+                if ($gebdat != "") {$diePerson.=", geb. ".$gebdat;}
+                if ($gebnam != "") {$diePerson.=", geb. ".$gebnam;}
+                $diePerson=htmlentities($diePerson, ENT_QUOTES, "UTF-8");
+
+                if ($eiartkey == "") {$eiart="Eigent&uuml;mer" ;} // Default
+                echo "\n\t\t\t<p class='geig' title='Eigent&uuml;merart: ".$eiart."'>".$diePerson."</p>\n\t\t</td>"
+                ."\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>".DsKy($eiartkey, 'Eigent&uuml;merart-*')
+                ."\n\t\t\t\t<a href='".$lnkvor."alkisnamstruk.php?gkz=".$gkz."&amp;gmlid=".$gmlpers.LnkStf()
+                .$lnknach."' title='vollst&auml;ndiger Name und Adresse eines Eigent&uuml;mers'>".$eiart
+                ." \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>"
+                ."\n\t\t</td>\n\t</tr>";
+
+                if ($mitadresse) { // optional
+                        // A d r e s s e  zur Person
+                        $sqla ="SELECT a.gml_id, a.ort_post, a.postleitzahlpostzustellung AS plz, a.strasse, a.hausnummer, a.bestimmungsland "
+                        ."FROM ax_anschrift a JOIN ax_person p ON a.gml_id=ANY(p.hat) "
+                        ."WHERE p.gml_id= $1 AND a.endet IS NULL AND p.endet IS NULL "
+                        ."ORDER BY a.beginnt DESC LIMIT 2;";
+                        $v = array($gmlpers);
+                        $resa = pg_prepare("", $sqla);
+                        $resa = pg_execute("", $v);
+                        if (!$resa) {
+                                echo "\n\t<p class='err'>Fehler bei Adressen</p>";
+                                if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".str_replace("$1", "'".$gmlpers."'", $sqla)."</p>";}
+                        }
+                        $j=0;
+                        while($rowa = pg_fetch_assoc($resa)) {
+                                $j++;
+                                if ($j === 1) { // erste ("jÃŒngste") Adresse anzeigen
+                                        $gmla=$rowa["gml_id"];
+                                        $plz=$rowa["plz"]; // integer
+                                        if($plz === 0) {
+                                                $plz="";
+                                        } else {
+                                                $plz=str_pad($plz, 5, "0", STR_PAD_LEFT);
+                                        }
+                                        $ort=htmlentities($rowa["ort_post"], ENT_QUOTES, "UTF-8");
+                                        $str=htmlentities($rowa["strasse"], ENT_QUOTES, "UTF-8");
+                                        $hsnr=$rowa["hausnummer"];
+                                        $land=htmlentities($rowa["bestimmungsland"], ENT_QUOTES, "UTF-8");
+
+                                        echo "\n\t<tr>\n\t\t<td class='ll'>&nbsp;</td>\n\t\t<td>&nbsp;</td>"
+                                        ."\n\t\t<td><p class='gadr'>";
+                                        if ($str.$hsnr != "") {echo $str." ".$hsnr."<br>";}
+                                        if ($plz.$ort != "") {echo $plz." ".$ort;}
+                                        if ($land != "" and $land != "DEUTSCHLAND") {echo ", ".$land;}
+                                        echo "</p></td>"
+                                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>";
+                                } else { // manchmal mehrere Angaben
+                                        echo "\n\t<tr>\n\t\t<td class='ll'>&nbsp;</td>\n\t\t<td>&nbsp;</td>"
+                                        ."\n\t\t<td><p class='dbg' title='Siehe Auskunft zur Person'>weitere Adresse</p></td>"
+                                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>";
                                 }
-                        } else { // Namensnummer
-                                echo "\n\t\t<td class='nanu' title='Namens-Nummer'>\n\t\t\t<p>".$namnum."&nbsp;</p>\n\t\t</td>" // 2
-                                . "\n\t\t<td>"; // 3
-
-                        }
-                        //if ($rown["anlass"] > 0 ) {echo "<p>Anlass=".$rown["anlass"]."</p>";}
-
-                        // Andere Namensnummern?  Relation:  ax_namensnummer >bestehtAusRechtsverhaeltnissenZu>  ax_namensnummer 
-                        // Die Relation 'Namensnummer' besteht aus RechtsverhÀltnissen zu 'Namensnummer' sagt aus, dass mehrere Namensnummern zu einer Rechtsgemeinschaft gehören können. 
-                        // Die Rechtsgemeinschaft selbst steht unter einer eigenen AX_Namensnummer, die zu allen Namensnummern der Rechtsgemeinschaft eine Relation besitzt.
-
-                // Schleife 2: P e r s o n
-                // Beziehung: ax_person  <benennt<  ax_namensnummer
-                $sqlp="SELECT nachnameoderfirma, vorname, geburtsname, to_char(cast(geburtsdatum AS date),'DD.MM.YYYY') AS geburtsdatum, namensbestandteil, akademischergrad "
-                ."FROM ax_person WHERE gml_id= $1 AND endet IS NULL;";
-                $gmlpers=$rown["benennt"]; // leer bei RechtsverhÀltnis
-                $v = array($gmlpers); // gml_id von ax_person
-                $resp = pg_prepare("", $sqlp);
-                $resp = pg_execute("", $v);
-                if (!$resp) {
-                        echo "\n\t<p class='err'>Fehler bei Person</p>";
-                        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".str_replace("$1", "'".$gmlpers."'", $sqlp)."</p>";}
-                }
-
-                $i=0; // cnt Person
-                while($rowp = pg_fetch_assoc($resp)) { // Schleife weglassen: "benennt" ist KEIN Array!
-                        $diePerson=""; //++ Anrede?
-                        if ($rowp["akademischergrad"] != "") {$diePerson=$rowp["akademischergrad"]." ";}
-                        $diePerson.=$rowp["nachnameoderfirma"];
-                        if ($rowp["vorname"] != "") {$diePerson.=", ".$rowp["vorname"];}
-                        if ($rowp["namensbestandteil"] != "") {$diePerson.=". ".$rowp["namensbestandteil"];}
-                        if ($rowp["geburtsdatum"] != "") {$diePerson.=", geb. ".$rowp["geburtsdatum"];}
-                        if ($rowp["geburtsname"] != "") {$diePerson.=", geb. ".$rowp["geburtsname"];}
-                        $diePerson=htmlentities($diePerson, ENT_QUOTES, "UTF-8"); // Umlaute
-
-                        echo "\n\t\t\t<p class='geig' title='Eigent&uuml;merart: ".$eiart."'>".$diePerson."</p>\n\t\t</td>"; // 3 - Person in Sp.3 hinter NamNum (Sp.2)
-                        echo "\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>"; // 4
-                                if ($showkey AND $eiartkey != '') {echo "<span class='key' title='Eigent&uuml;merart'>(".$eiartkey.")</span> ";}
-                                echo "\n\t\t\t\t<a href='".$lnkvor."alkisnamstruk.php?gkz=".$gkz."&amp;gmlid=".$gmlpers;
-                                if ($showkey) {echo "&amp;showkey=j";}
-                                if ($eiartkey == "") {$eiart="Eigent&uuml;mer" ;} // Default. Ersatz-Text, wenn nicht gefÃŒllt
-                                echo $lnknach."' title='vollst&auml;ndiger Name und Adresse eines Eigent&uuml;mers'>".$eiart
-                                ." \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>"
-                        ."\n\t\t</td>" // 4
-                        ."\n\t</tr>";
-
-                        if ($mitadresse) {
-                                // Schleife 3: optional  A d r e s s e  zur Person
-                                $sqla ="SELECT a.gml_id, a.ort_post, a.postleitzahlpostzustellung AS plz, a.strasse, a.hausnummer, a.bestimmungsland "
-                                ."FROM ax_anschrift a JOIN ax_person p ON a.gml_id=ANY(p.hat) WHERE p.gml_id= $1 AND a.endet IS NULL AND p.endet IS NULL ORDER BY a.beginnt DESC LIMIT 2;";
-                                $v = array($gmlpers);
-                                $resa = pg_prepare("", $sqla);
-                                $resa = pg_execute("", $v);
-                                if (!$resa) {
-                                        echo "\n\t<p class='err'>Fehler bei Adressen</p>";
-                                        if ($dbg > 2) {echo "\n<p class='err'>SQL=<br>".str_replace("$1", "'".$gmlpers."'", $sqla)."</p>";}
-                                }
-                                $j=0;
-                                while($rowa = pg_fetch_assoc($resa)) {
-                                        $j++;
-                                        if ($j === 1) { // erste ("jÃŒngste") Adresse anzeigen
-                                                $gmla=$rowa["gml_id"];
-                                                $plz=$rowa["plz"]; // integer
-                                                if($plz === 0) {
-                                                        $plz="";
-                                                } else {
-                                                        $plz=str_pad($plz, 5, "0", STR_PAD_LEFT);
-                                                }
-                                                $ort=htmlentities($rowa["ort_post"], ENT_QUOTES, "UTF-8");
-                                                $str=htmlentities($rowa["strasse"], ENT_QUOTES, "UTF-8");
-                                                $hsnr=$rowa["hausnummer"];
-                                                $land=htmlentities($rowa["bestimmungsland"], ENT_QUOTES, "UTF-8");
-
-                                                echo "\n\t<tr>"
-                                                        ."\n\t\t<td class='ll'>&nbsp;</td>" // 1
-                                                        ."\n\t\t<td>&nbsp;</td>" // 2
-                                                        ."\n\t\t<td><p class='gadr'>"; // 3
-                                                        if ($str.$hsnr != "") {echo $str." ".$hsnr."<br>";}
-                                                        if ($plz.$ort != "") {echo $plz." ".$ort;}
-                                                        if ($land != "" and $land != "DEUTSCHLAND") {echo ", ".$land;}
-                                                echo "</p></td>" // 3
-                                                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>"; // 4
-                                        } else { // manchmal doppelte Angaben
-                                                echo "\n\t<tr>"
-                                                        ."\n\t\t<td class='ll'>&nbsp;</td>" // 1
-                                                        ."\n\t\t<td>&nbsp;</td>" // 2
-                                                        ."\n\t\t<td><p class='dbg' title='Siehe Auskunft zur Person'>weitere Adresse</p></td>" // 3
-                                                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>"; // 4
-                                        }
-                                } // Ende Loop Adresse zur Person
-                                pg_free_result($resa);
-                        }
-                        // 'keine Adresse' kann vorkommen, z.B. "Deutsche Telekom AG"
-                        $i++; // cnt Person
-
-                        $zaehler=$rown["zaehler"];
-                        if ($zaehler != "") { // Anteil als eigene Tab-Zeile
-                                $zaehler=str_replace(".", ",", $zaehler); // Dezimal-KOMMA wenn dem Notar der Bruch nicht reicht
-                                $nenner=str_replace(".", ",", $rown["nenner"]);
-                                $comnt="Anteil der Berechtigten in Bruchteilen (Par. 47 GBO) an einem gemeinschaftlichen Eigentum (Grundst&uuml;ck oder Recht).";
-                                echo "\n\t<tr>"
-                                ."\n\t\t<td class='ll'>&nbsp;</td>" // 1
-                                ."\n\t\t<td>&nbsp;</td>" // 2
-                                ."\n\t\t<td><p class='avh' title='".$comnt."'>".$zaehler."/".$nenner." Anteil</p></td>" // 3
-                                ."\n\t\t<td>&nbsp;</td>\n\t</tr>"; // 4
-                        }
-                } // End Loop Person
-                pg_free_result($resp);
-
-                if ($i === 0) { // KEINE Person. benennt ist leer. Das kommt vor hinter der Zeile "Erbengemeinschaft" und ist dann KEIN Fehler
+                        }
+                        pg_free_result($resa);
+                }       // 'keine Adresse' kann vorkommen, z.B. "Deutsche Telekom AG"
+
+                if ($zaehler != "") { // Anteil als eigene Tab-Zeile
+                        $comnt="Anteil der Berechtigten in Bruchteilen (Par. 47 GBO) an einem gemeinschaftlichen Eigentum (Grundst&uuml;ck oder Recht).";
+                        echo "\n\t<tr>\n\t\t<td class='ll'>&nbsp;</td>\n\t\t<td>&nbsp;</td>"
+                        ."\n\t\t<td><p class='avh' title='".$comnt."'>".$zaehler."/".$nenner." Anteil</p></td>"
+                        ."\n\t\t<td>&nbsp;</td>\n\t</tr>";
+                }
+                if ($gmlpers == "") { // KEINE Person. benennt ist leer. Das kommt vor hinter der Zeile "Erbengemeinschaft" und ist dann KEIN Fehler
                         if ($dbg > 1) {echo "\n\t\t\t<p class='dbg'>Rechtsgemeinschaft = '".$rechtsg."'</p>";}
                         if ($rechtsg !== '9999') {
@@ -771 +559 @@
                         echo "</td>\n\t\t<td>&nbsp;</td>\n\t</tr>";
                 }
-                $n++; // cnt NamNum
-        } // End Loop NamNum
-
+                $n++;
+        }
         pg_free_result($resn);
         return $n; 
 }
 
-function werteliste ($bez ,$sqlin) {
-        // Eine oder mehrere EntschlÃŒsselungen in eine Zeile ausgeben.
-        // Dient dazu, SchlÌssel-ARRAYs auflösen ohne die Zeile im JOIN mehrfach aufzulisten
-        // Anwendung: FS-Nachweis BodenschÀtzung
-        global $dbg;
-
-        if ($bez === 'e') {$tabelle = 'ax_entstehungsartoderklimastufewasserverhaeltnisse_bodensc';} 
-        elseif ($bez === 's') {$tabelle = 'ax_sonstigeangaben_bodenschaetzung';}
-
-        $sql="SELECT wert, beschreibung FROM ".$tabelle." WHERE wert IN (".$sqlin.") ORDER BY wert LIMIT $1 ;";
-        $v = array('9');
-        $res = pg_prepare("", $sql);
-        $res = pg_execute("", $v);
-        if (!$res) {
-                echo "\n<p class='err'>Fehler bei Werteliste.</p>";
-                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";}
-                return;
-        }
-        $i=0;
-        while($row = pg_fetch_assoc($res)) {
-                echo " ".$row["beschreibung"];
-                $i++;   
-        }
-        pg_free_result($res);
-        if ($i === 0) {
-                echo "(kein Treffer)";
-                if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";}
-        }
-        return;
-}
-
 function fortfuehrungen($entsteh, $dbzeart, $dbzename) {
 // Tabelle im Kopf von FlurstÃŒck und FS-Historie. 2 Z./Sp. Entstehung/FortfÃŒhrung
-// Parameter: Die DB-Spalten "zeitpunktderentstehung", "zeigtaufexternes_art" und "zeigtaufexternes_name"
+// Parameter: Die DB-Spalten "zeitpunktderentstehung"[], "zeigtaufexternes_art"[] und "zeigtaufexternes_name"[]
         global $dbg, $showkey;
 
-//      if ($dbg > 2) {echo "<p class='dbg'>function fortfuehrungen<br>1: ".$dbzeart."<br>2: ".$dbzename."</p>";}
- 
         echo "\n\t<table class='fsd'>" // FS-Daten 2 Spalten
-                ."\n\t\t<tr>\n\t\t\t<td>Entstehung</td>"
-                ."\n\t\t\t<td title='Zeitpunkt der Enstehung'>".$entsteh."</td>\n\t\t</tr>";
-        echo "\n\t<tr>"
-                ."\n\t\t\t<td>";
+        ."\n\t\t<tr>\n\t\t\t<td>Entstehung</td>"
+        ."\n\t\t\t<td title='Zeitpunkt der Enstehung'>".$entsteh."</td>\n\t\t</tr>";
+        echo "\n\t<tr>\n\t\t\t<td>";
         $arrart=explode(",", trim($dbzeart, "{}"));
-        foreach($arrart AS $artval) { // Zeile fÃŒr jedes Element
+        foreach($arrart AS $artval) { // Eine Zeile fÃŒr jedes Element von "zeigtaufexternes_art"
                 $artval=trim($artval, '"');
-// ibR: {"Entstehung des FlurstÃŒcks/5200","Letzte FortfÃŒhrung des FlurstÃŒcks/5300",urn:adv:fachdatenverbindung:AA_Antrag}
-// AED: {http://geoportal.kreis-herford.de/alkis/alkis.html#5200,http://geoportal.kreis-herford.de/alkis/alkis.html#5300,urn:adv:fachdatenverbindung:AA_Antrag}
-
                 $artpos=strpos($artval, '#');
                 if ($artpos > 0) { // AED
                         $artkey=substr($artval, $artpos + 1);
                         switch ($artkey) { // keine SchlÃŒsseltabelle?
-                                case '5100': $arttxt="Grundst&uuml;ckshinweis (aus ALB-Historie)"; break;
-                                case '5200': $arttxt="Entstehung des Flurst&uuml;cks"; break;
-                                case '5300': $arttxt="Letzte Fortf&uuml;hrung des Flurst&uuml;cks"; break;
-                                default: $arttxt=$artval;
-                        }
-                        if ($showkey) {echo "<span class='key'><a target='_blank' href='".$artval."'>".$artkey."</a></span> ";}
+                                case '5100':
+                                        $arttxt="Grundst&uuml;ckshinweis (aus ALB-Historie)";
+                                        $artinfo="";
+                                        break;
+                                case '5200':
+                                        $arttxt="Entstehung des Flurst&uuml;cks";
+                                        $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.";
+                                        break;
+                                case '5300':
+                                        $arttxt="Letzte Fortf&uuml;hrung des Flurst&uuml;cks";
+                                        $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.";
+                                        break;
+                                default:
+                                        $arttxt=$artval;
+                                        $artinfo="";
+                        }
+                        if ($showkey) {echo "<span class='key'><a target='_blank' title='".htmlentities($artinfo, ENT_QUOTES, "UTF-8")."' href='".$artval."'>(".$artkey.")</a></span> ";}
                         echo $arttxt."<br>";
                 } else {
@@ -843 +604 @@
                                 $artkey=substr($artval, $artpos + 1);
                                 $arttxt=substr($artval, 0, $artpos);
-                                if ($showkey) {echo "<span class='key'>".$artkey."</span> ";}
-                                echo $arttxt."<br>";
-                        }
-                }
-        }
-        echo "</td>"
-        ."\n\t\t\t<td title='Jahrgang / Fortf&uuml;hrungsnummer - Fortf&uuml;hrungsart'>";
-        $arrname=explode(",", trim($dbzename, "{}"));
-        foreach($arrname AS $val) {
-                echo trim($val, '"')."<br>";
-        }
-        echo "</td>"
-        ."\n\t\t</tr>"
-        ."\n\t</table>";
-}
-
-function fskenn_dbformat ($fskennz) {
-        // Erzeugt, wenn notwendig, aus dem Bindetrich-getrennten FlurstÃŒckskennzeichen "llgggg-fff-nnnn/zz.nn" oder "gggg-ff-nnn/zz" 
-        // das ALKIS-DB-interne Format des FlurstÃŒckskennzeichens.
+                                echo DsKy($artkey, 'Fortf&uuml;hrungsart').$arttxt."<br>";
+                        }
+                }
+        }
+        echo "</td>\n\t\t\t<td title='Jahrgang / Fortf&uuml;hrungsnummer - Fortf&uuml;hrungsart'>";
+        $arrname=explode(",", trim($dbzename, "{}")); // Eine Zeile fÃŒr jedes Element von "zeigtaufexternes_name"
+        foreach($arrname AS $val) {echo trim($val, '"')."<br>";}
+        echo "</td>\n\t\t</tr>\n\t</table>";
+}
+
+function fskenn_dbformat($fskennz) {
+// Erzeugt aus dem Bindetrich-getrennten FlurstÃŒckskennzeichen "llgggg-fff-nnnn/zz.nn" oder "gggg-ff-nnn/zz" 
+// das ALKIS-DB-interne Format des FlurstÃŒckskennzeichens.
         global $defland;
         $arr=explode("-", $fskennz, 4); // zerlegen
@@ -875 +630 @@
                 }
                 $zflur=str_pad($arr[1], 3 , "0", STR_PAD_LEFT); // Flur-Nr
-                $zfsnr=trim($arr[2]); // FlurstÃŒcke-Nr
+                $zfsnr=trim($arr[2]); // FlurstÃŒcks-Nr
                 $zn=explode("/", $zfsnr, 2); // Bruch?
                 $zzaehler=str_pad(trim($zn[0]), 5 , "0", STR_PAD_LEFT);
@@ -894 +649 @@
         return $fskzdb;
 }
-
 ?>