Context Navigation

source: trunk/mapbender/http/nav/alkisnav_fkt.php @ 405

Revision 405, 16.4 KB checked in by frank.jaeger, 6 years ago (diff)
Die Buchauskunft bekommt ein neues Modul Grundstücksnachweis (Buchung). Andere Module verlinken darauf.

Rev	Line
[278]	1	<?php
[399]	2	/* Navigation mit ALKIS-Daten im Mapbender 2 - Teil "Funktionen"
[376]	3	(Wird nicht direkt aufgerufen sonden in den anderen Modulen eingebunden).
[399]	4	Datenbank-Struktur aus dem norGIS-ALKIS-Importer.
[376]	5	Version vom
	6	2016-02-11 Version fÃŒr norGIS-ALKIS-Import aus Version Classic abgeleitet.
	7	2016-11-28 Gemeinsam genutzte Datenbanken ermÃ¶glichen
[399]	8	2018-02-15 Ãberarbeitung des Code
[405]	9	2018-05-02 Link "Buchung" zum neuen GrundstÃŒcks-Nachweis
[278]	10	*/
	11
[330]	12	function is_ne_zahl($wert) {
	13	// PrÃŒft, ob ein Wert ausschlieÃlich aus den Zahlen 0 bis 9 besteht
	14	if (trim($wert, "0..9") == "") {return true;} else {return false;}
	15	}
[282]	16
[330]	17	function ZerlegungGBKennz($gbkennz) {
	18	// Das eingegebene Grundbuch-Kennzeichen auseinander nehmen (gggg-999999z-BVNR)
	19	// Return: 9=Fehler, 0=Listen alle Bezirke 1=Such Bezirk-Name
	20	// 2=Such Bezirk-Nummer, 3=Such Blatt, 4=Such Buchung BVNR
	21	global $zgbbez, $zblatt, $zblattn, $zblattz, $zbvnr;
	22	$arr=explode("-", $gbkennz, 3);
	23	$zgbbez=trim($arr[0]);
[356]	24	if (count($arr) > 1) {
	25	$zblatt=trim($arr[1]);
	26	if (count($arr) > 2) {
	27	$zbvnr=trim($arr[2]);
	28	} else {
	29	$zbvnr="";
	30	}
	31	} else {
	32	$zblatt="";
	33	$zbvnr="";
	34	}
[330]	35	if ($zgbbez == "") { // keine Eingabe
	36	return 0; // Amtsgerichte oder Bezirke listen
	37	} elseif ( ! is_ne_zahl($zgbbez)) { // Alphabetische Eingabe
	38	return 1; // Such Bezirk-NAME
	39	} elseif ($zblatt == "") {
	40	return 2; // Such Bezirk-NUMMER
	41	} else { // Format von BlattNr pruefen
[284]	42	//'19' linksbÃŒndig
	43	//'000019 ' gefÃŒllt 6 + blank
	44	//'000019A' .. mit Zusatzbuchstabe
	45	//'0300001' gefÃŒllt 7, bei Blattart 5000 "fiktives Blatt"
[330]	46	$len=strlen($zblatt);
	47	if ($len > 0 AND $len < 8) {
	48	if (trim($zblatt, "0..9 ") == "") { // Normalfall: nur Zahlen (und Blank))
[284]	49	$zblattn= rtrim(ltrim($zblatt, "0"), " ");
	50	$zblattz="";
[330]	51	} else { // Sonderfall: Zusatz-Buchstabe am Ende
	52	$zblattn=substr($zblatt,0,$len-1);
	53	$zblattz=strtoupper(substr($zblatt,$len-1,1));
	54	if ((trim($zblattn, "0..9") == "") and (trim($zblattz, "A..Z") == "")) {
	55	$zblattn= ltrim($zblattn, "0"); // ohne fuehrende Nullen
	56	} else {
	57	echo "<p class='err>Format 'Blatt': bis zu 6 Zahlen und ggf. ein Buchstabe</p>";
	58	return 9;
	59	}
	60	}
	61	if ($zbvnr == "") {
	62	return 3; // Such BLATT
	63	} elseif (is_ne_zahl($zbvnr)) {
	64	// $zbvnr=ltrim($zbvnr,"0"); // DB-Format ist integer
	65	// Vorsicht, Wert "0" ist moeglich und gueltig
	66	return 4; // Such Grundstueck
	67	} else {
	68	echo "<p class='err>Die Buchungsstelle (BVNR) '".$zbvnr."' ist nicht numerisch</p>";
	69	return 9;
	70	}
	71	} else {
	72	echo "<p class='err>Das Grundbuch-Blatt '".$zblatt."' ist ungültig.</p>";
	73	return 9;
	74	}
	75	}
[284]	76	}
	77
	78	function suchfeld($suchstring) { // Suchstring Ausgeben UND das Eingabeformular damit belegen
	79	$out="<a title='Dies als Suchbegriff setzen' href='javascript:formular_belegung(\"".$suchstring."-\")'>".$suchstring."</a>";
	80	return $out;
	81	}
	82
[330]	83	// function Typ "zeile_**" = Ausgabe eines Knotens
	84	// - Icon, ggf. mit Link zur Buchauskunft
	85	// - Zeile, ggf. mit Link zur weiteren AuflÃ¶sung untergeordneter Knoten
	86	// Hierin die Encodierung fÃŒr url und HTML.
	87
[376]	88	function zeile_ag ($ag, $anr, $aktuell) {
	89	// Zeile A m t s g e r i c h t
[282]	90	global $gkz, $gemeinde, $epsg, $auskpath;
	91	if ($ag == "") {
	92	$agd=$anr; // Ersatz: Nummer statt Name. Besser: Name immer fÃŒllen
	93	} else {
	94	$agd=htmlentities($ag, ENT_QUOTES, "UTF-8");
	95	}
[356]	96	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[399]	97	echo "\n<div class='ga".$cls."' title='Amtsgericht'>"
	98	."\n\t\t<img class='nwlink' src='ico/Gericht.png' width='16' height='16' alt='AG' title='Amtsgericht'> "
	99	."AG <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&ag=".$anr."'>"
	100	.$agd."</a> (".$anr.")"
	101	."\n</div>";
[282]	102	return;
	103	}
	104
[376]	105	function zeile_gbbez ($gnam, $zgbbez, $aktuell) {
	106	// Zeile Grundbuch - B e z i r k
[284]	107	// Parameter: aktuell = Bool fÃŒr farbliche Markierung der Zeile als aktuell angeklicktes Obj.
	108	global $gkz, $gemeinde, $epsg, $person;
[282]	109	$gnamd=htmlentities($gnam, ENT_QUOTES, "UTF-8");
[356]	110	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[399]	111	echo "\n<div class='gk".$cls."' title='GB-Bezirk'>"
	112	."\n\t\t<img class='nwlink' src='ico/GB-Bezirk.png' width='16' height='16' alt='Bez.' title='GB-Bezirk'> "
	113	."<a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&gbkennz=".$zgbbez
	114	."&gbbeznam=".urlencode($gnam);
	115	if ($person != "") { // EigentÃŒmer-Suche
	116	echo "&person=".$person."'>"
	117	."Bezirk ".$gnamd."</a> (".$zgbbez.")";
	118	} else { // Grundbuch-Suche
	119	echo "'>"
	120	."Bezirk ".$gnamd."</a> (".suchfeld($zgbbez).")";
	121	}
[282]	122	echo "\n</div>";
	123	return;
	124	}
	125
[283]	126	function zeile_blatt ($bezirk, $beznam, $blattgml, $blatt, $dienend, $person, $aktuell) {
[376]	127	// Zeile Grundbuch - B l a t t
	128	// Aufruf aus Teil "Grundbuch" und Teil "EigentÃŒmer"
	129	// Parameter $beznam = Name des GB-Bezirks. Sollte nur gefÃŒllt sein, bei dienendem Blatt ("Recht an").
	130	// sonst steht der Bezirk als Header-Zeile darÃŒber.
[282]	131	global $gkz, $gemeinde, $epsg, $auskpath;
[376]	132
[282]	133	$blattd=ltrim($blatt, "0"); // Display-Version ohne fÃŒhrende Nullen
[356]	134	if ($dienend) {$dientxt="dienendes ";} else {$dientxt="";}
[282]	135	$blattlnk=urlencode($blatt); // trailing Blank
[356]	136	if ($beznam != "") {$nam = $beznam." ";} else {$nam="";}
	137	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[284]	138
[330]	139	echo "\n<div class='gb".$cls."' title='".$dientxt."GB-Blatt'>";
[284]	140
	141	// Icon / Nachweis
[282]	142	if ($blattgml == "") { // Link zum Nachweis nur wenn GML bekannt
[376]	143	echo "\n\t<img class='nwlink' src='ico/GBBlatt.png' width='16' height='16' alt='Blatt' title='".$dientxt."GB-Blatt'>";
[282]	144	} else {
[399]	145	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisbestnw.php?gkz=".$gkz."&gmlid=".$blattgml."\")'>"
	146	."\n\t\t<img class='nwlink' src='ico/GBBlatt_link.png' width='16' height='16' alt='Blatt' title='Nachweis'>"
	147	."\n\t</a> ";
[282]	148	}
[284]	149
	150	// Text, Self-Link
[399]	151	echo $nam." <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg
	152	."&blattgml=".$blattgml."&gbkennz=".$bezirk."-".$blattlnk;
[282]	153
	154	echo "&gbbeznam=".urlencode($beznam);
	155
	156	if ($person != "") {echo "&person=".$person;} // nur fÃŒr EigentÃŒmer-Suche
	157	echo "'>Blatt ".$blattd."</a>\n</div>";
	158	return;
	159	}
	160
[283]	161	function zeile_buchung($buchunggml, $bvnr, $blattkennz, $dienend, $aktuell) {
[282]	162	// Zeile B u c h u n g s s t e l l e - GrundstÃŒck ausgeben
[376]	163	global $gkz, $gemeinde, $epsg, $auskpath, $debug;
	164	//if ($debug > 1) {echo "<p class='dbg'>function zeile_buchung()<p>";} // Ablauf-Verfolgung
	165
	166	if ($bvnr == 0) { // Keine echten BVNR vergeben (z.B. Lippe)
	167	$bvnra = "-"; // Fehlanzeige
[282]	168	} else {
	169	$bvnra = str_pad($bvnr, 4, "0", STR_PAD_LEFT); // auf 4 Stellen
	170	}
[356]	171	if ($dienend) {
[282]	172	$ti="dienendes ";
	173	$re="Recht an ";
	174	} else {
	175	$ti="";
	176	$re="";
	177	}
[356]	178	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[405]	179	echo "\n<div class='gs".$cls."' title='".$ti."Grundstück'>";
	180
	181	// Icon / Nachweis
	182	if ($buchunggml == "") { // Link zum Nachweis nur wenn GML bekannt
	183	echo "\n\t<img class='nwlink' src='ico/Grundstueck.png' width='16' height='16' alt='GS' title='".$ti."Grundstück'> ".$re;
	184	} else {
	185	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisgsnw.php?gkz=".$gkz."&gmlid=".$buchunggml."\")'>"
	186	."\n\t\t<img class='nwlink' src='ico/Grundstueck_Link.png' width='16' height='16' alt='Buchung' title='".$ti."Grundstück'> ".$re
	187	."\n\t</a> ";
	188	}
	189
[283]	190	if ($blattkennz == "") { // ohne Link
	191	echo "Buchung ".$bvnra;
	192	} else {
	193	$gbkennlnk=urlencode($blattkennz."-".$bvnr); // Trailing Blanks!
[399]	194	echo "<a href='".$_SERVER['SCRIPT_NAME']. "?gkz=". $gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&buchunggml=".$buchunggml
	195	."&gbkennz=".$gbkennlnk."'>Buchung ".$bvnra."</a>";
[282]	196	}
[283]	197	echo "\n</div>";
	198	return;
[282]	199	}
	200
[315]	201	function zeile_gemeinde ($gmdnr, $gmdname, $aktuell) {
[376]	202	// Eine Kopf-Zeile zu Gemeinde ausgeben
[315]	203	global $gkz, $gemeinde, $epsg;
	204	$stadt=htmlentities($gmdname, ENT_QUOTES, "UTF-8");
	205	$bez=urlencode($gmdname);
[356]	206	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[399]	207	echo "\n<div class='gm".$cls."' title='Gemeinde'>"
	208	."\n\t\t<img class='nwlink' src='ico/Gemeinde.png' width='16' height='16' alt='Stadt'>"
	209	." Gem. <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&gm=".$gmdnr."&bez=".$bez."'>"
	210	." ".$stadt."</a> (".substr($gmdnr, 5).")"
	211	."\n</div>";
[315]	212	return;
	213	}
	214
[376]	215	function zeile_gemarkung($gkgnr, $gkgname, $aktuell) {
	216	// Eine Kopf-Zeile zur Gemarkung ausgeben
	217	global $con, $gkz, $gemeinde, $epsg, $gfilter;
	218
	219	if ($gkgname == "") { // Falls Gem.-Name fehlt, in DB nachschlagen
	220	$sql ="SELECT bezeichnung FROM ax_gemarkung WHERE gemarkungsnummer = $1 LIMIT 1;";
	221	$v=array($gnr);
	222	$res=pg_prepare("", $sql);
	223	$res=pg_execute("", $v);
	224	if (!$res) {echo "\n<p class='err'>Fehler bei Gemarkungsname.</p>";}
	225	$row = pg_fetch_array($res);
	226	$gkgname=$row["bezeichnung"];
	227	}
	228
	229	if ($gkgname == "") {$gkgname = "(unbekannt)";}
	230	$gnam=htmlentities($gkgname, ENT_QUOTES, "UTF-8");
	231	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
	232
[399]	233	echo "\n<div class='gk".$cls."' title='Gemarkung'>"
	234	."\n\t\t<img class='nwlink' src='ico/Gemarkung.png' width='16' height='16' alt='GKG' title='Gemarkung'>"
	235	." OT <a href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&fskennz=".$gkgnr."'>"
	236	." ".$gnam."</a> (".substr($gkgnr, 2).")"
	237	."\n</div>";
[376]	238	return;
	239	}
	240
[283]	241	function zeile_flurstueck ($fs_gml, $fskenn, $x, $y, $gmkg, $flur, $aktuell) {
[282]	242	// Zeile mit Icon (Link zum Buch-Nachweis) und Text (Link zum Positionieren)
	243	global $gkz, $gemeinde, $epsg, $auskpath, $scalefs;
[315]	244
[356]	245	if ($aktuell) {$cls=" aktuell";} else {$cls="";}
[399]	246	echo "\n<div class='fs".$cls."'>"
	247	."\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisfsnw.php?gkz=".$gkz."&gmlid=".$fs_gml."\")'>"
	248	."\n\t\t<img class='nwlink' src='ico/Flurstueck_Link.png' width='16' height='16' alt='FS' title='Nachweis'>"
	249	."\n\t</a>\n\t";
[282]	250
[399]	251	echo " <a title='Flurstück positionieren 1:".$scalefs."' href='"
	252	."javascript:transtitle(\"auf Flurstück positioniert\"); "
	253	."parent.parent.parent.mb_repaintScale(\"mapframe1\",".$x.",".$y.",".$scalefs."); "
	254	."parent.parent.showHighlight(".$x.",".$y.");' "
	255	."onmouseover='parent.parent.showHighlight(".$x.",".$y.")' "
	256	."onmouseout='parent.parent.hideHighlight()'>";
[282]	257
	258	if ($gmkg == "" ) {
	259	echo "Flst. "; // Im FS-Teil: Gem+Flur als Knoten darÃŒber ($gmkg und $flur leer)
	260	} else {
	261	echo $gmkg." "; // Im GB-und Nam-Teil in der Zeile angezeigt
	262	}
	263	if ($flur != "" ) {echo $flur."-";}
	264	echo $fskenn."</a>\n</div>";
	265	return;
	266	}
	267
	268	function zeile_person ($persongml, $nachname, $vorname) {
[376]	269	// Zeile P e r s o n (oder Firma)
[282]	270	global $gkz, $gemeinde, $epsg, $auskpath;
[376]	271
[282]	272	$nnam=htmlentities($nachname, ENT_QUOTES, "UTF-8");
[399]	273	$namlnk=urlencode(substr($nachname,0,50));
[282]	274	$vnam=htmlentities($vorname, ENT_QUOTES, "UTF-8");
[399]	275	// Link zur Auskunft Person, Icon differenzieren nach Eigentuemerart?
	276	echo "<div class='pe'>"
	277	."\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisnamstruk.php?gkz=".$gkz."&gemeinde=".$gemeinde."&gmlid=".$persongml."\")'>"
	278	."\n\t\t<img class='nwlink' src='ico/Eigentuemer.png' width='16' height='16' alt='EIG' title='Nachweis'>"
	279	."\n\t</a>"
	280	."\n\t<a title='Person' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&person=".$persongml."&name=".$namlnk."'>".$nnam.", ".$vnam."</a>"
	281	."</div>";
[283]	282	return;
[282]	283	}
	284
[376]	285	function zeile_strasse ($gkey, $skey, $sname, $kgml, $gemname) {
	286	// Listen-Zeile (nicht Kopfzeile) fÃŒr eine gefundenen StraÃe ausgeben.
	287	// Die Kopfzeile ÃŒber den Hausnummern hat einen zusÃ€tzlichen Koordinaten-Map-Link, das ist in der Liste zu aufwÃ€ndig?
	288	global $gkz, $gemeinde, $epsg, $auskpath, $gfilter, $debug;
	289
	290	echo "\n\t<div class='stl' title='Straßenschlüssel ".$skey."'>";
	291
	292	// Icon -> Buchnachweis
[399]	293	echo "\n\t<a title='Nachweis' href='javascript:imFenster(\"".$auskpath."alkisstrasse.php?gkz=".$gkz."&gmlid=".$kgml."\")'>"
	294	."\n\t\t<img class='nwlink' src='ico/Lage_mit_Haus.png' width='16' height='16' alt='STR' title='Auskunft Straße'>"
	295	."\n\t</a>";
[376]	296	// Zeile -> Suche HsNr
[399]	297	echo " <a class='st' href='".$_SERVER['SCRIPT_NAME']."?gkz=".$gkz."&gemeinde=".$gemeinde."&epsg=".$epsg."&str_schl=".$gkey."' title='in ".$gemname."'>".$sname
	298	."</a> (".$skey.")";
[376]	299
	300	// Die Gemeinde dahinter falls mehrere mÃ¶glich
	301	switch ($gfilter) {
	302	case 0: // Kein Filter
	303	echo " in ".$gemname; break;
	304	case 2: // Liste
	305	echo " in ".$gemname; break;
	306	}
	307	echo "</div>";
	308	return;
	309	}
	310
[283]	311	function GB_Buchung_FS ($linelimit, $blattgbkenn) {
[284]	312	// Zu einem Grundbuch-Blatt (identifiziert ÃŒber seine gml_id) suchen der
	313	// Buchungen (Gruppenwechsel) und FlurstÃŒcke (Links)
[283]	314	global $gemeinde, $blattgml, $epsg, $gfilter, $debug;
[278]	315
[334]	316	// SQL-Bausteine
[330]	317	// vorne gleich
[282]	318	$sql1 ="SELECT s1.laufendenummer AS lfd, s1.gml_id AS bsgml, f.gml_id, f.flurnummer, f.zaehler, f.nenner, f.gemeinde, ";
[278]	319	if($epsg == "25832") { // Transform nicht notwendig
[399]	320	$sql1.="st_x(st_centroid(f.wkb_geometry)) AS x, st_y(st_centroid(f.wkb_geometry)) AS y, ";
[278]	321	} else {
[399]	322	$sql1.="st_x(st_transform(st_centroid(f.wkb_geometry), ".$epsg.")) AS x, "
	323	."st_y(st_transform(st_centroid(f.wkb_geometry), ".$epsg.")) AS y, ";
[278]	324	}
[376]	325	$sql1.="g.bezeichnung FROM ax_buchungsstelle s1 ";
[278]	326
[334]	327	// zwischen, Variante 1.
[339]	328	$sqlz1="JOIN ax_flurstueck f ON f.istgebucht=s1.gml_id ";
[278]	329
[334]	330	// zwischen, Variante 2. Nur an oder "an" und "zu"?
[399]	331	$sqlz2 ="JOIN ax_buchungsstelle s2 ON s2.gml_id=ANY(s1.an) "
	332	."JOIN ax_flurstueck f ON f.istgebucht=s2.gml_id ";
[334]	333
[330]	334	// hinten gleich
[399]	335	$sql2="JOIN ax_gemarkung g ON f.land=g.land AND f.gemarkungsnummer=g.gemarkungsnummer "
	336	."WHERE s1.istbestandteilvon = $1 AND f.endet IS NULL AND s1.endet IS NULL ";
[376]	337
[278]	338	switch ($gfilter) {
	339	case 1: // Einzelwert
[376]	340	$sql2.="AND f.gemeinde='".$gemeinde."' "; break;
[278]	341	case 2: // Liste
[376]	342	$sql2.="AND f.gemeinde in ('".str_replace(",", "','", $gemeinde)."') "; break;
[278]	343	}
	344
[334]	345	// WHERE-Zusatz bei 2
	346	$sqlw2=" AND s2.endet IS NULL ";
[278]	347
[334]	348	$sqlord="ORDER BY cast(s1.laufendenummer AS integer), f.gemarkungsnummer, f.flurnummer, f.zaehler, f.nenner LIMIT $2 ;";
	349
	350	// d i r e k t e B u c h u n g e n
	351	// Blatt <istBestandteilVon< Buchungsstelle <istGebucht< FlurstÃŒck
[339]	352	$v=array($blattgml, $linelimit); // Rel. istBestandteilVon
[334]	353	$res=pg_prepare("", $sql1.$sqlz1.$sql2.$sqlord);
[278]	354	$res=pg_execute("", $v);
	355	if (!$res) {
	356	echo "\n<p class='err'>Fehler bei Buchung und Flurstück.</p>";
[339]	357	if ($debug >= 3) {echo "\n<p class='err'>SQL='".$sql1.$sqlz1.$sql2.$sqlord."'<br>$1 = '".$blattgml."'</p>";}
[278]	358	return;
	359	}
	360	$zfs1=0;
	361	$gwbv="";
	362	while($row = pg_fetch_array($res)) {
	363	$bvnr=$row["lfd"];
[282]	364	$bsgml=$row["bsgml"]; // Buchungsstelle gml_id
	365	if ($gwbv != $bvnr) { // Gruppierung Buchungs-Stelle (BVNR)
	366	$gwbv = $bvnr;
[283]	367	zeile_buchung($bsgml, $bvnr, $blattgbkenn, false, false);
[278]	368	}
	369	$fs_gml=$row["gml_id"];
[376]	370	$gmkg=$row["bezeichnung"];
[278]	371	$flur=$row["flurnummer"];
	372	$fskenn=$row["zaehler"];
	373	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // BruchNr
	374	$x=$row["x"];
	375	$y=$row["y"];
[283]	376	zeile_flurstueck ($fs_gml, $fskenn, $x, $y, $gmkg, $flur, false);
[278]	377	$zfs1++;
	378	}
[284]	379	// "nichts gefunden" erst melden, wenn auch Teil 2 (Rechte an) nichts findet
	380	if($zfs1 > 1) { // ab 2
	381	echo "\n<p class='anz'>".$zfs1." Flurstücke zum Grundbuch";
	382	if($zfs1 >= $linelimit) {
	383	echo "... und weitere"; //++ BlÃ€ttern einfÃŒhren?
	384	}
	385	echo "</p>";
[278]	386	}
[282]	387	if($zfs1 > 0) {echo "<hr>";} // Trennen
[278]	388
[334]	389	// Rechte "an" (dienende Buchungen)
[278]	390	$v=array($blattgml, $linelimit);
[334]	391	$res=pg_prepare("", $sql1.$sqlz2.$sql2.$sqlw2.$sqlord);
[278]	392	$res=pg_execute("", $v);
	393	if (!$res) {
	394	echo "\n<p class='err'>Fehler bei Recht an Buchung.</p>";
[334]	395	#if ($debug >= 3) {echo "\n<p class='dbg'>".$sql1.$sqlz2.$sql2.$sqlw2.$sqlord."</p>";}
[278]	396	return;
	397	}
	398	$zfs2=0;
	399	$gwbv="";
	400	while($row = pg_fetch_array($res)) {
	401	$bvnr=$row["lfd"];
[282]	402	$bsgml=$row["bsgml"]; // Buchungsstelle gml_id
	403	if ($gwbv != $bvnr) { // Gruppierung Buchung (BVNR) - dienend
	404	$gwbv = $bvnr;
[283]	405	zeile_buchung($bsgml, $bvnr, $blattgbkenn, true, false);
[278]	406	}
	407	$fs_gml=$row["gml_id"];
[376]	408	$gmkg=$row["bezeichnung"];
[278]	409	$flur=$row["flurnummer"];
	410	$fskenn=$row["zaehler"];
	411	if ($row["nenner"] != "") {$fskenn.="/".$row["nenner"];} // Bruchnummer
[283]	412	zeile_flurstueck ($fs_gml, $fskenn, $row["x"], $row["y"], $gmkg, $flur, false);
[278]	413	$zfs2++;
	414	}
[283]	415	// Foot
[278]	416	if($zfs1 + $zfs2 == 0) {
	417	echo "\n<p class='anz'>Kein Flurstück im berechtigten Bereich.</p>";
	418	} elseif($zfs2 > 1) { // keine Meldung "nichts gefunden - Rechte an" wenn Treffer in Teil 1
[284]	419	echo "\n<p class='anz'>".$zfs2." Rechte an Flurst.";
	420	if($zfs2 >= $linelimit) {
	421	echo "... und weitere"; // BlÃ€ttern einfÃŒhren?
	422	}
	423	echo "</p>";
[278]	424	}
	425	return;
	426	}
	427
	428	?>

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

Download in other formats: