Revision 1cbc459d
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 1411 | 1411 |
my $filename = "EXTF_DATEV_kivitendo" . $self->from->ymd() . '-' . $self->to->ymd() . ".csv"; |
| 1412 | 1412 |
my @data = \$params{data};
|
| 1413 | 1413 |
|
| 1414 |
# EXTF_Buchungsstapel.csv: ISO-8859 text, with very long lines, with CRLF line terminators |
|
| 1415 | 1414 |
my $csv = Text::CSV_XS->new({
|
| 1416 | 1415 |
binary => 1, |
| 1417 | 1416 |
sep_char => ";", |
| ... | ... | |
| 1424 | 1423 |
$csv->quote_empty(1); |
| 1425 | 1424 |
} |
| 1426 | 1425 |
|
| 1427 |
my $csv_file = IO::File->new($self->export_path . '/' . $filename, '>:encoding(iso-8859-1)') or die "Can't open: $!";
|
|
| 1426 |
my $csv_file = IO::File->new($self->export_path . '/' . $filename, '>:encoding(cp1252)') or die "Can't open: $!";
|
|
| 1428 | 1427 |
$csv->print($csv_file, $_) for @{ $params{data} };
|
| 1429 | 1428 |
$csv_file->close; |
| 1430 | 1429 |
|
Auch abrufbar als: Unified diff
DATEV CSV-Daten nach Spezifikation (cp1252) ausgebe ausgeben