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 <?php
   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 $dir = "../users/";
  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"],$dir.$file.".csv")) {
  58         $file=false;
  59         echo "Upload von ".$_FILES["Datei"]["name"]." fehlerhaft. (".$_FILES["Datei"]["error"].")<br>";
  60     }
  61 } else if (is_file($dir.$_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 if ($trenner=="other") {
  71     $trenner=trim($trennzeichen);
  72 }
  73 if (substr($trenner,0,1)=="#") if (strlen($trenner)>1) $trenner=chr(substr($trenner,1));
  74
  75 if (!file_exists($dir.$file.".csv")) ende("$file.csv nicht im Ordner oder leer");
  76
  77 if (!$db->chkcol($file)) ende("Importspalte kann nicht angelegt werden");
  78
  79 $employee=chkUsr($_SESSION["employee"]);
  80 if (!$employee) ende("Ung&uuml;ltiger User");
  81
  82 $kunde_fld = array_keys($address);
  83
  84     //Zeichencodierung des Servers
  85     $tmpcode = $db->getServerCode();
  86     //Leider sind die Benennungen vom Server anders als von mb_detect_encoding
  87     if ($tmpcode == "UTF8") {
  88          define("ServerCode","UTF-8");
  89     } else if ($tmpcode == "LATIN9") {
  90          define("ServerCode","ISO-8859-15");
  91     } else if ($tmpcode == "LATIN1") {
  92          define("ServerCode","ISO-8859-1");
  93     } else {
  94          define("ServerCode",$tmpcode);
  95     }
  96     //Zeichensatz sollte gleich sein, sonst ist die Datenkonvertierung nutzlos
  97     //DB und LxO müssen ja nicht auf der gleichen Maschiene sein.
  98     if($tmpcode<>$db->getClientCode()) {
  99         $rc = $db->setClientCode($tmpcode);
 100     }
 101
 102     // Zeichenkodierung File
 103     if ($_POST["encoding"] == "auto") {
 104          define("Auto",true);
 105          define("Translate",true);
 106     } else {
 107          define("Auto",false);
 108          if ($_POST["encoding"] == ServerCode) {
 109             define("Translate",false);
 110          } else {
 111             define("Translate",true);
 112             define("FileCode",$_POST["encoding"]);
 113          }
 114     }
 115
 116 function chkBusiness($data,$id=true) {
 117 global $db;
 118     if ($id) {
 119         $rs = $db->getAll("select id from business where id =$data");
 120     } else {
 121         $rs = $db->getAll("select id from business where decription ilike '$data'");
 122     }
 123     if ($rs[0]["id"]) {
 124         return $rs[0]["id"];
 125     } else {
 126         return "null";
 127     }
 128 }
 129
 130 function chkSalesman($data,$id=true) {
 131 global $db;
 132     if ($id) {
 133         $rs = $db->getAll("select id from employee where id =$data");
 134     } else {
 135         $rs = $db->getAll("select id from employee where login ilike '$data'");
 136     }
 137     if ($rs[0]["id"]) {
 138         return $rs[0]["id"];
 139     } else {
 140         return "null";
 141     }
 142 }
 143
 144 $f=fopen($dir.$file.".csv","r");
 145 $zeile=fgets($f,1200);
 146 $infld=explode($trenner,strtolower($zeile));
 147 $first=true;
 148 $ok=true;
 149 $p=0;
 150 foreach ($infld as $fld) {
 151     $fld = strtolower(trim(strtr($fld,array("\""=>"","'"=>""))));
 152     if (in_array($fld,$kunde_fld)) {
 153         if ($fld=="branche" && !$crm) {  continue; };
 154         if ($fld=="sw" && !$crm) {  continue; };
 155         $in_fld[$fld]=$p;
 156         //$fldpos[$fld]=$p;
 157         //$in_fld[]=$fld;
 158     }
 159     $p++;
 160 }
 161 $infld = array_keys($in_fld);
 162 $infld[] = "import";
 163 $infld = implode(",",$infld);
 164 $j=0;
 165 $m=0;
 166 $zeile=fgetcsv($f,1200,$trenner);
 167 if ($ok) while (!feof($f)){
 168     $i=0;
 169     $m++;
 170     $anrede="";
 171     $Matchcode="";
 172     $sql="insert into $file ";
 173     $keys=array();
 174     $vals=array();
 175     $number=false;
 176     //foreach($zeile as $data) {
 177
 178     foreach($in_fld as $fld => $pos) {
 179         switch ($fld) {
 180             case "name"         :
 181             case "department_1" :
 182             case "department_2" :
 183             case "matchcode"    :
 184             case "street"       :
 185             case "city"         :
 186             case "notes"        :
 187             case "sw"           :
 188             case "branche"      :
 189             case "country"      :
 190             case "contact"      :
 191             case "homepage"     :
 192             case "email"        :
 193             case "bank"         : $data = addslashes(trim($zeile[$pos]));
 194                                   if (Translate) translate($data);
 195             case "ustid"        : $data = strtr(trim($zeile[$pos])," ","");
 196             case "bank_code"    : $data = trim($zeile[$pos]);
 197             case "account_number":
 198             case "greeting"     :
 199             case "taxnumber"    :
 200             case "zipcode"      :
 201             case "phone"        :
 202             case "fax"          : $data = trim($zeile[$pos]);
 203                                   $data = "'$data'";
 204                                   if ($data=="''") {
 205                                         $vals[] = "null";
 206                                   } else {
 207                                         $vals[] = $data;
 208                                   }
 209                                   break;
 210             case "business_id"  : $vals[] = chkBusiness(trim($zeile[$pos]));
 211                                   break;
 212             case "salesman_id"  : $vals[] = chkSalesman(trim($zeile[$pos]));
 213                                   break;
 214             case "taxincluded"  : $data = strtolower(substr($zeile[$pos],0,1));
 215                                   if ($data!="f" && $data!="t") { $vals[] = "'f'"; }
 216                                   else { $vals[] = "'".$data."'";}
 217                                   break;
 218             case "taxzone_id"   : $data = trim($zeile[$pos])*1;
 219                                   if ($data>3 && $data<0) $data = 0;
 220                                   $vals[] = $data;
 221                                   break;
 222             case "creditlimit"  :
 223             case "discount"     :
 224             case "terms"        : $vals[] = trim($zeile[$pos])*1;
 225                                   break;
 226             case "customernumber":
 227             case "vendornumber" : $data = trim($zeile[$pos]);
 228                                   if (empty($data) or !$data) {
 229                                       $vals[] = getKdId();
 230                                       $number = true;
 231                                   } else {
 232                                       $vals[] = chkKdId($data);
 233                                       $number = true;
 234                                   }
 235                                   break;
 236         }
 237     };
 238     if (!in_array("taxzone_id",$in_fld)) {
 239         $in_fld[] = "taxzone_id";
 240         $vals[] = 0;
 241     }
 242         // seit 2.6 ist die DB-Kodierung UTF-8 @holger Ansonsten einmal vorher die DB-Encoding auslesen
 243         // Falls die Daten ISO-kodiert kommen entsprechend wandeln
 244         // done!
 245         // UTF-8 MUSS als erstes stehen, da ansonsten die Prüfung bei ISO-8859-1 aufhört ...
 246         // die blöde mb_detect... tut leider nicht immer, daher die Möglichkeit der Auswahl
 247         // TODO Umlaute am Anfang wurden bei meinem Test nicht übernommen (Österreich). S.a.:
 248         // http://forum.de.selfhtml.org/archiv/2007/1/t143904/
 249     if ($test) {
 250             if ($first) {
 251                 echo "<table border='1'>\n<tr><td>";
 252                 echo implode('</th><th>',array_keys($in_fld));
 253                 echo "</td></tr>\n";
 254                 $first=false;
 255             };
 256             echo "<tr><td>";
 257             echo implode('</td><td>',$vals);
 258             echo "</td></tr>\n";
 259             //echo "Import $j<br>\n";
 260             flush();
 261     } else {
 262             $vals[] = $nun;
 263             $sql = "INSERT INTO $file (".$infld.") values (".implode(",",$vals).")";
 264             $rc=$db->query($sql);
 265             if ($j % 10 == 0) { echo "."; flush(); };
 266             if (!$rc) {  echo "<br />Fehler: ".$sql."<br />"; flush(); };
 267     }
 268     $j++;
 269     $zeile=fgetcsv($f,1200,$trenner);
 270 }
 271 fclose($f);
 272 if ($test) echo "</table>\n ##### = Neue Kunden-/Lieferantennummer\n<br>";
 273 echo $j." $file importiert.\n";
 274 } else {
 275 ?>
 276
 277 <p class="listtop">Adressimport f&uuml;r die ERP<p>
 278 <br>
 279 <form name="import" method="post" enctype="multipart/form-data" action="addressB.php">
 280 <!--form name="import" method="post"  action="addressB.php"-->
 281 <input type="hidden" name="MAX_FILE_SIZE" value="2000000">
 282 <input type="hidden" name="login" value="<?php echo  $login ?>">
 283 <table>
 284 <tr><td></td><td><input type="submit" name="ok" value="Hilfe"></td></tr>
 285 <tr><td>Zieltabelle</td><td><input type="radio" name="ziel" value="customer" checked>customer <input type="radio" name="ziel" value="vendor">vendor</td></tr>
 286 <tr><td>Trennzeichen</td><td>
 287         <input type="radio" name="trenner" value=";" checked>Semikolon
 288         <input type="radio" name="trenner" value=",">Komma
 289         <input type="radio" name="trenner" value="#9" checked>Tabulator
 290         <input type="radio" name="trenner" value=" ">Leerzeichen
 291         <input type="radio" name="trenner" value="other">
 292         <input type="text" size="2" name="trennzeichen" value="">
 293 </td></tr>
 294 <tr><td>Test</td><td><input type="checkbox" name="test" value="1">ja</td></tr>
 295 <tr><td>Daten</td><td><input type="file" name="Datei"></td></tr>
 296 <tr><td>Verwendete<br />Zeichecodierung</td><td>
 297         <select name="encoding">
 298         <option value="auto">Automatisch (versuchen)</option>
 299         <option value="UTF-8">UTF-8</option>
 300         <option value="ISO-8859-1">ISO-8859-1</option>
 301         <option value="ISO-8859-15">ISO-8859-15</option>
 302         <option value="Windows-1252">Windows-1252</option>
 303         <option value="ASCII">ASCII</option>
 304         </select>
 305 </td></tr>
 306 <tr><td></td><td><input type="submit" name="ok" value="Import"></td></tr>
 307 </table>
 308 </form>
 309 <?php }; ?>