1 | <?php |
---|
2 | /* Modul alkisexport.php |
---|
3 | CSV-Export von ALKIS-Daten zu einem Flurstueck, Grundbuch, EigentÃŒmer oder StraÃe. |
---|
4 | Es wird eine GML-ID ÃŒbergeben. |
---|
5 | Es wird ein gespeicherter View verwendet, der nach der gml_id gefiltert wird. |
---|
6 | Der View verkettet Flurstueck - Buchungsstelle - Grundbuch - Eigentuemer |
---|
7 | Die Lagebezeichnung des FlurstÃŒcks wird in ein Feld komprimiert. |
---|
8 | Parameter Beispiele: |
---|
9 | ?gkz=mandant&tabtyp=flurstueck/grundbuch/person/strasse&gmlid=DE... Standard |
---|
10 | ?gkz=270&tabtyp=gemarkung&gemarkung=2662 Sonderfall ganze Gemarkung |
---|
11 | ?gkz=270&gemarkung=2662 |
---|
12 | ?gkz=mandant&tabtyp=strasse&haus=m&gmlid=DE... Filter &haus=m/o = mit oder ohne Hausnummer |
---|
13 | ?gkz=mandant&tabtyp=strasse&haus=o bei Strasse auch ohne gmlid zulÀssig - nicht verwenden wenn aus NBA unscharf geladen |
---|
14 | Beispiele fÃŒr Fehler: |
---|
15 | ?gkz=270&tabtyp=gemarkung&gmlid=2662 |
---|
16 | ?gkz=270&tabtyp=flurstueck&gemarkung=2662 |
---|
17 | ?gkz=270&tabtyp=flurstueck |
---|
18 | ?gkz=270&gmlid=2662 |
---|
19 | |
---|
20 | Version: |
---|
21 | -------- |
---|
22 | 2016-02-23 Version fuer norGIS-ALKIS-Import |
---|
23 | 2016-10-18 Export einer ganzen Gemarkung zulassen (Sonderfall bei den Parametern) |
---|
24 | 2016-11-29 Gemeinsam genutzte Datenbanken ermöglichen |
---|
25 | 2017-02-23 Filter mit/ohne Hausnummer zum Typ "strasse". |
---|
26 | Dazu muss der View "exp_csv_str" um die spalte "fall" erweitert werden. |
---|
27 | 2017-06-08 Validierung Eingabeparameter |
---|
28 | 2017-10-11 Sauber filtern auf endet IS NULL |
---|
29 | 2017-12-20 Nur eine Adresse zur Person (Siehe Views in "views_exp_csv.sql") |
---|
30 | |
---|
31 | ToDo: |
---|
32 | - In Dateiname den StraÃennamen statt der gmlid verwenden? (Umlaute?) |
---|
33 | - in alkislage.php fÃŒr den Typ "ohne Haunummer" den Export mit strasse und haus=o verlinken |
---|
34 | */ |
---|
35 | |
---|
36 | function lage_zum_fs($gmlid) { |
---|
37 | // Zu einem FlurstÃŒck die Lagebezeichnungen (mit Hausnummer) so aufbereiten, |
---|
38 | // dass ggf. mehrere Lagebezeichnungen in eine Zelle der Tabelle passen. |
---|
39 | // FS >westAuf> Lage >> Katalog |
---|
40 | $sql ="SELECT DISTINCT s.bezeichnung, l.hausnummer " |
---|
41 | ."FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf) " |
---|
42 | ."JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage " |
---|
43 | ."WHERE f.gml_id= $1 AND f.endet IS NULL AND l.endet IS NULL AND s.endet IS NULL ORDER BY s.bezeichnung, l.hausnummer;"; |
---|
44 | |
---|
45 | $v=array($gmlid); |
---|
46 | $res=pg_prepare("", $sql); |
---|
47 | $res=pg_execute("", $v); |
---|
48 | if (!$res) {return "** Fehler bei Lagebezeichnung **";} |
---|
49 | $j=0; |
---|
50 | $lagehsnr=""; |
---|
51 | $salt=""; |
---|
52 | while($row = pg_fetch_array($res)) { |
---|
53 | if ($j > 0) {$lagehsnr.=", ";} |
---|
54 | $sneu=$row["bezeichnung"]; |
---|
55 | if ($sneu == $salt) { // gleiche Str. |
---|
56 | $lagehsnr.=$row["hausnummer"]; // HsNr dran haengen |
---|
57 | } else { // Name UND HsNr dranhaengen |
---|
58 | $lagehsnr.=$sneu." ".$row["hausnummer"]; |
---|
59 | } |
---|
60 | $salt=$sneu; // Name f. naechste Runde |
---|
61 | $j++; |
---|
62 | } |
---|
63 | pg_free_result($res); |
---|
64 | return($lagehsnr); |
---|
65 | } |
---|
66 | |
---|
67 | // HIER START // |
---|
68 | |
---|
69 | $tabtyp=''; $haus=''; // mögliche Parameter initialisieren |
---|
70 | $cntget = extract($_GET); // Parameter in Variable umwandeln |
---|
71 | |
---|
72 | // strikte Validierung aller Parameter |
---|
73 | if (!isset($gmlid) or !preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");} |
---|
74 | if (!isset($gkz) or !preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");} |
---|
75 | if (isset($gemarkung)) { |
---|
76 | if (!preg_match('#^[0-9]{4}$#', $gemarkung)) {die("Eingabefehler gemarkung");} |
---|
77 | } else { |
---|
78 | $gemarkung=''; |
---|
79 | } |
---|
80 | if (!preg_match('#^[m|o]{0,1}$#', $haus)) {die("Eingabefehler haus");} |
---|
81 | if (!preg_match('#^[a-z]{0,10}$#', $tabtyp)) {die("Eingabefehler tabtyp");} |
---|
82 | |
---|
83 | require_once("alkis_conf_location.php"); // Konfiguration laden |
---|
84 | include("alkisfkt.php"); // Funktionen der ALKIS-Auskunft laden |
---|
85 | |
---|
86 | if ($tabtyp == '') { // Parameter (-kombinationen) pruefen |
---|
87 | if ($gemarkung != '') { // Dieser Parameters bestimmt auch eindeutig den $tabtyp |
---|
88 | $tabtyp = 'gemarkung'; |
---|
89 | } else { // Bei "gmlid" MUSS man zwingend die Tabelle dazu nennen |
---|
90 | $err="\nFehler: Art des Suchfilters nicht angeben."; |
---|
91 | exit ($err); |
---|
92 | } |
---|
93 | } elseif ($tabtyp == 'gemarkung') { |
---|
94 | if ($gemarkung == '') { |
---|
95 | $err="\nFehler: Gemarkungsnummer nicht angeben."; |
---|
96 | exit ($err); |
---|
97 | } |
---|
98 | } |
---|
99 | |
---|
100 | if ($gmlid != '') { // Angabe von gmlid ist der Normalfall, das passt fÃŒr fast jeden tabtyp |
---|
101 | if ($tabtyp == 'strasse' and $haus != '') { // den Zusatzfilter m/o im Dateinamen dokumentieren |
---|
102 | if ($haus == 'm') { |
---|
103 | $filename='alkis_'.$tabtyp.'_'.$gmlid.'_mit_hsnr.csv'; |
---|
104 | } else { // = o |
---|
105 | $filename='alkis_'.$tabtyp.'_'.$gmlid.'_ohne_hsnr.csv.csv'; |
---|
106 | } |
---|
107 | } else { |
---|
108 | $filename='alkis_'.$tabtyp.'_'.$gmlid.'.csv'; |
---|
109 | } |
---|
110 | } else { // Oh Oh! Keine gmlid! - Alternativen? |
---|
111 | if ($gemarkung != '') { // Sonderfall 1 - Gemarkungsnummer statt gmlid als Filter |
---|
112 | if ($tabtyp != 'gemarkung') { |
---|
113 | $err = "Fehler: Falsche Kombination Parameter tabtyp='".$tabtyp."' mit Wert fuer Gemarkungsnummer."; |
---|
114 | echo "\n".$err; exit ($err); |
---|
115 | } |
---|
116 | $filename='alkis_'.$tabtyp.'_'.$gemarkung.'.csv'; |
---|
117 | |
---|
118 | /* // $gmlid zu strasse noch notwendig solange kein Filter auf "Gemeinde" verwendet wird. |
---|
119 | } elseif ($haus == 'm' or $haus == 'o') { // Sonderfall 2 - alle mit/ohne Hausnummer, nur Ìber View "exp_csv_str" möglich |
---|
120 | if ($tabtyp != 'strasse') { |
---|
121 | $err="\nFehler: Falsche Kombination Parameter tabtyp='".$tabtyp."' mit Wert fuer Haus."; |
---|
122 | exit ($err); |
---|
123 | } |
---|
124 | if ($haus == 'm') { // den Zusatzfilter m/o im Dateinamen dokumentieren |
---|
125 | $filename='alkis_'.$tabtyp.'_mit_hsnr.csv'; |
---|
126 | } else { |
---|
127 | $filename='alkis_'.$tabtyp.'_ohne_hsnr.csv'; |
---|
128 | } |
---|
129 | */ |
---|
130 | } else { |
---|
131 | $err="\nFehler: Kein passender Wert fuer die Suche angegeben."; |
---|
132 | exit ($err); |
---|
133 | } |
---|
134 | } |
---|
135 | |
---|
136 | // DOWNLOAD der CSV-Datei vorbereiten (statt HTML-Ausgabe) |
---|
137 | header('Content-type: application/octet-stream'); |
---|
138 | header('Content-Disposition: attachment; filename="'.$filename.'"'); |
---|
139 | |
---|
140 | // CSV-Ausgabe: Kopfzeile mit Feldnamen |
---|
141 | echo "FS-Kennzeichen;GmkgNr;Gemarkung;Flur;Flurstueck;Flaeche;Adressen;GB-BezNr;GB-Bezirk;GB-Blatt;BVNR;Anteil_am_FS;Buchungsart;Namensnummer;AnteilDerPerson;RechtsGemeinschaft;Person;GebDatum;Anschrift;Anteil(berechnet)"; |
---|
142 | |
---|
143 | // Datenbank-Verbindung |
---|
144 | $con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisexport.php'"); |
---|
145 | if (!$con) { |
---|
146 | $err= "Fehler beim Verbinden der DB"; |
---|
147 | echo "\n".$err; exit($err); |
---|
148 | } |
---|
149 | pg_set_client_encoding($con, 'LATIN1'); // FÃŒr Excel kein UTF8 |
---|
150 | |
---|
151 | $viewname="exp_csv"; // Standard-View, in der DB gespeichert |
---|
152 | $v=array($gmlid); // Standard-Filter-Feld |
---|
153 | |
---|
154 | // Der Parameter "Tabellentyp" bestimmt den Namen des Filter-Feldes aus dem View "exp_csv". |
---|
155 | switch ($tabtyp) { // zulaessige Werte fuer &tabtyp= |
---|
156 | case 'flurstueck': // ax_flurstueck.gml_id |
---|
157 | $filter = "fsgml"; |
---|
158 | break; |
---|
159 | case 'grundbuch': // ax_buchungsblatt.gml_id |
---|
160 | $filter = "gbgml"; |
---|
161 | break; |
---|
162 | case 'person': // ax_person.gml_id |
---|
163 | $filter = "psgml"; |
---|
164 | break; |
---|
165 | case 'strasse': // ax_lagebezeichnungkatalogeintrag.gml_id = StraÃe-GML-ID |
---|
166 | $filter = "stgml"; |
---|
167 | $viewname="exp_csv_str"; // alternativer View mit "_str", ist in der Datenbank gespeichert |
---|
168 | break; |
---|
169 | case 'gemarkung': // SONDERfall als Parameter wird "Gemarkungsnummer" und nicht "gml_id" geliefert |
---|
170 | $filter = "gemarkungsnummer"; |
---|
171 | $v=array($gemarkung); // anderes Filter-Feld, anderer Parameter |
---|
172 | break; |
---|
173 | default: |
---|
174 | $err="\nFalscher Parameter '".$tabtyp."'"; |
---|
175 | exit($err); |
---|
176 | break; |
---|
177 | } |
---|
178 | |
---|
179 | // Daten aus gespeichertem View, zusaetzlich Filter: "feld"='wert' mitgeben |
---|
180 | $sql="SELECT * FROM ".$viewname." WHERE ".$filter." = $1 "; |
---|
181 | |
---|
182 | if ($haus == 'm' or $haus == 'o') { // nur FS mit/ohne verschl. Lagebez. |
---|
183 | if ($gmlid == '') { // m/o-Filter als einziger Filter |
---|
184 | $sql="SELECT * FROM ".$viewname." WHERE fall='".$haus."' "; // Ersetzen |
---|
185 | $v=array(); // kein Filter-Feld |
---|
186 | // ToDo: Filter auf Gemeinde notwendig, wenn nicht auf strasse gefiltert wird. |
---|
187 | // - Sonst Ausgabe von Rand-FlurstÃŒcken (bei geometrischer Filterung des NBA-Verfahrens) |
---|
188 | // - Sonst ggf. Ausgabe Kreisgebiet |
---|
189 | } else { // als zusÀtzlicher Filter AND |
---|
190 | $sql.="AND fall='".$haus."' "; // m/o-Filter AnhÀngen |
---|
191 | } |
---|
192 | } |
---|
193 | |
---|
194 | $res=pg_prepare("", $sql); |
---|
195 | $res=pg_execute("", $v); |
---|
196 | if (!$res) { |
---|
197 | $err="\nFehler bei Datenbankabfrage"; |
---|
198 | exit($err); |
---|
199 | } |
---|
200 | $i=1; // Kopfzeile zÀhlt mit |
---|
201 | $fsalt=''; |
---|
202 | |
---|
203 | // Datenfelder auslesen |
---|
204 | while($row = pg_fetch_array($res)) { |
---|
205 | $i++; // Zeile der Tabelle |
---|
206 | $rechnen=true; // Formel in letzte Spalte? |
---|
207 | |
---|
208 | // Flurstueck |
---|
209 | $fsgml=$row["fsgml"]; |
---|
210 | $fs_kennz=$row["fs_kennz"]; // Rechts Trim "_" ? |
---|
211 | $gmkgnr=$row["gemarkungsnummer"]; |
---|
212 | $gemkname=$row["gemarkung"]; |
---|
213 | $flurnummer=$row["flurnummer"]; |
---|
214 | $flstnummer=$row["zaehler"]; |
---|
215 | $nenner=$row["nenner"]; |
---|
216 | // Bruchnummer kann in Excel als Datum interpretiert werden. In '' setzen. |
---|
217 | if ($nenner > 0) {$flstnummer="'".$flstnummer."/".$nenner."'";} // BruchNr |
---|
218 | $fs_flae=$row["fs_flae"]; // amtliche Fl. aus DB-Feld |
---|
219 | |
---|
220 | // Grundbuch (Blatt) |
---|
221 | $gb_bezirk=$row["gb_bezirk"]; // Nummer des Bezirks |
---|
222 | $gb_beznam=$row["beznam"]; // Name des Bezirks |
---|
223 | $gb_blatt=$row["gb_blatt"]; |
---|
224 | |
---|
225 | // Buchungsstelle (Grundstueck) |
---|
226 | $bu_lfd=$row["bu_lfd"]; // BVNR |
---|
227 | $bu_ant=$row["bu_ant"]; // '=zaehler/nenner' oder NULL |
---|
228 | $bu_key=$row["buchungsart"]; // SchlÃŒssel |
---|
229 | $bu_art=$row["bu_art"]; // entschlÃŒsselt (Umlaute in ANSI!) |
---|
230 | if($bu_ant == '') { // Keine Bruch-Zahl |
---|
231 | $bu_ant = '1'; // "voller Anteil" (Faktor 1) |
---|
232 | } else { |
---|
233 | $bu_ant=str_replace(".", ",", $bu_ant); // Dezimalkomma statt -punkt. |
---|
234 | } |
---|
235 | |
---|
236 | // Namensnummer |
---|
237 | $nam_lfd="'".kurz_namnr($row["nam_lfd"])."'"; // In Hochkomma, wird sonst wie Datum dargestellt. |
---|
238 | $nam_ant=$row["nam_ant"]; |
---|
239 | $nam_adr=$row["nam_adr"]; // Art der Rechtsgemeischaft (SchlÃŒssel) |
---|
240 | |
---|
241 | if ($nam_adr == '') { // keine Rechtsgemeinschaft |
---|
242 | $rechtsg=''; |
---|
243 | if ($nam_ant == '') { // und kein Bruch-Anteil |
---|
244 | $nam_ant=1; // dann ganzer Anteil |
---|
245 | } |
---|
246 | } else { |
---|
247 | $rechnen=false; // bei Rechtsgemeinschaft die Anteile manuell interpretieren |
---|
248 | if ($nam_adr == 9999) { // sonstiges |
---|
249 | $rechtsg=$row["nam_bes"]; // Beschrieb der Rechtsgemeinschaft |
---|
250 | } else { |
---|
251 | // $rechtsg=rechtsgemeinschaft($nam_adr); // EntschlÃŒsseln |
---|
252 | $rechtsg=$row["nam_adrv"]; // Art der Rechtsgemeischaft (Value zum Key) |
---|
253 | } |
---|
254 | } |
---|
255 | |
---|
256 | // Person |
---|
257 | $vnam=$row["vorname"]; |
---|
258 | $nana=$row["nachnameoderfirma"]; |
---|
259 | $namteil=$row["namensbestandteil"]; |
---|
260 | //$name=anrede($row["anrede"]); |
---|
261 | $name=$row["anrv"]; // Anrede (Value zum Key) |
---|
262 | if ($name != "") {$name.=" ";} // Trenner |
---|
263 | if ($namteil != "") {$name.=$namteil." ";} // von und zu |
---|
264 | $name.=$nana; |
---|
265 | if ($vnam != "") {$name.=", ".$vnam;} // Vorname nach hinten |
---|
266 | $gebdat=$row["geburtsdatum"]; |
---|
267 | // Koennte man im View in deutsches Format umwandeln: "to_char(cast(geburtsdatum AS date),'DD.MM.YYYY') AS geburtsdatum" |
---|
268 | |
---|
269 | // Adresse der Person (Eigentuemer) |
---|
270 | // Im View ist per subquery geregelt, dass nur die "juengste" Adresse verwendet wird. |
---|
271 | $ort=$row["ort"]; |
---|
272 | if ($ort == "") { |
---|
273 | $adresse=""; |
---|
274 | } else { |
---|
275 | $adresse=$row["strasse"]." ".$row["hausnummer"].", ".$row["plz"]." ".$ort; |
---|
276 | $land=$row["land"]; // nur andere Laender anzeigen |
---|
277 | if (($land != "DEUTSCHLAND") and ($land != "")) { |
---|
278 | $adresse.=" (".$land.")"; |
---|
279 | } |
---|
280 | } |
---|
281 | |
---|
282 | // Adressen (Lage) zum FS |
---|
283 | if($fsgml != $fsalt) { // nur bei geÀndertem Kennz. |
---|
284 | $lage=lage_zum_fs($fsgml); // die Lage neu ermitteln |
---|
285 | $fsalt=$fsgml; |
---|
286 | } |
---|
287 | |
---|
288 | // Den Ausgabe-Satz montieren aus FlurstÃŒcks-, Grundbuch- und Namens-Teil |
---|
289 | // A B C D E F G |
---|
290 | $fsteil=$fs_kennz.";".$gmkgnr.";".$gemkname.";".$flurnummer.";".$flstnummer.";".$fs_flae.";".$lage.";"; |
---|
291 | // H I J K L M |
---|
292 | $gbteil=$gb_bezirk.";".$gb_beznam.";".$gb_blatt.";".$bu_lfd.";".$bu_ant.";".$bu_art.";"; |
---|
293 | // N O P Q R S |
---|
294 | $namteil=$nam_lfd.";".$nam_ant.";".$rechtsg.";".$name.";".$gebdat.";".$adresse; |
---|
295 | |
---|
296 | // Anteile "GB am FS" und "Pers am GB" verrechnen |
---|
297 | if ($rechnen) { // beide Anteile verwertbar |
---|
298 | $formelteil=";=L".$i."*O".$i; // Spalte T |
---|
299 | } else { |
---|
300 | $formelteil=';'; |
---|
301 | } |
---|
302 | |
---|
303 | // Ausgabe in die CSV-Datei -> Download -> Tabellenkalkulation |
---|
304 | echo "\n".$fsteil.$gbteil.$namteil.$formelteil; |
---|
305 | } |
---|
306 | pg_free_result($res); |
---|
307 | if ($i == 1) { // nur Kopf |
---|
308 | $err="\nKein Treffer fuer gml_id='".$gmlid."'"; |
---|
309 | exit ($err); |
---|
310 | } |
---|
311 | pg_close($con); |
---|
312 | exit(0); |
---|
313 | ?> |
---|