From abca15a1ae55d18c6f8b7a8d48586da11c3f0719 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Thu, 9 Nov 2017 13:59:28 +0100 Subject: [PATCH] DATEV::CSV Feld Umsatz strikter beschreiben Hier der genaue DATEV-Wortlaut: "Muss immer ein positiver Wert sein." => 0 verbieten. --- SL/DATEV/CSV.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DATEV/CSV.pm b/SL/DATEV/CSV.pm index 3d81e6274..6d6594582 100644 --- a/SL/DATEV/CSV.pm +++ b/SL/DATEV/CSV.pm @@ -22,7 +22,7 @@ my @kivitendo_to_datev = ( max_length => 13, type => 'Value', required => 1, - input_check => sub { my ($input) = @_; return (looks_like_number($input) && length($input) <= 13) }, + input_check => sub { my ($input) = @_; return (looks_like_number($input) && length($input) <= 13 && $input > 0) }, formatter => \&_format_amount, valid_check => sub { my ($check) = @_; return ($check =~ m/^\d{1,10}(\,\d{1,2})?$/) }, }, -- 2.20.1