source: trunk/info/info/alkisn/alkisexport.php @ 389

Revision 389, 11.5 KB checked in by frank.jaeger, 6 years ago (diff)

ALKIS Buchauskunft überarbeitet: Bodenschätzung im FS-Nachweis. Filter auf "endet IS NULL".

RevLine 
[362]1<?php
2/*      Modul alkisexport.php
[378]3        CSV-Export von ALKIS-Daten zu einem Flurstueck, Grundbuch, EigentÃŒmer oder Straße.
[362]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.
[377]8        Parameter Beispiele:
[378]9                ?gkz=mandant&tabtyp=flurstueck/grundbuch/person/strasse&gmlid=DE...  Standard
10                ?gkz=270&tabtyp=gemarkung&gemarkung=2662         Sonderfall ganze Gemarkung
[377]11                ?gkz=270&gemarkung=2662
[378]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:
[377]15                ?gkz=270&tabtyp=gemarkung&gmlid=2662
16                ?gkz=270&tabtyp=flurstueck&gemarkung=2662
17                ?gkz=270&tabtyp=flurstueck
18                ?gkz=270&gmlid=2662
[362]19
20        Version
[378]21        2016-02-23      Version fuer norGIS-ALKIS-Import
22        2016-10-18      Export einer ganzen Gemarkung zulassen (Sonderfall bei den Parametern)
23        2016-11-29      Gemeinsam genutzte Datenbanken ermöglichen
24        2017-02-23      Filter mit/ohne Hausnummer zum Typ "strasse".
25                                Dazu muss der View "exp_csv_str" um die spalte "fall" erweitert werden.
26                                Siehe Datei "x_classic2norgis.sql" in /OSGeo4W64/apps/alkis-import/postcreate.d/
27                                Sonderfall: Auch Export zu *allen* Straßen der Stadt ohne Filter "gmlid".
[387]28        2017-06-08 Validierung Eingabeparameter
[389]29        2017-10-11 Sauber filtern auf endet IS NULL
[387]30
31ToDo:
32        - In Dateiname Straßenname statt gmlid verwenden?
33        - in alkislage.php fÃŒr den Typ "ohne Haunummer" den Export mit strasse und haus=o verlinken
[362]34*/
35
36function 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
[387]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 "
[389]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;";
[362]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
[375]67// HIER START //
68
[387]69$tabtyp='';  $haus=''; // mögliche Parameter initialisieren
70$cntget = extract($_GET); // Parameter in Variable umwandeln
71
72// strikte Validierung aller Parameter
73if (!isset($gmlid) or !preg_match('#^[0-9A-Za-z]{16}$#', $gmlid)) {die("Eingabefehler gmlid");}
74if (!isset($gkz) or !preg_match('#^[0-9]{3}$#', $gkz)) {die("Eingabefehler gkz");}
75if (isset($gemarkung)) {
76        if (!preg_match('#^[0-9]{4}$#', $gemarkung)) {die("Eingabefehler gemarkung");}
77} else {
78        $gemarkung='';
79}
80if (!preg_match('#^[m|o]{0,1}$#', $haus)) {die("Eingabefehler haus");}
81if (!preg_match('#^[a-z]{0,10}$#', $tabtyp)) {die("Eingabefehler tabtyp");}
82
[375]83require_once("alkis_conf_location.php"); // Konfiguration laden
84include("alkisfkt.php"); // Funktionen der ALKIS-Auskunft laden
85
86if ($tabtyp == '') { // Parameter (-kombinationen) pruefen
[378]87        if ($gemarkung != '') { // Dieser Parameters bestimmt auch eindeutig den $tabtyp
[375]88                $tabtyp = 'gemarkung';
[378]89        } else {  // Bei "gmlid" MUSS man zwingend die Tabelle dazu nennen
[387]90                $err="\nFehler: Art des Suchfilters nicht angeben.";
91                exit ($err);
[375]92        }
93} elseif ($tabtyp == 'gemarkung') {
94        if ($gemarkung == '') {
[387]95                $err="\nFehler: Gemarkungsnummer nicht angeben.";
96                exit ($err);
[375]97        }
98}
[378]99
100if ($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
[375]112                if ($tabtyp != 'gemarkung') {
[378]113                        $err = "Fehler: Falsche Kombination Parameter tabtyp='".$tabtyp."' mit Wert fuer Gemarkungsnummer.";
114                        echo "\n".$err; exit ($err);
[375]115                }
116                $filename='alkis_'.$tabtyp.'_'.$gemarkung.'.csv';
[378]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') {
[387]121                        $err="\nFehler: Falsche Kombination Parameter tabtyp='".$tabtyp."' mit Wert fuer Haus.";
122                        exit ($err);
[378]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 {
[387]131                $err="\nFehler: Kein passender Wert fuer die Suche angegeben.";
132                exit ($err);
[375]133        }
134}
135
136// DOWNLOAD der CSV-Datei vorbereiten (statt HTML-Ausgabe)
[362]137header('Content-type: application/octet-stream');
[375]138header('Content-Disposition: attachment; filename="'.$filename.'"');
[362]139
140// CSV-Ausgabe: Kopfzeile mit Feldnamen
141echo "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
[377]144$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisexport.php'");
[378]145if (!$con) {
146        $err= "Fehler beim Verbinden der DB";
147        echo "\n".$err; exit($err);
148}
[387]149pg_set_client_encoding($con, 'LATIN1'); // FÃŒr Excel kein UTF8
[362]150
[387]151$viewname="exp_csv"; // Standard-View, in der DB gespeichert
[375]152$v=array($gmlid); // Standard-Filter-Feld
153
[362]154// Der Parameter "Tabellentyp" bestimmt den Namen des Filter-Feldes aus dem View "exp_csv".
155switch ($tabtyp) { // zulaessige Werte fuer &tabtyp=
[375]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:
[387]174                $err="\nFalscher Parameter '".$tabtyp."'";
175                exit($err);
[375]176                break;
[362]177}
178
179// Daten aus gespeichertem View, zusaetzlich Filter: "feld"='wert' mitgeben
[375]180$sql="SELECT * FROM ".$viewname." WHERE ".$filter." = $1 ";
[362]181
[387]182if ($haus == 'm' or $haus == 'o') { // nur FS mit/ohne verschl. Lagebez.
[378]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
[387]189        } else { // als zusÀtzlicher Filter AND
[378]190                $sql.="AND fall='".$haus."' "; // m/o-Filter AnhÀngen
191        }
192}
193
[362]194$res=pg_prepare("", $sql);
195$res=pg_execute("", $v);
[378]196if (!$res) {
[387]197        $err="\nFehler bei Datenbankabfrage";
198        exit($err);
[378]199}
[362]200$i=1; // Kopfzeile zÀhlt mit
201$fsalt='';
202
203// Datenfelder auslesen
204while($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
268        // Adresse der Person (Eigentuemer))
269        $ort=$row["ort"];
270        if ($ort == "") {
271                $adresse="";
272        } else {
273                $adresse=$row["strasse"]." ".$row["hausnummer"].", ".$row["plz"]." ".$ort;
[387]274                $land=$row["land"]; // nur andere Laender anzeigen
[362]275                if (($land != "DEUTSCHLAND") and ($land != "")) {
276                        $adresse.=" (".$land.")";
277                }
278        }
279
280        // Adressen (Lage) zum FS
281        if($fsgml != $fsalt) { // nur bei geÀndertem Kennz.
282                $lage=lage_zum_fs($fsgml); // die Lage neu ermitteln
283                $fsalt=$fsgml;
284        }
285
286        // Den Ausgabe-Satz montieren aus FlurstÃŒcks-, Grundbuch- und Namens-Teil
287        //      A             B           C             D               E               F            G
288        $fsteil=$fs_kennz.";".$gmkgnr.";".$gemkname.";".$flurnummer.";".$flstnummer.";".$fs_flae.";".$lage.";";
289        //      H              I              J             K           L           M
290        $gbteil=$gb_bezirk.";".$gb_beznam.";".$gb_blatt.";".$bu_lfd.";".$bu_ant.";".$bu_art.";";
291        //       N            O            P            Q         R           S
292        $namteil=$nam_lfd.";".$nam_ant.";".$rechtsg.";".$name.";".$gebdat.";".$adresse;
293
294        // Anteile "GB am FS" und "Pers am GB" verrechnen
295        if ($rechnen) { // beide Anteile verwertbar
296                $formelteil=";=L".$i."*O".$i; // Spalte T
297        } else {
298                $formelteil=';';
299        }
300
301        // Ausgabe in die CSV-Datei -> Download -> Tabellenkalkulation
302        echo "\n".$fsteil.$gbteil.$namteil.$formelteil;
303}
304pg_free_result($res);
[378]305if ($i == 1) { // nur Kopf
[387]306        $err="\nKein Treffer fuer gml_id='".$gmlid."'";
307        exit ($err);
[378]308}
[362]309pg_close($con);
310exit(0);
311?>
Note: See TracBrowser for help on using the repository browser.