X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=45f37599c9f238c8e38647f48c2b6e0b72b58c0d;hb=7321146cf5a08364a9db2ddddbb0b74a5d3fc4c9;hp=9cc1065f5eb4d90aa07c276565b2ab6a1fc29710;hpb=871a70f0615e1b551ff89df27ad3111a53a6f47d;p=kivitendo-erp.git

diff --git a/SL/Form.pm b/SL/Form.pm
index 9cc1065f5..45f37599c 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1970,7 +1970,7 @@ sub get_duedate {
   $reference_date = $reference_date ? conv_dateq($reference_date) . '::DATE' : 'current_date';
 
   my $dbh         = $self->get_standard_dbh($myconfig);
-  my $payment_id;
+  my ($payment_id, $duedate);
 
   if($self->{payment_id}) {
     $payment_id = $self->{payment_id};
@@ -1979,8 +1979,10 @@ sub get_duedate {
     ($payment_id) = selectrow_query($self, $dbh, $query, $self->{vendor_id});
   }
 
-  my $query       = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|;
-  my ($duedate)   = selectrow_query($self, $dbh, $query, $payment_id);
+  if ($payment_id) {
+    my $query  = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|;
+    ($duedate) = selectrow_query($self, $dbh, $query, $payment_id);
+  }
 
   $main::lxdebug->leave_sub();