ALKIS Person und Adresse

ALKIS Name id=".$gmlid."

\n"; echo "\n

Person

\n"; if (!$con) "\n

Fehler beim Verbinden der DB

\n"; $sql="SELECT nachnameoderfirma, anrede, vorname, geburtsname, geburtsdatum, namensbestandteil, akademischergrad "; $sql.="FROM ax_person WHERE gml_id= $1;"; $v = array($gmlid); $res = pg_prepare("", $sql); $res = pg_execute("", $v); if (!$res) {echo "\n

Fehler bei Zugriff auf Namensnummer

\n";} if ($idanzeige) { linkgml($gkz, $gmlid, "Person", "ax_person"); } if ($row = pg_fetch_array($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"]; $anr=anrede($anrk); $nbest=$row["namensbestandteil"]; $aka=$row["akademischergrad"]; echo "\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\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 echo "\n

Adresse

\n"; // Es können redundante Adressen vorhanden sein, z.B. aus Migration, temporär aus LBESAS. Die letzte davon anzeigen. $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 substring(a.gml_id,1,16)=ANY(p.hat) WHERE p.gml_id= $1 ORDER BY a.gml_id DESC ;"; $v = array($gmlid); $resa = pg_prepare("", $sqla); $resa = pg_execute("", $v); if (!$resa) { echo "\n

Fehler bei Adressen

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

SQL=
".$sqla."
$1=gml(Person)= '".$gmlid."'

\n"; } } $j=0; // Parameter $multiadress = j zeigt alle Adressen an while($rowa = pg_fetch_array($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"); if ($idanzeige) { linkgml($gkz, $gmla, "Adresse", "ax_adresse"); } echo "\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\t\n"; echo "\n

PLZ:	".$plz."
Ort:	".$ort."
Strasse:	".$str."
Hausnummer:	".$hsnr."
Land:	".$land."

\n
\n"; // Name und Adresse Kompakt (im Rahmen) - Alles was man fuer ein Anschreiben braucht echo "

"; // Symbol "Brief" echo "\n

".$anr." ".$aka." ".$vor." ".$nbest." ".$nam."
"; echo "\n".$str." ".$hsnr."
"; echo "\n".$plz." ".$ort."

"; } } pg_free_result($resa); if ($j == 0) { echo "\n

Keine Adressen.

\n"; } elseif ($j > 1) { echo "\n\t\t

"; echo "\n\t\t\terste Adresse "; } else { echo "&multiadress=j' title='Adressen ggf. mehrfach vorhanden'>alle Adressen "; } echo "\n\t\t\t"; echo "\n\t\t

"; } // *** G R U N D B U C H *** echo "\n

Grundbücher

\n"; // 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, b.bezeichnung AS beznam FROM ax_person p JOIN ax_namensnummer n ON substring(p.gml_id,1,16)=n.benennt JOIN ax_buchungsblatt g ON substring(g.gml_id,1,16)=n.istbestandteilvon LEFT JOIN ax_buchungsblattbezirk b ON g.land=b.land AND g.bezirk=b.bezirk WHERE p.gml_id= $1 ORDER BY g.bezirk, g.buchungsblattnummermitbuchstabenerweiterung;"; // buchungsblatt... mal mit und mal ohne fuehrende Nullen, bringt die Sortierung durcheinander $v = array($gmlid); $resg = pg_prepare("", $sqlg); $resg = pg_execute("", $v); if (!$resg) { echo "\n

Fehler bei Grundbuch

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

SQL=".$sqlg."

\n"; } } $j=0; echo ""; echo "\n"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n"; while($rowg = pg_fetch_array($resg)) { $gmln=$rowg["gml_n"]; $gmlg=$rowg["gml_g"]; $namnum=kurz_namnr($rowg["lfd"]); $zae=$rowg["zaehler"]; $blattkey=$rowg["blattart"]; $blattart=blattart($blattkey); echo "\n"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n\t"; echo "\n"; // +++ >bestehtAusRechtsverhaeltnissenZu> namensnummer ? // z.B. eine Namennummer "Erbengemeinschaft" zeigt auf Namensnummern mit Eigentümern $i++; } pg_free_result($resg); echo "

Bezirk	Blattart	Blatt	Namensnummer	Anteil	weit. Auskunft
"; // GB-Bezirk" if ($showkey) { echo "".$rowg["bezirk"]." "; } echo $rowg["beznam"]; echo "	"; // Blattart if ($showkey) { echo "".$blattkey." "; } echo $blattart; echo "	"; // Blatt echo "".$rowg["nr"].""; if ($idanzeige) { linkgml($gkz, $gmlg, "Grundbuchblatt", ""); } echo "	"; // Namensnummer If ($namnum == "") { echo " "; } else { echo $namnum; } if ($idanzeige) { linkgml($gkz, $gmln, "Namensnummer", "ax_namensnummer"); } echo "	"; // Anteil If ($zae == "") { echo " "; } else { echo $zae."/".$rowg["nenner"]." Anteil"; } echo "	"; echo "\n\t\t "; echo "\n\t\t\t"; echo $blattart; echo "\n\t\t\t"; echo "\n\t\t "; echo "\n\t

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

Kein Grundbuch.

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

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

\n\n"; } ?>