2 <LINK REL="stylesheet" HREF="../css/lx-office-erp.css" TYPE="text/css" TITLE="Lx-Office stylesheet">
6 BLZimport mit Browser nach Lx-Office ERP
7 Holger Lindemann <hli@lx-system.de>
13 echo "Abbruch: $nr<br>";
14 echo "Fehlende oder falsche Daten.";
18 if (!$_SESSION["db"]) {
19 $conffile="../config/authentication.pl";
20 if (!is_file($conffile)) {
24 require ("import_lib.php");
27 return iconv("ISO-8859-1", "UTF-8",$str);
30 if (!anmelden()) ende(5);
32 $db=$_SESSION["db"]; //new myDB($login);
38 if ($_POST["ok"]=="Hilfe") {
39 echo "<br>Die erste Zeile enthält keine Feldnamen der Daten.<br>";
40 echo "Die Datenfelder haben eine feste Breite.<br><br>";
41 echo "Die Daten können hier bezogen werden:<br>";
42 echo "<a http='http://www.bundesbank.de/zahlungsverkehr/zahlungsverkehr_bankleitzahlen_download.php'>";
43 echo "http://www.bundesbank.de/zahlungsverkehr/zahlungsverkehr_bankleitzahlen_download.php</a>";
52 if (empty($_FILES["Datei"]["name"]))
56 if (!move_uploaded_file($_FILES["Datei"]["tmp_name"],"blz.txt")) {
58 echo $_FILES["Datei"]["tmp_name"];
59 echo "Upload von Datei fehlerhaft.";
60 echo $_FILES["Datei"]["error"], "<br>";
64 /* check if file is really there */
65 if (!file_exists("blz.txt"))
68 $sqlins="INSERT INTO blz_data (blz,fuehrend,bezeichnung,plz,ort,kurzbez,pan,bic,pzbm,nummer,aekz,bl,folgeblz) ";
69 $sqlins.="VALUES ('%s','%s','%s','%s','%s','%s','%s','%s','%s',%d,'%s','%s','%s')";
70 $teststr="<tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%d</td><td>%s</td><td>%s</td><td>%s</td></tr>\n";
71 $sqldel="delete from blz_data";
74 $f=fopen("blz.txt","r");
75 if ($test) echo "Testdurchlauf <br><table>\n";
78 $rs = $db->getAll("SELECT current_setting('server_encoding')");
79 $srvencoding = $rs[0]['current_setting'];
80 $rs = $db->getAll("SELECT current_setting('client_encoding')");
81 $cliencoding = $rs[0]['current_setting'];
82 echo "SRV: $srvencoding - - CLI: $cliencoding<br>";
83 //Datenfile ist immer Latin!!
84 //zwei Möglichkeiten der Zeichenwandlung. Was ist besser??
86 //Cliententcoding nicht umstellen:
87 //if (!$test) { $rc=$db->query("BEGIN");};
88 //Cliententcoding auf Latin:
89 if (!$test) { $rc=$db->query("BEGIN"); if ($cliencoding=="UTF8") $db->query("SET CLIENT_ENCODING TO 'latin-9'"); };
90 if (!$test) $rc=$db->query($sqldel);
91 while (($zeile=fgets($f,256)) != FALSE) {
94 //Client nicht umgestellt, Zeichen wandeln
95 /*$sql=sprintf($sqlins,substr($zeile,0,8),substr($zeile,8,1),l2u(substr($zeile,9,58)),substr($zeile,67,5),
96 l2u(substr($zeile,72,35)),l2u(substr($zeile,107,27)),substr($zeile,134,5),substr($zeile,139,11),
97 substr($zeile,150,2),substr($zeile,152,6),substr($zeile,158,1),substr($zeile,159,1),
98 substr($zeile,160,8));*/
99 //Client umgestellt + und auch bei nicht UTF-Client:
100 $sql=sprintf($sqlins,substr($zeile,0,8),substr($zeile,8,1),substr($zeile,9,58),substr($zeile,67,5),
101 substr($zeile,72,35),substr($zeile,107,27),substr($zeile,134,5),substr($zeile,139,11),
102 substr($zeile,150,2),substr($zeile,152,6),substr($zeile,158,1),substr($zeile,159,1),
103 substr($zeile,160,8));
106 $rc=$db->query($sql);
107 if(DB::isError($rc)) {
108 echo $sql."<br><pre>";
109 echo $rc->getMessage()."</pre><br>";
114 $rc=$db->query($sql);
115 if ($cnt % 10 == 0) {
116 if ($cnt % 1000 == 0) { $x=time()-$start; echo sprintf("%dsec %6d<br>",$x,$cnt); }
117 else if ($cnt % 100 == 0) { echo "!"; }
122 echo sprintf($teststr,substr($zeile,0,8),substr($zeile,8,1),l2u(substr($zeile,9,58)),substr($zeile,67,5),
123 l2u(substr($zeile,72,35)),l2u(substr($zeile,107,27)),substr($zeile,134,5),substr($zeile,139,11),
124 substr($zeile,150,2),substr($zeile,152,6),substr($zeile,158,1),substr($zeile,159,1),
125 substr($zeile,160,8));
136 if (!$test) $rc=$db->query("COMMIT");
137 echo "<br>$i Daten erfolgreich importierti<br>";
138 if ($cliencoding=="UTF8") $db->query("SET CLIENT_ENCODING TO 'UTF8'");
140 echo $stop-$start." Sekunden";
142 if (!$test) $rc=$db->query("ROLLBACK");
143 echo "Fehler in Zeile: ".$i."<br>";
157 <p class="listtop">BLZ-Import für die ERP<p>
158 <br>Die erste Zeile enthält keine Feldnamen der Daten.<br>
159 Die Datenfelder haben eine feste Breite.<br><br>
160 Die Daten können hier bezogen werden:<br>
161 <a http='http://www.bundesbank.de/zahlungsverkehr/zahlungsverkehr_bankleitzahlen_download.php'>
162 http://www.bundesbank.de/zahlungsverkehr/zahlungsverkehr_bankleitzahlen_download.php</a><br><br>
163 ggf. das File vorher noch auf UTF8 wandeln: iconv -f latin1 -t utf8 blz.txt -o blz1.txt<br><br>
164 Achtung!! Die bestehenden BLZ-Daten werden zunächst gelöscht.
166 <form name="import" method="post" enctype="multipart/form-data" action="blz.php">
167 <input type="hidden" name="MAX_FILE_SIZE" value="20000000">
168 <input type="hidden" name="login" value="<?= $login ?>">
170 <tr><td>Test</td><td><input type="checkbox" name="test" value="1">ja</td></tr>
171 <tr><td>Daten</td><td><input type="file" name="Datei"></td></tr>
172 <tr><td></td><td><input type="submit" name="ok" value="Import"></td></tr>