From 1cbc459da604c31d21593df298a522e6cbe69e2b Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Mon, 25 Sep 2017 09:10:00 +0200
Subject: [PATCH] DATEV CSV-Daten nach Spezifikation (cp1252) ausgebe ausgeben

---
 SL/DATEV.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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;
 
-- 
2.20.1