source: trunk/info/info/alkis/alkisexport.php @ 339

Revision 339, 7.1 KB checked in by frank.jaeger, 10 years ago (diff)

Rückbau von "substring(gml_id)" in Views und Programmen.
Namensänderung von Schlüsseltabellen von ax_* auf v_*.

Line 
1<?php
2/*      Modul alkisexport.php
3        CSV-Export von ALKIS-Daten zu einem Flurstueck, Grundbuch oder EigentÃŒmer.
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: gkz=mandant&gmlid=DE...&tabtyp=flurstueck/grundbuch/person
9
10        2014-01-17 krz f.j.
11        2014-01-20 weitere Spalten und verbesserte Formatierung
12        2014-01-21 Der View liefert "Rechtsgemeinschaft" nun als Feld in allen Personen-SÀtzen
13                        eines GB-Blattes statt als eigenen "Satz ohne Person".
14        2014-01-27 Erweiterung auf Filter "strasse" ("gml_id" aus "ax_lagebezeichnungkatalogeintrag")
15        2014-09-04 PostNAS 0.8: ohne Tab. "alkis_beziehungen", mehr "endet IS NULL", Spalten varchar statt integer
16        2014-09-10 Bei Relationen den Timestamp abschneiden
17        2014-09-30 RÃŒckbau substring(gml_id)
18*/
19
20function lage_zum_fs($gmlid) {
21        // Zu einem FlurstÃŒck die Lagebezeichnungen (mit Hausnummer) so aufbereiten,
22        // dass ggf. mehrere Lagebezeichnungen in eine Zelle der Tabelle passen.
23        // FS >westAuf> Lage >> Katalog
24        $sql ="SELECT DISTINCT s.bezeichnung, l.hausnummer
25        FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf)
26        JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage
27        WHERE f.gml_id= $1 ORDER BY s.bezeichnung, l.hausnummer;";
28
29        $v=array($gmlid);
30        $res=pg_prepare("", $sql);
31        $res=pg_execute("", $v);
32        if (!$res) {
33                return "** Fehler bei Lagebezeichnung **"; //.$sql;
34        }
35        $j=0;
36        $lagehsnr="";
37        while($row = pg_fetch_array($res)) {
38                if ($j > 0) {$lagehsnr.=", ";}
39                $sneu=$row["bezeichnung"];
40                if ($sneu == $salt) { // gleiche Str.
41                        $lagehsnr.=$row["hausnummer"]; // HsNr dran haengen
42                } else { // Name UND HsNr dranhaengen
43                        $lagehsnr.=$sneu." ".$row["hausnummer"];
44                }
45                $salt=$sneu; // Name f. naechste Runde
46                $j++;
47        }
48        pg_free_result($res);
49        return($lagehsnr);
50}
51
52// HIER START //
53
54$cntget = extract($_GET); // Parameter aus URL lesen
55header('Content-type: application/octet-stream');
56header('Content-Disposition: attachment; filename="alkis_'.$tabtyp.'_'.$gmlid.'.csv"');
57require_once("alkis_conf_location.php");
58include("alkisfkt.php");
59
60// CSV-Ausgabe: Kopfzeile mit Feldnamen
61echo "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)";
62
63// Datenbank-Verbindung
64$con = pg_connect("host=".$dbhost." port=" .$dbport." dbname=".$dbname." user=".$dbuser." password=".$dbpass);
65if (!$con) {
66        exit("Fehler beim Verbinden der DB");
67}
68pg_set_client_encoding($con, LATIN1); // FÃŒr Excel kein UTF8 ausgeben
69
70// Der Parameter "Tabellentyp" bestimmt den Namen des Filter-Feldes aus dem View "exp_csv".
71switch ($tabtyp) { // zulaessige Werte fuer &tabtyp=
72        case 'flurstueck': $filter = "fsgml"; break; // ax_flurstueck.gml_id
73        case 'grundbuch':  $filter = "gbgml"; break; // ax_buchungsblatt.gml_id
74        case 'person':     $filter = "psgml"; break; // ax_person.gml_id
75        case 'strasse':    $filter = "stgml"; break; // ax_lagebezeichnungkatalogeintrag.gml_id = Straße-GML-ID
76        default: exit("Falscher Parameter '".$tabtyp."'"); break;
77}
78
79// Daten aus gespeichertem View, zusaetzlich Filter: "feld"='wert' mitgeben
80if ($tabtyp == 'strasse') { // Sonderversion
81        $sql="SELECT * FROM exp_csv_str WHERE ".$filter." = $1 ";
82} else {
83        $sql="SELECT * FROM exp_csv WHERE ".$filter." = $1 ";
84}
85
86$v=array($gmlid);
87$res=pg_prepare("", $sql);
88$res=pg_execute("", $v);
89if (!$res) {exit("Fehler bei Datenbankabfrage");}
90$i=1; // Kopfzeile zÀhlt mit
91$fsalt='';
92
93// Datenfelder auslesen
94while($row = pg_fetch_array($res)) {
95        $i++; // Zeile der Tabelle
96        $rechnen=true; // Formel in letzte Spalte?
97
98        // Flurstueck
99        $fsgml=$row["fsgml"];
100        $fs_kennz=$row["fs_kennz"]; // Rechts Trim "_" ?
101        $gmkgnr=$row["gemarkungsnummer"];
102        $gemkname=$row["gemarkung"];
103        $flurnummer=$row["flurnummer"];
104        $flstnummer=$row["zaehler"];
105        $nenner=$row["nenner"];
106        if ($nenner > 0) {$flstnummer.="/".$nenner;} // BruchNr
107        $fs_flae=$row["fs_flae"]; // amtliche Fl. aus DB-Feld
108
109        // Grundbuch (Blatt)
110        $gb_bezirk=$row["gb_bezirk"]; // Nummer des Bezirks
111    $gb_beznam=$row["beznam"];    // Name des Bezirks
112        $gb_blatt=$row["gb_blatt"];
113
114        // Buchungsstelle (Grundstueck)
115        $bu_lfd=$row["bu_lfd"]; // BVNR
116        $bu_ant=$row["bu_ant"]; // '=zaehler/nenner' oder NULL
117        $bu_key=$row["buchungsart"]; // SchlÃŒssel
118        $bu_art=$row["bu_art"]; // entschlÃŒsselt (Umlaute in ANSI!)
119        if($bu_ant == '') { // Keine Bruch-Zahl
120                $bu_ant = '1'; // "voller Anteil" (Faktor 1)
121        } else {
122                $bu_ant=str_replace(".", ",", $bu_ant); // Dezimalkomma statt -punkt.           
123        }
124
125        // Namensnummer
126        $nam_lfd="'".kurz_namnr($row["nam_lfd"])."'"; // In Hochkomma, wird sonst wie Datum dargestellt.
127        $nam_ant=$row["nam_ant"];
128        $nam_adr=$row["nam_adr"]; // Art der Rechtsgemeischaft (SchlÃŒssel)
129
130        if ($nam_adr == '') {     // keine Rechtsgemeinschaft
131                $rechtsg='';
132                if ($nam_ant == '') { // und kein Bruch-Anteil
133                        $nam_ant=1; // dann ganzer Anteil
134                }
135        } else {
136                $rechnen=false; // bei Rechtsgemeinschaft die Anteile manuell interpretieren
137                if ($nam_adr == 9999) { // sonstiges
138                        $rechtsg=$row["nam_bes"]; // Beschrieb der Rechtsgemeinschaft
139                } else {
140                        $rechtsg=rechtsgemeinschaft($nam_adr); // EntschlÃŒsseln
141                }
142        }
143
144        // Person
145        $vnam=$row["vorname"];
146        $nana=$row["nachnameoderfirma"];
147        $namteil=$row["namensbestandteil"];
148        $name=anrede($row["anrede"]);
149        if ($name != "") {$name.=" ";} // Trenner
150        if ($namteil != "") {$name.=$namteil." ";} // von und zu
151        $name.=$nana;
152        if ($vnam != "") {$name.=", ".$vnam;} // Vorname nach hinten
153        $gebdat=$row["geburtsdatum"];
154
155        // Adresse der Person (Eigentuemer))
156        $ort=$row["ort"];
157        if ($ort == "") {
158                $adresse="";
159        } else {
160                $adresse=$row["strasse"]." ".$row["hausnummer"].", ".$row["plz"]." ".$ort;
161                $land=$row["land"]; // nur andere LÀnder anzeigen
162                if (($land != "DEUTSCHLAND") and ($land != "")) {
163                        $adresse.=" (".$land.")";
164                }
165        }
166
167        // Adressen (Lage) zum FS
168        if($fsgml != $fsalt) { // nur bei geÀndertem Kennz.
169                $lage=lage_zum_fs($fsgml); // die Lage neu ermitteln
170                $fsalt=$fsgml;
171        }
172
173        // Den Ausgabe-Satz montieren aus FlurstÃŒcks-, Grundbuch- und Namens-Teil
174        //      A             B           C             D               E               F            G
175        $fsteil=$fs_kennz.";".$gmkgnr.";".$gemkname.";".$flurnummer.";".$flstnummer.";".$fs_flae.";".$lage.";";
176        //      H              I              J             K           L           M
177        $gbteil=$gb_bezirk.";".$gb_beznam.";".$gb_blatt.";".$bu_lfd.";".$bu_ant.";".$bu_art.";";
178        //       N            O            P            Q         R           S
179        $namteil=$nam_lfd.";".$nam_ant.";".$rechtsg.";".$name.";".$gebdat.";".$adresse;
180
181        // Anteile "GB am FS" und "Pers am GB" verrechnen
182        if ($rechnen) { // beide Anteile verwertbar
183                $formelteil=";=L".$i."*O".$i; // Spalte T
184        } else {
185                $formelteil=';';
186        }
187
188        // Ausgabe in die CSV-Datei -> Download -> Tabellenkalkulation
189        echo "\n".$fsteil.$gbteil.$namteil.$formelteil;
190}
191pg_free_result($res);
192if ($i == 1) {exit ("Kein Treffer fuer gml_id=".$gmlid);} // nur Kopfzeile
193pg_close($con);
194exit(0);
195?>
Note: See TracBrowser for help on using the repository browser.