Rechnung als neu verwenden: keine Fehlermeldung ausgeben

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index e28c35376a7a2970990ac3b5007dac2453a258aa..04ac43c41bfa4d3b7d7ef6ffa30c32e52a8d5855 100644 (file)
--- 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");
 
               : $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();
 
 
   $main::lxdebug->leave_sub();