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

<?php
/*      Modul alkisexport.php
        CSV-Export von ALKIS-Daten zu einem Flurstueck, Grundbuch oder EigentÃŒmer.
        Es wird eine GML-ID ÃŒbergeben.
        Es wird ein gespeicherter View verwendet, der nach der gml_id gefiltert wird. 
        Der View verkettet Flurstueck - Buchungsstelle - Grundbuch - Eigentuemer
        Die Lagebezeichnung des FlurstÃŒcks wird in ein Feld komprimiert.
        Parameter Beispiele: 
                ?gkz=mandant&tabtyp=flurstueck/grundbuch/person&gmlid=DE...
                ?gkz=270&tabtyp=gemarkung&gemarkung=2662   
                ?gkz=270&gemarkung=2662
        Parameter Beispiele fÃŒr Fehler:
                ?gkz=270&tabtyp=gemarkung&gmlid=2662
                ?gkz=270&tabtyp=flurstueck&gemarkung=2662
                ?gkz=270&tabtyp=flurstueck
                ?gkz=270&gmlid=2662

        Version
        2016-02-23 Version fuer norGIS-ALKIS-Import
        2016-10-18 Export einer ganzen Gemarkung zulassen (Sonderfall bei den Parametern)
        2016-11-29 Gemeinsam genutzte Datenbanken ermöglichen

++ ToDo: SQL "exp_csv_str" und "exp_csv_str" optimieren
*/

function lage_zum_fs($gmlid) {
        // Zu einem FlurstÃŒck die Lagebezeichnungen (mit Hausnummer) so aufbereiten, 
        // dass ggf. mehrere Lagebezeichnungen in eine Zelle der Tabelle passen.
        // FS >westAuf> Lage >> Katalog
        $sql ="SELECT DISTINCT s.bezeichnung, l.hausnummer 
        FROM ax_flurstueck f JOIN ax_lagebezeichnungmithausnummer l ON l.gml_id=ANY(f.weistauf)
        JOIN ax_lagebezeichnungkatalogeintrag s ON l.kreis=s.kreis AND l.gemeinde=s.gemeinde AND l.lage=s.lage 
        WHERE f.gml_id= $1 ORDER BY s.bezeichnung, l.hausnummer;";

        $v=array($gmlid);
        $res=pg_prepare("", $sql);
        $res=pg_execute("", $v);
        if (!$res) {return "** Fehler bei Lagebezeichnung **";}
        $j=0;
        $lagehsnr="";
        $salt="";
        while($row = pg_fetch_array($res)) {
                if ($j > 0) {$lagehsnr.=", ";}
                $sneu=$row["bezeichnung"];
                if ($sneu == $salt) { // gleiche Str.
                        $lagehsnr.=$row["hausnummer"]; // HsNr dran haengen
                } else { // Name UND HsNr dranhaengen
                        $lagehsnr.=$sneu." ".$row["hausnummer"];
                }
                $salt=$sneu; // Name f. naechste Runde
                $j++;
        }
        pg_free_result($res);
        return($lagehsnr);
}

// HIER START //

$gkz=''; $tabtyp = ''; $gemarkung=''; $gmlid=''; // erwartete Parameter initialisieren
$cntget = extract($_GET); // aktuelle Parameter aus URL auslesen
require_once("alkis_conf_location.php"); // Konfiguration laden
include("alkisfkt.php"); // Funktionen der ALKIS-Auskunft laden

if ($tabtyp == '') { // Parameter (-kombinationen) pruefen
        if ($gemarkung == '') { // Beim Wert "gmlid" MUSS man die Tabelle dazu nennen
                exit ("Fehler: Art des Suchfilters nicht angeben.");
        } else {  // Art des Wertes bestimmt eindeutig den Filter
                $tabtyp = 'gemarkung';
        }
} elseif ($tabtyp == 'gemarkung') {
        if ($gemarkung == '') {
                exit ("Fehler: Gemarkungsnummer nicht angeben.");
        }
}
if ($gmlid == '') {
        if ($gemarkung == '') {
                exit ("Fehler: Kein Wert fuer die Suche angegeben.");
        } else { // Wert fÃŒr Gemarkungsnummer angegeben
                if ($tabtyp != 'gemarkung') {
                        exit ("Fehler: Falsche Kombination Parameter tabtyp='".$tabtyp."' mit Wert fuer Gemarkungsnummer.");
                }
                $filename='alkis_'.$tabtyp.'_'.$gemarkung.'.csv';
        }
} else { // alles gut
        $filename='alkis_'.$tabtyp.'_'.$gmlid.'.csv';
}

// DOWNLOAD der CSV-Datei vorbereiten (statt HTML-Ausgabe)
header('Content-type: application/octet-stream');
header('Content-Disposition: attachment; filename="'.$filename.'"');

// CSV-Ausgabe: Kopfzeile mit Feldnamen
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)";

// Datenbank-Verbindung
$con = pg_connect($dbconn." options='--application_name=ALKIS-Auskunft_alkisexport.php'");
if (!$con) {exit("Fehler beim Verbinden der DB");}
pg_set_client_encoding($con, 'LATIN1'); // FÃŒr Excel kein UTF8 ausgeben

$viewname="exp_csv"; // Standard-View, ist in der Datenbank gespeichert
$v=array($gmlid); // Standard-Filter-Feld

// Der Parameter "Tabellentyp" bestimmt den Namen des Filter-Feldes aus dem View "exp_csv".
switch ($tabtyp) { // zulaessige Werte fuer &tabtyp=
        case 'flurstueck': // ax_flurstueck.gml_id
                $filter = "fsgml";
                break;
        case 'grundbuch': // ax_buchungsblatt.gml_id
                $filter = "gbgml";
                break;
        case 'person': // ax_person.gml_id
                $filter = "psgml";
                break;
        case 'strasse': // ax_lagebezeichnungkatalogeintrag.gml_id = Straße-GML-ID
                $filter = "stgml";
                $viewname="exp_csv_str"; // alternativer View mit "_str", ist in der Datenbank gespeichert  
                break;
        case 'gemarkung': // SONDERfall als Parameter wird "Gemarkungsnummer" und nicht "gml_id" geliefert
                $filter = "gemarkungsnummer";
                $v=array($gemarkung); // anderes Filter-Feld, anderer Parameter
                break;
        default:
                exit("Falscher Parameter '".$tabtyp."'");
                break;
}

// Daten aus gespeichertem View, zusaetzlich Filter: "feld"='wert' mitgeben
$sql="SELECT * FROM ".$viewname." WHERE ".$filter." = $1 ";

$res=pg_prepare("", $sql);
$res=pg_execute("", $v);
if (!$res) {exit("Fehler bei Datenbankabfrage");}
$i=1; // Kopfzeile zÀhlt mit
$fsalt='';

// Datenfelder auslesen
while($row = pg_fetch_array($res)) {
        $i++; // Zeile der Tabelle
        $rechnen=true; // Formel in letzte Spalte?

        // Flurstueck
        $fsgml=$row["fsgml"];
        $fs_kennz=$row["fs_kennz"]; // Rechts Trim "_" ?
        $gmkgnr=$row["gemarkungsnummer"];
        $gemkname=$row["gemarkung"]; 
        $flurnummer=$row["flurnummer"];
        $flstnummer=$row["zaehler"];
        $nenner=$row["nenner"];
        // Bruchnummer kann in Excel als Datum interpretiert werden. In '' setzen.
        if ($nenner > 0) {$flstnummer="'".$flstnummer."/".$nenner."'";} // BruchNr
        $fs_flae=$row["fs_flae"]; // amtliche Fl. aus DB-Feld

        // Grundbuch (Blatt)
        $gb_bezirk=$row["gb_bezirk"]; // Nummer des Bezirks
    $gb_beznam=$row["beznam"];    // Name des Bezirks
        $gb_blatt=$row["gb_blatt"];

        // Buchungsstelle (Grundstueck)
        $bu_lfd=$row["bu_lfd"]; // BVNR
        $bu_ant=$row["bu_ant"]; // '=zaehler/nenner' oder NULL
        $bu_key=$row["buchungsart"]; // SchlÃŒssel
        $bu_art=$row["bu_art"]; // entschlÃŒsselt (Umlaute in ANSI!)
        if($bu_ant == '') { // Keine Bruch-Zahl
                $bu_ant = '1'; // "voller Anteil" (Faktor 1)
        } else {
                $bu_ant=str_replace(".", ",", $bu_ant); // Dezimalkomma statt -punkt.           
        }

        // Namensnummer
        $nam_lfd="'".kurz_namnr($row["nam_lfd"])."'"; // In Hochkomma, wird sonst wie Datum dargestellt.
        $nam_ant=$row["nam_ant"];
        $nam_adr=$row["nam_adr"]; // Art der Rechtsgemeischaft (SchlÃŒssel)

        if ($nam_adr == '') {     // keine Rechtsgemeinschaft
                $rechtsg='';
                if ($nam_ant == '') { // und kein Bruch-Anteil
                        $nam_ant=1; // dann ganzer Anteil
                }
        } else {
                $rechnen=false; // bei Rechtsgemeinschaft die Anteile manuell interpretieren
                if ($nam_adr == 9999) { // sonstiges
                        $rechtsg=$row["nam_bes"]; // Beschrieb der Rechtsgemeinschaft
                } else {
                //      $rechtsg=rechtsgemeinschaft($nam_adr); // EntschlÃŒsseln
                        $rechtsg=$row["nam_adrv"]; // Art der Rechtsgemeischaft (Value zum Key)
                }
        }

        // Person
        $vnam=$row["vorname"];
        $nana=$row["nachnameoderfirma"];
        $namteil=$row["namensbestandteil"];
        //$name=anrede($row["anrede"]);  
        $name=$row["anrv"]; // Anrede (Value zum Key)
        if ($name != "") {$name.=" ";} // Trenner
        if ($namteil != "") {$name.=$namteil." ";} // von und zu
        $name.=$nana;
        if ($vnam != "") {$name.=", ".$vnam;} // Vorname nach hinten
        $gebdat=$row["geburtsdatum"];

        // Adresse der Person (Eigentuemer))
        $ort=$row["ort"];
        if ($ort == "") {
                $adresse="";
        } else { 
                $adresse=$row["strasse"]." ".$row["hausnummer"].", ".$row["plz"]." ".$ort;
                $land=$row["land"]; // nur andere LÀnder anzeigen
                if (($land != "DEUTSCHLAND") and ($land != "")) {
                        $adresse.=" (".$land.")";
                }
        }

        // Adressen (Lage) zum FS
        if($fsgml != $fsalt) { // nur bei geÀndertem Kennz.
                $lage=lage_zum_fs($fsgml); // die Lage neu ermitteln
                $fsalt=$fsgml;
        }

        // Den Ausgabe-Satz montieren aus FlurstÃŒcks-, Grundbuch- und Namens-Teil
        //      A             B           C             D               E               F            G
        $fsteil=$fs_kennz.";".$gmkgnr.";".$gemkname.";".$flurnummer.";".$flstnummer.";".$fs_flae.";".$lage.";";
        //      H              I              J             K           L           M
        $gbteil=$gb_bezirk.";".$gb_beznam.";".$gb_blatt.";".$bu_lfd.";".$bu_ant.";".$bu_art.";";
        //       N            O            P            Q         R           S
        $namteil=$nam_lfd.";".$nam_ant.";".$rechtsg.";".$name.";".$gebdat.";".$adresse;

        // Anteile "GB am FS" und "Pers am GB" verrechnen
        if ($rechnen) { // beide Anteile verwertbar
                $formelteil=";=L".$i."*O".$i; // Spalte T
        } else {
                $formelteil=';';
        }

        // Ausgabe in die CSV-Datei -> Download -> Tabellenkalkulation
        echo "\n".$fsteil.$gbteil.$namteil.$formelteil;
}
pg_free_result($res);
if ($i == 1) {exit ("Kein Treffer fuer gml_id=".$gmlid);} // nur Kopfzeile
pg_close($con);
exit(0);
?>