2 <LINK REL="stylesheet" HREF="../css/lx-office-erp.css" TYPE="text/css" TITLE="Lx-Office stylesheet">
6 Kunden- bzw. Lieferantenimport mit Browser nach Lx-Office ERP
9 Author: Holger Lindemann
10 Email: hli@lx-system.de
11 Web: http://lx-system.de
15 require ("import_lib.php");
17 if (!$_SESSION["db"]) {
18 $conffile="../config/authentication.pl";
19 if (!is_file($conffile)) {
20 ende("authentication.pl nicht gefunden oder unlesbar");
24 if (!anmelden()) ende("Anmeldung fehlgeschlagen");
26 if ($_POST["ok"]=="Hilfe") {
27 echo "Importfelder:<br>";
28 echo "Feldname => Bedeutung<br>";
29 foreach($address as $key=>$val) {
30 echo "$key => $val<br>";
32 $header=implode(";",array_keys($address));
43 $db=$_SESSION["db"]; //new myDB($login);
48 echo "Abbruch: $txt<br>";
55 if (!empty($_FILES["Datei"]["name"])) {
57 if (!move_uploaded_file($_FILES["Datei"]["tmp_name"],$dir.$file.".csv")) {
59 echo "Upload von ".$_FILES["Datei"]["name"]." fehlerhaft. (".$_FILES["Datei"]["error"].")<br>";
61 } else if (is_file($dir.$_POST["ziel"].".csv")) {
67 if (!$file) ende ("Kein Datenfile");
69 $trenner=($_POST["trenner"])?$_POST["trenner"]:",";
70 if ($trenner=="other") {
71 $trenner=trim($trennzeichen);
72 if (substr($trenner,0,1)=="#") if (strlen($trenner)>1) $trenner=chr(substr($trenner,1));
75 if (!file_exists($dir.$file.".csv")) ende("$file.csv nicht im Ordner oder leer");
78 if (!$db->chkcol($file)) ende("Importspalte kann nicht angelegt werden");
80 $employee=chkUsr($_SESSION["employee"]);
81 if (!$employee) ende("Ungültiger User");
83 $kunde_fld = array_keys($address);
85 //Zeichencodierung des Servers
86 $tmpcode = $db->getServerCode();
87 //Leider sind die Benennungen vom Server anders als von mb_detect_encoding
88 if ($tmpcode == "UTF8") {
89 define("ServerCode","UTF-8");
90 } else if ($tmpcode == "LATIN9") {
91 define("ServerCode","ISO-8859-15");
92 } else if ($tmpcode == "LATIN1") {
93 define("ServerCode","ISO-8859-1");
95 define("ServerCode",$tmpcode);
97 //Zeichensatz sollte gleich sein, sonst ist die Datenkonvertierung nutzlos
98 //DB und LxO müssen ja nicht auf der gleichen Maschiene sein.
99 if($tmpcode<>$db->getClientCode()) {
100 $rc = $db->setClientCode($tmpcode);
103 // Zeichenkodierung File
104 if ($_POST["encoding"] == "auto") {
106 define("Translate",true);
108 define("Auto",false);
109 if ($_POST["encoding"] == ServerCode) {
110 define("Translate",false);
112 define("Translate",true);
113 define("FileCode",$_POST["encoding"]);
117 $f=fopen($dir.$file.".csv","r");
118 $zeile=fgets($f,1200);
119 $infld=explode($trenner,strtolower($zeile));
122 foreach ($infld as $fld) {
123 $fld = strtolower(trim(strtr($fld,array("\""=>"","'"=>""))));
124 if ($fld=="branche" && !$crm) { $in_fld[]=""; continue; };
125 if ($fld=="sw" && !$crm) { $in_fld[]=""; continue; };
131 $zeile=fgetcsv($f,1200,$trenner);
132 if ($ok) while (!feof($f)){
137 $sql="insert into $file ";
141 foreach($zeile as $data) {
142 if (!in_array(trim($in_fld[$i]),$kunde_fld)) {
143 if ($in_fld[$i]=="anrede") { $anrede=addslashes(trim($data)); }
148 // seit 2.6 ist die DB-Kodierung UTF-8 @holger Ansonsten einmal vorher die DB-Encoding auslesen
149 // Falls die Daten ISO-kodiert kommen entsprechend wandeln
151 // UTF-8 MUSS als erstes stehen, da ansonsten die Prüfung bei ISO-8859-1 aufhört ...
152 // die blöde mb_detect... tut leider nicht immer, daher die Möglichkeit der Auswahl
153 // TODO Umlaute am Anfang wurden bei meinem Test nicht übernommen (Österreich). S.a.:
154 // http://forum.de.selfhtml.org/archiv/2007/1/t143904/
156 if (Translate) translate($data);
158 //$data=htmlentities($data);
159 $data=addslashes($data);
160 if ($in_fld[$i]==$file."number") { // customernumber || vendornumber
161 if (empty($data) or !$data) {
165 $data=chkKdId($data);
168 } else if ($in_fld[$i]=="taxincluded"){
169 $data=strtolower(substr($data,0,1));
170 if ($data!="f" && $data!="t") $data="f";
171 } else if ($in_fld[$i]=="ustid"){
172 $data=strtr($data," ","");
173 } /*else if ($in_fld[$i]=="matchcode") {
177 if ($data==false or empty($data) or !$data) {
178 if (in_array($in_fld[$i],array("name"))) {
184 $keys.=$in_fld[$i].",";
185 if ($data==false or empty($data) or !$data) {
188 if ($in_fld[$i]=="contact"){
190 $vals.="'$anrede $data',";
195 $vals.="'".$data."',";
201 $keys.=$file."number,";
202 $vals.="'".getKdId()."',";
207 echo "<table border='1'>\n";
208 echo "<tr><th>".str_replace(",","</th><th>",substr($keys,1,-1))."</th></tr>\n";
211 $vals=str_replace("',","'</td><td>",substr($vals,9,-1));
212 echo "<tr><td>".str_replace("null,","null</td><td>",$vals)."</td></tr>\n";
213 //echo "Import $j<br>\n";
216 $sql.=$keys."taxzone_id,import)";
217 $sql.=$vals."0,$nun)";
218 $rc=$db->query($sql);
219 if (!$rc) echo "Fehler: ".$sql."<br>";
223 $vals=str_replace("',","'</td><td>",substr($vals,9,-1));
224 echo "<tr><td style=\"color:red\">".str_replace("null,","null</td><td style=\"color:red\">",$vals)."</td></tr>\n";
227 $zeile=fgetcsv($f,1200,$trenner);
230 if ($test) echo "</table>\n ##### = Neue Kunden-/Lieferantennummer\n<br>";
231 echo $j." $file importiert.\n";
235 <p class="listtop">Adressimport für die ERP<p>
237 <form name="import" method="post" enctype="multipart/form-data" action="addressB.php">
238 <!--form name="import" method="post" action="addressB.php"-->
239 <input type="hidden" name="MAX_FILE_SIZE" value="2000000">
240 <input type="hidden" name="login" value="<?php echo $login ?>">
242 <tr><td></td><td><input type="submit" name="ok" value="Hilfe"></td></tr>
243 <tr><td>Zieltabelle</td><td><input type="radio" name="ziel" value="customer" checked>customer <input type="radio" name="ziel" value="vendor">vendor</td></tr>
244 <tr><td>Trennzeichen</td><td>
245 <input type="radio" name="trenner" value=";" checked>Semikolon
246 <input type="radio" name="trenner" value=",">Komma
247 <input type="radio" name="trenner" value="#9" checked>Tabulator
248 <input type="radio" name="trenner" value=" ">Leerzeichen
249 <input type="radio" name="trenner" value="other">
250 <input type="text" size="2" name="trennzeichen" value="">
252 <tr><td>Test</td><td><input type="checkbox" name="test" value="1">ja</td></tr>
253 <tr><td>Daten</td><td><input type="file" name="Datei"></td></tr>
254 <tr><td>Verwendete<br />Zeichecodierung</td><td>
255 <select name="encoding">
256 <option value="auto">Automatisch (versuchen)</option>
257 <option value="UTF-8">UTF-8</option>
258 <option value="ISO-8859-1">ISO-8859-1</option>
259 <option value="ISO-8859-15">ISO-8859-15</option>
260 <option value="Windows-1252">Windows-1252</option>
261 <option value="ASCII">ASCII</option>
264 <tr><td></td><td><input type="submit" name="ok" value="Import"></td></tr>