| 1 | <?php |
|---|
| 2 | /* Modul alkisgbexp.php |
|---|
| 3 | CSV-Export von Grundbuch-Daten (Blatt)
|
|---|
| 4 | 2012-07-24 krz f.j. |
|---|
| 5 | */ |
|---|
| 6 | import_request_variables("G"); // gmlid |
|---|
| 7 | header('Content-type: application/octet-stream'); |
|---|
| 8 | header('Content-Disposition: attachment; filename="alkis_grundbuch_'.$gmlid.'.csv"'); |
|---|
| 9 | require_once("alkis_conf_location.php");
|
|---|
| 10 | |
|---|
| 11 | // DB-Verbindung
|
|---|
| 12 | $con = pg_connect("host=".$dbhost." port=" .$dbport." dbname=".$dbname." user=".$dbuser." password=".$dbpass);
|
|---|
| 13 | if (!$con) {exit("Fehler beim Verbinden der DB");} |
|---|
| 14 | pg_set_client_encoding($con, LATIN1); |
|---|
| 15 | |
|---|
| 16 | // GB-Blatt, Bestand |
|---|
| 17 | $sql ="SELECT g.buchungsblattnummermitbuchstabenerweiterung AS nr, g.blattart, "; // GB-Blatt
|
|---|
| 18 | $sql.=" b.bezirk, b.bezeichnung AS beznam, a.land, a.bezeichnung ";
|
|---|
| 19 | $sql.="FROM ax_buchungsblatt g ";
|
|---|
| 20 | $sql.="LEFT JOIN ax_buchungsblattbezirk b ON g.land=b.land AND g.bezirk=b.bezirk "; // BBZ
|
|---|
| 21 | $sql.="LEFT JOIN ax_dienststelle a ON b.land = a.land AND b.stelle = a.stelle "; |
|---|
| 22 | $sql.="WHERE g.gml_id= $1 AND a.stellenart=1000;"; // Amtsgericht |
|---|
| 23 | $v = array($gmlid);
|
|---|
| 24 | $res = pg_prepare("", $sql);
|
|---|
| 25 | $res = pg_execute("", $v);
|
|---|
| 26 | if (!$res) {exit("Fehler bei Grundbuchdaten");}
|
|---|
| 27 | if ($row = pg_fetch_array($res)) { |
|---|
| 28 | $agland=$row["land"]; // Amtsgericht |
|---|
| 29 | $agbez=$row["bezeichnung"]; |
|---|
| 30 | $bezirk=$row["bezirk"]; // Bezirk |
|---|
| 31 | $beznam=$row["beznam"];
|
|---|
| 32 | $blattnr=$row["nr"]; // Blatt |
|---|
| 33 | $blattart=$row["blattart"];
|
|---|
| 34 | } else {exit("Kein Treffer fuer gml_id=".$gmlid);}
|
|---|
| 35 | //if ($blattkey == 5000) { // fikt. Blatt Keine Angaben zum Eigentum |
|---|
| 36 | |
|---|
| 37 | // CSV-Ausgabe |
|---|
| 38 | echo "Land;Amtsgericht;Bezirk;Bezirksname;Blatt;Blattart";
|
|---|
| 39 | echo "\n".$agland.";".$agbez.";".$bezirk.";".$beznam.";".$blattnr.";".$blattart; |
|---|
| 40 | exit();
|
|---|
| 41 | ?> |
|---|
