From: Sven Schöling Date: Tue, 28 Dec 2010 14:49:48 +0000 (+0100) Subject: Merge branch 'master' of ssh://lx-office/~/lx-office-erp X-Git-Tag: release-2.6.2beta1~53 X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/d8f9066b6970e13c4e517d3951b6df3bb544ef8b?hp=30fb300553fd68b7e531e7c09cc995e512759d0f Merge branch 'master' of ssh://lx-office/~/lx-office-erp --- 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);