package DATEV;
-use List::Util qw(max);
+use utf8;
+use strict;
use SL::DBUtils;
use SL::DATEV::KNEFile;
use Data::Dumper;
use File::Path;
+use List::Util qw(max);
use Time::HiRes qw(gettimeofday);
-use strict;
-
sub _get_export_path {
$main::lxdebug->enter_sub();
my $taxkey = 0;
my $charttax = 0;
my ($haben, $soll);
- my $iconv = $main::locale->{iconv_iso8859};
- my %umlaute = ($iconv->convert('ä') => 'ae',
- $iconv->convert('ö') => 'oe',
- $iconv->convert('ü') => 'ue',
- $iconv->convert('Ä') => 'Ae',
- $iconv->convert('Ö') => 'Oe',
- $iconv->convert('Ü') => 'Ue',
- $iconv->convert('ß') => 'sz');
+ my $iconv = $::locale->{iconv_utf8};
+ my %umlaute = ($iconv->convert('ä') => 'ae',
+ $iconv->convert('ö') => 'oe',
+ $iconv->convert('ü') => 'ue',
+ $iconv->convert('Ä') => 'Ae',
+ $iconv->convert('Ö') => 'Oe',
+ $iconv->convert('Ü') => 'Ue',
+ $iconv->convert('ß') => 'sz');
for (my $i = 0; $i < $trans_lines; $i++) {
if ($trans_lines == 2) {
if (abs($transaction->[$i]->{'amount'}) > abs($umsatz)) {