X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d366e4291fa63d64a74c8c80be4aa2dac4c1223f..14874239b1e146aa861c73aff5fbfbd59992b24b:/SL/Form.pm

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();