Abbruch

'); } // Mit URL-Parameter "&nodebug=j" kann man die Entwicklungsumgebung (in Conf definiert) ausschalten. // Manuell an die URL anfügen, wirkt nur temporär und wird nicht in Links weiter gereicht. if ($nodebug === "j") {$debug=0;} echo "

ALKIS Name id=".$gmlid." 

\n" // Balken ."\n

Person

"; $con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisnamstruk.php'"); if (!$con) "\n

Fehler beim Verbinden der DB

"; $sql="SELECT p.nachnameoderfirma, p.anrede, p.vorname, p.geburtsname, to_char(cast(p.geburtsdatum AS date),'DD.MM.YYYY') AS geburtsdatum, p.namensbestandteil, p.akademischergrad, a.beschreibung AS anrv FROM ax_person p LEFT JOIN ax_anrede_person a ON p.anrede = a.wert WHERE gml_id= $1 AND p.endet IS NULL;"; $v = array($gmlid); $res = pg_prepare("", $sql); $res = pg_execute("", $v); if (!$res) { echo "\n

Fehler bei Zugriff auf Namensnummer

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

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

";} } if ($row = pg_fetch_assoc($res)) { $vor=htmlentities($row["vorname"], ENT_QUOTES, "UTF-8"); $nam=htmlentities($row["nachnameoderfirma"], ENT_QUOTES, "UTF-8"); $geb=htmlentities($row["geburtsname"], ENT_QUOTES, "UTF-8"); $anrk=$row["anrede"]; // Key $anr=$row["anrv"]; // Value $nbest=htmlentities($row["namensbestandteil"], ENT_QUOTES, "UTF-8"); $aka=htmlentities($row["akademischergrad"], ENT_QUOTES, "UTF-8"); echo "" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n
Anrede:"; if ($showkey) {echo "(".$anrk.") ";} echo $anr."
Nachname oder Firma:".$nam."
Vorname:".$vor." 
Geburtsname:".$geb." 
Geburtsdatum:".$row["geburtsdatum"]." 
Namensbestandteil:".$nbest." 
akademischer Grad:".$aka." 
\n
"; // A d r e s s e if ($multiadress === "j") {$plural="n";} else {$plural="";} echo "\n\n

Adresse".$plural."

"; // Es können redundante Adressen vorhanden sein, z.B. aus Migration, temporär aus LBESAS. // Im Normalfall nur die "letzte" davon anzeigen. Auf Wunsch alle anzeigen, dazu den Anlass und das Datum um das zu bewerten. $sqla ="SELECT a.gml_id, w.value AS anltxt, a.anlass, to_char(cast(a.beginnt AS date),'DD.MM.YYYY') AS datum, 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) " ."LEFT JOIN aa_anlassart w ON w.id = ANY(a.anlass) " ."WHERE p.gml_id= $1 AND a.endet IS NULL AND p.endet IS NULL ORDER BY a.beginnt DESC ;"; $v = array($gmlid); $resa = pg_prepare("", $sqla); $resa = pg_execute("", $v); if (!$resa) { echo "\n

Fehler bei Adressen

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

SQL=
". str_replace("$1", "'".$gmlid."'", $sqla)."

";} } $j=0; // Parameter $multiadress = j zeigt ALLE Adressen an while($rowa = pg_fetch_assoc($resa)) { $j++; if ($multiadress === "j" OR $j === 1) { $gmla=$rowa["gml_id"]; $plz=$rowa["plz"]; $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"); $anlass=trim($rowa["anlass"], "{}"); // Key $anltxt=$rowa["anltxt"]; // Value $datum=$rowa["datum"]; echo "\n"; if ($multiadress === "j" OR $showkey) { if ($debug > 0) { // nur Entw.: Sortierung gml_id vs. beginnt? echo "\t\n"; } echo "\t\n" ."\t\n"; } echo "\t\n" ."\t\n" ."\t\n" ."\t\n" ."\t\n" ."\n
gml_id:".$rowa["gml_id"]."
Datum:".$datum."
Anlass:"; if ($showkey) {echo "".$anlass." ";} echo $anltxt."
PLZ:".$plz."
Ort:".$ort."
Strasse:".$str."
Hausnummer:".$hsnr."
Land:".$land."
\n
"; // Name und Adresse Kompakt (im Rahmen) - Alles was man fuer ein Anschreiben braucht echo "\nBrief" ."\n
\n\t".$anr." ".$aka." ".$vor." ".$nbest." ".$nam."
" ."\n\t".$str." ".$hsnr."
" ."\n\t".$plz." ".$ort."\n
"; } } pg_free_result($resa); if ($j === 0) { echo "\n

Keine Adressen.

"; } elseif ($j > 1) { echo "\n\t\t"; } // *** G R U N D B U C H *** echo "\n
\n

Grundbücher

"; // person istBestandteilVon> Buchungsblatt // >bestehtAusRechtsverhaeltnissenZu> namensnummer (Nebenzweig/Sonderfälle?) $sqlg ="SELECT n.gml_id AS gml_n, n.laufendenummernachdin1421 AS lfd, n.zaehler, n.nenner, g.gml_id AS gml_g, g.bezirk, g.buchungsblattnummermitbuchstabenerweiterung as nr, g.blattart, wb.beschreibung AS blattartv, b.bezeichnung AS beznam " ."FROM ax_person p JOIN ax_namensnummer n ON p.gml_id=n.benennt " ."JOIN ax_buchungsblatt g ON g.gml_id=n.istbestandteilvon " ."LEFT JOIN ax_buchungsblattbezirk b ON g.land=b.land AND g.bezirk=b.bezirk " ."LEFT JOIN ax_blattart_buchungsblatt wb ON g.blattart = wb.wert " ."WHERE p.gml_id= $1 AND p.endet IS NULL AND n.endet IS NULL AND b.endet IS NULL " ."ORDER BY b.bezeichnung, g.buchungsblattnummermitbuchstabenerweiterung, n.laufendenummernachdin1421;"; $v = array($gmlid); $resg = pg_prepare("", $sqlg); $resg = pg_execute("", $v); if (!$resg) { echo "\n

Fehler bei Grundbuch

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

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

"; } } echo "" ."\n" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n\t" ."\n"; $i=0; $zpaar=false; while($rowg = pg_fetch_assoc($resg)) { $gmln=$rowg["gml_n"]; $gmlg=$rowg["gml_g"]; $namnum=kurz_namnr($rowg["lfd"]); $zae=$rowg["zaehler"]; $blattkey=$rowg["blattart"]; // Key $blattart=$rowg["blattartv"]; // Value if ($zpaar) {$trclass='paa';} else {$trclass='unp';} $zpaar=!$zpaar; echo "\n" ."\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t" ."\n\t" ."\n"; // +++ >bestehtAusRechtsverhaeltnissenZu> namensnummer ? // z.B. eine Namennummer "Erbengemeinschaft" zeigt auf Namensnummern mit Eigentümern $i++; } pg_free_result($resg); echo "
BezirkBlattartBlattNamensnummerAnteil
"; // GB-Bezirk if ($showkey) {echo "".$rowg["bezirk"]." ";} echo $rowg["beznam"] .""; // Blattart if ($showkey) {echo "".$blattkey." ";} echo $blattart .""; // Blatt echo "".$rowg["nr"]."" .""; // Namensnummer if ($namnum == "") { echo " "; } else { echo $namnum; } echo ""; // Anteil if ($zae == '') { echo " "; } else { echo $zae."/".$rowg["nenner"]." Anteil"; } echo "" ."\n\t\t" ."\n\t
"; if ($i === 0) {echo "\n

Kein Grundbuch.

";} } else { echo "\n\t

Fehler! Kein Treffer für\n\t".$gmlid."\n

\n\n"; } ?>

zurück  Drucken  Export