Revision 05c6840d
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 26 | 26 |
|
| 27 | 27 |
package DATEV; |
| 28 | 28 |
|
| 29 |
use List::Util qw(max); |
|
| 29 |
use utf8; |
|
| 30 |
use strict; |
|
| 30 | 31 |
|
| 31 | 32 |
use SL::DBUtils; |
| 32 | 33 |
use SL::DATEV::KNEFile; |
| ... | ... | |
| 34 | 35 |
|
| 35 | 36 |
use Data::Dumper; |
| 36 | 37 |
use File::Path; |
| 38 |
use List::Util qw(max); |
|
| 37 | 39 |
use Time::HiRes qw(gettimeofday); |
| 38 | 40 |
|
| 39 |
use strict; |
|
| 40 |
|
|
| 41 | 41 |
sub _get_export_path {
|
| 42 | 42 |
$main::lxdebug->enter_sub(); |
| 43 | 43 |
|
| ... | ... | |
| 776 | 776 |
my $taxkey = 0; |
| 777 | 777 |
my $charttax = 0; |
| 778 | 778 |
my ($haben, $soll); |
| 779 |
my $iconv = $main::locale->{iconv_iso8859};
|
|
| 780 |
my %umlaute = ($iconv->convert('?') => 'ae',
|
|
| 781 |
$iconv->convert('?') => 'oe',
|
|
| 782 |
$iconv->convert('?') => 'ue',
|
|
| 783 |
$iconv->convert('?') => 'Ae',
|
|
| 784 |
$iconv->convert('?') => 'Oe',
|
|
| 785 |
$iconv->convert('?') => 'Ue',
|
|
| 786 |
$iconv->convert('?') => 'sz');
|
|
| 779 |
my $iconv = $::locale->{iconv_utf8};
|
|
| 780 |
my %umlaute = ($iconv->convert('ä') => 'ae',
|
|
| 781 |
$iconv->convert('ö') => 'oe',
|
|
| 782 |
$iconv->convert('ü') => 'ue',
|
|
| 783 |
$iconv->convert('Ä') => 'Ae',
|
|
| 784 |
$iconv->convert('Ö') => 'Oe',
|
|
| 785 |
$iconv->convert('Ü') => 'Ue',
|
|
| 786 |
$iconv->convert('ß') => 'sz');
|
|
| 787 | 787 |
for (my $i = 0; $i < $trans_lines; $i++) {
|
| 788 | 788 |
if ($trans_lines == 2) {
|
| 789 | 789 |
if (abs($transaction->[$i]->{'amount'}) > abs($umsatz)) {
|
Auch abrufbar als: Unified diff
Dateiencodings auf UTF-8 geändert
Fix für Bug 1375.