lxo-import/addressB.php

   1 <html>
   2 <LINK REL="stylesheet" HREF="../css/lx-office-erp.css" TYPE="text/css" TITLE="Lx-Office stylesheet">
   3 <body>
   4 <?
   5 /*
   6 Kunden- bzw. Lieferantenimport mit Browser nach Lx-Office ERP
   7
   8 Copyright (C) 2005
   9 Author: Holger Lindemann
  10 Email: hli@lx-system.de
  11 Web: http://lx-system.de
  12
  13 */
  14
  15 require ("import_lib.php");
  16
  17 if (!$_SESSION["db"]) {
  18     $conffile="../config/authentication.pl";
  19     if (!is_file($conffile)) {
  20         ende("authentication.pl nicht gefunden oder unlesbar");
  21     }
  22 }
  23
  24 if (!anmelden()) ende("Anmeldung fehlgeschlagen");
  25
  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>";
  31     }
  32     $header=implode(";",array_keys($address));
  33     echo $header;
  34     exit(0);
  35 };
  36
  37 if ($_POST["ok"]) {
  38
  39 $nun=time();
  40
  41
  42 /* get DB instance */
  43 $db=$_SESSION["db"]; //new myDB($login);
  44
  45 $crm=checkCRM();
  46
  47 function ende($txt) {
  48     echo "Abbruch: $txt<br>";
  49     exit(1);
  50 }
  51
  52 clearstatcache ();
  53 //print_r($_FILES);
  54 $test=$_POST["test"];
  55 if (!empty($_FILES["Datei"]["name"])) {
  56     $file=$_POST["ziel"];
  57     if (!move_uploaded_file($_FILES["Datei"]["tmp_name"],$file.".csv")) {
  58         $file=false;
  59         echo "Upload von ".$_FILES["Datei"]["name"]." fehlerhaft. (".$_FILES["Datei"]["error"].")<br>";
  60     }
  61 } else if (is_file($_POST["ziel"].".csv")) {
  62     $file=$_POST["ziel"];
  63 } else {
  64     $file=false;
  65 }
  66
  67 if (!$file) ende ("Kein Datenfile");
  68
  69 $trenner=($_POST["trenner"])?$_POST["trenner"]:",";
  70
  71 if (!file_exists("$file.csv")) ende("$file.csv nicht im Ordner oder leer");
  72
  73
  74 if (!$db->chkcol($file)) ende("Importspalte kann nicht angelegt werden");
  75
  76 $employee=chkUsr($_SESSION["employee"]);
  77 if (!$employee) ende("Ung&uuml;ltiger User");
  78
  79 $kunde_fld = array_keys($address);
  80
  81 $f=fopen("$file.csv","r");
  82 $zeile=fgets($f,1200);
  83 $infld=split($trenner,strtolower($zeile));
  84 $first=true;
  85 $ok=true;
  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; };
  90     $in_fld[]=$fld;
  91 }
  92
  93 $j=0;
  94 $m=0;
  95 $zeile=fgetcsv($f,1200,$trenner);
  96 if ($ok) while (!feof($f)){
  97     $i=0;
  98     $m++;
  99     $anrede="";
 100     $Matchcode="";
 101     $sql="insert into $file ";
 102     $keys="(";
 103     $vals=" values (";
 104     $number=false;
 105     foreach($zeile as $data) {
 106         print $data . "her" ;
 107         if (!in_array(trim($in_fld[$i]),$kunde_fld)) {
 108             if ($in_fld[$i]=="anrede") {  $anrede=addslashes(trim($data)); }
 109             $i++;
 110             continue;
 111         };
 112         $data=trim($data);
 113         // seit 2.6 ist die DB-Kodierung UTF-8 @holger Ansonsten einmal vorher die DB-Encoding auslesen
 114         // Falls die Daten ISO-kodiert kommen entsprechend wandeln
 115         // UTF-8 MUSS als erstes stehen, da ansonsten die Prüfung bei ISO-8859-1 aufhört ...
 116         // TODO Umlaute am Anfang wurden bei meinem Test nicht übernommen (Österreich). S.a.:
 117         // http://forum.de.selfhtml.org/archiv/2007/1/t143904/
 118
 119         $encoding = mb_detect_encoding($data,"UTF-8,ISO-8859-1,ISO-8859-15");
 120         if ($encoding != "UTF-8"){
 121           $data=mb_convert_encoding($data, "UTF-8","$encoding");
 122         }
 123         //$data=htmlentities($data);
 124         $data=addslashes($data);
 125         if ($in_fld[$i]==$file."number") {  // customernumber || vendornumber
 126             if (empty($data) or !$data) {
 127                 $data=getKdId();
 128                 $number=true;
 129             } else {
 130                 $data=chkKdId($data);
 131                 $number=true;
 132             }
 133         } else if ($in_fld[$i]=="taxincluded"){
 134             $data=strtolower(substr($data,0,1));
 135             if ($data!="f" && $data!="t") $data="f";
 136 /*        } else if ($in_fld[$i]=="ustid"){
 137             Was passiert hier:
 138             $data=strtr(" ","",$data);
 139             SUCHE IN ' ' nach dem Vorkommen von '' mit der BOOLEAN-Interpretation von $data
 140             demnach gibt es immer eine leere Zeichenkette zurück.
 141         }*/ /*else if ($in_fld[$i]=="matchcode") {
 142                   $matchcode=$data;
 143                   $i++;
 144                   continue;
 145                 if ($data==false or empty($data) or !$data) {
 146             if (in_array($in_fld[$i],array("name"))) {
 147                 $data=$matchcode;
 148             }
 149         }
 150             }*/
 151
 152         $keys.=$in_fld[$i].",";
 153         if ($data==false or empty($data) or !$data) {
 154             $vals.="null,";
 155         } else {
 156             if ($in_fld[$i]=="contact"){
 157                 if ($anrede) {
 158                     $vals.="'$anrede $data',";
 159                 } else {
 160                     $vals.="'$data',";
 161                 }
 162             } else {
 163                 $vals.="'".$data."',";
 164             }
 165         }
 166         $i++;
 167     }
 168     if (!$number) {
 169         $keys.=$file."number,";
 170         $vals.="'".getKdId()."',";
 171     }
 172     if ($keys<>"(") {
 173         if ($test) {
 174             if ($first) {
 175                 echo "<table border='1'>\n";
 176                 echo "<tr><th>".str_replace(",","</th><th>",substr($keys,1,-1))."</th></tr>\n";
 177                 $first=false;
 178             };
 179             $vals=str_replace("',","'</td><td>",substr($vals,9,-1));
 180             echo "<tr><td>".str_replace("null,","null</td><td>",$vals)."</td></tr>\n";
 181             //echo "Import $j<br>\n";
 182             flush();
 183         } else {
 184             $sql.=$keys."taxzone_id,import)";
 185             $sql.=$vals."0,$nun)";
 186             $rc=$db->query($sql);
 187             if (!$rc) echo "Fehler: ".$sql."<br>";
 188         }
 189         $j++;
 190     } else {
 191           $vals=str_replace("',","'</td><td>",substr($vals,9,-1));
 192           echo "<tr><td style=\"color:red\">".str_replace("null,","null</td><td style=\"color:red\">",$vals)."</td></tr>\n";
 193           flush();
 194         }
 195     $zeile=fgetcsv($f,1200,$trenner);
 196 }
 197 fclose($f);
 198 if ($test) echo "</table>\n ##### = Neue Kunden-/Lieferantennummer\n<br>";
 199 echo $j." $file importiert.\n";
 200 } else {
 201 ?>
 202
 203 <p class="listtop">Adressimport f&uuml;r die ERP<p>
 204 <br>
 205 <form name="import" method="post" enctype="multipart/form-data" action="addressB.php">
 206 <!--form name="import" method="post"  action="addressB.php"-->
 207 <input type="hidden" name="MAX_FILE_SIZE" value="2000000">
 208 <input type="hidden" name="login" value="<?= $login ?>">
 209 <table>
 210 <tr><td></td><td><input type="submit" name="ok" value="Hilfe"></td></tr>
 211 <tr><td>Zieltabelle</td><td><input type="radio" name="ziel" value="customer" checked>customer <input type="radio" name="ziel" value="vendor">vendor</td></tr>
 212 <tr><td>Trennzeichen</td><td><input type="text" size="2" maxlength="1" name="trenner" value=";"></td></tr>
 213 <tr><td>Test</td><td><input type="checkbox" name="test" value="1">ja</td></tr>
 214 <tr><td>Daten</td><td><input type="file" name="Datei"></td></tr>
 215 <tr><td></td><td><input type="submit" name="ok" value="Import"></td></tr>
 216 </table>
 217 </form>
 218 <? }; ?>