From: Jan Büren Date: Mon, 15 Oct 2018 10:39:34 +0000 (+0200) Subject: DATEV-CSV-Export leere Feldwerte für Belegfeld2 erlauben X-Git-Tag: release-3.5.4~254 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=da8362118bc707e238beb24fcc1e6c09cf241456;hp=c312f3b6ce5ae61dc36c46fccece3be912155c76;p=kivitendo-erp.git DATEV-CSV-Export leere Feldwerte für Belegfeld2 erlauben --- diff --git a/SL/DATEV/CSV.pm b/SL/DATEV/CSV.pm index 908347a44..a4585de26 100644 --- a/SL/DATEV/CSV.pm +++ b/SL/DATEV/CSV.pm @@ -113,8 +113,8 @@ my @kivitendo_to_datev = ( type => 'Text', default => '', input_check => sub { my ($check) = @_; return 1 unless $check; return (ref (DateTime->from_kivitendo($check)) eq 'DateTime') }, - formatter => sub { my ($input) = @_; return trim(DateTime->from_kivitendo($input)->strftime('%e%m%y')) }, - valid_check => sub { my ($check) = @_; return ($check =~ m/^[0-9]{5,6}$/) }, + formatter => sub { my ($input) = @_; return undef unless $input; return trim(DateTime->from_kivitendo($input)->strftime('%e%m%y')) }, + valid_check => sub { my ($check) = @_; return 1 unless $check; return ($check =~ m/^[0-9]{5,6}$/) }, }, { kivi_datev_name => 'not yet implemented',