Context Navigation

source: trunk/info/info/alkisn/alkisfkt.php @ 398

Revision 398, 23.0 KB checked in by frank.jaeger, 6 years ago (diff)
Feinkorrekturen an der Buchauskunft, Title von Links, "jüngste" Adresse zur Person.

Rev	Line
[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.
[362]	16	*/
	17
	18	function footer($gmlid, $link, $append) {
	19	// Einen Seitenfuss ausgeben.
	20	// Die Parameter &gkz= und &gmlid= kommen in allen Modulen einheitlich vor
	21	// Den URL-Parameter "&showkey=j/n" umschalten lassen.
	22	// $append wird angehaengt wenn gefuellt. Anwendung: &eig=j bei FS-NW, &ltyp=m/p/o bei Lage
[375]	23	global $gkz, $showkey, $hilfeurl, $auth;
[362]	24
[387]	25	// S c r e e n - Foot
[362]	26	echo "\n<div class='confbereich noprint'>"
[387]	27	."\n\t<table class='outer'>\n\t<tr>";
[362]	28
	29	// Spalte 1: Info Benutzerkennung
[375]	30	if ($auth == "mapbender") {
	31	$customer=$_SESSION["mb_user_name"];
[387]	32	echo "\n\t\t<td title='Info'><i>Benutzer: ".$customer."</i></td>";
[375]	33	} else {
[387]	34	echo "\n\t\t<td> </td>";
[375]	35	}
[362]	36
	37	// Spalte 2: Umschalter
[387]	38	echo "\n\t\t<td title='Konfiguration'>";
	39	$mylink ="\n\t\t\t<a class='keyswitch' href='".$link."gkz=".$gkz."&gmlid=".$gmlid.$append;
[362]	40
	41	if ($showkey) { // Umschalten SchlÃŒssel ein/aus
	42	echo $mylink."&showkey=n' title='Verschlüsselungen ausblenden'>Schlüssel aus</a>";
	43	} else {
	44	echo $mylink."&showkey=j' title='Verschlüsselungen anzeigen'>Schlüssel ein</a>";
	45	}
[387]	46	echo "\n\t\t</td>";
[362]	47
	48	// Spalte 3
[387]	49	echo "\n\t\t<td title='Hilfe'>"
	50	."\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>"
	51	."\n\t</tr>\n\t</table>"
	52	."\n</div>\n";
	53
	54	// P r i n t - Foot
	55	if ($auth == "mapbender") {
	56	// $customer=$_SESSION["mb_user_name"];
	57	echo "\n<p class='onlyprint'><i>Mapbender-Benutzer: ".$customer."</i></p>";
	58	}
	59
[362]	60	return 0;
	61	}
	62
[387]	63	function ber_bs_hinw($gmls, $gmlf) {
	64	// Berechtigte Buchungs-Stellen - Hinweis.
	65	// Unter dem Grundbuch-Link den Hinweis auf "berechtigte Buchungssstellen" anzeigen und einen Umschalter.
	66	global $gkz, $debug, $showkey, $berbu, $eig;
[362]	67
[387]	68	// Buchungstelle dienend <(Recht)an< Buchungstelle herrschend
[362]	69	$sql ="SELECT count(sh.gml_id) AS anz, sh.buchungsart, a.v "
	70	."FROM ax_buchungsstelle sd JOIN ax_buchungsstelle sh ON sd.gml_id=ANY(sh.an) "
	71	."LEFT JOIN alkis_wertearten a ON sh.buchungsart=cast(a.k AS integer) "
	72	."WHERE sd.gml_id= $1 AND sh.endet IS NULL AND sd.endet IS NULL AND a.element='ax_buchungsstelle' and a.bezeichnung='buchungsart' "
	73	."GROUP BY sh.buchungsart, a.v;";
	74
[387]	75	$v = array($gmls); // GML dienende Buchungs-Stelle
[362]	76	$resan = pg_prepare("", $sql);
	77	$resan = pg_execute("", $v);
	78	if (!$resan) {
[387]	79	echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen'.</p>";
	80	if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmls."'</p>";}
[362]	81	}
[387]	82	$zeile=0; // Vesrchiedene Arten
	83	$cnt=0; // Summe der Buchugen
[362]	84	while($rowan = pg_fetch_array($resan)) {
[387]	85	$anz=$rowan["anz"];
	86
	87	// Einleitung
	88	if ($zeile == 0) { // vor. 1. Zeile
	89	// Diese Hinweise sollen mit gedruckt werden. Also KEIN "noprint"!
	90	echo "\n\t\t<br>\n\t\t<p class='nwlink' title='Andere Grundstücke mit Rechten an diesem.'>\n\t\t\tBerechtigte Buchungen ";
	91	if ($berbu=="j") { // wechselndes Symbol
	92	echo "<img src='ico/Grundbuch_zu.png' width='16' height='16' alt=''>";
	93	} else {
	94	echo "<img src='ico/Grundbuch.png' width='16' height='16' alt=''>";
	95	}
	96	echo "\n\t\t\t<b>";
	97	}
	98
	99	// Eine Zeile je Buchungs-Typ
	100	echo "<br>".$anz." ".htmlentities($rowan["v"], ENT_QUOTES, "UTF-8");
[362]	101	if ($showkey) {echo " <span class='key'>(".$rowan["buchungsart"].")</span>";}
[387]	102	$zeile++;
	103	$cnt = $cnt + $anz;
	104	} // Ende Result
	105	pg_free_result($resan);
	106
	107	// Ergebnis
	108	if ($zeile == 0) { // kein Schleifen-Durchlauf
	109	echo "\n\t<p class='nwlink' title='Kein anderes Grundstück hat ein Recht an diesem.'>Keine berechtigte Buchung</p>";
	110	} else { // Schleife wurde durchlaufen,
	111	echo "</b>\n\t\t</p>";
	112
	113	// Umschalter nicht drucken
	114	echo "\n\t\t<p class='nwlink noprint'>"
	115	."\n\t\t\t<a href='".$_SERVER['PHP_SELF']."?gkz=".$gkz."&gmlid=".$gmlf."&eig=".$eig; // GML FlurstÃŒck
	116	if ($showkey) {echo "&showkey=j";}
	117	// Der FS-Nachweis ruft sich selbst mit geaendertem Parameter auf.
	118	if ($berbu=="j") {
	119	echo "&berbu=n' title='ohne berechtigte Buchungen'>nicht Anzeigen"; // Position: Top
	120	} else {
	121	echo "&berbu=j#berbu' title='mit berechtigten Buchungen'>Anzeigen"; // Positionierung auf Marke #berbu
	122	}
	123	echo "</a>\n\t\t</p>";
[362]	124	}
[387]	125	return $cnt; // Funktionswert = Anzahl der berechtigten Buchungen
	126	}
	127
	128	function ber_bs_anz($gmls, $eig) {
	129	// Berechtigte Buchungsstellen (+ BlÃ€tter, EigentÃŒmer) anzeigen innerhalb eines FS-Nachw.
	130	// Im FS-Nachweis werden auch die berechtigten GrundbÃŒcher mit ihren EigentÃŒmern angezeigt.
	131	// Also z.B. zu einem "fiktiven Blatt" auch die GrundbuÃŒcher mit dem "Wohnungs-/Teileigentum"
	132	global $gkz, $debug, $showkey, $idanzeige;
	133
	134	// Herrschende (berechtigte) Buchungsstellen ausgeben - Beginn
	135	// sd=Buchungstelle herrschend >(Recht)an> sd=Buchungstelle dienend >istBestandteilVon> BLATT -> Bezirk
	136	$sql="SELECT sd.gml_id AS s_gml, " // Buchungs-Stelle dienend
	137	."sh.buchungsart, sh.laufendenummer as lfd, sh.zaehler, sh.nenner, sh.nummerimaufteilungsplan as nrpl, sh.beschreibungdessondereigentums as sond, " // Buchungs-Stelle herrschend
	138	."b.gml_id AS g_gml, b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung as blatt, b.blattart, z.bezeichnung, a.v AS bart, w.v AS blattartv "
	139	."FROM ax_buchungsstelle sd "
	140	."JOIN ax_buchungsstelle sh ON sd.gml_id=ANY(sh.an) "
	141	."JOIN ax_buchungsblatt b ON b.gml_id=sh.istbestandteilvon "
	142	."LEFT JOIN ax_buchungsblattbezirk z ON z.land=b.land AND z.bezirk=b.bezirk "
	143	."LEFT JOIN alkis_wertearten a ON sh.buchungsart=cast(a.k AS integer) AND a.element='ax_buchungsstelle' and a.bezeichnung='buchungsart' " // entschlÃŒsseln Buchungsart
	144	."LEFT JOIN alkis_wertearten w ON b.blattart=w.k AND w.element='ax_buchungsblatt' and w.bezeichnung='blattart' " // entschlÃŒsseln Blatt-Art
	145	."WHERE sd.gml_id= $1 AND sd.endet IS NULL AND sh.endet IS NULL AND b.endet IS NULL AND z.endet IS NULL "
	146	."ORDER BY b.bezirk, b.buchungsblattnummermitbuchstabenerweiterung;";
	147
	148	$v = array($gmls); // id dienende Buchungsstelle
	149	$resber = pg_prepare("", $sql);
	150	$resber = pg_execute("", $v);
	151	if (!$resber) {
	152	echo "\n<p class='err'>Fehler bei 'berechtigte Buchungsstellen'.</p>";
	153	if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = gml_id = '".$gmls."'</p>";}
[362]	154	}
[387]	155
	156	$an=0;
	157	while($rowan = pg_fetch_array($resber)) {
	158	$beznam=$rowan["bezeichnung"];
	159	$bart=$rowan["bart"]; // Buchungsart
	160	$blattkeyber=$rowan["blattart"]; // Schluessel von Blatt-Art des berechtigten GB
	161	$blattartber=$rowan["blattartv"]; // Wert von Blatt-Art des berechtigten GB
	162	$nrpl=$rowan["nrpl"]; // Nummer im Aufteilungsplan
	163	$sond=$rowan["sond"]; // Beschreibung des Sondereigentums
	164
	165	echo "\n<table class='outer'>" // \n<hr>
	166	."\n<tr>" // 1 row only
	167	."\n<td>"; // outer linke Spalte - Daten
	168	// Rahmen mit Kennzeichen GB
	169	if ($blattkeyber == 1000) {
	170	echo "\n\t<table class='kennzgb' title='Bestandskennzeichen'>";
	171	} else {
	172	echo "\n\t<table class='kennzgbf' title='Bestandskennzeichen'>"; // dotted
	173	}
	174	echo "\n\t<tr>"
	175	."\n\t\t<td class='head'>Bezirk</td>"
	176	."\n\t\t<td class='head'>".$blattartber."</td>"
	177	."\n\t\t<td class='head'>Lfd-Nr,</td>"
	178	."\n\t\t<td class='head'>Buchungsart</td>"
	179	."\n\t</tr>";
	180	echo "\n\t<tr>"
	181	."\n\t\t<td title='Grundbuchbezirk'>";
	182	if ($showkey) {echo "<span class='key'>".$rowan["bezirk"]."</span><br>";}
	183	echo $beznam."</td>"
	184	."\n\t\t<td title='Grundbuch-Blatt'><span class='wichtig'>".$rowan["blatt"]."</span></td>"
	185	."\n\t\t<td title='Bestandsverzeichnis-Nummer (BVNR, Grundstück)'>".$rowan["lfd"]."</td>"
	186	."\n\t\t<td title='Buchungsart'>";
	187	if ($showkey) {echo "<span class='key'>".$rowan["buchungsart"]."</span><br>";}
	188	echo $rowan["bart"]
	189	."</td>"
	190	."\n\t</tr>"
	191	."\n\t</table>";
	192	if ($rowan["zaehler"] <> "") {
	193	echo "\n\t<p class='ant'>".$rowan["zaehler"]."/".$rowan["nenner"]." Anteil am Flurstück</p>";
	194	}
	195	echo "\n</td>";
	196
	197	echo "\n<td>"; // outer rechte Spalte
	198	if ($idanzeige) {
	199	linkgml($gkz, $rowan["s_gml"], "Buchungsstelle", "ax_buchungsstelle");
	200	echo "<br>";
	201	linkgml($gkz, $rowan["g_gml"], "Buchungsblatt", "");
	202	}
	203	echo "\n\t<br>"
	204	."\n\t<p class='nwlink noprint'>";
	205	if ($showkey) {echo "<span class='key'>".$blattkeyber."</span> ";}
	206	echo "\n\t\t<a href='alkisbestnw.php?gkz=".$gkz."&gmlid=".$rowan["g_gml"];
	207	if ($idanzeige) {echo "&id=j";}
	208	if ($showkey) {echo "&showkey=j";}
	209	echo "' title='Grundbuchnachweis mit Eigentümerangabe'>".$blattartber
	210	." <img src='ico/GBBlatt_link.png' width='16' height='16' alt=''>"
	211	."</a>";
	212	echo "\n\t</p>"
	213	."\n\t</td>"
	214	."\n</tr>"
	215	."\n</table>";
	216
	217	if ($blattkeyber != 1000) {
	218	echo "\n<p>Blattart: ".$blattartber." (".$blattkeyber.").<br>";
	219	}
	220
	221	if ($nrpl != "") {
	222	echo "\n<p class='nrap' title='Nummer im Aufteilungsplan'>Nummer <span class='wichtig'>".$nrpl."</span> im Aufteilungsplan.</p>";
	223	}
	224
	225	if ($sond != "") {
	226	echo "\n<p class='sond' title='Sondereigentum'>Verbunden mit dem Sondereigentum<br>".$sond."</p>";
	227	}
	228
	229	if ($eig == "j") {
	230	$n = eigentuemer($rowan["g_gml"], true, ""); // mit Adresse
	231	}
	232	$an++;
	233	}
	234	pg_free_result($resber);
	235	return;
[362]	236	}
	237
[387]	238
[362]	239	function kurz_namnr($lang) {
	240	// Namensnummer kÃŒrzen. Nicht benÃ¶tigte Stufen der Dezimalklassifikation abschneiden
	241	$kurz=str_replace(".00","",$lang); // leere Stufen (nur am Ende)
	242	$kurz=str_replace("0000","",$kurz); // ganz leer (am Anfang)
	243	$kurz=ltrim($kurz, "0"); // fuehrende Nullen am Anfang
	244	$kurz=str_replace(".0",".",$kurz); // fuehrende Null jeder Stufe
[377]	245	$kurz=rtrim($kurz); // Leerzeichen hinten
	246	// echo "/n<p class='dbg'> lang='".$lang."'</p>/n<p class='dbg'> kurz='".$kurz."'</p>";
[362]	247	return $kurz;
	248	}
	249
	250	function bnw_fsdaten($con, $lfdnr, $gml_bs, $ba, $anteil, $bvnraus, $bartkey, $bartstory) {
	251	/* Bestandsnachweis - Flurstuecksdaten
	252	Die Tabellenzeilen mit den Flurstuecksdaten zu einer Buchungsstelle im Bestandsnachweis ausgeben.
	253	Die Funktion wird je einmal aufgerufen fÃŒr die Buchungen direkt auf dem GB (Normalfall).
	254	Weiterere Aufrufe ggf. bei Erbbaurecht fÃŒr die mit "an" verknuepften Buchungsstellen.
[377]	255	Table-Tag und Tabellenkopf werden im aufrufenden Programm ausgegeben. */
[387]	256	global $debug, $gkz, $showkey, $filtkreis, $filtgem, $trclass; // $zpaar
[362]	257
	258	// F L U R S T U E C K
	259	$sql="SELECT g.gemarkungsnummer, g.bezeichnung, f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.regierungsbezirk, f.kreis, f.gemeinde, f.amtlicheflaeche
	260	FROM ax_flurstueck f JOIN ax_buchungsstelle s ON f.istgebucht=s.gml_id
	261	LEFT JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer
[377]	262	WHERE f.endet IS NULL AND s.endet IS NULL AND g.endet IS NULL AND s.gml_id= $1 ";
	263	if ($filtgem == '' ) { // ungefiltert
	264	$v=array($gml_bs);
	265	} else {
	266	$sql.="AND f.kreis = $2 AND f.gemeinde = $3 "; // ZustÃ€ndiges Gebiet
	267	$v=array($gml_bs, $filtkreis, $filtgem);
	268	}
	269	$sql.="ORDER BY f.gemarkungsnummer, f.flurnummer, f.zaehler, f.nenner;";
[362]	270	$resf = pg_prepare("", $sql);
	271	$resf = pg_execute("", $v);
[387]	272	if (!$resf) {echo "\n<p class='err'>Fehler bei Flurstück</p>";}
[362]	273
	274	if($bvnraus) { // nur bei direkten Buchungen die lfdNr ausgeben
	275	$bvnr=str_pad($lfdnr, 4, "0", STR_PAD_LEFT);
[377]	276	} else {
	277	$bvnr="";
[362]	278	}
[387]	279	$altbvnr="";
[362]	280	$j=0;
	281	while($rowf = pg_fetch_array($resf)) {
	282	$flur=str_pad($rowf["flurnummer"], 3, "0", STR_PAD_LEFT);
	283	$fskenn=$rowf["zaehler"];
[387]	284	if ($rowf["nenner"] != "") { // Bruch
[362]	285	$fskenn.="/".$rowf["nenner"];
	286	}
	287	$flae=number_format($rowf["amtlicheflaeche"],0,",",".") . " m²";
	288
[387]	289	echo "\n<tr class='".$trclass."'>"; // eine Zeile je Flurstueck
[362]	290	// Sp. 1-3 der Tab. aus Buchungsstelle, nicht aus FS
[387]	291	if($bvnr == $altbvnr) { // gleiches Grundstueck, leer lassen
[362]	292	echo "\n\t<td> </td>"
	293	."\n\t<td> </td>"
	294	."\n\t<td> </td>";
	295	} else { // Sprungmarke, BVNR
[387]	296	echo "\n\t<td id='bvnr".$bvnr."'>"; // Sprungmarke
	297	// echo "\n\t\t<a id='bvnr".$bvnr."'></a>";
	298	echo "<span class='wichtig'>".$bvnr."</span>"
	299	."\n\t</td>";
[362]	300
	301	echo "\n\t<td title ='".$bartstory."'>"; // Buchungsart
	302	if ($showkey) {echo "<span class='key'>".$bartkey."</span> ";} // Schluessel
	303	echo $ba; // entschluesselt
	304	echo "</td>"
	305	."\n\t<td> </td>"; // Anteil
[387]	306	$altbvnr=$bvnr;
[362]	307	}
[387]	308
	309	// Sp. 4-7 aus Flurstueck
[362]	310	echo "\n\t<td>";
	311	if ($showkey) {echo "<span class='key'>".$rowf["gemarkungsnummer"]."</span> ";}
	312	echo $rowf["bezeichnung"]."</td>"
	313	."\n\t<td>".$flur."</td>"
	314	."\n\t<td class='fsnr'><span class='wichtig'>".$fskenn."</span>"
	315	."</td>"
[387]	316	."\n\t<td class='flag'>".$flae."</td>"; // "width" hier (flaG) erweiterbar, weil in andere Zeile die Buchungsart steht
[362]	317
[387]	318	echo "\n\t<td>\n\t\t<p class='nwlink noprint'>"
	319	."\n\t\t\t<a href='alkisfsnw.php?gkz=".$gkz."&gmlid=".$rowf["gml_id"]."&eig=n";
[362]	320	if ($showkey) {echo "&showkey=j";}
	321	echo "' title='Flurstücksnachweis'>Flurstück "
	322	."<img src='ico/Flurstueck_Link.png' width='16' height='16' alt=''>"
	323	."</a>"
[387]	324	."\n\t\t</p>"
	325	."\n\t</td>"
[362]	326	."\n</tr>";
	327
	328	$j++;
[387]	329	} // Ende Loop Flurstueck
[362]	330	pg_free_result($resf);
	331	return $j;
	332	}
	333
[387]	334	function eigentuemer($gmlid, $mitadresse, $lnkclass) {
[362]	335	// Tabelle mit Eigentuemerdaten zu einem Grundbuchblatt ausgeben
	336	// Sp.1 = Namennummer, Sp. 2 = Name / Adresse, Sp. 3 = Link
	337	// Parameter:
	338	// $gmlid = ID GB-Blattes
	339	// $mitadresse = Option (true/false) ob die Adresszeile ausgegeben werden soll
	340	// Return = Anzahl Namensnummern
	341
	342	// Schleife 1: N a m e n s n u m m e r
	343	// Beziehung: ax_namensnummer >istBestandteilVon> ax_buchungsblatt
	344	global $debug, $gkz, $showkey;
	345
	346	// Link ÃŒber Java-Class? (Ja in alkisinlayausk.php, sonst normal)
	347	if ($lnkclass == "") {
	348	$lnkvor = "";
	349	$lnknach = "";
	350	} else {
	351	$lnkvor = "javascript:".$lnkclass."(\"";
	352	$lnknach = "\")";
	353	} // Beispiel-Link href='javascript:imFenster(\"alkislage.php?gkz= ... ."\")'>xxx ";
	354
[387]	355	$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.v AS adrv, we.v AS eiartv "
	356	."FROM ax_namensnummer n "
	357	."LEFT JOIN alkis_wertearten wn ON cast(n.artderrechtsgemeinschaft AS character varying)=wn.k AND wn.element='ax_namensnummer' AND wn.bezeichnung='artderrechtsgemeinschaft' "
	358	."LEFT JOIN alkis_wertearten we ON cast(n.eigentuemerart AS character varying)=we.k AND we.element='ax_namensnummer' AND we.bezeichnung='eigentuemerart' "
	359	."WHERE n.istbestandteilvon= $1 AND n.endet IS NULL ORDER BY n.laufendenummernachdin1421;";
[362]	360
	361	$v = array($gmlid); // 16 Stellen bei Relationen
	362	$resn = pg_prepare("", $sqln);
	363	$resn = pg_execute("", $v);
	364
	365	if (!$resn) {
[387]	366	echo "\n<p class='err'>Fehler bei Eigentümer</p>";
	367	// kein Fehler bei Blattarten > 1000
[389]	368	//if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".$sqln."<br>$1=gml= '".$gmlid."'</p>";}
[362]	369	}
	370
	371	$n=0; // Z.NamNum.
	372	while($rown = pg_fetch_array($resn)) {
[387]	373	if($n == 0) { // Die Ãberschrift nur, wenn auch ein Inhalt folgt
	374	echo "\n\n<h3><img src='ico/Eigentuemer_2.png' width='16' height='16' alt=''> Angaben zum Eigentum</h3>"
	375	."\n<table class='eig'>";
	376	}
[362]	377	$gmlnn=$rown["gml_id"];
[377]	378	$namnum=kurz_namnr($rown["lfd"]);
	379	$rechtsg=$rown["adr"];
	380	echo "\n<tr>"
	381	."\n\t<td class='nanu' title='Namens-Nummer'>\n\t\t<p>" // Sp. 1
	382	.$namnum." " // VOR die Tabelle: "EigentÃŒmer"
	383	."</p>\n\t</td>"
	384	. "\n\t<td>"; // Sp. 2
[362]	385	if ($rechtsg != "" ) {
	386	if ($rechtsg == 9999) { // sonstiges
	387	echo "\n\t\t<p class='zus' title='Beschrieb der Rechtsgemeinschaft'>".htmlentities($rown["beschr"], ENT_QUOTES, "UTF-8")."</p>";
	388	} else {
	389	echo "\n\t\t<p class='zus' title='Art der Rechtsgemeinschaft'>".htmlentities($rown["adrv"], ENT_QUOTES, "UTF-8")."</p>";
	390	}
	391	}
	392	//if ($rown["anlass"] > 0 ) {echo "<p>Anlass=".$rown["anlass"]."</p>";} // TEST:
	393
	394	// Schleife Ebene 2: andere Namensnummern
	395	// Beziehung ax_namensnummer >bestehtAusRechtsverhaeltnissenZu> ax_namensnummer
	396
	397	// Die Relation 'Namensnummer' besteht aus RechtsverhÃ€ltnissen zu 'Namensnummer' sagt aus,
	398	// dass mehrere Namensnummern zu einer Rechtsgemeinschaft gehÃ¶ren kÃ¶nnen.
	399	// Die Rechtsgemeinschaft selbst steht unter einer eigenen AX_Namensnummer,
	400	// die zu allen Namensnummern der Rechtsgemeinschaft eine Relation besitzt.
	401
	402	// Schleife 2: P e r s o n
	403	// Beziehung: ax_person <benennt< ax_namensnummer
[391]	404	$sqlp="SELECT gml_id, nachnameoderfirma, vorname, geburtsname, to_char(cast(geburtsdatum AS date),'DD.MM.YYYY') AS geburtsdatum, namensbestandteil, akademischergrad "
[364]	405	."FROM ax_person WHERE gml_id= $1 AND endet IS NULL;";
	406	$gmlpers=$rown["benennt"];
	407	$v = array($gmlpers); // gml_id von ax_person
[362]	408	$resp = pg_prepare("", $sqlp);
	409	$resp = pg_execute("", $v);
	410	if (!$resp) {
[387]	411	echo "\n\t<p class='err'>Fehler bei Person</p>";
	412	if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqlp."<br>$1=gml= '".$gmlpers."'</p>";}
[362]	413	}
	414
	415	$i=0; // cnt Person
[364]	416	while($rowp = pg_fetch_array($resp)) { // Schleife weglassen? nn >benennt> Person ist KEIN Array!
[377]	417	$diePerson=""; //++ Anrede?
[362]	418	if ($rowp["akademischergrad"] <> "") {$diePerson=$rowp["akademischergrad"]." ";}
	419	$diePerson.=$rowp["nachnameoderfirma"];
	420	if ($rowp["vorname"] <> "") {$diePerson.=", ".$rowp["vorname"];}
	421	if ($rowp["namensbestandteil"] <> "") {$diePerson.=". ".$rowp["namensbestandteil"];}
	422	if ($rowp["geburtsdatum"] <> "") {$diePerson.=", geb. ".$rowp["geburtsdatum"];}
	423	if ($rowp["geburtsname"] <> "") {$diePerson.=", geb. ".$rowp["geburtsname"];}
	424	$diePerson=htmlentities($diePerson, ENT_QUOTES, "UTF-8"); // Umlaute
	425
[377]	426	if ($i > 0) { // Spalte 1 enthÃ€lt die Namensnummer, nur in Zeile 0
[362]	427	echo "\n<tr>\n\t<td> </td>\n\t<td>";
	428	}
	429	// Spalte 2 = Angaben
	430	$eiartkey=$rown["eigentuemerart"]; // Key
	431	$eiart=$rown["eiartv"]; // Value
	432	echo "\n\t\t<p class='geig' title='Eigentümerart: ".$eiart."'>".$diePerson."</p>\n\t</td>";
	433
	434	// Spalte 3 = Link
	435	echo "\n\t<td>\n\t\t<p class='nwlink noprint'>";
	436	if ($showkey AND $eiartkey != '') { // oft leer
[387]	437	echo "<span class='key' title='Eigentümerart'>".$eiartkey."</span> ";
[362]	438	}
[387]	439	echo "\n\t\t\t<a href='".$lnkvor."alkisnamstruk.php?gkz=".$gkz."&gmlid=".$rowp[0];
	440	if ($showkey) {echo "&showkey=j";}
[398]	441	if ($eiartkey == "") {$eiart="Eigentümer" ;} // Default. Ersatz-Text, wenn nicht gefÃŒllt
[377]	442	echo $lnknach."' title='vollständiger Name und Adresse eines Eigentümers'>".$eiart
	443	." <img src='ico/Eigentuemer.png' width='16' height='16' alt=''></a>\n\t\t</p>"
	444	."\n\t</td>\n</tr>";
[362]	445
	446	if ($mitadresse) {
	447	// Schleife 3: A d r e s s e (OPTIONAL)
	448	$sqla ="SELECT a.gml_id, a.ort_post, a.postleitzahlpostzustellung AS plz, a.strasse, a.hausnummer, a.bestimmungsland "
[398]	449	."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;";
[362]	450	$gmlp=$rowp["gml_id"]; // Person
	451	$v = array($gmlp);
	452	$resa = pg_prepare("", $sqla);
	453	$resa = pg_execute("", $v);
	454
	455	if (!$resa) {
[387]	456	echo "\n\t<p class='err'>Fehler bei Adressen</p>";
	457	if ($debug > 2) {echo "\n<p class='err'>SQL=<br>".$sqla."<br>$1=gml= '".$gmlp."'</p>";}
[362]	458	}
	459	$j=0;
	460	while($rowa = pg_fetch_array($resa)) {
	461	$j++;
[398]	462	if ($j == 1) { // erste ("jÃŒngste") Adresse anzeigen
[362]	463	$gmla=$rowa["gml_id"];
	464	$plz=$rowa["plz"]; // integer
	465	if($plz == 0) {
	466	$plz="";
	467	} else {
	468	$plz=str_pad($plz, 5, "0", STR_PAD_LEFT);
	469	}
	470	$ort=htmlentities($rowa["ort_post"], ENT_QUOTES, "UTF-8");
	471	$str=htmlentities($rowa["strasse"], ENT_QUOTES, "UTF-8");
	472	$hsnr=$rowa["hausnummer"];
	473	$land=htmlentities($rowa["bestimmungsland"], ENT_QUOTES, "UTF-8");
	474
	475	echo "\n<tr>\n\t<td> </td>"; //Sp. 1
	476	echo "\n\t<td><p class='gadr'>"; //Sp. 2
	477	if ($str.$hsnr != "") {echo $str." ".$hsnr."<br>";}
	478	if ($plz.$ort != "") {echo $plz." ".$ort;}
	479	if ($land != "" and $land != "DEUTSCHLAND") {echo ", ".$land;}
	480	echo "</p></td>\n\t<td>"; // Sp. 3
	481	echo " </td>\n</tr>";
[398]	482	} else { // manchmal doppelte Angaben
[362]	483	echo "\n<tr>\n\t<td> </td>\n\t<td><p class='dbg' title='Siehe Auskunft zur Person'>weitere Adresse</p></td>\n\t<td> </td>\n</tr>";
	484	}
	485	}
	486	pg_free_result($resa);
	487	}
	488	// 'keine Adresse' kann vorkommen, z.B. "Deutsche Telekom AG"
	489	$i++; // cnt Person
	490
	491	// Anteil als eigene Tab-Zeile:
	492	$zaehler=$rown["zaehler"];
	493	if ($zaehler != "") {
	494	$zaehler=str_replace(".", ",", $zaehler); // Dezimal-KOMMA wenn dem Notar der Bruch nicht reicht
	495	$nenner=str_replace(".", ",", $rown["nenner"]);
	496	$comnt="Anteil der Berechtigten in Bruchteilen (Par. 47 GBO) an einem gemeinschaftlichen Eigentum (Grundstück oder Recht).";
[377]	497	echo "\n<tr>\n\t<td> </td>" // Sp. 1
	498	."\n\t<td><p class='avh' title='".$comnt."'>".$zaehler."/".$nenner." Anteil</p></td>"
	499	."\n\t<td> </td>\n</tr>"; // Sp. 3
[362]	500	}
	501	} // End Loop Person
[387]	502	if ($i == 0) { // Keine Person. Das kommt vor hinter der Zeile "Erbengemeinschaft" und ist dann KEIN Fehler
[364]	503	if ($rechtsg != 9999) {
	504	echo "\n<p class='err'>(Die Person mit der ID '".$gmlpers."' fehlt im Datenbestand)</p>";
	505	} else {
	506	if ($debug > 1) { // nur bei Entwicklung
[377]	507	echo "\n\t\t<p class='dbg'>Rechtsgemeinschaft = '".$rechtsg."'</p>";
[362]	508	}
	509	}
[377]	510	echo "</td>\n\t<td> </td>\n</tr>";
[362]	511	}
	512	$n++; // cnt NamNum
	513	} // End Loop NamNum
[387]	514	if($n > 0) {
	515	echo "\n</table>";
	516	} else { // $n == 0, bei "Fiktives Blatt" KEIN Fehler
[362]	517	if ($debug > 1) {
[377]	518	echo "\n<p class='dbg'>keine Namensnummern zum Blatt</p>";
[387]	519	//if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".$sqln."<br>$1=gml(Blatt)= '".$gmlid."'</p>";}
[362]	520	}
	521	}
	522	pg_free_result($resn);
	523	return $n;
[377]	524	} // End function eigentuemer
[362]	525
[394]	526	function werteliste ($element, $bezeichnung ,$sqlin) {
	527	// Eine oder mehrere EntschlÃŒsselungen aus "alkis_wertearten" in eine Zeile ausgeben.
	528	// Dient dazu, SchlÃŒssel-ARRAYs auflÃ¶sen ohne die Zeile mehrfach aufzulisten (JOIN)
	529	// Anwendung: FS-Nachweis BodenschÃ€tzung "Klimastufe + WasserverhÃ€ltnisse"
	530	global $debug;
	531	$sql="SELECT k, v FROM alkis_wertearten WHERE element = $1 AND bezeichnung = $2 AND k IN (".$sqlin.") ORDER BY k;";
	532	$v = array($element, $bezeichnung);
	533	$res = pg_prepare("", $sql);
	534	$res = pg_execute("", $v);
	535	if (!$res) {
	536	echo "\n<p class='err'>Fehler bei Werteliste aus alkis_wertearten.</p>";
	537	if ($debug > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."<br>$1 = '".$sqlin."'</p>";}
	538	return;
	539	}
	540	$i=0;
	541	while($row = pg_fetch_array($res)) {
	542	echo " ".$row["v"];
	543	$i++;
	544	}
	545	pg_free_result($res);
	546	if ($i == 0 ) {echo "(kein Treffer)";}
	547	return;
	548	}
	549
[362]	550	?>

Note: See TracBrowser for help on using the repository browser.

Download in other formats: