From: Jan Büren <jan@kivitendo-premium.de>
Date: Mon, 25 Sep 2017 07:10:00 +0000 (+0200)
Subject: DATEV CSV-Daten nach Spezifikation (cp1252) ausgebe ausgeben
X-Git-Tag: release-3.5.4~805
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=1cbc459da604c31d21593df298a522e6cbe69e2b;p=kivitendo-erp.git

DATEV CSV-Daten nach Spezifikation (cp1252) ausgebe ausgeben
---

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index cc19a12b6..61e4d80dd 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -1411,7 +1411,6 @@ sub _csv_buchungsexport_to_file {
   my $filename = "EXTF_DATEV_kivitendo" . $self->from->ymd() . '-' . $self->to->ymd() . ".csv";
   my @data = \$params{data};
 
-  # EXTF_Buchungsstapel.csv: ISO-8859 text, with very long lines, with CRLF line terminators
   my $csv = Text::CSV_XS->new({
               binary       => 1,
               sep_char     => ";",
@@ -1424,7 +1423,7 @@ sub _csv_buchungsexport_to_file {
     $csv->quote_empty(1);
   }
 
-  my $csv_file = IO::File->new($self->export_path . '/' . $filename, '>:encoding(iso-8859-1)') or die "Can't open: $!";
+  my $csv_file = IO::File->new($self->export_path . '/' . $filename, '>:encoding(cp1252)') or die "Can't open: $!";
   $csv->print($csv_file, $_) for @{ $params{data} };
   $csv_file->close;