GDPDU: datev csv formatierung
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 27 Oct 2015 17:27:46 +0000 (18:27 +0100)
committerSven Schöling <s.schoeling@linet-services.de>
Fri, 28 Oct 2016 15:11:18 +0000 (17:11 +0200)
SL/GDPDU.pm

index 0978df9..c4d0a64 100644 (file)
@@ -375,11 +375,7 @@ sub do_datev_csv_export {
 
   my @transactions = sort_by { $_->[0]->{sortkey} } @{ $datev->{DATEV} };
 
-  my $csv = Text::CSV_XS->new({
-    binary   => 1,
-    eol      => "\n",
-    sep_char => ";",
-  });
+  my $csv = Text::CSV_XS->new({ binary => 1, eol => "\r\n", sep_char => ",", quote_char => '"' });
 
   my ($fh, $filename) = File::Temp::tempfile();
   binmode($fh, ':utf8');