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"],$file.".csv")) {
59 echo "Upload von ".$_FILES["Datei"]["name"]." fehlerhaft. (".$_FILES["Datei"]["error"].")<br>";
61 } else if (is_file($_POST["ziel"].".csv")) {
67 if (!$file) ende ("Kein Datenfile");
69 $trenner=($_POST["trenner"])?$_POST["trenner"]:",";
71 if (!file_exists("$file.csv")) ende("$file.csv nicht im Ordner oder leer");
74 if (!$db->chkcol($file)) ende("Importspalte kann nicht angelegt werden");
76 $employee=chkUsr($_SESSION["employee"]);
77 if (!$employee) ende("Ungültiger User");
79 $kunde_fld = array_keys($address);
81 $f=fopen("$file.csv","r");
82 $zeile=fgets($f,1200);
83 $infld=split($trenner,strtolower($zeile));
86 foreach ($infld as $fld) {
87 $fld = strtolower(trim(strtr($fld,array("\""=>"","'"=>""))));
88 if ($fld=="branche" && !$crm) { $in_fld[]=""; continue; };
89 if ($fld=="sw" && !$crm) { $in_fld[]=""; continue; };
95 $zeile=fgetcsv($f,1200,$trenner);
96 if ($ok) while (!feof($f)){
101 $sql="insert into $file ";
105 foreach($zeile as $data) {
106 if (!in_array(trim($in_fld[$i]),$kunde_fld)) {
107 if ($in_fld[$i]=="anrede") { $anrede=addslashes(trim($data)); }
112 // seit 2.6 ist die DB-Kodierung UTF-8 @holger Ansonsten einmal vorher die DB-Encoding auslesen
113 // Falls die Daten ISO-kodiert kommen entsprechend wandeln
114 // UTF-8 MUSS als erstes stehen, da ansonsten die Prüfung bei ISO-8859-1 aufhört ...
115 // TODO Umlaute am Anfang wurden bei meinem Test nicht übernommen (Österreich). S.a.:
116 // http://forum.de.selfhtml.org/archiv/2007/1/t143904/
118 $encoding = mb_detect_encoding($data,"UTF-8,ISO-8859-1,ISO-8859-15");
119 if ($encoding != "UTF-8"){
120 $data=mb_convert_encoding($data, "UTF-8","$encoding");
122 //$data=htmlentities($data);
123 $data=addslashes($data);
124 if ($in_fld[$i]==$file."number") { // customernumber || vendornumber
125 if (empty($data) or !$data) {
129 $data=chkKdId($data);
132 } else if ($in_fld[$i]=="taxincluded"){
133 $data=strtolower(substr($data,0,1));
134 if ($data!="f" && $data!="t") $data="f";
135 } /*else if ($in_fld[$i]=="ustid"){
137 $data=strtr(" ","",$data);
138 SUCHE IN ' ' nach dem Vorkommen von '' mit der BOOLEAN-Interpretation von $data
139 demnach gibt es immer eine leere Zeichenkette zurück.
140 }*/ /*else if ($in_fld[$i]=="matchcode") {
144 if ($data==false or empty($data) or !$data) {
145 if (in_array($in_fld[$i],array("name"))) {
151 $keys.=$in_fld[$i].",";
152 if ($data==false or empty($data) or !$data) {
155 if ($in_fld[$i]=="contact"){
157 $vals.="'$anrede $data',";
162 $vals.="'".$data."',";
168 $keys.=$file."number,";
169 $vals.="'".getKdId()."',";
174 echo "<table border='1'>\n";
175 echo "<tr><th>".str_replace(",","</th><th>",substr($keys,1,-1))."</th></tr>\n";
178 $vals=str_replace("',","'</td><td>",substr($vals,9,-1));
179 echo "<tr><td>".str_replace("null,","null</td><td>",$vals)."</td></tr>\n";
180 //echo "Import $j<br>\n";
183 $sql.=$keys."taxzone_id,import)";
184 $sql.=$vals."0,$nun)";
185 $rc=$db->query($sql);
186 if (!$rc) echo "Fehler: ".$sql."<br>";
190 $vals=str_replace("',","'</td><td>",substr($vals,9,-1));
191 echo "<tr><td style=\"color:red\">".str_replace("null,","null</td><td style=\"color:red\">",$vals)."</td></tr>\n";
194 $zeile=fgetcsv($f,1200,$trenner);
197 if ($test) echo "</table>\n ##### = Neue Kunden-/Lieferantennummer\n<br>";
198 echo $j." $file importiert.\n";
202 <p class="listtop">Adressimport für die ERP<p>
204 <form name="import" method="post" enctype="multipart/form-data" action="addressB.php">
205 <!--form name="import" method="post" action="addressB.php"-->
206 <input type="hidden" name="MAX_FILE_SIZE" value="2000000">
207 <input type="hidden" name="login" value="<?= $login ?>">
209 <tr><td></td><td><input type="submit" name="ok" value="Hilfe"></td></tr>
210 <tr><td>Zieltabelle</td><td><input type="radio" name="ziel" value="customer" checked>customer <input type="radio" name="ziel" value="vendor">vendor</td></tr>
211 <tr><td>Trennzeichen</td><td><input type="text" size="2" maxlength="1" name="trenner" value=";"></td></tr>
212 <tr><td>Test</td><td><input type="checkbox" name="test" value="1">ja</td></tr>
213 <tr><td>Daten</td><td><input type="file" name="Datei"></td></tr>
214 <tr><td></td><td><input type="submit" name="ok" value="Import"></td></tr>