Revision de4257ba
Von Jan Büren vor etwa 7 Jahren hinzugefügt
SL/DATEV/CSV.pm | ||
---|---|---|
304 | 304 |
my $datev = SL::DB::Manager::Datev->get_first(); |
305 | 305 |
|
306 | 306 |
while (my ($k, $v) = each %meta_datev_to_valid_length) { |
307 |
next unless $datev->{$k}; |
|
307 | 308 |
$meta_datev{$k} = substr $datev->{$k}, 0, $v; |
308 | 309 |
} |
309 | 310 |
|
Auch abrufbar als: Unified diff
DATEV undef values warnings optimiert
Die Mandateninformationsdaten müssen nicht zwingend für
den DATEV-Export gefüllt sein. Für die Testfälle sind
diese auch nicht gefüllt. Entsprechend optimiert.