#!perl
#Datenimport Etikett von PPS ----> Etikett SQL DB
#use strict;
use Win32;
use Win32::ODBC;

my $db =new Win32::ODBC("dsn=Etikett") or die "Fehler1: $!\n";
print qq|eingelesen1\n|;

my $file = qq|t:/wip-etti.prn|;

open LESEN, "$file" or die "Fehler2: $!\n";
@lines = <LESEN>;
close(LESEN);
print qq|eingelesen\n|;
foreach (@lines) {
       print qq|$_\n|;
       chomp($_;
       my $Auftrag = substr($_,119,16);
       my $Artikel = substr($_,23,10);
       my $Typ = substr($_,41,24);
       my $Stueck = substr($_,66,10);
  #     (my $Auftrag,my $Artikel,my $Typ,my $Stueck) = split(/\|/,$_;
       print qq|$Auftrag,\t$Artikel,\t$Typ,\t$Stueck\n|;
       $statement = "INSERT INTO Etikett (Auftrag,Artikel,Typ,Stueck) VALUES('$Auftrag', '$Artikel', '$Typ', '$Stueck'";
       $db->Sql("$statement");

}
$db->Close();