X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9da45b829bedb62872220846b5f2685b359e8f81..aef6b5cefee1cd6d9078d353bafba04506af3003:/SL/Form.pm?ds=inline

diff --git a/SL/Form.pm b/SL/Form.pm
index e28c35376..04ac43c41 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1944,7 +1944,7 @@ sub get_duedate {
               : $self->{vendor_id}   ? SL::DB::Vendor     ->new(id => $self->{vendor_id})  ->load->payment
               :                        croak("Missing field in \$::form: payment_id, customer_id or vendor_id");
 
-  my $duedate = $terms->calc_date(reference_date => $reference_date)->to_kivitendo;
+  my $duedate = $terms ? $terms->calc_date(reference_date => $reference_date)->to_kivitendo : undef;
 
   $main::lxdebug->leave_sub();