Revision 2cca9fb0
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
|
use SL::DB;
|
||
|
use SL::HTML::Util ();
|
||
|
use SL::Locale::String qw(t8);
|
||
|
use SL::Iconv qw(convert);
|
||
|
|
||
|
use Data::Dumper;
|
||
|
use DateTime;
|
||
| ... | ... | |
|
foreach my $row ( @datev_lines ) {
|
||
|
my @current_datev_row;
|
||
|
|
||
|
# format transformation
|
||
|
foreach (qw(belegfeld1 kost1 kost2)) {
|
||
|
$row->{$_} = SL::Iconv::convert("UTF-8", "CP1252", $row->{$_}) if $row->{$_};
|
||
|
}
|
||
|
# shorten strings
|
||
|
if ($row->{belegfeld1}) {
|
||
|
$row->{buchungsbes} = $row->{belegfeld1} if $row->{belegfeld1};
|
||
Auch abrufbar als: Unified diff
DATEV: Kein explizites Iconv für Feldwerte
Perl ist intelligent genug, die Kodierung
umzubiegen, sobald die Daten extern (filehandle)
die Perl-Umgebung wieder verlassen.