ALKIS Bestandsnachweis

Abbruch

'); } $dbg=$debug; // CONF in Arbeits-Variable // Entwicklungsumgebung (in Conf definiert) ausschalten. if ($nodebug === "j") {$dbg=0;} $con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisbestnw.php'"); if (!$con) echo "\n

Fehler beim Verbinden der DB

"; // G R U N D B U C H $sql="SELECT g.gml_id, g.bezirk, g.buchungsblattnummermitbuchstabenerweiterung AS blatt, g.blattart, wb.beschreibung AS blattartv, wb.dokumentation AS blattartd, b.gml_id, b.bezirk, b.bezeichnung AS beznam, d.gml_id, d.land, d.bezeichnung, d.stelle, d.stellenart, wd.beschreibung AS stellev FROM ax_buchungsblatt g LEFT JOIN ax_buchungsblattbezirk b ON g.land=b.land AND g.bezirk=b.bezirk ".UnqKatAmt("g","b") ."LEFT JOIN ax_dienststelle d ON b.land=d.land AND b.gehoertzu_stelle=d.stelle ".UnqKatAmt("b","d") ."LEFT JOIN ax_blattart_buchungsblatt wb ON g.blattart = wb.wert LEFT JOIN ax_behoerde wd ON d.stellenart = wd.wert WHERE g.gml_id= $1 AND g.endet IS NULL AND b.endet IS NULL AND d.endet IS NULL;"; // .. AND d.stellenart=1000 $v = array($gmlid); $res = pg_prepare("", $sql); $res = pg_execute("", $v); if (!$res) { echo "\n

Fehler bei Grundbuchdaten.

"; if ($dbg > 2) {echo "\n

SQL=
".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."

";} } $zeianz=pg_num_rows($res); if ($dbg > 0) { if ($zeianz > 1){ echo "\n

Die Abfrage liefert mehr als ein (".$zeianz.") Grundbuch-Objekt!

"; if ($dbg > 2) {echo "\n

SQL=
".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."

";} } } if ($zeianz == 0){ echo "\n

Fehler! Kein Treffer für ein Grundbuch-Blatt mit gml_id=".$gmlid."

"; if ($dbg > 2) {echo "\n

SQL=
".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."

";} echo "\n\n"; return; } if ($row = pg_fetch_assoc($res)) { $blattkey=$row["blattart"]; $blattart=$row["blattartv"]; $blatt=ltrim($row["blatt"], "0"); echo "

ALKIS Bestand ".$row["bezirk"]." - ".$blatt."

"; // Balken echo "\n

Grundbuch

"; echo "\n" // Blatt UND Eigent. ."\n\t\n\t\t" ."\n\t\t\n\t\t\n\t"; } pg_free_result($res); if ($blattkey === "5000") { // fikt. Blatt echo "\n

Keine Angaben zum Eigentum bei fiktivem Blatt.

"; } else { // E I G E N T Ü M E R $n = eigentuemer($gmlid, true, ""); // MIT Adressen. if ($n === 0) { // keine NamensNr, kein Eigentuemer echo "\n

Keine Namensnummer gefunden.

" ."\n

Bezirk: ".$row["bezirk"].", Blatt: ".$blatt.", Blattart ".$blattkey." (".$blattart.")

"; } } echo "\n

Blatt:

"; // Outer Mitte, Kennz. im Rahmen if ($blattkey === "1000") { echo "\n\t\t\t"; } else { echo "\n\t\t\t

"; // dotted } echo "\n\t\t\t" ."\n\t\t\t"; echo "\n\t\t\t" ."\n\t\t\t\t" ."\n\t\t\t\n\t\t\t" ."\n\t\t\t\t" ."\n\t\t\t\t" ."\n\t\t\t\t" ."\n\t\t\t" ."\n\t\t\t

"; if ($showkey) {echo "".$row["stellenart"]." ";} echo $row["stellev"]."	Bezirk	"; if ($showkey) {echo "".$blattkey." ";} echo $blattart."
"; if ($showkey) {echo "".$row["stelle"]." ";} echo htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8")."	"; if ($showkey) {echo "".$row["bezirk"]." ";} echo htmlentities($row["beznam"], ENT_QUOTES, "UTF-8")."	".$blatt."

" ."\n\t\t

"; // Vorab eine Tiefbohrung zur Sondierung von (potentiell) herrschend bis dienend über max. 4 Buchungs-Stellen. // Diese Zählung sagt nur aus, ob es "generell" solche Fälle auf diesem Grundbuch gibt (ist selten). // In jedem einzelnen Zweig der Buchungen muss aber individuell danach gesucht werden. // Die Relation "zu" ist hier einbezogen, wird aber später nicht ausgewertet. Hier könnte man die Differenz erkennen falls "zu" doch mal auftaucht. $sql ="SELECT count(s2.laufendenummer) AS anz2"; if ($dbg > 1) {$sql.=", count(s3.laufendenummer) AS anz3, count(s4.laufendenummer) AS anz4";} $sql.=" FROM ax_buchungsstelle sh " // herrschend ."LEFT JOIN ax_buchungsstelle s2 ON (s2.gml_id=ANY(sh.an) OR s2.gml_id=ANY(sh.zu)) "; if ($dbg > 1) { $sql.="LEFT JOIN ax_buchungsstelle s3 ON (s3.gml_id=ANY(s2.an) OR s3.gml_id=ANY(s2.zu)) " ."LEFT JOIN ax_buchungsstelle s4 ON (s4.gml_id=ANY(s3.an) OR s4.gml_id=ANY(s3.zu)) "; } $sql.="WHERE sh.istbestandteilvon= $1 AND sh.endet IS NULL AND s2.endet IS NULL "; if ($dbg > 1) {$sql.="AND s3.endet IS NULL AND s4.endet IS NULL";} $v=array($gmlid); // GB-Blatt $res=pg_prepare("", $sql); $res=pg_execute("", $v); if (!$res) { echo "\n

Fehler bei tiefer Suche nach Buchungen.

"; if ($dbg > 2) {echo "\n

SQL=
".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."

";} } $row=pg_fetch_assoc($res); $anz2=$row["anz2"]; // steuert Tabellenform und Überschrift if ($dbg > 1) { $anz3=$row["anz3"]; $anz4=$row["anz4"]; echo "\n

Anzahl dienende Buchungen Ebene 2: '".$anz2."', Ebene 3: '".$anz3."', Ebene 4: '".$anz4."'

"; } echo "\n

\n\n

"; if ($anz2 > 0) { // auch "Rechte an", also dienende B. echo " Rechte und Flurstücke

\n"; echo "\n" // zus. Kopfz. "Rechte" vor FS ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n"; } else { // keine Rechte an, nur FS echo " Flurstücke\n

\n\t\tBVNR" ."\n\t\t

\n\t

Buchungsart

Anteil

Bezirk

Blatt

BVNR

"; } echo "\n"; // Kopfzeile "Flurstück" if ($anz2 > 0) { // BS und FS echo "\n\t" ."\n\t"; } else { // nur FS echo "\n\t" ."\n\t"; } echo "\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n"; // Blatt -> B u c h u n g s s t e l l e (oberste Ebene 1, Grundstück oder herrschend). Relation istBestandteilVon // aktuelles ax_buchungsblatt Fehler bei Buchung.

"; if ($dbg > 2) {echo "\n

SQL=
".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."

";} } $i=0; // Zähler Buchungs-Stellen auf oberer Ebene $zpaar=false; $altlfdnr=''; // GW while($row = pg_fetch_assoc($res)) { // Loop Buchungsstellen der 1. Ebene (herrschend oder nur FS) $i++; $gml_bs=$row["gml_id"]; // gml der Buchungsstelle $lfdnr=$row["lfd"]; $bartkey=$row["buchungsart"]; // Key $bart=$row["bart"]; // BuchungsART Text dazu $bartstory=htmlentities($row["dokumentation"], ENT_QUOTES, "UTF-8"); // .. für Anzeige aufbereitet if ($row["zaehler"] == "") {$anteil = "";} else {$anteil = $row["zaehler"]."/".$row["nenner"];} if ($zpaar) {$trclass='paa';} else {$trclass='unp';} // Farbwechsel je Buchung auf Ebene 1 $zpaar=!$zpaar; if ($bartkey <= 1102) { // (aufgeteiltes) Grundstück $zeianz = bnw_fsdaten($gml_bs, true); // Flurstücksdaten zur direkten Buchungsstelle if ($zeianz === 0) {echo "\n\n\t\n\t\n\t\n";} } else { // herrschende Buchung bnw_bszeile_h(); // Die herrschende Buchung, aus Global $altlfdnr=$lfdnr; if ($row["nrap"] != "") { // Nr im Auft.Plan echo "\n\n\t\n"; } if ($row["sond"] != "") { // Sondereigentumsbeschreibung echo "\n\n\t\n"; } $tiefer = bnw_bsdaten($gml_bs, 2); // dienend, recursiv Ebenen 2,3,4 } } echo "\n

	\n\t\tBVNR" ."\n\t\t" ."\n\t	Buchungsart	Gemarkung	Flur	Flurst.	Fläche	weitere Auskunft
Keine Flurstücke im berechtigten Bereich.
		Nummer ".$row["nrap"]." im Aufteilungsplan.
Verbunden mit dem Sondereigentum an: ".$row["sond"]."

"; if ($i === 0) {echo "\n

Keine Buchung gefunden.

";} pg_free_result($res); // B e r e c h t i g t e Buchungsblätter mit Recht an dem aktuellen (fiktiven?) Blatt // bf sf sb bb // Blatt istBestandteilVon> Blatt // Fiktiv Fiktiv Fehler bei 'Berechtigte Blätter.

"; if ($dbg > 2) {echo "\n

SQL=
".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."

";} } $b=0; // count: Buchungen / Blätter $zpaar=false; while($rowb = pg_fetch_assoc($resb)) { if ($b === 0) { // Ueberschrift und Tabelle nur ausgeben, wenn etwas gefunden wurde echo "\n\n

Berechtigte Grundbücher

" ."\n" ."\n" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n"; } $anlfdnr=$rowb["anlfdnr"]; // an BVNR $anlfdnr0=str_pad($anlfdnr, 4, "0", STR_PAD_LEFT); // mit führ.0 $gml_b=$rowb["gml_id"]; // id des ber. Blattes $gml_s=$rowb["gml_s"]; // id der ber. B-Stelle $blart=$rowb["blattart"]; $buch=$rowb["buchungsart"]; // Buchungsart Stelle berechtigt $bart=$rowb["bart"]; // BA entschl. $lfdnr=$rowb["lfdnr"]; // BVNR ber. $blatt=ltrim($rowb["blatt"], "0"); $bvnr=str_pad($lfdnr, 4, "0", STR_PAD_LEFT); if ($zpaar) {$trclass='paa';} else {$trclass='unp';} // Farbwechsel je Zeile = Grundstück $zpaar=!$zpaar; echo "\n"; // Der Teil "berechtigte Grundbücher" ist nach BVNR sortiert wie oberer Teil "Flurstücke" echo "\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n"; $b++; } if ($b === 0) { if ($blattkey > 2000 ) { // Warnung nicht bei Grundbuchblatt 1000 und Katasterblatt 2000 echo "\n

Keine berechtigten Blätter zu ".$blattart." (".$blattkey.") gefunden.

"; } } else { echo "\n

an BVNR	Dienststelle	Bezirk	Blatt	BVNR	Buchungsart	Weitere Auskunft
".$anlfdnr0."	"; // Amtsgericht,Grundbuchamt echo htmlentities($rowb["stellev"], ENT_QUOTES, "UTF-8")." "; if ($showkey) {echo "".$rowb["stelle"]." ";} echo htmlentities($rowb["bezeichnung"], ENT_QUOTES, "UTF-8") ."	"; if ($showkey) {echo "".$rowb["bezirk"]." ";} echo htmlentities($rowb["beznam"], ENT_QUOTES, "UTF-8") ."	".$blatt."	".$bvnr."	"; if ($showkey) {echo "".$buch." ";} echo $bart ."	" ."\n\t\t "; // Bestand if ($showkey) {echo "".$blart." ";} echo "\n\t\t\t".$rowb["blattartv"]; echo " \n\t\t\t"; echo "\n\t\t " ."

"; if ($i > 1) { echo "\n

Rechte anderer Buchungsstellen an ".$b." der ".$i." Buchungen

"; } } pg_free_result($resb); echo "\n

" ."\n\t

"; if ($PrntBtn==true){echo "\n\t

";} if ($blattkey == 5000) { // Nicht bei "fiktives Blatt" echo "\n\t

"; } else { echo "\n\t

"; } echo " \n

"; footer($gmlid, selbstverlinkung()."?", ""); ?>