Changeset 419 for trunk/info/info/alkisn/alkisfkt.php

Timestamp:

12/20/18 10:13:40 (5 years ago)

Author:

frank.jaeger

Message:

Auskunft Modul Flurstückshistorie nun auch mit Flurstückskennzeichen aufzurufen alternativ zu gmlid.

File:

• trunk/info/info/alkisn/alkisfkt.php (modified) (2 diffs)

trunk/info/info/alkisn/alkisfkt.php

@@ -18 +18 @@
         2018-11-09 Umstellung Full-Schema
         2018-11-19 EntschlÃŒsseln "zeigtaufexternes_art" mit function fortfuehrungen().
+        2018-12-18 function fskenn_dbformat
 
         ++ ToDo: Parameter $lnkclass in eigentuemer() und $jfenster in buchung_anzg() vereinheitlichen
@@ -662 +663 @@
 }
 
+function fskenn_dbformat ($fskennz) {
+        // Erzeugt, wenn notwendig, aus dem Bindetrich-getrennten FlurstÃŒckskennzeichen "llgggg-fff-nnnn/zz.nn" oder "gggg-ff-nnn/zz" 
+        // das ALKIS-DB-interne Format des FlurstÃŒckskennzeichens.
+        global $defland;
+        $arr=explode("-", $fskennz, 4); // zerlegen
+        $zgemkg=trim($arr[0]);
+        if (strlen($zgemkg) == 20 and !isset($arr[1])) {
+                $fskzdb=$zgemkg; // ist schon Datenbank-Feldformat
+        } else { // Das Kennzeichen auseinander nehmen. 
+                if (strlen($zgemkg) == 6) {
+                        $land=substr($zgemkg, 0, 2);
+                        $zgemkg=substr($zgemkg, 2, 4);
+                } else { // kein schöner Land ..
+                        $land=$defland; // Default-Land aus config
+                }
+                $zflur=str_pad($arr[1], 3 , "0", STR_PAD_LEFT); // Flur-Nr
+                $zfsnr=trim($arr[2]); // FlurstÃŒcke-Nr
+                $zn=explode("/", $zfsnr, 2); // Bruch?
+                $zzaehler=str_pad(trim($zn[0]), 5 , "0", STR_PAD_LEFT);
+                if (isset($zn[1])) {
+                        $znenner=trim($zn[1]);
+                } else {
+                        $znenner="";
+                }
+                if (trim($znenner, " 0.") == "") { // kein Bruch oder nur Nullen
+                        $znenner="____"; // in DB-Spalte mit Tiefstrich aufgefÃŒllt
+                } else {
+                        $zn=explode(".", $znenner, 2); // .00 wegwerfen
+                        $znenner=str_pad($zn[0], 4 , "0", STR_PAD_LEFT);
+                }
+                // die Teile stellengerecht wieder zusammen setzen              
+                $fskzdb=$land.$zgemkg.$zflur.$zzaehler.$znenner.'__'; // FS-Kennz. Format Datenbank
+        }
+        return $fskzdb;
+}
+
 ?>