X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FRP.pm;h=84dd73e22c72b92f2f23708cc02396259330f1cd;hb=b89137f814fb873ddc98c765b7a0ef17bed83ce1;hp=607eb389e445bf6a04f9ea96fb636b8babfba193;hpb=e80ef1bc332e99960ec2ba6c59b73193c2b4eb68;p=kivitendo-erp.git diff --git a/SL/RP.pm b/SL/RP.pm index 607eb389e..84dd73e22 100644 --- a/SL/RP.pm +++ b/SL/RP.pm @@ -53,6 +53,8 @@ use strict; sub get_openbalance_date { my ($closedto, $target) = map { $::locale->parse_date_to_object(\%::myconfig, $_) } @_; + return unless $closedto; + $closedto->subtract(years => 1) while ($target - $closedto)->is_negative; $closedto->add(days => 1); return $::locale->format_date(\%::myconfig, $closedto);