Context Navigation

← Previous Revision
Next Revision →
Normal
Revision Log

alkisfsnw.php @ 431

Revision 430, 31.7 KB checked in by frank.jaeger, 22 months ago (diff)
ALKIS-Auskunft angepasst an PHP 8

Rev	Line
[362]	1	<?php
[427]	2	/* alkisfsnw.php
[362]	3
[427]	4	ALKIS-Auskunft
	5	Author: Frank JÃ€ger, Kommunales Rechenzentrum Minden-Ravensberg/Lippe (Lemgo)
[362]	6
[427]	7	FlurstÃŒcksnachweis fÃŒr ein FlurstÃŒckskennzeichen aus ALKIS PostNAS
	8
[362]	9	Version:
[425]	10	2016-02-24 Version fÃŒr norGIS-ALKIS-Import
[427]	11	...
[422]	12	2020-12-03 function selbstverlinkung() statt $_SERVER['PHP_SELF']
	13	2020-12-09 Verschn. mit "Bau-, Raum- oder Bodenordnungsrecht" korrigiert, Entschl. BodenschÃ€tzung korrigiert
	14	2020-12-16 Input-Validation und Strict Comparisation (===)
	15	2021-03-09 Link zum GebÃ€udenachweis auch mit "Bauwerke" betiteln
[425]	16	2021-12-09 Neue Parameter: $katAmtMix (Kataster-Amt-Mix), $PrntBtn (Drucken-SchaltflÃ€che)
[427]	17	2022-01-13 Functions in Fach-Modul verschoben, die nicht von mehreren verwendet werden. Neue Functions LnkStf(), DsKy()
[430]	18	2022-07-05 PHP 8.1: Connection verwenden bei "pg_prepare" und "pg_execute", keine NULL-Werte in String-Functions verwenden
[362]	19
[422]	20	ToDo:
[425]	21	- Tabbelle "nutz_21" ist ein Relikt von NorGIS/ALB und kÃ¶nnte in spÃ€teren Versionen fehlen.
[402]	22	- Buchung auf "fiktives Blatt" ist nur mit debug zu sehen: die <tr> in .css grau hinterlegen
[422]	23	- "Umschalter" (gleiches Modul) anders darstellen als Links zu ANDEREN Nachweisen
[389]	24	- Parameter zum Umschalten mit/ohne BodenschÃ€tzung?
	25	- Bessere Differenzierung bei den Nutzungsarten (Tabelle dafÃŒr aufbauen)
[362]	26	*/
[427]	27
[430]	28	function werteliste($bez ,$sqlin, $con) {
[427]	29	// Eine oder mehrere EntschlÃŒsselungen in eine Zeile ausgeben.
	30	// Dient dazu, SchlÃŒssel-ARRAYs auflÃ¶sen ohne die Zeile im JOIN mehrfach aufzulisten
	31	// Anwendung: FS-Nachweis BodenschÃ€tzung
	32	global $dbg;
	33
	34	if ($bez === 'e') {$tabelle = 'ax_entstehungsartoderklimastufewasserverhaeltnisse_bodensc';}
	35	elseif ($bez === 's') {$tabelle = 'ax_sonstigeangaben_bodenschaetzung';}
	36
	37	$sql="SELECT wert, beschreibung FROM ".$tabelle." WHERE wert IN (".$sqlin.") ORDER BY wert LIMIT $1 ;";
	38	$v = array('9');
[430]	39	$res = pg_prepare($con, "", $sql);
	40	$res = pg_execute($con, "", $v);
[427]	41	if (!$res) {
	42	echo "\n<p class='err'>Fehler bei Werteliste.</p>";
	43	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";}
	44	return;
	45	}
	46	$zeianz=pg_num_rows($res);
	47	while($row = pg_fetch_assoc($res)) {
	48	echo " ".$row["beschreibung"];
	49	}
	50	pg_free_result($res);
	51	if ($zeianz === 0) {
	52	echo "(kein Treffer)";
	53	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities($sql, ENT_QUOTES, "UTF-8")."</p>";}
	54	}
	55	return;
	56	}
	57
	58	// Start
[422]	59	ini_set("session.cookie_httponly", 1);
[362]	60	session_start();
[422]	61
[402]	62	$eig="n"; $showkey="n"; $nodebug=""; // Var. initalisieren
	63	$cntget = extract($_GET); // alle Parameter in Variable umwandeln
[387]	64
	65	// strikte Validierung aller Parameter
	66	if (isset($gmlid)) {
	67	if (!preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
	68	$fskennz='';
	69	} else { // Alternativ
	70	$gmlid='';
[422]	71	if (isset($fskennz)) {
[387]	72	if (!preg_match('#^[0-9\-_/]{8,20}$#', $fskennz)) {die ("Eingabefehler fskennz");}
	73	} else {
[422]	74	die("Fehlender Parameter");
[387]	75	}
	76	}
[422]	77	if (isset($gkz)) {
	78	if (!preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
	79	} else {
	80	die("Fehlender Parameter");
	81	}
[387]	82	if (!preg_match('#^[j\|n]{0,1}$#', $eig)) {die("Eingabefehler eig");}
	83	if (!preg_match('#^[j\|n]{0,1}$#', $showkey)) {die ("Eingabefehler showkey");}
[422]	84	if ($showkey === "j") {$showkey=true;} else {$showkey=false;} // "j"/"n" als bool, ist praktischer, oft gebraucht
[402]	85	if (!preg_match('#^j{0,1}$#', $nodebug)) {die("Eingabefehler nodebug");}
[387]	86
[422]	87	include "alkis_conf_location.php";
	88	include "alkisfkt.php";
[362]	89	?>
[377]	90	<!doctype html>
	91	<html lang="de">
[362]	92	<head>
[377]	93	<meta charset="utf-8">
[387]	94	<meta name="viewport" content="width=device-width, initial-scale=1.0">
[362]	95	<title>ALKIS Flurstücksnachweis</title>
	96	<link rel="stylesheet" type="text/css" href="alkisauszug.css">
	97	<link rel="shortcut icon" type="image/x-icon" href="ico/Flurstueck.ico">
[402]	98	<script>
	99	function ALKISexport(gmlid) {
	100	window.open('alkisexport.php?gkz=<?php echo $gkz;?>&tabtyp=flurstueck&gmlid=' + gmlid);
[362]	101	}
	102	</script>
	103	</head>
	104	<body>
	105	<?php
[422]	106	$erlaubnis = darf_ich(); if ($erlaubnis === 0) { die('<p class="stop1">Abbruch</p></body>'); }
[427]	107	$dbg=$debug;
[425]	108	if ($nodebug === "j") {$dbg=0;}
[402]	109
[377]	110	$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisfsnw.php'");
[387]	111	if (!$con) echo "\n<p class='err'>Fehler beim Verbinden der DB</p>";
[362]	112
[422]	113	// Ein FlurstÃŒcks-Kennzeichen im DB-Format wurde alternativ zur gml_id ÃŒbermittelt
[387]	114	if ($fskennz != '') {
[422]	115	// Spalte "flurstueckskennzeichen" ist in DB indiziert. Format z.B.'052647002001910013__' oder '05264700200012______'
	116	$sql ="SELECT gml_id FROM ax_flurstueck WHERE flurstueckskennzeichen= $1 AND endet IS NULL;";
[419]	117	$v=array(fskenn_dbformat($fskennz));
[430]	118	$res = pg_prepare($con, "", $sql);
	119	$res = pg_execute($con, "", $v);
[402]	120	if ($row = pg_fetch_assoc($res)) {
[362]	121	$gmlid=$row["gml_id"];
	122	} else {
[387]	123	echo "\n<p class='err'>Fehler! Kein Treffer für Flurstückskennzeichen='".$fskennz."' (".$fskzdb.")</p>";
[427]	124	echo "<p>Kennzeichen veraltet? <a href='./alkisfshist.php?gkz=".$gkz."&fskennz=".$fskennz.LnkStf()."'>Suche in der Flurstücks-Historie</a></p>";
[387]	125	echo "\n</body>\n</html>";
	126	return;
[362]	127	}
	128	pg_free_result($res);
	129	}
	130
[427]	131	// F L U R S T Ã C K m. Gebiet
[417]	132	$sql ="SELECT f.zeigtaufexternes_art, f.zeigtaufexternes_name, f.flurnummer, f.zaehler, f.nenner, f.gemeindezugehoerigkeit_regierungsbezirk, f.gemeindezugehoerigkeit_kreis, f.gemeindezugehoerigkeit_gemeinde, f.amtlicheflaeche, st_area(f.wkb_geometry) AS fsgeomflae,
	133	to_char(cast(f.zeitpunktderentstehung AS date),'DD.MM.YYYY') AS zeitpunktderentstehung, f.istgebucht, g.gemarkungsnummer, g.bezeichnung, r.bezeichnung AS rbez, k.bezeichnung AS kbez, m.bezeichnung AS mbez
[402]	134	FROM ax_flurstueck f
[425]	135	LEFT JOIN ax_gemarkung g ON f.gemeindezugehoerigkeit_land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer ".UnqKatAmt("f","g")
	136	."LEFT JOIN ax_regierungsbezirk r ON f.gemeindezugehoerigkeit_regierungsbezirk=r.regierungsbezirk ".UnqKatAmt("f","r")
	137	."LEFT JOIN ax_kreisregion k ON f.gemeindezugehoerigkeit_regierungsbezirk=k.regierungsbezirk AND f.gemeindezugehoerigkeit_kreis=k.kreis ".UnqKatAmt("f","k")
	138	."LEFT JOIN ax_gemeinde m ON m.regierungsbezirk=f.gemeindezugehoerigkeit_regierungsbezirk AND m.kreis=f.gemeindezugehoerigkeit_kreis AND m.gemeinde=f.gemeindezugehoerigkeit_gemeinde ".UnqKatAmt("f","m")
	139	."WHERE f.gml_id= $1 AND f.endet IS NULL AND g.endet IS NULL AND m.endet IS NULL AND k.endet IS NULL AND r.endet IS NULL;";
[412]	140
[362]	141	$v = array($gmlid); // mit gml_id suchen
[430]	142	$res = pg_prepare($con, "", $sql);
	143	$res = pg_execute($con, "", $v);
[362]	144	if (!$res) {
[387]	145	echo "\n<p class='err'>Fehler bei Flurstuecksdaten</p>";
[425]	146	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";}
[362]	147	}
[425]	148	if ($dbg > 0) {
	149	$zeianz=pg_num_rows($res);
	150	if ($zeianz > 1){
	151	echo "\n<p class='err'>Die Abfrage liefert mehr als ein (".$zeianz.") Flurstücks-Objekt!</p>";
	152	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";}
	153	}
	154	}
[402]	155	if ($row = pg_fetch_assoc($res)) {
[362]	156	$gemkname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8");
	157	$gmkgnr=$row["gemarkungsnummer"];
[412]	158	$bezirk=$row["gemeindezugehoerigkeit_regierungsbezirk"];
[402]	159	$rbez=htmlentities($row["rbez"], ENT_QUOTES, "UTF-8");
[412]	160	$kreis=$row["gemeindezugehoerigkeit_kreis"];
[402]	161	$kbez=htmlentities($row["kbez"], ENT_QUOTES, "UTF-8");
[412]	162	$gemeinde=$row["gemeindezugehoerigkeit_gemeinde"];
[402]	163	$mbez=htmlentities($row["mbez"], ENT_QUOTES, "UTF-8");
[362]	164	$flurnummer=$row["flurnummer"];
	165	$zaehler=$row["zaehler"];
	166	$nenner=$row["nenner"];
	167	$flstnummer=$zaehler;
[430]	168	if ($nenner == NULL) {
	169	$nenner="";
	170	} else {
	171	$flstnummer.="/".$nenner;
	172	} // BruchNr
[427]	173	$fsbuchflae=$row["amtlicheflaeche"]; // amtl. Fl. aus DB-Feld
[362]	174	$fsgeomflae=$row["fsgeomflae"]; // aus Geometrie ermittelte FlÃ€che
[389]	175	$the_Xfactor = $fsbuchflae / $fsgeomflae; // Multiplikator zur Umrechnung geometrische AbschnittsflÃ€chen in BuchflÃ€che
[362]	176	$fsbuchflaed=number_format($fsbuchflae,0,",",".") . " m²"; // Display-Format dazu
	177	$fsgeomflaed=number_format($fsgeomflae,0,",",".") . " m²";
[402]	178	$gml_buchungsstelle=$row["istgebucht"]; // wird erst im GB-Teil benÃ¶tigt
[417]	179	$entsteh=$row["zeitpunktderentstehung"];
	180	$zeart=$row["zeigtaufexternes_art"];
	181	$zename=$row["zeigtaufexternes_name"];
[430]	182	if (is_null($zename)) {$zename="";}
[362]	183	} else {
[387]	184	echo "\n<p class='err'>Fehler! Kein Treffer für Flurstück mit gml_id=".$gmlid."</p>";
[425]	185	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";}
[387]	186	echo "\n</body>\n</html>";
[362]	187	return;
	188	}
	189	pg_free_result($res);
[377]	190
[422]	191	if ($eig==="j") { // Balken
	192	echo "<p class='balken fsei'>ALKIS Flurstück ".$gmkgnr."-".$flurnummer."-".$flstnummer." </p>"
[402]	193	."\n\n<h2>Flurstück mit Eigentümer</h2>";
[362]	194	} else {
[422]	195	echo "<p class='balken fskennz'>ALKIS Flurstück ".$gmkgnr."-".$flurnummer."-".$flstnummer." </p>"
[402]	196	."\n\n<h2>Flurstück</h2>";
[362]	197	}
[377]	198
	199	// PrÃŒfung der Gebiets-Berechtigung bei gemeinsam genutzten Datenbanken (Kreis und Gemeinde)
	200	// FÃŒr das gkz (z.B. aus dem Mapfile-Namen) wird in der Konfiguration ein Filter gesetzt.
	201	if ( ($filtkreis != '' and $filtkreis != $kreis) or ($filtgem != '' and $filtgem != $gemeinde) ) {
	202	// Einer der gesetzten Filter passt nicht
[427]	203	if ($dbg > 2) {
[387]	204	echo "\n<p class='err'>Filter Kreis='".$filtkreis."', Gemeinde='".$filtgem."'</p>"
	205	."\n<p class='err'>Flstk. Kreis='".$fskrs."', Gemeinde='".$fsgem."'</p>";
[377]	206	}
	207	echo "\n<br><p class='stop1'>Zugriff nicht erlaubt</p>"
	208	."\n<br><p class='stop2'>Dies Flurstück liegt ausserhalb der zuständigen Stadt oder Gemeinde.</p>\n</body>\n</html>";
	209	exit;
	210	}
	211
[402]	212	echo "\n<table class='outer'>"
	213	."\n\t<tr>\n\t\t<td class='ll'><img src='ico/Flurstueck.png' width='16' height='16' alt=''> Kennzeichen:</td>" // Links
	214	."\n\t\t<td>" // Mitte
	215	."\n\t\t\t<table class='kennzfs' title='Flurstückskennzeichen'>\n\t\t\t\t<tr>" // darin Tabelle Kennzeichen
	216	."\n\t\t\t\t\t<td class='head'>Gemarkung</td>\n\t\t\t\t\t<td class='head'>Flur</td>\n\t\t\t\t\t<td class='head'>Flurst-Nr.</td>\n\t\t\t\t</tr>"
[427]	217	."\n\t\t\t\t<tr>\n\t\t\t\t\t<td title='Gemarkung'>".DsKy($gmkgnr, 'Gemarkungsnummer').$gemkname." </td>"
[402]	218	."\n\t\t\t\t\t<td title='Flurnummer'>".$flurnummer."</td>"
	219	."\n\t\t\t\t\t<td title='Flurstücksnummer (Zähler / Nenner)'><span class='wichtig'>".$flstnummer."</span></td>\n\t\t\t\t</tr>"
	220	."\n\t\t\t</table>"
[417]	221	."\n\t\t</td>\n\t\t<td>"; // Rechts
	222	fortfuehrungen($entsteh, $zeart, $zename);
	223	echo "\n\t\t</td>\n\t</tr>\n</table>";
[362]	224
[402]	225	echo "\n<hr>\n<table class='fs'>"; // FS-Teil 6 Spalten
[425]	226	echo "\n<tr>\n\t<td></td>\n\t<td></td>\n\t<td></td>\n\t<td></td>\n\t<td></td>" // 1-5 in erster Zeile kein "colspan" verwenden
	227	."\n\t<td><p class='nwlink noprint'>weitere Auskunft:</p></td>"
[402]	228	."\n</tr>";
[362]	229
[427]	230	echo "\n<tr>" // Zeile: GebietszugehÃ¶rigkeit - Gemeinde / Kreis / Reg.bez.
[425]	231	."\n\t<td class='ll'><img title='Im Gebiet von' src='ico/Gemeinde.png' width='16' height='16' alt=''> Gebiet:</td>"
	232	."\n\t<td>Gemeinde<br>Kreis<br>Regierungsbezirk</td>"
[427]	233	."\n\t<td class='lr' colspan='3'>".DsKy($gemeinde, 'Gemeinde-Nummer').$mbez."<br>".DsKy($kreis, 'Kreis-Nummer').$kbez."<br>".DsKy($bezirk, 'Regierungsbezirk-Nummer').$rbez."</td>"
[425]	234	."\n\t<td class='nwlink'>";
	235	if ($fsHistorie){ // conf
	236	echo "\n\t\t<p class='nwlink noprint'>"
[427]	237	."\n\t\t\t<a href='alkisfshist.php?gkz=".$gkz."&gmlid=".$gmlid.LnkStf()
	238	."' title='Vorgänger-Flurstücke'>Historie <img src='ico/Flurstueck_Historisch.png' width='16' height='16' alt=''></a>\n\t\t</p>\n\t";
[425]	239	}
	240	echo "</td>"
[402]	241	."\n</tr>";
[362]	242
[427]	243	// L a g e b e z e i c h n u n g
[362]	244
[399]	245	// Lagebezeichnung M I T Hausnummer
[362]	246	// ax_flurstueck >weistAuf> AX_LagebezeichnungMitHausnummer
[399]	247	$sql="SELECT DISTINCT l.gml_id, l.gemeinde, l.lage, l.hausnummer, s.bezeichnung, s.gml_id AS kgml
[362]	248	FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf)
	249	JOIN ax_lagebezeichnungkatalogeintrag s ON l.land=s.land AND l.regierungsbezirk=s.regierungsbezirk AND l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage
	250	WHERE f.gml_id= $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL
	251	ORDER BY l.gemeinde, l.lage, l.hausnummer;";
	252
	253	$v = array($gmlid);
[430]	254	$res = pg_prepare($con, "", $sql);
	255	$res = pg_execute($con, "", $v);
[362]	256
	257	if (!$res) {
[387]	258	echo "\n<p class='err'>Fehler bei Lagebezeichnung mit Hausnummer</p>";
[425]	259	if ($dbg > 1) {
[387]	260	echo "\n<p class='dbg'>Fehler:".pg_last_error()."</p>";
[425]	261	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$gmlid."'",$sql), ENT_QUOTES, "UTF-8")."</p>";}
[362]	262	}
	263	} else {
	264	$j=0;
[399]	265	$kgmlalt="";
[402]	266	while($row = pg_fetch_assoc($res)) {
[399]	267	$sname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name
[422]	268	if (substr($sname, strlen($sname) -3, 3) === 'weg') { // Versuch fuer korrekten Satzbau
[399]	269	$slink=" am ".$sname;
	270	} else {
	271	$slink=" an der ".$sname;
	272	}
	273	$hsnr=$row["hausnummer"];
[402]	274	echo "\n<tr>";
[427]	275	if ($j === 0) {
[387]	276	echo "\n\t<td class='ll'><img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''> Adresse:</td>";
[362]	277	} else {
[387]	278	echo "\n\t<td> </td>";
[362]	279	}
[427]	280	echo "\n\t<td> </td>"
	281	."\n\t<td class='lr' colspan='3'>".DsKy($row["lage"], 'StraÃen-*').$sname." ".$hsnr."</td>"
	282	."\n\t<td>\n\t\t<p class='nwlink noprint'>";
[399]	283
	284	// +++ davor auch Link "StraÃe"
	285	$kgml=$row["kgml"]; // Wiederholung vermeiden
	286	if ($kgml != $kgmlalt) { // NEUE Strasse vor Lage
	287	$kgmlalt=$kgml; // Katalog GML-ID
	288	echo "\n\t\t\t<a title='Flurstücke mit oder ohne Hausnummer".$slink."' "
[427]	289	."href='alkisstrasse.php?gkz=".$gkz."&gmlid=".$kgml.LnkStf()."'>Straße "
[399]	290	."<img src='ico/Strassen.png' width='16' height='16' alt='STRA'></a> ";
	291	}
	292
[427]	293	echo "\n\t\t\t<a title='Flurstücke und Gebäude mit Hausnummer ".$hsnr."' href='alkislage.php?gkz=".$gkz."&ltyp=m&gmlid=".$row["gml_id"].LnkStf()
	294	."'>Lage <img src='ico/Lage_mit_Haus.png' width='16' height='16' alt=''></a>"
[402]	295	."\n\t\t</p>\n\t</td>" // 6
[377]	296	."\n</tr>";
[362]	297	$j++;
	298	}
	299	$cnt_adressen=$j;
	300	pg_free_result($res);
	301	}
	302
[399]	303	// Lagebezeichnung O H N E Hausnummer (Gewanne oder nur Strasse)
[362]	304	// ax_flurstueck >zeigtAuf> AX_LagebezeichnungOhneHausnummer
[430]	305	$sql ="SELECT l.gml_id, coalesce(l.unverschluesselt, '') AS gewann, l.gemeinde, l.lage, s.bezeichnung
[362]	306	FROM ax_flurstueck f JOIN ax_lagebezeichnungohnehausnummer l ON l.gml_id=ANY(f.zeigtauf)
	307	LEFT JOIN ax_lagebezeichnungkatalogeintrag s ON l.land=s.land AND l.regierungsbezirk=s.regierungsbezirk AND l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage
	308	WHERE f.gml_id = $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL;";
	309
	310	$v = array($gmlid);
[430]	311	$res = pg_prepare($con, "", $sql);
	312	$res = pg_execute($con, "", $v);
[362]	313	if (!$res) {
[387]	314	echo "\n<p class='err'>Fehler bei Lagebezeichnung ohne Hausnummer</p>";
[425]	315	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1", "'".$gmlid."'", $sql), ENT_QUOTES, "UTF-8")."</p>";}
[362]	316	}
[402]	317	while($row = pg_fetch_assoc($res)) {
[362]	318	$skey=$row["lage"]; // Strassenschl.
[422]	319	$lgml=$row["gml_id"]; // Key der Lage
[430]	320	$gewann = htmlentities($row["gewann"], ENT_QUOTES, "UTF-8");
[422]	321	if ($gewann != '') {
[377]	322	echo "\n<tr>"
[402]	323	."\n\t<td class='ll' title='unverschlüsselte Lagebezeichnung'><img src='ico/Lage_Gewanne.png' width='16' height='16' alt=''> Gewanne:</td>" // 1
[427]	324	."\n\t<td></td>"
	325	."\n\t<td class='lr' colspan='3'>".$gewann."</td>"
	326	."\n\t<td>\n\t\t<p class='nwlink noprint'>"
	327	."\n\t\t\t<a title='Flurstücke mit der Gewanne ".$gewann."' href='alkislage.php?gkz=".$gkz."&ltyp=o&gmlid=".$lgml.LnkStf()
	328	."'>\n\t\t\tLage <img src='ico/Lage_Gewanne.png' width='16' height='16' alt=''></a>"
	329	."\n\t\t</p>\n\t</td>"
[377]	330	."\n</tr>";
[399]	331	} elseif ($skey > 0) {
	332	$sname=htmlentities($row["bezeichnung"], ENT_QUOTES, "UTF-8"); // Str.-Name
[422]	333	if (substr($sname, strlen($sname) -3, 3) === 'weg') { // Versuch fuer korrekten Satzbau
[399]	334	$slink=" am ".$sname;
	335	} else {
	336	$slink=" an der ".$sname;
	337	}
[377]	338	echo "\n<tr>"
[427]	339	."\n\t<td class='ll'><img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''> Straße:</td>"
	340	."\n\t<td></td>\n\t<td class='lr' colspan='3'>".DsKy($skey, 'StraÃen-*').$sname."</td>";
	341	echo "\n\t<td>\n\t\t<p class='nwlink noprint'>"
	342	."\n\t\t\t<a title='FlurstÃŒcke ".$slink."' href='alkislage.php?gkz=".$gkz."&ltyp=o&gmlid=".$lgml.LnkStf()
	343	."'>\n\t\t\tLage <img src='ico/Lage_an_Strasse.png' width='16' height='16' alt=''>\n\t\t\t</a>"
	344	."\n\t\t</p>\n\t</td>"
[377]	345	."\n</tr>";
[362]	346	}
	347	}
	348	pg_free_result($res);
	349
[402]	350	/* Status "N u t z u n g":
	351	Die Classic-Tabelle "nutzung" ist eine Zusammenfassung aller Tabellen mit Nutzungs-FlÃ€chen
	352	Die Classic-Tabelle "nutzung_meta" zeigt die Kategorie und Gruppe des Nutzungs-Abschnitts an.
[362]	353
[402]	354	Aus der norGIS-Struktur wird ersatzweise VORLÃUFIG die Tabelle "nutz_21" verwendet,
	355	die das alte ALB-Format der Nutzungs-Abschnitte von FlurstÃŒcken simuliert.
	356	Hier finden sich bereits verschnittene FlÃ€chen, aber die gml_id fehlt.
[362]	357
[402]	358	Die EntschlÃŒsselung der Nutzungsart in den verschiedenen ALKIS-Varianten ist darin unterentwickelt.
	359	Diese ist eigentlich fÃŒr jede der getrennten Tabellen der Gruppe Nutzungsart individuell.
	360	Die Classic-LÃ¶sung mit 2 Zusatzfeldern war schon sehr pauschalisiert, aber
	361	durch die RÃŒck-Konvertierung in ALB-Strukturen in der norGIS-Version ist das zu stark vereinfacht.
	362	z.B. wird "WohnbauflÃ€che" mit der Zusatzeigenschaft "Art der Bebauung": 'Offen'
	363	nun zur Nutzungsart "Offen".
	364	Durch JOIN auf die "alkis_elemente" mit einem Teil des SchlÃŒssels wird das zur "WohnbauflÃ€che, Offen".
	365	Es sollte eine Tabellen-Struktur bereit gestellt werden, die auch aussagt, dass der Wert "Offen" zur
	366	Zusatz-Eigenschaft "Art der Bebauung" gehÃ¶rt. Dazu muss das PostProcessing erweitert werden. */
[362]	367
	368	$sql="SELECT e.definition, trim(both FROM n.nutzsl) AS nutzsl, trim(both FROM n.fl) AS fl, trim(both FROM s.nutzung) AS nutzung
	369	FROM nutz_21 n JOIN nutz_shl s ON n.nutzsl = s.nutzshl
	370	JOIN alkis_elemente e ON e.kennung = substring(n.nutzsl from 1 for 5)
	371	WHERE n.flsnr = $1 ORDER BY cast(n.fl AS integer) DESC;";
	372	// Flurstueckskennzeichen mit Trennzeichen im ALB-Format wie 'llgggg-fff-zzzzz/nnn'
	373	$fskennzalb=$defland.$gmkgnr."-".str_pad($flurnummer,3,"0",STR_PAD_LEFT)."-".str_pad($zaehler,5,"0",STR_PAD_LEFT)."/".str_pad($nenner,3,"0",STR_PAD_LEFT);
	374	$v = array($fskennzalb);
[430]	375	$res = pg_prepare($con, "", $sql);
	376	$res = pg_execute($con, "", $v);
[362]	377	if (!$res) {
[387]	378	echo "\n<p class='err'>Fehler bei Suche tats. Nutzung</p>";
[425]	379	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".htmlentities(str_replace("$1","'".$fskennzalb."'",$sql), ENT_QUOTES, "UTF-8")."'</p>";}
[362]	380	}
	381	$j=0;
[402]	382	while($row = pg_fetch_assoc($res)) {
[362]	383	$flae=$row["fl"]; // BuchflÃ€che
	384	$nutzsl=$row["nutzsl"]; // SchlÃŒssel
	385	$nutzung=$row["nutzung"]; // Bezeichnung aus ALB-Tabelle, "fein"
	386	$defi=$row["definition"]; // Langer Text mit Beschreibung
	387	$title=htmlentities($defi, ENT_QUOTES, "UTF-8"); // .. fÃŒr Anzeige aufbereitet
	388	echo "\n<tr>\n\t";
[422]	389	if ($j === 0) { // 1
[362]	390	echo "<td class='ll' title='Abschnitt der tatsächlichen Nutzung'><img src='ico/Abschnitt.png' width='16' height='16' alt=''> Nutzung:</td>";
	391	} else {
	392	echo "<td> </td>";
	393	}
	394	$absflaebuch = number_format($flae,0,",",".") . " m²"; // Formatierte Abschnitts-Buch-FlÃ€che
[427]	395	echo "\n\t<td></td>"
	396	."\n\t<td class='fla' title='Buchfläche des Abschnitts'>".$absflaebuch."</td>" // Sp. wie Fl. in BodenschÃ€tzg.
	397	."\n\t<td></td>"
	398	."\n\t<td class='lr' title='".$title."'>".DsKy($nutzsl, 'Nutzungsarten-*').$nutzung."</td>"
	399	."\n\t<td>";
[389]	400	/* // Derzeit ist keine Gruppe zugeordnet
[362]	401	switch ($grupp) { // Icon nach 4 Objektartengruppen
	402	case "Siedlung": $ico = "Abschnitt.png"; break;
	403	case "Verkehr": $ico = "Strassen_Klassifikation.png"; break;
	404	case "Vegetation": $ico = "Wald.png"; break;
	405	case "GewÃ€sser": $ico = "Wasser.png"; break;
[427]	406	default: $ico = "Abschnitt.png"; break;
[362]	407	}
	408	// Icon ist auch im Druck sichtbar, class='noprint' ?
[402]	409	echo "<p class='nwlink'><img title='".$title."' src='ico/".$ico."' width='16' height='16' alt='NUA'></p>"; */
[427]	410	echo "</td>"
[377]	411	."\n</tr>";
[362]	412	$j++;
	413	}
	414	pg_free_result($res);
	415
[402]	416	echo "\n<tr>" // FlÃ€chen-Summenzeile
	417	."\n\t<td class='re' title='amtliche Fläche (Buchfläche)'>Fläche:</td>" // 1
	418	."\n\t<td> </td>" // 2
	419	."\n\t<td class='fla sum'>" // 3 Flaeche
	420	."<span title='geometrisch berechnete Fläche = ".$fsgeomflaed."' class='flae'>".$fsbuchflaed."</span></td>"
	421	."\n\t<td> </td>" // 4
	422	."\n\t<td> </td>" // 5
	423	."\n\t<td>" // 6 Link auf GebÃ€ude-Auswertung
[377]	424	."\n\t\t<p class='nwlink noprint'>" // Gebaeude-Verschneidung
[427]	425	."\n\t\t\t<a href='alkisgebaeudenw.php?gkz=".$gkz."&gmlid=".$gmlid.LnkStf();
[402]	426	if ($cnt_adressen > 0) { // wenn Adresse vorgekommen ist
[422]	427	echo "' title='Gebäude oder Bauwerke auf oder an dem Flurstück'>Gebäude/Bauw.";
[402]	428	} else { // GebÃ€ude mit Adresse gibt es NICHT, das ist klar
[422]	429	echo "' title='Suche Gebäude (ohne Adresse) oder Bauwerke auf dem Flurstück'>Gebäude/Bauw.";
[402]	430	}
	431	echo "<img src='ico/Haus.png' width='16' height='16' alt=''></a>"
[377]	432	."\n\t\t</p>"
[402]	433	."\n\t</td>" // 6
	434	."\n</tr>";
[362]	435
[389]	436	// B o d e n s c h Ã€ t z u n g
	437	// ---------------------------
	438	// Tabelle "klas_3x" (norbit-ALB): Dort fehlen Bodenart und Zustandsstufe, es ist aber bereits auf BuchflÃ€che umgerechnet.
	439
[394]	440	// BodenschÃ€tzungs-Abschnitte mit FlurstÃŒcken verschneiden, Spalten entschlÃŒsseln
[412]	441	$sql="SELECT b.kulturart AS kulturartk, kulturart.beschreibung AS kulturartv,
	442	b.bodenart AS bodenartk, bodenart.beschreibung AS bodenartv, zustbod.beschreibung AS zustbodv,
[394]	443	b.entstehungsartoderklimastufewasserverhaeltnisse AS entsteh, b.sonstigeangaben,
[430]	444	coalesce(b.bodenzahlodergruenlandgrundzahl, '') as bodenzahl, b.ackerzahlodergruenlandzahl AS ackerzahl,
[389]	445	b.jahreszahl, st_area(st_intersection(b.wkb_geometry, f.wkb_geometry)) AS schnittflae
	446	FROM ax_flurstueck f
	447	JOIN ax_bodenschaetzung b ON st_intersects(b.wkb_geometry, f.wkb_geometry) AND st_area(st_intersection(b.wkb_geometry, f.wkb_geometry)) > 0.05
[412]	448	LEFT JOIN ax_bodenart_bodenschaetzung bodenart ON b.bodenart = bodenart.wert
	449	LEFT JOIN ax_kulturart_bodenschaetzung kulturart ON b.kulturart = kulturart.wert
	450	LEFT JOIN ax_zustandsstufeoderbodenstufe_bodenschaetzung zustbod ON b.zustandsstufeoderbodenstufe = zustbod.wert
[389]	451	WHERE f.gml_id = $1 AND f.endet IS NULL AND b.endet IS NULL ORDER BY schnittflae DESC";
	452
	453	$v = array($gmlid);
[430]	454	$res = pg_prepare($con, "", $sql);
	455	$res = pg_execute($con, "", $v);
[389]	456	if (!$res) {echo "\n<p class='err'>Fehler bei DB-Abfrage zur Klassifizierung Boden</p>\n";}
	457	$gesertragsmz = 0; // Gesamt-ErtragsMesszahl
	458	$klasflae = 0; // Summe klassifizierte FlÃ€che
	459	$j=0;
	460	if(!empty($res) && pg_num_rows($res) > 0) {
[402]	461	while ($row = pg_fetch_assoc($res)) {
[389]	462	$kulturartk=$row['kulturartk']; // Key -
[422]	463	$kulturartv=$row['kulturartv']; // - Value
	464	if (substr($kulturartv, 0, 3) === 'Ack') { // A
[389]	465	$kbez1="Bodenzahl";
	466	$kbez2="Ackerzahl";
	467	} else { // Gr
	468	$kbez1="Grünlandgrundzahl";
	469	$kbez2="Grünlandzahl";
	470	}
	471	$absflae = $row['schnittflae'];
	472	$absbuchflae = $absflae * $the_Xfactor;
	473	$klasflae+=$absbuchflae;
[430]	474
	475	$boedenzahl=ltrim($row['bodenzahl'], '0');
	476	if (is_null($row['ackerzahl'])) {
	477	$ackerzahl="";
	478	$ertragszahl = 0;
	479	} else {
	480	$ackerzahl=ltrim($row['ackerzahl'], '0');
	481	$ertragszahl = intval($absbuchflae * $row['ackerzahl'] / 100);
	482	}
[389]	483	$gesertragsmz+=$ertragszahl;
[422]	484	// $absflaedis = number_format($absflae,0,",",".")." m²"; // als Tool-Tip ?
[389]	485	$absbuchflaedis = number_format($absbuchflae,0,",",".")." m²";
[430]	486
[394]	487	$jahr=$row['jahreszahl'];
	488	$entsteh=$row['entsteh'];
	489	$sonst=$row['sonstigeangaben'];
[422]	490	if ($j === 0) { // 1
[389]	491	echo "\n<tr>\n\t<td class='ll' title='Abschnitt Bodenschätzung'><img src='ico/Landwirt.png' width='16' height='16' alt=''> Bodenschätzung:</td>";
	492	} else {
	493	echo "\n<tr>\n\t<td> </td>";
	494	}
[422]	495	echo "\n\t<td class='fla' title='Ertragsmesszahl: Produkt von ".$kbez2."/100 und Fläche.'>EMZ ".$ertragszahl."</td>"
	496	."\n\t<td class='re' title='Fläche des Schätzungsabschnitts'>".$absbuchflaedis."</td>"
	497	."\n\t<td class='lr'><span title='".$kbez1."'>".$boedenzahl."</span>/<span title='".$kbez2."'>".$ackerzahl."</span></td>"
	498	."\n\t<td class='lr'>";
[427]	499	echo "\n\t\t".DsKy($kulturartk, 'Kulturart')." <span title='Kulturart-*'>".$kulturartv."</span>";
	500	echo "\n\t\t<br>".DsKy($row['bodenartk'], 'Bodenart-*')." <span title='Bodenart'>".$row['bodenartv']."</span>";
	501	echo "\n\t\t<br><span title='Zustandsstufe'>".$row['zustbodv']."</span>";
[389]	502
[422]	503	// 2 ARRAYs auflÃ¶sen
	504	if (isset($entsteh)) {
	505	$ent=trim($entsteh, "{}");
[427]	506	echo "\n\t\t<br><span title='Enststehungsart oder Klimastufe, Wasserverhältnisse'>".DsKy($ent, '*');
[430]	507	werteliste('e', $ent, $con); // ++ Zeilenweise mit <br> ?
[394]	508	echo "</span>";
	509	}
[422]	510	if (isset($sonst)) {
	511	$son=trim($sonst, "{}");
[430]	512	echo "\n\t\t<br><span title='Sonstige Angaben'>".werteliste('s', $son, $con)."</span>"; // ++ Zeilenweise mit <br> ?
[394]	513	}
[422]	514	if (isset($jahr)) {
[427]	515	echo "\n\t\t<br><span title='Jahreszahl'>".$jahr."</span>";
[394]	516	}
[422]	517	echo "\n\t</td>"
	518	."\n\t<td> </td>\n</tr>";
[389]	519	$j++;
	520	}
	521	// Summenzeile
	522	$klasflaedis = number_format($klasflae,0,",",".")." m²";
[402]	523	echo "\n<tr>\n\t<td class='re'>Ertragsmesszahl:</td>" // 1
	524	."\n\t<td class='fla sum' title='Summe der Ertragsmesszahlen für dies Flurstück'>".$gesertragsmz."</td>" // 2
	525	."\n\t<td class='re'>".$klasflaedis."</td>" // 3
	526	."\n\t<td colspan='3'> </td>\n</tr>"; // 4-6
[389]	527	}
	528
[422]	529	// H i n w e i s
	530	// auf "Bau-, Raum- oder Bodenordnungsrecht" (Baulast, Flurbereinigung) oder eine "strittige Grenze"
	531
	532	// Gemeinsame FlÃ€che suchen: entweder (ST_Intersects and not ST_Touches) oder (2xST_Within OR ST_Overlaps), ST_Intersects liefert auch angrenzende
[425]	533	$sql_boden ="SELECT b.artderfestlegung AS wert, a.beschreibung AS art_verf, b.gml_id AS verf_gml, b.bezeichnung AS verf_bez,
[362]	534	b.name AS verf_name, d.bezeichnung AS stelle_bez, d.stelle AS stelle_key
[422]	535	FROM ax_flurstueck f
	536	JOIN ax_bauraumoderbodenordnungsrecht b ON ST_Within(b.wkb_geometry, f.wkb_geometry) OR ST_Within(f.wkb_geometry, b.wkb_geometry) OR ST_Overlaps(b.wkb_geometry, f.wkb_geometry)
	537	LEFT JOIN ax_artderfestlegung_bauraumoderbodenordnungsrecht a ON b.artderfestlegung=a.wert
[425]	538	LEFT JOIN ax_dienststelle d ON b.stelle=d.stelle ".UnqKatAmt("b","d")
	539	."WHERE f.gml_id = $1 AND f.endet IS NULL AND b.endet IS NULL AND d.endet IS NULL";
[362]	540
	541	pg_prepare($con, "bodeneuordnung", $sql_boden);
	542	$res_bodeneuordnung = pg_execute($con, "bodeneuordnung", array($gmlid));
	543	if (!$res_bodeneuordnung) {
[387]	544	echo "\n<p class='err'>Fehler bei Bau-, Raum- oder Bodenordnungsrecht</p>";
[425]	545	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1", "'".$gmlid."'", $sql_boden)."</p>";}
[362]	546	}
	547	$sql_str="SELECT gml_id FROM ax_besondereflurstuecksgrenze WHERE endet IS NULL AND 1000 = ANY(artderflurstuecksgrenze)
	548	AND ST_touches((SELECT wkb_geometry FROM ax_flurstueck WHERE gml_id = $1 AND endet IS NULL),wkb_geometry);";
	549
	550	pg_prepare($con, "strittigeGrenze", $sql_str);
	551	$res_strittigeGrenze = pg_execute($con, "strittigeGrenze", array($gmlid));
	552	if (!$res_strittigeGrenze) {
[387]	553	echo "\n<p class='err'>Fehler bei strittige Grenze</p>";
[425]	554	if ($dbg > 2) {echo "\n<p class='dbg'>SQL=<br>".str_replace("$1", "'".$gmlid."'", $sql_str)."</p>";}
[362]	555	}
	556	if (pg_num_rows($res_bodeneuordnung) > 0 OR pg_num_rows($res_strittigeGrenze) > 0) {
[377]	557	echo "\n<tr>"
[402]	558	."\n\t<td title='Hinweise zum Flurstück'><h6><img src='ico/Hinweis.png' width='16' height='16' alt=''> " // 1
	559	."Hinweise:</h6></td>\n\t<td colspan='5'> </td>\n</tr>";// 2-6
[362]	560	if (pg_num_rows($res_bodeneuordnung) > 0) {
[402]	561	while ($row = pg_fetch_assoc($res_bodeneuordnung)) { // 3 Zeilen je Verfahren
	562	echo "\n<tr title='Bau-, Raum- oder Bodenordnungsrecht'>" // Zeile 1 - kommt immer, darum hier den Link
	563	."\n\t<td>Bodenrecht</td>" // 1
	564	."\n\t<td class='re'>Festlegung: </td>" // 2 "Art der Festlegung" zu lang
[427]	565	."\n\t<td colspan='3'>".DsKy($row['wert'], 'Art des Verfahrens').$row['art_verf']."</td>";
	566	echo "\n\t<td>"
[390]	567	."\n\t\t<p class='nwlink noprint'>"
[427]	568	."\n\t\t\t<a href='alkisbaurecht.php?gkz=".$gkz."&gmlid=".$row['verf_gml'].LnkStf()
	569	."' title='Bau-, Raum- oder Bodenordnungsrecht'>Recht <img src='ico/Gericht.png' width='16' height='16' alt=''></a>"
[390]	570	."\n\t\t</p>"
	571	."\n\t</td>"
[362]	572	."\n</tr>";
[402]	573	$dstell=$row['stelle_key']; // Zeile 2
[422]	574	if ($dstell != '') {
[377]	575	echo "\n<tr title='Flurbereinigungsbehörde'>"
[402]	576	."\n\t<td> </td>" // 1
	577	."\n\t<td class='re'>Dienststelle: </td>" // 2
[427]	578	."\n\t<td colspan='3'>".DsKy($dstell, 'Art der Dienststelle').$row['stelle_bez']."</td>"
	579	."\n\t<td> </td>"
[362]	580	."\n</tr>";
	581	}
[402]	582	$vbez=$row['verf_bez']; // Zeile 3, ist nicht immer gefÃŒllt
[362]	583	$vnam=$row['verf_name']; // noch seltener
[422]	584	if ($vbez != '') {
[377]	585	echo "\n<tr title='Verfahrensbezeichnung'>"
[390]	586	."\n\t<td> </td>"
	587	."\n\t<td class='re'>Verfahren: </td>"
	588	."\n\t<td colspan='3'>";
[427]	589	if ($vnam == "") {
	590	echo $vbez; // nur die Nummer
	591	} else { // Name oder beides
	592	echo DsKy($vbez, 'Nummer des Verfahrens').$vnam;
	593	}
[377]	594	echo "</td>"
	595	."\n\t<td> </td>"
	596	."\n</tr>";
[362]	597	}
	598	}
	599	}
	600	if (pg_num_rows($res_strittigeGrenze) > 0) { // 1 Zeile
	601	echo "\n<tr>\n<td>Strittige Grenze:</td>"
[390]	602	."<td colspan=4>Mindestens eine Flurstücksgrenze ist als <b>strittig</b> zu bezeichnen. Sie kann nicht festgestellt werden, weil die Beteiligten sich nicht über den Verlauf einigen. Nach sachverständigem Ermessen der Katasterbehörde ist anzunehmen, dass das Liegenschaftskataster nicht die rechtmäßige Grenze nachweist.</td>"
[362]	603	."\n<td> </td>\n</tr>";
	604	}
	605	}
	606	echo "\n</table>";
	607
[402]	608	// B U C H U N G S S T E L L E N zum FS
	609	$bartgrp=""; // Buchungsart
	610	$barttypgrp=""; // Buchungsart Typ
[422]	611	if ($gml_buchungsstelle === '') {
	612	echo "\n<p class='err'>Keine Buchungstelle zum Flurstück gefunden.</p>"; // keine Verweis vorhanden?
	613	} else {
	614	echo "\n<table class='outer'>"; // ALLE Buchungen und EigentÃŒmer in 4 Spalten EINER Tabelle ausgeben
	615
[402]	616	$stufe=1; // SchleifenzÃ€hler Tiefe
[422]	617	$gezeigt=buchung_anzg($gml_buchungsstelle, $eig, false, $gmlid, 1); // die ("dienende") Buchung anzeigen, wenn nicht fiktiv. Liefert 1/0
[362]	618
[422]	619	$anzber=ber_bs_zaehl($gml_buchungsstelle); // Anzahl berechtigte Buchungen (nÃ€chste Stufe) zu dieser Buchung ermitteln
	620	$verf_next = array($gml_buchungsstelle); // Start Recursion mit einem Element
[425]	621	//if ($dbg > 1) {echo "<p class='dbg'>Nach Stufe ".$stufe.", Anzahl: ". $anzber ."</p>";}
[362]	622
[402]	623	while ($anzber > 0 ) { // Stufe - recursiv in die Tiefe, solange es was zu verfolgen gibt
	624	$verf_akt=$verf_next; // die nÃ€chste Stufe als aktuell ÃŒbernehmen ..
	625	$verf_next=array(); // .. und zum AuffÃŒllen leeren
	626	$stufe++;
	627	foreach($verf_akt as $gml_ber_bs) {
	628	if (ber_bs_zaehl($gml_ber_bs) > 0) {
[405]	629	$verf_neu=ber_bs_anzg($gml_ber_bs, $eig, false, $gmlid, ""); // Anzeige ber. Buchungst., ggf. mit EigentÃŒmer.
[402]	630	$anz_neu=count($verf_neu); // Das Ergebnis zÃ€hlen
	631	if ($anz_neu > 0) { // wenn neue geliefert
	632	$verf_next=array_merge($verf_next, $verf_neu); // die neuen an die Sammlung heften
[362]	633	}
	634	}
[402]	635	} // Ende Buchungs-Array in der Stufe
	636	$anzber=count($verf_next); // Sammlung auf Stufe zÃ€hlen, Steuert die Schleife.
	637	} // Ende Stufe
[387]	638
[422]	639	echo "\n</table>\n\n";
	640
	641	// Fehler aus "ModellschwÃ€che" erkennen.
	642	// Wenn der Verweis der Buchungsstelle auf ein Grundbuch ins Leere lÃ€uft, weil das Grundbuch
	643	// nicht im SekundÃ€rbestand vorhanden ist, dann kÃ¶nnte das am NBA-Verfahren liegen.
[427]	644	if ( $gezeigt === 0 and $stufe === 1 ) {
[422]	645	echo "<p class='err'>Das Grundbuch zur Buchung '".$gml_buchungsstelle."' fehlt in der Datenbank.</p>";
[427]	646	if ($dbg > 2) { // fehlt die Buchung?
[422]	647	echo "<p class='dbg'>Suchen mit SQL: SELECT * FROM ax_buchungsstelle WHERE gml_id='".$gml_buchungsstelle."'; </p>";
	648	}
	649	}
	650	}
	651
[362]	652	pg_close($con);
[425]	653	echo "<div class='buttonbereich noprint'>\n<hr>"
	654	."\n\t<a title='zurück' href='javascript:history.back()'><img src='ico/zurueck.png' width='16' height='16' alt='zurück'></a> ";
	655	if ($PrntBtn==true){echo "\n\t<a title='Drucken' href='javascript:window.print()'><img src='ico/print.png' width='16' height='16' alt='Drucken'></a> ";}
	656	echo "\n\t<a title='Export als CSV' href='javascript:ALKISexport(\"".$gmlid."\")'><img src='ico/download_fs.png' width='32' height='16' alt='Export'></a> \n</div>";
[402]	657
[422]	658	footer($gmlid, selbstverlinkung()."?", "&eig=".$eig);
[362]	659	?>
	660	</body>
	661	</html>

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

Context Navigation

source: trunk/info/info/alkisn/alkisfsnw.php @ 431

Download in other formats: