\n\t"; // Kennz. im Rahmen
if ($blattkey == 1000) {
echo "\n\t";
} else {
echo "\n\t"; // dotted
}
echo "\n\t";
echo "\n\t\t".dienststellenart($row["stellenart"])." | ";
echo "\n\t\tBezirk | ";
echo "\n\t\t".$blattart." | ";
echo "\n\t \n\t";
echo "\n\t\t";
if ($showkey) {
echo "".$row["stelle"]." ";
}
echo htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8")." | ";
echo "\n\t\t";
if ($showkey) {
echo "".$row["bezirk"]." ";
}
echo htmlentities($row["beznam"], ENT_QUOTES, "UTF-8")." | ";
echo "\n\t\t".$row["nr"]." | ";
echo "\n\t ";
echo "\n\t ";
echo "\n\n\t\n\t";
if ($idanzeige) {linkgml($gkz, $gmlid, "Buchungsblatt", "");}
echo "\n\t | \n\n ";
}
if ($blattkey == 5000) { // fikt. Blatt
echo "\nKeine Angaben zum Eigentum bei fiktivem Blatt. \n";
} else {
// E I G E N T U E M E R
echo "\n Angaben zum Eigentum\n";
$n = eigentuemer($con, $gmlid, true, ""); // MIT Adressen.
if ($n == 0) { // keine NamensNr, kein Eigentuemer
echo "\nKeine Namensnummer gefunden. ";
echo "\nBezirk: ".$row["bezirk"].", Blatt: ".$row["nr"].", Blattart ".$blattkey." (".$blattart.") ";
linkgml($gkz, $gmlid, "Buchungsblatt", "");
}
}
// Vorab pruefen, ob der Fall "Rechte an .." vorliegt.
if ($blattkey == 1000) { // GB-Blatt an> sd=dienend
$sql="SELECT count(sd.laufendenummer) AS anzahl
FROM ax_buchungsstelle sh JOIN ax_buchungsstelle sd ON (sd.gml_id=ANY(sh.an) OR sd.gml_id=ANY(sh.zu))
WHERE sh.istbestandteilvon= $1 AND sd.endet IS NULL AND sh.endet IS NULL;";
$v=array($gmlid); // GB-Blatt
$res=pg_prepare("", $sql);
$res=pg_execute("", $v);
if (!$res) echo "Fehler bei Suche nach Buchungen. \n";
$row=pg_fetch_array($res);
$anz=$row["anzahl"];
//echo "Zeilen : ".$anz." zu Blattart ".$blattkey." ";
} else { // 2000: Katasterblatt, 3000: Pseudoblatt, 5000: Fiktives Blatt
$anz=0;
}
if ($anz > 0) {
echo "\n \n\n Rechte und Flurstücke";
echo "\n";
echo "\n"; // zusätzliche Kopfzeile
echo "\n\t | ";
echo "\n\therrschende Buchungsart | ";
echo "\n\t | ";
echo "\n\tBezirk | ";
echo "\n\tBlatt | ";
echo "\n\tBVNR | ";
echo "\n\tBuchungsart | ";
echo "\n\t | ";
echo "\n ";
} else {
echo "\n \n\n Flurstücke";
echo "\n";
}
echo "\n"; // gemeinsame Kopfzeile
echo "\n\tBVNR | ";
echo "\n\tBuchungsart | ";
echo "\n\tAnteil | ";
echo "\n\tGemarkung | ";
echo "\n\tFlur | ";
echo "\n\tFlurst. | ";
echo "\n\tFläche | "; // 7
echo "\n\tweit. Auskunft | ";
echo "\n ";
// Blatt -> B u c h u n g s s t e l l e
// aktuelles ax_buchungsblatt Fehler bei Buchung.\n";
if ($debug > 2) {echo "SQL= ".$sql." $1 = gml_id = '". $gmlid."' ";}
}
$i=0;
$fscnt=0;
while($row = pg_fetch_array($res)) { // Loop Buchungsstelle (Grundstück)
$lfdnr=$row["lfd"];
$bvnr=str_pad($lfdnr, 4, "0", STR_PAD_LEFT);
$gml_bs= $row["gml_id"]; // id der buchungsstelle
$ba=$row["bart"]; // Buchungsart aus Schluesseltabelle
if ($row["zaehler"] == "") {
$anteil = "";
} else {
$anteil = $row["zaehler"]."/".$row["nenner"];
}
// F l u r s t u e c k s d a t e n zur direkten Buchungsstelle
$j = bnw_fsdaten($con, $lfdnr, $gml_bs, $ba, $anteil, true); // return=Anzahl der FS
$fscnt=$fscnt + $j;
if ($j == 0) { // k e i n e Flurstuecke gefunden (Miteigentumsnteil usw.)
// Bei "normalen" Grundstuecken wurden Flurstuecksdaten gefunden und ausgegeben.
// Bei Miteigentumsanteil, Erbbaurecht usw. muss nach weiteren Buchungsstellen gesucht werden:
// Buchungsstelle >an/zu> (andere)Buchungsstelle >istBestandTeilVon> "FiktivesBlatt (ohne) Eigentuemer"
// andere Buchungsstellen
// ax_buchungsstelle >zu> ax_buchungsstelle (des gleichen Blattes)
// ax_buchungsstelle >an> ax_buchungsstelle (anderes Blatt, z.B Erbbaurecht an)
// sh=herrschend sd=dienend
$sql ="SELECT sd.gml_id, sd.buchungsart, sd.laufendenummer AS lfd, sd.beschreibungdesumfangsderbuchung AS udb, sd.nummerimaufteilungsplan AS nrap, sd.beschreibungdessondereigentums AS sond, b.bezeichner AS bart
FROM ax_buchungsstelle sh JOIN ax_buchungsstelle sd ON (sd.gml_id=ANY(sh.an) OR sd.gml_id=ANY(sh.zu))
LEFT JOIN v_bs_buchungsart b ON sd.buchungsart=b.wert
WHERE sh.gml_id= $1 AND sh.endet IS NULL AND sd.endet IS NULL ORDER BY sd.laufendenummer;";
$v=array($gml_bs);
$resan=pg_prepare("", $sql);
$resan=pg_execute("", $v);
if (!$resan) {
echo "Fehler bei 'andere Buchungsstelle'. \n";
if ($debug > 2) {echo "SQL= ".$sql." $1 = gml_id = '".$gmlid."' ";}
}
$a=0; // count
$altbvnr=""; // Gruppenwechsel
while($rowan = pg_fetch_array($resan)) {
$lfdnran = $rowan["lfd"]; // BVNR an
$gml_bsan= $rowan["gml_id"]; // id der buchungsstelle an
$baan= $rowan["bart"]; // Buchungsart an, entschluesselt
// a n d e r e s B l a t t (an dem das aktuelle Blatt Rechte hat)
// dienendes Grundbuch
$sql ="SELECT b.gml_id, b.land, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung AS blatt, b.blattart, z.bezeichnung AS beznam
FROM ax_buchungsblatt b JOIN ax_buchungsstelle s ON b.gml_id=s.istbestandteilvon
LEFT JOIN ax_buchungsblattbezirk z ON b.land=z.land AND b.bezirk=z.bezirk
WHERE s.gml_id= $1 AND b.endet IS NULL ORDER BY b.land, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung;";
$v=array($gml_bsan);
$fbres=pg_prepare("", $sql);
$fbres=pg_execute("", $v);
if (!$fbres) {
echo "Fehler bei fiktivem Blatt. \n";
if ($debug > 2) {echo "SQL= ".$sql." $1 = gml_id = '".$gmlid."' ";}
}
$b=0;
while($fbrow = pg_fetch_array($fbres)) { // genau 1
$fbgml = $fbrow["gml_id"];
$fbland = $fbrow["land"];
$fbbez = $fbrow["bezirk"];
$fbblatt = $fbrow["blatt"];
$fbbart = blattart($fbrow["blattart"]);
$beznam = $fbrow["beznam"];
$b++;
}
if ($b != 1) {
echo "Anzahl fiktive Blätter zu anderer Buchungstelle = ".$b." ";
}
// G r u n d b u c h d a t e n zur a n d e r e n Buchungsstelle
echo "\n";
echo"\n\t";
if($bvnr == $altbvnr) { // gleiches Grundstueck
echo " "; // Anzeige unterdruecken
} else {
echo ""; // Sprungmarke
echo "".$bvnr.""; // Sp.1 Erbbau BVNR
if ($idanzeige) {linkgml($gkz, $gml_bs, "Buchungsstelle", "ax_buchungsstelle");}
$altbvnr = $bvnr; // Gruppenwechsel merken
}
echo " | ";
echo "\n\t"; // Sp.2 Buchung
if ($showkey) {
echo "".$row["buchungsart"]." ";
}
echo $ba." an | ";
echo "\n\t".$anteil." | "; // Sp.3 Anteil
echo "\n\t"; // Sp.4 Gemarkg. hier Bezirk
if ($showkey) {
echo "".$fbbez." ";
}
echo $beznam;
echo " | "; // Sp.4 hier Bezirk
echo "\n\t"; // Sp. 5 Blatt
echo $fbblatt; // Sp.6 BVNR
if ($idanzeige) {
linkgml($gkz, $fbgml, "Buchungsblatt", "");
}
echo " | ";
echo "\n\t"; // BVNR
echo str_pad($lfdnran, 4, "0", STR_PAD_LEFT);
if ($idanzeige) {
linkgml($gkz, $gml_bsan, "Buchungsstelle", "ax_buchungsstelle");
}
echo " | ";
echo "\n\t"; // Sp.7 Buchungsart
if ($showkey) {
echo "".$rowan["buchungsart"]." ";
}
echo $baan." ";
echo " | ";
echo "\n\t"; // Sp.8 Link ("an" oder "zu" ?)
echo " an/zu"; //.$rowan["beziehungsart"] Feld gibt es nicht mehr
echo " ";
echo $fbbart;
echo " ";
echo " | ";
echo "\n ";
// F l u r s t u e c k s d a t e n zur a n d e r e n Buchungsstelle
// Buchungsart wird nur in erster Zeile ausgegeben, hier leer
$aj = bnw_fsdaten($con, $lfdnran, $gml_bsan, "", $anteil, false); // return=Anz.FS
$fscnt=$fscnt + $aj;
// +++ Gibt es Sondereigentum beim fiktiven Blatt?
if ($rowan["nrap"] != "") {
echo "\n";
echo "\n\tNr. im Aufteilungsplan: ".$rowan["nrap"]." | ";
echo "\n ";
}
if ($rowan["sond"] != "") {
echo "\n";
echo "\n\tVerbunden mit dem Sondereigentum an: ".$rowan["sond"]." | ";
echo "\n ";
}
$a++;
}
if ($a == 0) {
echo "\n";
echo "\n\t".$bvnr."";
if ($idanzeige) {
linkgml($gkz, $gml_bs, "Buchungsstelle", "ax_buchungsstelle");
}
echo " | ";
echo "\n\t";
echo " Flurstücke zu ".$bvnr." nicht gefunden. ";
echo " | ";
echo "\n ";
}
}
$i++;
if ($row["nrap"] != "") { // Nr im Auft.Plan
echo "\n";
echo "\n\tNummer ".$row["nrap"]." im Aufteilungsplan. | ";
echo "\n ";
}
if ($row["sond"] != "") { // Sondereigentumsbeschreibung
echo "\n";
echo "\n\tVerbunden mit dem Sondereigentum an: ".$row["sond"]." | ";
echo "\n ";
} // Ende Buchungsstelle/BVNR
} // Ende Loop
echo "\n ";
if ($i == 0) {
echo "\nKeine Buchung gefunden. \n";
linkgml($gkz, $gmlid, "Buchungsblatt", "");
} else {
if ($i > 5 and $fscnt > 5) { // nur wenn nicht auf einen Blick zu erkennen
echo "\n".$i." Buchungen mit ".$fscnt." Flurstücken \n";
}
}
// B e r e c h t i g t e Buchungsblaetter mit Recht an/zu dem aktuellen (fiktiven?) Blatt
// bf sf sb bb
// Blatt istBestandteilVon> Blatt
// Fiktiv Fiktiv Fehler bei 'Berechtigte Blätter.\n";
if ($debug > 2) {echo "SQL= ".$sql." $1 = gml_id = '".$gmlid."' ";}
}
$b=0; // count: Buchungen / Blätter
while($rowb = pg_fetch_array($resb)) {
if ($b == 0) { // Ueberschrift und Tabelle nur ausgeben, wenn etwas gefunden wurde
echo "\n Berechtigte Grundbücher\n";
echo "\n";
echo "\n"; // Tab Kopf
echo "\n\tan BVNR | "; // wie oben
echo "\n\tLand | ";
echo "\n\tDienststelle | ";
echo "\n\tBezirk | ";
echo "\n\tBlatt | ";
echo "\n\tBVNR | ";
echo "\n\tBuchungsart | ";
echo "\n\tWeitere Auskunft | ";
echo "\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.
$bvnr=str_pad($lfdnr, 4, "0", STR_PAD_LEFT);
echo "\n";
// Teil berechtigte Grundbücher ist sortiert wie oberer Teil "Flurstücke"
echo "\n\t".$anlfdnr0."";
// Link "nach oben" - bringt das Nutzen? Nur bei ganz langen Beständen.
/* echo "\n\t\t ";
echo "\n\t\t\thoch";
echo "\n\t\t ";
++ auflösen, sonst 2 Zeilen im | ++
*/
echo " | ";
echo "\n\t".$rowb["land"]." | ";
echo "\n\t"; // Amtsgericht
echo dienststellenart($rowb["stellenart"])." ";
if ($showkey) {
echo "".$rowb["stelle"]." ";
}
echo $rowb["bezeichnung"];
echo " | ";
echo "\n\t";
if ($showkey) {
echo "".$rowb["bezirk"]." ";
}
echo $rowb["beznam"];
echo " | ";
echo "\n\t".$rowb["blatt"]."";
if ($idanzeige) {linkgml($gkz, $gml_b, "Buchungsblatt", "");}
echo " | ";
echo "\n\t".$bvnr;
if ($idanzeige) {linkgml($gkz, $gml_s, "Buchungsstelle", "ax_buchungssstelle");}
echo " | ";
echo "\n\t";
if ($showkey) {
echo "".$buch." ";
}
echo $bart;
echo " | ";
echo "\n\t";
echo "\n\t\t ";
echo "\n\t\t\t"; // oder "zu" statt "an"
echo blattart($blart);
echo " \n\t\t\t";
echo "\n\t\t ";
echo " | ";
echo "\n ";
$b++;
}
if ($b == 0) {
if ($blattkey > 2000 ) { // Warnung nicht bei Grundbuchblatt 1000 und Katasterblatt 2000
echo "Keine berechtigten Blätter zu ".$blattart." (".$blattkey.") gefunden. ";
}
} else {
echo "\n ";
if ($i > 1) {
echo "\nRechte anderer Buchungsstellen an ".$b." der ".$i." Buchungen \n";
}
}
?>
|