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         if (!in_array(trim($in_fld[$i]),$kunde_fld)) {
 107             if ($in_fld[$i]=="anrede") {  $anrede=addslashes(trim($data)); }
 108             $i++;
 109             continue;
 110         };
 111         $data=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/
 117
 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");
 121         }
 122         //$data=htmlentities($data);
 123         $data=addslashes($data);
 124         if ($in_fld[$i]==$file."number") {  // customernumber || vendornumber
 125             if (empty($data) or !$data) {
 126                 $data=getKdId();
 127                 $number=true;
 128             } else {
 129                 $data=chkKdId($data);
 130                 $number=true;
 131             }
 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"){
 136             Was passiert hier:
 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") {
 141                   $matchcode=$data;
 142                   $i++;
 143                   continue;
 144                 if ($data==false or empty($data) or !$data) {
 145             if (in_array($in_fld[$i],array("name"))) {
 146                 $data=$matchcode;
 147             }
 148         }
 149             }*/
 150
 151         $keys.=$in_fld[$i].",";
 152         if ($data==false or empty($data) or !$data) {
 153             $vals.="null,";
 154         } else {
 155             if ($in_fld[$i]=="contact"){
 156                 if ($anrede) {
 157                     $vals.="'$anrede $data',";
 158                 } else {
 159                     $vals.="'$data',";
 160                 }
 161             } else {
 162                 $vals.="'".$data."',";
 163             }
 164         }
 165         $i++;
 166     }
 167     if (!$number) {
 168         $keys.=$file."number,";
 169         $vals.="'".getKdId()."',";
 170     }
 171     if ($keys<>"(") {
 172         if ($test) {
 173             if ($first) {
 174                 echo "<table border='1'>\n";
 175                 echo "<tr><th>".str_replace(",","</th><th>",substr($keys,1,-1))."</th></tr>\n";
 176                 $first=false;
 177             };
 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";
 181             flush();
 182         } else {
 183             $sql.=$keys."taxzone_id,import)";
 184             $sql.=$vals."0,$nun)";
 185             $rc=$db->query($sql);
 186             if (!$rc) echo "Fehler: ".$sql."<br>";
 187         }
 188         $j++;
 189     } else {
 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";
 192           flush();
 193         }
 194     $zeile=fgetcsv($f,1200,$trenner);
 195 }
 196 fclose($f);
 197 if ($test) echo "</table>\n ##### = Neue Kunden-/Lieferantennummer\n<br>";
 198 echo $j." $file importiert.\n";
 199 } else {
 200 ?>
 201
 202 <p class="listtop">Adressimport f&uuml;r die ERP<p>
 203 <br>
 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 ?>">
 208 <table>
 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>
 215 </table>
 216 </form>
 217 <? }; ?>