[362] | 1 | <?php |
---|
| 2 | /* Modul: alkisfkt.php |
---|
| 3 | |
---|
| 4 | ALKIS-Buchauskunft, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo). |
---|
| 5 | Functions |
---|
| 6 | |
---|
| 7 | Version: |
---|
| 8 | 2016-02-24 Version fuer norGIS-ALKIS-Import, "function linkgml" raus. Case-EntschlÃŒsselung raus. |
---|
[364] | 9 | 2016-03-03 Hinweis auf Datenfehler wenn "ax_person" fehlt in function "eigentuemer" |
---|
[375] | 10 | 2016-03-14 Kleine Korrekturen |
---|
[377] | 11 | 2016-11-29 Gemeinsam genutzte Datenbanken ermöglichen (Filter Gemeinde) |
---|
[387] | 12 | 2017-06-08 gestreifte Tabelle, Feinkorrekturen |
---|
[391] | 13 | 2017-10-17 Deutsches Datumsformat fÃŒr Geburtsdatum der Person |
---|
[394] | 14 | 2017-11-03 neue function werteliste() |
---|
[398] | 15 | 2017-12-20 Default Anzeigewert "EigentÃŒmer" im Link fÃŒr leere EigentÃŒmerart, JÃŒngste Adresse zur Person verwenden. |
---|
[402] | 16 | 2018-04-23 Berechtigte Buchungen im FS-Nachw. verbessern. Neue Spalte statt Ãberschriften fÃŒr "EigentÃŒmer" und "Berechtigte Buchungen". |
---|
[405] | 17 | 2018-05-03 GrundstÃŒcksnachweis |
---|
[412] | 18 | 2018-11-09 Umstellung Full-Schema |
---|
[417] | 19 | 2018-11-19 EntschlÃŒsseln "zeigtaufexternes_art" mit function fortfuehrungen(). |
---|
[419] | 20 | 2018-12-18 function fskenn_dbformat |
---|
[412] | 21 | |
---|
| 22 | ++ ToDo: Parameter $lnkclass in eigentuemer() und $jfenster in buchung_anzg() vereinheitlichen |
---|
[362] | 23 | */ |
---|
| 24 | |
---|
| 25 | function footer($gmlid, $link, $append) { |
---|
| 26 | // Einen Seitenfuss ausgeben. |
---|
| 27 | // Die Parameter &gkz= und &gmlid= kommen in allen Modulen einheitlich vor |
---|
| 28 | // Den URL-Parameter "&showkey=j/n" umschalten lassen. |
---|
| 29 | // $append wird angehaengt wenn gefuellt. Anwendung: &eig=j bei FS-NW, <yp=m/p/o bei Lage |
---|
[402] | 30 | global $gkz, $showkey, $hilfeurl, $auth, $debug; |
---|
[362] | 31 | |
---|
[387] | 32 | // S c r e e n - Foot |
---|
[362] | 33 | echo "\n<div class='confbereich noprint'>" |
---|
[387] | 34 | ."\n\t<table class='outer'>\n\t<tr>"; |
---|
[362] | 35 | |
---|
| 36 | // Spalte 1: Info Benutzerkennung |
---|
[375] | 37 | if ($auth == "mapbender") { |
---|
| 38 | $customer=$_SESSION["mb_user_name"]; |
---|
[387] | 39 | echo "\n\t\t<td title='Info'><i>Benutzer: ".$customer."</i></td>"; |
---|
[375] | 40 | } else { |
---|
[387] | 41 | echo "\n\t\t<td> </td>"; |
---|
[375] | 42 | } |
---|
[362] | 43 | |
---|
| 44 | // Spalte 2: Umschalter |
---|
[387] | 45 | echo "\n\t\t<td title='Konfiguration'>"; |
---|
| 46 | $mylink ="\n\t\t\t<a class='keyswitch' href='".$link."gkz=".$gkz."&gmlid=".$gmlid.$append; |
---|
[362] | 47 | if ($showkey) { // Umschalten SchlÃŒssel ein/aus |
---|
| 48 | echo $mylink."&showkey=n' title='Verschlüsselungen ausblenden'>Schlüssel aus</a>"; |
---|
| 49 | } else { |
---|
| 50 | echo $mylink."&showkey=j' title='Verschlüsselungen anzeigen'>Schlüssel ein</a>"; |
---|
| 51 | } |
---|
[402] | 52 | // TemporÀr eine Ansicht ohne Entwicklungsumgebung |
---|
| 53 | if ($debug > 0) { |
---|
| 54 | echo " | ".$mylink."&nodebug=j' title='Debug-Ausgaben temporär abschalten'>Ansicht ohne Testausgaben</a>"; |
---|
| 55 | } |
---|
[387] | 56 | echo "\n\t\t</td>"; |
---|
[362] | 57 | |
---|
| 58 | // Spalte 3 |
---|
[387] | 59 | echo "\n\t\t<td title='Hilfe'>" |
---|
| 60 | ."\n\t\t\t<p class='nwlink'>\n\t\t\t\t<a target='_blank' href='".$hilfeurl."' title='Dokumentation'>Hilfe zur ALKIS-Auskunft</a>\n\t\t\t</p>\n\t\t</td>" |
---|
| 61 | ."\n\t</tr>\n\t</table>" |
---|
| 62 | ."\n</div>\n"; |
---|
| 63 | |
---|
| 64 | // P r i n t - Foot |
---|
| 65 | if ($auth == "mapbender") { |
---|
| 66 | // $customer=$_SESSION["mb_user_name"]; |
---|
| 67 | echo "\n<p class='onlyprint'><i>Mapbender-Benutzer: ".$customer."</i></p>"; |
---|
| 68 | } |
---|
[362] | 69 | return 0; |
---|
| 70 | } |
---|
| 71 | |
---|
[402] | 72 | function ber_bs_zaehl($gmls) { |
---|
| 73 | // Berechtigte Buchungs-Stellen zaehlen. |
---|
[362] | 74 | |
---|
[387] | 75 | // Buchungstelle dienend <(Recht)an< Buchungstelle herrschend |
---|
[402] | 76 | $sql ="SELECT count(sh.gml_id) AS anz FROM ax_buchungsstelle sd JOIN ax_buchungsstelle sh ON sd.gml_id=ANY(sh.an) " |
---|
| 77 | ."WHERE sd.gml_id= $1 AND sh.endet IS NULL AND sd.endet IS NULL;"; |
---|
[387] | 78 | $v = array($gmls); // GML dienende Buchungs-Stelle |
---|
[362] | 79 | $resan = pg_prepare("", $sql); |
---|
| 80 | $resan = pg_execute("", $v); |
---|
[402] | 81 | if (!$resan) {echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen zaehlen'.</p>";} |
---|
| 82 | $rowan = pg_fetch_assoc($resan); |
---|
| 83 | $anz=$rowan["anz"]; |
---|
| 84 | pg_free_result($resan); |
---|
| 85 | return $anz; // Funktionswert = Anzahl der berechtigten Buchungen |
---|
| 86 | } |
---|
| 87 | |
---|
[405] | 88 | function buchung_anzg($gmlbs, $eig, $jsfenster, $gml_fs, $trtyp) { |
---|
[402] | 89 | // In einem FS-Nachw. EINE Buchungsstelle anzeigen. |
---|
| 90 | // Parameter: |
---|
| 91 | // $gmlbs: GML-ID der anzuzeigenden Buchungs-Stelle |
---|
| 92 | // $eig: EigentÃŒmer ausgeben j/n |
---|
| 93 | // $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool) |
---|
| 94 | // $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig) |
---|
[405] | 95 | // $trtyp: Tabellen-Zeilen-Typ. Werte: 1="mit GS-Link", 2="ohne GS-Link", 3="ohne GS-Link +Zeile einfÀrben" |
---|
[402] | 96 | global $gkz, $debug, $showkey, $bartgrp, $barttypgrp, $stufe; |
---|
| 97 | |
---|
| 98 | $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] | 99 | ."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] | 100 | ."FROM ax_buchungsstelle sh " |
---|
| 101 | ."JOIN ax_buchungsblatt b ON b.gml_id=sh.istbestandteilvon " |
---|
| 102 | ."LEFT JOIN ax_buchungsblattbezirk z ON z.land=b.land AND z.bezirk=b.bezirk " |
---|
[412] | 103 | ."LEFT JOIN ax_buchungsart_buchungsstelle a ON sh.buchungsart = a.wert " // entschl. Buchungsart |
---|
| 104 | ."LEFT JOIN ax_blattart_buchungsblatt w ON b.blattart = w.wert " // entschl. Blatt-Art |
---|
[402] | 105 | ."WHERE sh.gml_id= $1 AND sh.endet IS NULL AND b.endet IS NULL AND z.endet IS NULL;"; |
---|
| 106 | |
---|
| 107 | $v = array($gmlbs); // ID dienende Buchungs-Stelle |
---|
| 108 | $resbs = pg_prepare("", $sqlbs); |
---|
| 109 | $resbs = pg_execute("", $v); |
---|
| 110 | if (!$resbs) { |
---|
| 111 | echo "\n<p class='err'>Fehler bei 'Buchungsstelle ausgeben'.</p>"; |
---|
| 112 | if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sqlbs, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmlbs."'</p>";} |
---|
[362] | 113 | } |
---|
[402] | 114 | $gezeigt=false; // Funktionswert |
---|
| 115 | if ($rowbs = pg_fetch_assoc($resbs)) { // ein Treffer |
---|
| 116 | $blattkeyber=$rowbs["blattart"]; // Schluessel von Blatt-Art des GB |
---|
| 117 | if ($blattkeyber != '5000' or $debug > 1) { // "Fiktives Blatt" nur bei Entwicklung anzeigen |
---|
| 118 | $gezeigt=true; // Funktionswert |
---|
| 119 | $hgml=$rowbs["hgml"]; // GML-ID der (herrschenden) BuchungsStelle |
---|
| 120 | $bartkey=$rowbs["buchungsart"]; // Buchungsart SchlÃŒssel |
---|
[405] | 121 | $bart=$rowbs["bart"]; // Buchungsart Text |
---|
[402] | 122 | $beznam=$rowbs["bezeichnung"]; // Bezirk |
---|
| 123 | $blattartber=$rowbs["blattartv"]; // Wert von Blatt-Art des GB |
---|
| 124 | $nrpl=$rowbs["nrpl"]; // Nr im Auft.plan |
---|
| 125 | $sond=$rowbs["sond"]; // Beschr. d.Sondereigentums |
---|
| 126 | $gbgml=$rowbs["g_gml"]; // GML-ID des Grundbuch-Blattes |
---|
| 127 | $blatt=ltrim($rowbs["blatt"], "0"); |
---|
| 128 | $lfd=ltrim($rowbs["lfd"], "0"); |
---|
| 129 | if ($bartkey != $bartgrp) { // Wechsel der Buchungsart |
---|
| 130 | $barttitle=$rowbs["barttitle"]; // Buchungsart ErklÀrung |
---|
| 131 | switch (true) { // Die Buchungsart einem Typ (Gruppierung) zuweisen |
---|
| 132 | case ($bartkey <= 1999): $barttyp = "E"; break; // Eigentum/GrundstÃŒck |
---|
| 133 | case ($bartkey >= 2000): $barttyp = "R"; break; // GrundstÃŒcksgleiches Recht, z.B. 2101 "Erbbaurecht" |
---|
| 134 | default: $barttyp = "E"; break; |
---|
| 135 | } |
---|
| 136 | if ($barttypgrp != $barttyp) { // Wenn der Typ wechselt, neue Ãberschrift in Tabelle |
---|
| 137 | switch ($barttyp) { // Text der Ãberschrift |
---|
| 138 | case "E": |
---|
| 139 | if ($eig == 'j') {$h3txt = "Buchung und Eigentum";} |
---|
| 140 | else {$h3txt = "Buchung";} |
---|
| 141 | break; |
---|
| 142 | case "R": $h3txt = "Grundstücksgleiche Rechte"; break; |
---|
| 143 | } |
---|
| 144 | if ($barttypgrp == "" and $gml_fs != "") { // die erste Ãberschrift mit ID und Umschalter |
---|
| 145 | 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 |
---|
| 146 | echo "\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>" // 4 |
---|
| 147 | ."\n\t\t\t\t<a href='".$_SERVER['PHP_SELF']. "?gkz=".$gkz."&gmlid=".$gml_fs; |
---|
| 148 | if ($showkey) {echo "&showkey=j";} |
---|
| 149 | if ($eig=="j") { // Umschalter: FS-Nachweis ruft sich selbst mit geaendertem Parameter auf. Positionierung auf Marke "#gb" |
---|
| 150 | echo "&eig=n#gb' title='Umschalter: Flurstücksnachweis'>ohne Eigentümer</a>"; |
---|
| 151 | } else { |
---|
| 152 | echo "&eig=j#gb' title='Umschalter: Flurstücks- und Eigentümernachweis'>mit Eigentümer " |
---|
| 153 | ."<img src='ico/EigentuemerGBzeile.png' width='16' height='16' alt=''></a>"; |
---|
| 154 | } |
---|
| 155 | echo "\n\t\t\t</p>\n\t\t</td>"; |
---|
| 156 | } else { |
---|
| 157 | 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 |
---|
| 158 | } |
---|
| 159 | echo "\n\t</tr>"; |
---|
| 160 | $barttypgrp = $barttyp; |
---|
| 161 | } |
---|
[387] | 162 | |
---|
[404] | 163 | // +++ mehr Abstand oben zur Zeile in .css? |
---|
[402] | 164 | echo "\n\t<tr>" // Buchungsart als Zwischenzeile |
---|
| 165 | ."\n\t\t<td class='ll'><img src='ico/Grundbuch.png' width='16' height='16' alt=''> Buchungsart:</td>" // 1 |
---|
| 166 | ."\n\t\t<td colspan='2' title='".$barttitle."'>"; // 2-3 |
---|
| 167 | if ($showkey) {echo "<span class='key'>(".$bartkey.")</span> ";} |
---|
| 168 | echo "<span class='wichtig'>".$bart."</span>" |
---|
| 169 | ."</td>" |
---|
| 170 | ."\n\t\t<td></td>" // 4 |
---|
| 171 | ."\n\t</tr>"; |
---|
| 172 | $bartgrp=$bartkey; // Gruppe merken |
---|
| 173 | } // Ende Wechsel der Buchungsart |
---|
[387] | 174 | |
---|
[405] | 175 | echo "\n\t<tr>" // Zeile mit 4 Spalten fÃŒr Buchung und EigentÃŒmer |
---|
[402] | 176 | ."\n\t\t<td class='ll'><img src='ico/Grundbuch_zu.png' width='16' height='16' alt=''> Buchung:"; // 1 |
---|
| 177 | if ($showkey and $debug > 2) {echo "<br><span class='key'>Stufe ".$stufe."<br>".$hgml."</span> ";} |
---|
| 178 | echo "</td>\n\t\t<td colspan='2'>"; // 2-3 |
---|
[387] | 179 | |
---|
[402] | 180 | // innere Tabelle: Rahmen mit GB-Kennz. |
---|
| 181 | if ($blattkeyber == 1000) { |
---|
| 182 | echo "\n\t\t\t<table class='kennzgb' title='Bestandskennzeichen'>"; |
---|
| 183 | } else { |
---|
| 184 | echo "\n\t\t\t<table class='kennzgbf' title='Bestandskennzeichen'>"; // dotted |
---|
| 185 | } |
---|
| 186 | echo "\n\t\t\t<tr>" |
---|
| 187 | ."\n\t\t\t\t<td class='head'>Bezirk</td>" |
---|
| 188 | ."\n\t\t\t\t<td class='head'>"; |
---|
| 189 | if ($showkey) {echo "<span class='key'>".$blattkeyber."</span> ";} |
---|
| 190 | echo $blattartber."</td>" |
---|
| 191 | ."\n\t\t\t\t<td class='head'>Lfd-Nr</td>" |
---|
| 192 | ."\n\t\t\t</tr>"; |
---|
[405] | 193 | |
---|
| 194 | if ($trtyp == 3) { // Treffer-Grundst. einfÀrben |
---|
| 195 | echo "\n\t\t\t<tr class='paa'>"; |
---|
| 196 | } else { |
---|
| 197 | echo "\n\t\t\t<tr>"; |
---|
| 198 | } |
---|
| 199 | echo "\n\t\t\t\t<td title='Grundbuchbezirk'>"; |
---|
[402] | 200 | if ($showkey) {echo "<span class='key'>".$rowbs["bezirk"]."</span><br>";} |
---|
| 201 | echo $beznam."</td>" |
---|
| 202 | ."\n\t\t\t\t<td title='Grundbuch-Blatt'><span class='wichtig'>".$blatt."</span></td>" |
---|
| 203 | ."\n\t\t\t\t<td title='Bestandsverzeichnis-Nummer (BVNR, Grundstück)'>".$lfd."</td>" |
---|
| 204 | ."\n\t\t\t</tr>" |
---|
| 205 | ."\n\t\t\t</table>"; |
---|
[387] | 206 | |
---|
[402] | 207 | if ($rowbs["zaehler"] <> "") { |
---|
| 208 | echo "\n\t\t\t<p class='ant'>".$rowbs["zaehler"]."/".$rowbs["nenner"]." Anteil am Flurstück</p>"; |
---|
| 209 | } |
---|
| 210 | if ($nrpl != "") { |
---|
| 211 | echo "\n\t\t\t<p class='nrap' title='Nummer im Aufteilungsplan'>Nummer <span class='wichtig'>".$nrpl."</span> im Aufteilungsplan.</p>"; |
---|
| 212 | } |
---|
| 213 | if ($sond != "") { |
---|
| 214 | echo "\n\t\t\t<p class='sond' title='Sondereigentum'>Verbunden mit dem Sondereigentum: ".$sond."</p>"; |
---|
| 215 | } |
---|
| 216 | echo "\n\t\t</td>"; // 2-3 |
---|
| 217 | |
---|
| 218 | echo "\n\t\t<td>"; // 4 |
---|
| 219 | echo "\n\t\t\t<p class='nwlink noprint'>"; |
---|
[405] | 220 | // Bestand |
---|
[402] | 221 | if ($showkey) {echo "<span class='key'>".$blattkeyber."</span> ";} |
---|
| 222 | $url="alkisbestnw.php?gkz=".$gkz."&gmlid=".$gbgml; |
---|
| 223 | if ($showkey) {$url.="&showkey=j";} |
---|
| 224 | if ($jsfenster) {$url="javascript:imFenster(\"".$url."\")";} // Sonderfall "Inlay" aus Feature-Info |
---|
[405] | 225 | echo "\n\t\t\t\t<a href='".$url."' title='Grundbuchnachweis'>".$blattartber |
---|
[402] | 226 | ." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''>" |
---|
| 227 | ."</a>"; |
---|
[405] | 228 | // Buchung |
---|
| 229 | if ($trtyp == 1) { |
---|
| 230 | echo "<br>"; |
---|
| 231 | if ($showkey) {echo "<span class='key'>".$bartkey."</span> ";} |
---|
| 232 | $url="alkisgsnw.php?gkz=".$gkz."&gmlid=".$hgml; |
---|
| 233 | if ($showkey) {$url.="&showkey=j";} |
---|
| 234 | if ($jsfenster) {$url="javascript:imFenster(\"".$url."\")";} |
---|
| 235 | echo "\n\t\t\t\t<a href='".$url."' title='GrundstÃŒcksnachweis: ".$bart."'>Buchung" |
---|
| 236 | ." <img src='ico/Grundstueck_Link.png' width='16' height='16' alt=''>" |
---|
| 237 | ."</a>"; |
---|
| 238 | } |
---|
[402] | 239 | echo "\n\t\t\t</p>" |
---|
| 240 | ."\n\t\t</td>" // 4 |
---|
| 241 | ."\n\t</tr>"; |
---|
| 242 | if ($eig == "j") { |
---|
| 243 | if ($jsfenster) {$lnkclass = "imFenster";} else {$lnkclass = "";} |
---|
| 244 | $n = eigentuemer($gbgml, true, $lnkclass); // mit Adresse |
---|
| 245 | } |
---|
[387] | 246 | } |
---|
[362] | 247 | } |
---|
[402] | 248 | pg_free_result($resbs); |
---|
| 249 | return $gezeigt; // true wenn eine Buchung ausgegeben wurde |
---|
[387] | 250 | } |
---|
| 251 | |
---|
[405] | 252 | function ber_bs_anzg($gmls, $eig, $jsfenster, $gml_fs, $gsanfrd) { |
---|
[402] | 253 | // In einem FS-Nachw. die berechtigten (herrschenden) Buchungsstellen anzeigen z.B. "Wohnungs-/Teileigentum". |
---|
| 254 | // Parameter: |
---|
| 255 | // $gmls: GML-ID der dienenden Buchungs-Stelle. Im ersten Durchlauf also, die BS auf der das FS gebucht ist. |
---|
| 256 | // $eig: EigentÃŒmer ausgeben j/n |
---|
[404] | 257 | // $jsfenster: Javascript-Funktion zum Verlassen des Feature-Info-Fensters verwenden (bool) |
---|
| 258 | // $gml_fs: GML-ID des FlurstÃŒcke (nur bei erstem Aufruf in einem FS-Nachweis notwendig) |
---|
[405] | 259 | // $gsanfrd: In einem GS-Nachw. die GML-ID der in de URL angeforderten Buchungsstelle (-> Hervorhebung) |
---|
| 260 | global $debug, $gezeigt; |
---|
[387] | 261 | |
---|
[402] | 262 | // sh=Buchungstelle herrschend >(Recht)an> sd=Buchungstelle dienend >istBestandteilVon> BLATT -> Bezirk |
---|
| 263 | $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, " |
---|
| 264 | ."b.gml_id AS g_gml, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung as blatt, b.blattart " |
---|
| 265 | ."FROM ax_buchungsstelle sh JOIN ax_buchungsblatt b ON b.gml_id=sh.istbestandteilvon " |
---|
| 266 | ."WHERE $1 = ANY(sh.an) AND sh.endet IS NULL AND b.endet IS NULL " |
---|
| 267 | ."ORDER BY b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung, sh.laufendenummer;"; |
---|
[387] | 268 | |
---|
[402] | 269 | $v = array($gmls); // ID dienende BuchungsStelle |
---|
[387] | 270 | $resber = pg_prepare("", $sql); |
---|
| 271 | $resber = pg_execute("", $v); |
---|
| 272 | if (!$resber) { |
---|
| 273 | echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen'.</p>"; |
---|
| 274 | if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmls."'</p>";} |
---|
[362] | 275 | } |
---|
[387] | 276 | $an=0; |
---|
[402] | 277 | $verfolg=array(); // Ein (zunÀchst leeres) Array fÌr weitere GML-IDs anlegen |
---|
| 278 | while($rowan = pg_fetch_assoc($resber)) { // Loop durch Result von berechtigte BS |
---|
| 279 | $hgml=$rowan["hgml"]; // GML-ID der berechtigten Buchungs-Stelle |
---|
[405] | 280 | |
---|
| 281 | if ($hgml == $gsanfrd) { |
---|
| 282 | $trtyp=3; // einfÀrben, o. Lnk. |
---|
| 283 | } else { |
---|
| 284 | if ($gezeigt) { |
---|
| 285 | $trtyp=2; // ohne Link auf GS |
---|
| 286 | } else { // Wenn Stufe 1 "Fiktives Blatt" war, welches ausgeblendet wurde, dann auf Stufe 2 einen GS-Link ausgeben |
---|
| 287 | $trtyp=1; // mit Link auf GS |
---|
| 288 | } |
---|
| 289 | } |
---|
| 290 | $gezeigt2=buchung_anzg($hgml, $eig, $jsfenster, $gml_fs, $trtyp); // Die herrschende Buchung anzeigen wenn nicht fiktiv |
---|
[402] | 291 | $an++; |
---|
| 292 | $weitere=ber_bs_zaehl($hgml); |
---|
| 293 | if ($weitere > 0) { // gibt es WEITERE berechtigte Buchungen dazu? |
---|
| 294 | $verfolg[] = $hgml; // neuen Wert fÃŒr weitere Verfolgung in Array anfÃŒgen |
---|
[387] | 295 | } |
---|
| 296 | } |
---|
| 297 | pg_free_result($resber); |
---|
[402] | 298 | return $verfolg; // weitere zu verfolgende GML-ID zurÃŒck geben |
---|
[362] | 299 | } |
---|
| 300 | |
---|
| 301 | function kurz_namnr($lang) { |
---|
| 302 | // Namensnummer kÌrzen. Nicht benötigte Stufen der Dezimalklassifikation abschneiden |
---|
| 303 | $kurz=str_replace(".00","",$lang); // leere Stufen (nur am Ende) |
---|
| 304 | $kurz=str_replace("0000","",$kurz); // ganz leer (am Anfang) |
---|
[402] | 305 | $kurz=ltrim($kurz, "0"); // fuehr. Nullen |
---|
| 306 | $kurz=str_replace(".0",".",$kurz); // fuehr. Null jeder Stufe |
---|
[377] | 307 | $kurz=rtrim($kurz); // Leerzeichen hinten |
---|
| 308 | // echo "/n<p class='dbg'> lang='".$lang."'</p>/n<p class='dbg'> kurz='".$kurz."'</p>"; |
---|
[362] | 309 | return $kurz; |
---|
| 310 | } |
---|
| 311 | |
---|
[405] | 312 | function bnw_fsdaten($lfdnr, $gml_bs, $ba, $anteil, $bvnraus, $bartkey, $bartstory) { |
---|
[362] | 313 | /* Bestandsnachweis - Flurstuecksdaten |
---|
[405] | 314 | Die Tabellenzeilen mit den Flurstuecksdaten zu EINER Buchungsstelle im Bestandsnachweis ausgeben. |
---|
[362] | 315 | Die Funktion wird je einmal aufgerufen fÃŒr die Buchungen direkt auf dem GB (Normalfall). |
---|
| 316 | Weiterere Aufrufe ggf. bei Erbbaurecht fÃŒr die mit "an" verknuepften Buchungsstellen. |
---|
[405] | 317 | Tabellenkopf wird im aufrufenden Programm ausgegeben. */ |
---|
| 318 | global $debug, $gkz, $showkey, $filtkreis, $filtgem, $trclass; |
---|
[362] | 319 | |
---|
| 320 | // F L U R S T U E C K |
---|
[405] | 321 | $sql="SELECT g.gemarkungsnummer, g.bezeichnung, f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.amtlicheflaeche " |
---|
| 322 | ."FROM ax_flurstueck f LEFT JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer " |
---|
| 323 | ."WHERE f.endet IS NULL AND g.endet IS NULL AND f.istgebucht = $1 "; |
---|
[377] | 324 | if ($filtgem == '' ) { // ungefiltert |
---|
| 325 | $v=array($gml_bs); |
---|
| 326 | } else { |
---|
[412] | 327 | $sql.="AND f.gemeindezugehoerigkeit_kreis = $2 AND f.gemeindezugehoerigkeit_gemeinde = $3 "; // ZustÀndiges Gebiet |
---|
[377] | 328 | $v=array($gml_bs, $filtkreis, $filtgem); |
---|
| 329 | } |
---|
| 330 | $sql.="ORDER BY f.gemarkungsnummer, f.flurnummer, f.zaehler, f.nenner;"; |
---|
[362] | 331 | $resf = pg_prepare("", $sql); |
---|
| 332 | $resf = pg_execute("", $v); |
---|
[387] | 333 | if (!$resf) {echo "\n<p class='err'>Fehler bei Flurstück</p>";} |
---|
[362] | 334 | |
---|
| 335 | if($bvnraus) { // nur bei direkten Buchungen die lfdNr ausgeben |
---|
| 336 | $bvnr=str_pad($lfdnr, 4, "0", STR_PAD_LEFT); |
---|
[377] | 337 | } else { |
---|
| 338 | $bvnr=""; |
---|
[362] | 339 | } |
---|
[405] | 340 | $altbvnr=""; // ++ besser mit "$j == 0" steuern? |
---|
[362] | 341 | $j=0; |
---|
[402] | 342 | while($rowf = pg_fetch_assoc($resf)) { |
---|
| 343 | $flur= $rowf["flurnummer"]; |
---|
[362] | 344 | $fskenn=$rowf["zaehler"]; |
---|
[387] | 345 | if ($rowf["nenner"] != "") { // Bruch |
---|
[362] | 346 | $fskenn.="/".$rowf["nenner"]; |
---|
| 347 | } |
---|
| 348 | $flae=number_format($rowf["amtlicheflaeche"],0,",",".") . " m²"; |
---|
| 349 | |
---|
[387] | 350 | echo "\n<tr class='".$trclass."'>"; // eine Zeile je Flurstueck |
---|
[362] | 351 | // Sp. 1-3 der Tab. aus Buchungsstelle, nicht aus FS |
---|
[387] | 352 | if($bvnr == $altbvnr) { // gleiches Grundstueck, leer lassen |
---|
[362] | 353 | echo "\n\t<td> </td>" |
---|
| 354 | ."\n\t<td> </td>" |
---|
| 355 | ."\n\t<td> </td>"; |
---|
| 356 | } else { // Sprungmarke, BVNR |
---|
[387] | 357 | echo "\n\t<td id='bvnr".$bvnr."'>"; // Sprungmarke |
---|
| 358 | // echo "\n\t\t<a id='bvnr".$bvnr."'></a>"; |
---|
| 359 | echo "<span class='wichtig'>".$bvnr."</span>" |
---|
| 360 | ."\n\t</td>"; |
---|
[362] | 361 | |
---|
| 362 | echo "\n\t<td title ='".$bartstory."'>"; // Buchungsart |
---|
| 363 | if ($showkey) {echo "<span class='key'>".$bartkey."</span> ";} // Schluessel |
---|
| 364 | echo $ba; // entschluesselt |
---|
| 365 | echo "</td>" |
---|
| 366 | ."\n\t<td> </td>"; // Anteil |
---|
| 367 | } |
---|
[387] | 368 | |
---|
| 369 | // Sp. 4-7 aus Flurstueck |
---|
[362] | 370 | echo "\n\t<td>"; |
---|
| 371 | if ($showkey) {echo "<span class='key'>".$rowf["gemarkungsnummer"]."</span> ";} |
---|
| 372 | echo $rowf["bezeichnung"]."</td>" |
---|
| 373 | ."\n\t<td>".$flur."</td>" |
---|
| 374 | ."\n\t<td class='fsnr'><span class='wichtig'>".$fskenn."</span>" |
---|
| 375 | ."</td>" |
---|
[387] | 376 | ."\n\t<td class='flag'>".$flae."</td>"; // "width" hier (flaG) erweiterbar, weil in andere Zeile die Buchungsart steht |
---|
[405] | 377 | echo "\n\t<td>\n\t\t<p class='nwlink noprint'>"; |
---|
| 378 | // if($bvnr != $altbvnr) { |
---|
| 379 | if($j == 0) { |
---|
| 380 | echo "\n\t\t\t<a href='alkisgsnw.php?gkz=".$gkz."&gmlid=".$gml_bs; |
---|
| 381 | if ($showkey) {echo "&showkey=j";} |
---|
| 382 | echo "' title='Grundstücksnachweis'>Buchung " |
---|
| 383 | ."<img src='ico/Grundstueck_Link.png' width='16' height='16' alt=''>" |
---|
| 384 | ."</a>"; |
---|
[362] | 385 | |
---|
[405] | 386 | } |
---|
| 387 | echo "\n\t\t\t<a href='alkisfsnw.php?gkz=".$gkz."&gmlid=".$rowf["gml_id"]."&eig=n"; |
---|
[362] | 388 | if ($showkey) {echo "&showkey=j";} |
---|
| 389 | echo "' title='Flurstücksnachweis'>Flurstück " |
---|
| 390 | ."<img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''>" |
---|
| 391 | ."</a>" |
---|
[405] | 392 | ."\n\t\t</p>\n\t</td>" |
---|
[362] | 393 | ."\n</tr>"; |
---|
[405] | 394 | $altbvnr=$bvnr; |
---|
[362] | 395 | $j++; |
---|
[387] | 396 | } // Ende Loop Flurstueck |
---|
[362] | 397 | pg_free_result($resf); |
---|
| 398 | return $j; |
---|
| 399 | } |
---|
| 400 | |
---|
[387] | 401 | function eigentuemer($gmlid, $mitadresse, $lnkclass) { |
---|
[362] | 402 | // Tabelle mit Eigentuemerdaten zu einem Grundbuchblatt ausgeben |
---|
[402] | 403 | // Sp.1="EigentÃŒmer" Sp.2=NamNr, Sp.3=Name/Adresse, Sp.4=Link |
---|
[362] | 404 | // Parameter: |
---|
| 405 | // $gmlid = ID GB-Blattes |
---|
| 406 | // $mitadresse = Option (true/false) ob die Adresszeile ausgegeben werden soll |
---|
| 407 | // Return = Anzahl Namensnummern |
---|
| 408 | |
---|
| 409 | // Schleife 1: N a m e n s n u m m e r |
---|
| 410 | // Beziehung: ax_namensnummer >istBestandteilVon> ax_buchungsblatt |
---|
| 411 | global $debug, $gkz, $showkey; |
---|
| 412 | |
---|
| 413 | if ($lnkclass == "") { |
---|
| 414 | $lnkvor = ""; |
---|
| 415 | $lnknach = ""; |
---|
[402] | 416 | } else { // Link ÃŒber Java-Class "imFenster" aus alkisinlayausk.php |
---|
[362] | 417 | $lnkvor = "javascript:".$lnkclass."(\""; |
---|
| 418 | $lnknach = "\")"; |
---|
[402] | 419 | } |
---|
[362] | 420 | |
---|
[412] | 421 | $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 " |
---|
[387] | 422 | ."FROM ax_namensnummer n " |
---|
[412] | 423 | ."LEFT JOIN ax_artderrechtsgemeinschaft_namensnummer wn ON n.artderrechtsgemeinschaft = wn.wert " |
---|
| 424 | ."LEFT JOIN ax_eigentuemerart_namensnummer we ON n.eigentuemerart = we.wert " |
---|
[387] | 425 | ."WHERE n.istbestandteilvon= $1 AND n.endet IS NULL ORDER BY n.laufendenummernachdin1421;"; |
---|
[402] | 426 | // +++ LEFT JOIN bis ax_Person statt Person als Schleife zu holen, |
---|
| 427 | // VerknÃŒpfungsfeld "benennt" ist leer bei "Beschrieb der Rechtsgemeinschaft". |
---|
[362] | 428 | |
---|
[402] | 429 | $v = array($gmlid); // GB-Blatt |
---|
[362] | 430 | $resn = pg_prepare("", $sqln); |
---|
| 431 | $resn = pg_execute("", $v); |
---|
| 432 | |
---|
| 433 | if (!$resn) { |
---|
[402] | 434 | echo "\n<p class='err'>Fehler bei Eigentümer</p>"; // kein Fehler bei Blattarten > 1000 |
---|
[389] | 435 | //if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".$sqln."<br>$1=gml= '".$gmlid."'</p>";} |
---|
[362] | 436 | } |
---|
| 437 | |
---|
| 438 | $n=0; // Z.NamNum. |
---|
[402] | 439 | while($rown = pg_fetch_assoc($resn)) { |
---|
[362] | 440 | $gmlnn=$rown["gml_id"]; |
---|
[377] | 441 | $namnum=kurz_namnr($rown["lfd"]); |
---|
| 442 | $rechtsg=$rown["adr"]; |
---|
[402] | 443 | echo "\n\t<tr>"; |
---|
| 444 | if($n == 0) { // erste EigentÃŒmer-Zeile zu einer Buchung |
---|
| 445 | echo "\n\t\t<td class='ll'><img src='ico/Eigentuemer_2.png' width='16' height='16' alt=''> Eigentümer:</td>"; // 1 |
---|
| 446 | } else { // Folgezeile |
---|
| 447 | echo "\n\t\t<td class='ll'> </td>"; // 1 |
---|
| 448 | } |
---|
| 449 | |
---|
| 450 | if ($rechtsg != "" ) { // Erbengemeinschaft usw. |
---|
| 451 | echo "\n\t\t<td colspan='2'>"; // 2-3 |
---|
[362] | 452 | if ($rechtsg == 9999) { // sonstiges |
---|
[402] | 453 | echo "\n\t\t\t<p class='zus' title='Beschrieb der Rechtsgemeinschaft'>".htmlentities($rown["beschr"], ENT_QUOTES, "UTF-8")."</p>"; |
---|
[362] | 454 | } else { |
---|
[402] | 455 | echo "\n\t\t\t<p class='zus' title='Art der Rechtsgemeinschaft'>".htmlentities($rown["adrv"], ENT_QUOTES, "UTF-8")."</p>"; |
---|
[362] | 456 | } |
---|
[402] | 457 | } else { // Namensnummer |
---|
| 458 | echo "\n\t\t<td class='nanu' title='Namens-Nummer'>\n\t\t\t<p>".$namnum." </p>\n\t\t</td>" // 2 |
---|
| 459 | . "\n\t\t<td>"; // 3 |
---|
| 460 | |
---|
[362] | 461 | } |
---|
[402] | 462 | //if ($rown["anlass"] > 0 ) {echo "<p>Anlass=".$rown["anlass"]."</p>";} |
---|
[362] | 463 | |
---|
[402] | 464 | // Andere Namensnummern? Relation: ax_namensnummer >bestehtAusRechtsverhaeltnissenZu> ax_namensnummer |
---|
| 465 | // Die Relation 'Namensnummer' besteht aus RechtsverhÀltnissen zu 'Namensnummer' sagt aus, dass mehrere Namensnummern zu einer Rechtsgemeinschaft gehören können. |
---|
| 466 | // Die Rechtsgemeinschaft selbst steht unter einer eigenen AX_Namensnummer, die zu allen Namensnummern der Rechtsgemeinschaft eine Relation besitzt. |
---|
[362] | 467 | |
---|
| 468 | // Schleife 2: P e r s o n |
---|
[402] | 469 | // +++ bei SQL Namensnummer oben gleich mit JOIN dazu holen, statt dieser Schleife |
---|
[362] | 470 | // Beziehung: ax_person <benennt< ax_namensnummer |
---|
[402] | 471 | $sqlp="SELECT nachnameoderfirma, vorname, geburtsname, to_char(cast(geburtsdatum AS date),'DD.MM.YYYY') AS geburtsdatum, namensbestandteil, akademischergrad " |
---|
[364] | 472 | ."FROM ax_person WHERE gml_id= $1 AND endet IS NULL;"; |
---|
[402] | 473 | $gmlpers=$rown["benennt"]; // leer bei RechtsverhÀltnis |
---|
[364] | 474 | $v = array($gmlpers); // gml_id von ax_person |
---|
[362] | 475 | $resp = pg_prepare("", $sqlp); |
---|
| 476 | $resp = pg_execute("", $v); |
---|
| 477 | if (!$resp) { |
---|
[387] | 478 | echo "\n\t<p class='err'>Fehler bei Person</p>"; |
---|
| 479 | if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqlp."<br>$1=gml= '".$gmlpers."'</p>";} |
---|
[362] | 480 | } |
---|
| 481 | |
---|
| 482 | $i=0; // cnt Person |
---|
[402] | 483 | while($rowp = pg_fetch_assoc($resp)) { // Schleife weglassen: "benennt" ist KEIN Array! |
---|
[377] | 484 | $diePerson=""; //++ Anrede? |
---|
[362] | 485 | if ($rowp["akademischergrad"] <> "") {$diePerson=$rowp["akademischergrad"]." ";} |
---|
| 486 | $diePerson.=$rowp["nachnameoderfirma"]; |
---|
| 487 | if ($rowp["vorname"] <> "") {$diePerson.=", ".$rowp["vorname"];} |
---|
| 488 | if ($rowp["namensbestandteil"] <> "") {$diePerson.=". ".$rowp["namensbestandteil"];} |
---|
| 489 | if ($rowp["geburtsdatum"] <> "") {$diePerson.=", geb. ".$rowp["geburtsdatum"];} |
---|
| 490 | if ($rowp["geburtsname"] <> "") {$diePerson.=", geb. ".$rowp["geburtsname"];} |
---|
| 491 | $diePerson=htmlentities($diePerson, ENT_QUOTES, "UTF-8"); // Umlaute |
---|
| 492 | $eiartkey=$rown["eigentuemerart"]; // Key |
---|
| 493 | $eiart=$rown["eiartv"]; // Value |
---|
| 494 | |
---|
[402] | 495 | echo "\n\t\t\t<p class='geig' title='Eigentümerart: ".$eiart."'>".$diePerson."</p>\n\t\t</td>"; // 3 - Person in Sp.3 hinter NamNum (Sp.2) |
---|
| 496 | echo "\n\t\t<td>\n\t\t\t<p class='nwlink noprint'>"; // 4 |
---|
| 497 | if ($showkey AND $eiartkey != '') {echo "<span class='key' title='Eigentümerart'>".$eiartkey."</span> ";} |
---|
| 498 | echo "\n\t\t\t\t<a href='".$lnkvor."alkisnamstruk.php?gkz=".$gkz."&gmlid=".$gmlpers; |
---|
[387] | 499 | if ($showkey) {echo "&showkey=j";} |
---|
[398] | 500 | if ($eiartkey == "") {$eiart="Eigentümer" ;} // Default. Ersatz-Text, wenn nicht gefÃŒllt |
---|
[377] | 501 | echo $lnknach."' title='vollständiger Name und Adresse eines Eigentümers'>".$eiart |
---|
[402] | 502 | ." <img src='ico/Eigentuemer.png' width='16' height='16' alt=''></a>\n\t\t\t</p>" |
---|
| 503 | ."\n\t\t</td>" // 4 |
---|
| 504 | ."\n\t</tr>"; |
---|
[362] | 505 | |
---|
| 506 | if ($mitadresse) { |
---|
[402] | 507 | // Schleife 3: optional A d r e s s e zur Person |
---|
[362] | 508 | $sqla ="SELECT a.gml_id, a.ort_post, a.postleitzahlpostzustellung AS plz, a.strasse, a.hausnummer, a.bestimmungsland " |
---|
[398] | 509 | ."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;"; |
---|
[402] | 510 | $v = array($gmlpers); |
---|
[362] | 511 | $resa = pg_prepare("", $sqla); |
---|
| 512 | $resa = pg_execute("", $v); |
---|
| 513 | if (!$resa) { |
---|
[387] | 514 | echo "\n\t<p class='err'>Fehler bei Adressen</p>"; |
---|
[402] | 515 | if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqla."<br>$1=gml= '".$gmlpers."'</p>";} |
---|
[362] | 516 | } |
---|
| 517 | $j=0; |
---|
[402] | 518 | while($rowa = pg_fetch_assoc($resa)) { |
---|
[362] | 519 | $j++; |
---|
[398] | 520 | if ($j == 1) { // erste ("jÃŒngste") Adresse anzeigen |
---|
[362] | 521 | $gmla=$rowa["gml_id"]; |
---|
| 522 | $plz=$rowa["plz"]; // integer |
---|
| 523 | if($plz == 0) { |
---|
| 524 | $plz=""; |
---|
| 525 | } else { |
---|
| 526 | $plz=str_pad($plz, 5, "0", STR_PAD_LEFT); |
---|
| 527 | } |
---|
| 528 | $ort=htmlentities($rowa["ort_post"], ENT_QUOTES, "UTF-8"); |
---|
| 529 | $str=htmlentities($rowa["strasse"], ENT_QUOTES, "UTF-8"); |
---|
| 530 | $hsnr=$rowa["hausnummer"]; |
---|
| 531 | $land=htmlentities($rowa["bestimmungsland"], ENT_QUOTES, "UTF-8"); |
---|
| 532 | |
---|
[402] | 533 | echo "\n\t<tr>" |
---|
| 534 | ."\n\t\t<td class='ll'> </td>" // 1 |
---|
| 535 | ."\n\t\t<td> </td>" // 2 |
---|
| 536 | ."\n\t\t<td><p class='gadr'>"; // 3 |
---|
| 537 | if ($str.$hsnr != "") {echo $str." ".$hsnr."<br>";} |
---|
| 538 | if ($plz.$ort != "") {echo $plz." ".$ort;} |
---|
| 539 | if ($land != "" and $land != "DEUTSCHLAND") {echo ", ".$land;} |
---|
| 540 | echo "</p></td>" // 3 |
---|
| 541 | ."\n\t\t<td> </td>\n\t</tr>"; // 4 |
---|
[398] | 542 | } else { // manchmal doppelte Angaben |
---|
[402] | 543 | echo "\n\t<tr>" |
---|
| 544 | ."\n\t\t<td class='ll'> </td>" // 1 |
---|
| 545 | ."\n\t\t<td> </td>" // 2 |
---|
| 546 | ."\n\t\t<td><p class='dbg' title='Siehe Auskunft zur Person'>weitere Adresse</p></td>" // 3 |
---|
| 547 | ."\n\t\t<td> </td>\n\t</tr>"; // 4 |
---|
[362] | 548 | } |
---|
[402] | 549 | } // Ende Loop Adresse zur Person |
---|
[362] | 550 | pg_free_result($resa); |
---|
| 551 | } |
---|
| 552 | // 'keine Adresse' kann vorkommen, z.B. "Deutsche Telekom AG" |
---|
| 553 | $i++; // cnt Person |
---|
| 554 | |
---|
| 555 | $zaehler=$rown["zaehler"]; |
---|
[402] | 556 | if ($zaehler != "") { // Anteil als eigene Tab-Zeile |
---|
[362] | 557 | $zaehler=str_replace(".", ",", $zaehler); // Dezimal-KOMMA wenn dem Notar der Bruch nicht reicht |
---|
| 558 | $nenner=str_replace(".", ",", $rown["nenner"]); |
---|
| 559 | $comnt="Anteil der Berechtigten in Bruchteilen (Par. 47 GBO) an einem gemeinschaftlichen Eigentum (Grundstück oder Recht)."; |
---|
[402] | 560 | echo "\n\t<tr>" |
---|
| 561 | ."\n\t\t<td class='ll'> </td>" // 1 |
---|
| 562 | ."\n\t\t<td> </td>" // 2 |
---|
| 563 | ."\n\t\t<td><p class='avh' title='".$comnt."'>".$zaehler."/".$nenner." Anteil</p></td>" // 3 |
---|
| 564 | ."\n\t\t<td> </td>\n\t</tr>"; // 4 |
---|
[362] | 565 | } |
---|
| 566 | } // End Loop Person |
---|
[402] | 567 | pg_free_result($resp); |
---|
| 568 | |
---|
| 569 | if ($i == 0) { // KEINE Person. benennt ist leer. Das kommt vor hinter der Zeile "Erbengemeinschaft" und ist dann KEIN Fehler |
---|
| 570 | if ($rechtsg == 9999) { |
---|
| 571 | if ($debug > 1) {echo "\n\t\t\t<p class='dbg'>Rechtsgemeinschaft = '".$rechtsg."'</p>";} |
---|
| 572 | } else { |
---|
[364] | 573 | echo "\n<p class='err'>(Die Person mit der ID '".$gmlpers."' fehlt im Datenbestand)</p>"; |
---|
[362] | 574 | } |
---|
[402] | 575 | echo "</td>\n\t\t<td> </td>\n\t</tr>"; |
---|
[362] | 576 | } |
---|
| 577 | $n++; // cnt NamNum |
---|
| 578 | } // End Loop NamNum |
---|
[402] | 579 | |
---|
[362] | 580 | pg_free_result($resn); |
---|
| 581 | return $n; |
---|
[377] | 582 | } // End function eigentuemer |
---|
[362] | 583 | |
---|
[394] | 584 | function werteliste ($element, $bezeichnung ,$sqlin) { |
---|
[412] | 585 | // Eine oder mehrere EntschlÃŒsselungen in eine Zeile ausgeben. |
---|
[394] | 586 | // Dient dazu, SchlÌssel-ARRAYs auflösen ohne die Zeile mehrfach aufzulisten (JOIN) |
---|
| 587 | // Anwendung: FS-Nachweis BodenschÀtzung "Klimastufe + WasserverhÀltnisse" |
---|
[412] | 588 | // 2018-11-09: Umstellung von "alkis_wertearten" auf individuelle Tabellen |
---|
| 589 | |
---|
[394] | 590 | global $debug; |
---|
[412] | 591 | if ($element == 'ax_bodenschaetzung' AND $bezeichnung = 'entstehungsartoderklimastufewasserverhaeltnisse' ) { |
---|
| 592 | $tabelle = 'ax_entstehungsartoderklimastufewasserverhaeltnisse_bodensc'; |
---|
| 593 | } elseif ($element == 'ax_bodenschaetzung' AND $bezeichnung = 'sonstigeangaben' ) { |
---|
| 594 | $tabelle = 'ax_sonstigeangaben_bodenschaetzung'; |
---|
| 595 | } |
---|
| 596 | $sql="SELECT wert, beschreibung FROM ".$tabelle." WHERE wert IN (".$sqlin.") ORDER BY wert LIMIT $1 ;"; |
---|
| 597 | $v = array(100); |
---|
[394] | 598 | $res = pg_prepare("", $sql); |
---|
| 599 | $res = pg_execute("", $v); |
---|
| 600 | if (!$res) { |
---|
[412] | 601 | echo "\n<p class='err'>Fehler bei Werteliste.</p>"; |
---|
[394] | 602 | if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = '".$sqlin."'</p>";} |
---|
| 603 | return; |
---|
| 604 | } |
---|
| 605 | $i=0; |
---|
[402] | 606 | while($row = pg_fetch_assoc($res)) { |
---|
[412] | 607 | echo " ".$row["beschreibung"]; |
---|
[394] | 608 | $i++; |
---|
| 609 | } |
---|
| 610 | pg_free_result($res); |
---|
[412] | 611 | if ($i == 0) {echo "(kein Treffer)";} |
---|
[394] | 612 | return; |
---|
| 613 | } |
---|
| 614 | |
---|
[417] | 615 | function fortfuehrungen($entsteh, $dbzeart, $dbzename) { |
---|
| 616 | // Tabelle im Kopf von FlurstÃŒck und FS-Historie. 2 Z./Sp. Entstehung/FortfÃŒhrung |
---|
| 617 | // Parameter: Die DB-Spalten "zeitpunktderentstehung", "zeigtaufexternes_art" und "zeigtaufexternes_name" |
---|
| 618 | global $debug, $showkey; |
---|
| 619 | |
---|
| 620 | // if ($debug > 2) {echo "<p class='dbg'>function fortfuehrungen<br>1: ".$dbzeart."<br>2: ".$dbzename."</p>";} |
---|
| 621 | |
---|
| 622 | echo "\n\t<table class='fsd'>" // FS-Daten 2 Spalten |
---|
| 623 | ."\n\t\t<tr>\n\t\t\t<td>Entstehung</td>" |
---|
| 624 | ."\n\t\t\t<td title='Zeitpunkt der Enstehung'>".$entsteh."</td>\n\t\t</tr>"; |
---|
| 625 | echo "\n\t<tr>" |
---|
| 626 | ."\n\t\t\t<td>"; |
---|
| 627 | $arrart=explode(",", trim($dbzeart, "{}")); |
---|
| 628 | foreach($arrart AS $artval) { // Zeile fÃŒr jedes Element |
---|
| 629 | $artval=trim($artval, '"'); |
---|
| 630 | // ibR: {"Entstehung des FlurstÃŒcks/5200","Letzte FortfÃŒhrung des FlurstÃŒcks/5300",urn:adv:fachdatenverbindung:AA_Antrag} |
---|
| 631 | // AED: {http://geoportal.kreis-herford.de/alkis/alkis.html#5200,http://geoportal.kreis-herford.de/alkis/alkis.html#5300,urn:adv:fachdatenverbindung:AA_Antrag} |
---|
| 632 | |
---|
| 633 | $artpos=strpos($artval, '#'); |
---|
| 634 | if ($artpos > 0) { // AED |
---|
| 635 | $artkey=substr($artval, $artpos + 1); |
---|
| 636 | switch ($artkey) { // keine SchlÃŒsseltabelle? |
---|
| 637 | case '5100': $arttxt="Grundstückshinweis (aus ALB-Historie)"; break; |
---|
| 638 | case '5200': $arttxt="Entstehung des Flurstücks"; break; |
---|
| 639 | case '5300': $arttxt="Letzte Fortführung des Flurstücks"; break; |
---|
| 640 | default: $arttxt=$artval; |
---|
| 641 | } |
---|
| 642 | if ($showkey) {echo "<span class='key'><a target='_blank' href='".$artval."'>".$artkey."</a></span> ";} |
---|
| 643 | echo $arttxt."<br>"; |
---|
| 644 | } else { |
---|
| 645 | $artpos=strpos($artval, '/'); |
---|
| 646 | if ($artpos > 0) { // ibR |
---|
| 647 | $artkey=substr($artval, $artpos + 1); |
---|
| 648 | $arttxt=substr($artval, 0, $artpos); |
---|
| 649 | if ($showkey) {echo "<span class='key'>".$artkey."</span> ";} |
---|
| 650 | echo $arttxt."<br>"; |
---|
| 651 | } |
---|
| 652 | } |
---|
| 653 | } |
---|
| 654 | echo "</td>" |
---|
| 655 | ."\n\t\t\t<td title='Jahrgang / Fortführungsnummer - Fortführungsart'>"; |
---|
| 656 | $arrname=explode(",", trim($dbzename, "{}")); |
---|
| 657 | foreach($arrname AS $val) { |
---|
| 658 | echo trim($val, '"')."<br>"; |
---|
| 659 | } |
---|
| 660 | echo "</td>" |
---|
| 661 | ."\n\t\t</tr>" |
---|
| 662 | ."\n\t</table>"; |
---|
| 663 | } |
---|
| 664 | |
---|
[419] | 665 | function fskenn_dbformat ($fskennz) { |
---|
| 666 | // Erzeugt, wenn notwendig, aus dem Bindetrich-getrennten FlurstÃŒckskennzeichen "llgggg-fff-nnnn/zz.nn" oder "gggg-ff-nnn/zz" |
---|
| 667 | // das ALKIS-DB-interne Format des FlurstÃŒckskennzeichens. |
---|
| 668 | global $defland; |
---|
| 669 | $arr=explode("-", $fskennz, 4); // zerlegen |
---|
| 670 | $zgemkg=trim($arr[0]); |
---|
| 671 | if (strlen($zgemkg) == 20 and !isset($arr[1])) { |
---|
| 672 | $fskzdb=$zgemkg; // ist schon Datenbank-Feldformat |
---|
| 673 | } else { // Das Kennzeichen auseinander nehmen. |
---|
| 674 | if (strlen($zgemkg) == 6) { |
---|
| 675 | $land=substr($zgemkg, 0, 2); |
---|
| 676 | $zgemkg=substr($zgemkg, 2, 4); |
---|
| 677 | } else { // kein schöner Land .. |
---|
| 678 | $land=$defland; // Default-Land aus config |
---|
| 679 | } |
---|
| 680 | $zflur=str_pad($arr[1], 3 , "0", STR_PAD_LEFT); // Flur-Nr |
---|
| 681 | $zfsnr=trim($arr[2]); // FlurstÃŒcke-Nr |
---|
| 682 | $zn=explode("/", $zfsnr, 2); // Bruch? |
---|
| 683 | $zzaehler=str_pad(trim($zn[0]), 5 , "0", STR_PAD_LEFT); |
---|
| 684 | if (isset($zn[1])) { |
---|
| 685 | $znenner=trim($zn[1]); |
---|
| 686 | } else { |
---|
| 687 | $znenner=""; |
---|
| 688 | } |
---|
| 689 | if (trim($znenner, " 0.") == "") { // kein Bruch oder nur Nullen |
---|
| 690 | $znenner="____"; // in DB-Spalte mit Tiefstrich aufgefÃŒllt |
---|
| 691 | } else { |
---|
| 692 | $zn=explode(".", $znenner, 2); // .00 wegwerfen |
---|
| 693 | $znenner=str_pad($zn[0], 4 , "0", STR_PAD_LEFT); |
---|
| 694 | } |
---|
| 695 | // die Teile stellengerecht wieder zusammen setzen |
---|
| 696 | $fskzdb=$land.$zgemkg.$zflur.$zzaehler.$znenner.'__'; // FS-Kennz. Format Datenbank |
---|
| 697 | } |
---|
| 698 | return $fskzdb; |
---|
| 699 | } |
---|
| 700 | |
---|
[362] | 701 | ?> |
---|