Changeset 305 for trunk/info

Timestamp:

01/21/14 17:14:52 (10 years ago)

Author:

frank.jaeger

Message:

Verbesserung CSV-Export: Rechtsgemeinschaft in Namenszeile.

File:

• trunk/info/info/alkis/alkisexport.php (modified) (6 diffs)

trunk/info/info/alkis/alkisexport.php

@@ -10 +10 @@
         2014-01-17 krz f.j.
         2014-01-20 weitere Spalten und verbesserte Formatierung
+        2014-01-21 Der View liefert "Rechtsgemeinschaft" nun als Feld in allen Personen-Sätzen 
+                        eines GB-Blattes statt als eigenen "Satz ohne Person".
 */
 
@@ -51 +53 @@
 
 // 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";
+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
@@ -60 +62 @@
 pg_set_client_encoding($con, LATIN1); // Für Excel kein UTF8 ausgeben
 
-// Der Parameter "Tabellentyp" bestimmt den Namen des Filter-Feldes aus dem View
-switch ($tabtyp) { // zulaessige Erte fuer &tabtyp=
+// Der Parameter "Tabellentyp" bestimmt den Namen des Filter-Feldes aus dem View "exp_csv".
+switch ($tabtyp) { // zulaessige Werte fuer &tabtyp=
         case 'flurstueck': $filter = "fsgml"; break;
         case 'grundbuch':  $filter = "gbgml"; break;
@@ -73 +75 @@
 $res = pg_prepare("", $sql);
 $res = pg_execute("", $v);
-if (!$res) {
-        exit("Fehler bei Datenbankabfrage");
-}
-$i=0;
+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
@@ -100 +102 @@
         // Buchungsstelle (Grundstueck)
         $bu_lfd=$row["bu_lfd"]; // BVNR
-        $bu_ant=$row["bu_ant"]; // '=zaehler/nenner' oder NULL wenn zaehler oder nenner NULL sind
-        $bu_key=$row["buchungsart"]; // Sxhlüssel
+        $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!)
-
-        // Für Berechnungen in der exportierten Tabelle wäre es nützlich, wenn "voller Anteil" als Faktor 1 
-        // statt eines leeren Feldes ausgegeben würde  - Ausnahmen?
-        if(($bu_ant == '') and ($bu_key == 1100)) { // Grundstück
-                $bu_ant = '1';
+        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 als Datum dargestellt.
+        $nam_lfd="'".kurz_namnr($row["nam_lfd"])."'"; // In Hochkomma, sonst wie Datum dargestellt.
         $nam_ant=$row["nam_ant"];
-        if ($nam_ant == '') {$nam_ant=1;} // Wann darf als Anteil "1" statt leer gesetzt werden?
-    // Das ist falsch, wenn z.B. eine Rechtsgemeinschaft verbal beschrieben ist (in anderem Datensatz).
         $nam_adr=$row["nam_adr"]; // Art der Rechtsgemeischaft (Schlüssel)
-        $nam_bes=$row["nam_bes"]; // Beschrieb der Rechtsgemeinschaft
-
-        // Rechtsgemeinschaft (in einer eigene Zeile ohne Namen)
-        if ($nam_adr == 9999) { // sonstiges
-                $rechtsg=$nam_bes; // Beschreibung verwenden
+        if ($nam_adr == '') {     // keine Rechtsgemeinsachft
+                if ($nam_ant == '') { // und kein Bruch-Anteil
+                        $nam_ant=1; // dann ganzer Anteil
+                }
         } else {
-                $rechtsg=rechtsgemeinschaft($nam_adr); // Entschlüsseln
+                $rechnen=false; // bei Rechtsgemeinschaft manuell interpretieren
+                if ($nam_adr == 9999) { // sonstiges
+                        $rechtsg=$row["nam_bes"]; // Beschrieb der Rechtsgemeinschaft
+                } else {
+                        $rechtsg=rechtsgemeinschaft($nam_adr); // Entschlüsseln
+                }
         }
 
@@ -162 +165 @@
 
         // 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 CSV-Datei
-        echo "\n".$fsteil.$gbteil.$namteil;
-        $i++;
+        echo "\n".$fsteil.$gbteil.$namteil.$formelteil;
 }
 pg_free_result($res);
-if ($i == 0) {exit ("Kein Treffer fuer gml_id=".$gmlid);}
+if ($i == 1) {exit ("Kein Treffer fuer gml_id=".$gmlid);} // nur Kopfzeile
 pg_close($con);
 exit(0);