X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/915e943a8fa8ab2a32576d4609632d598898cf20..da99c7bcf4a8ec82d9bc1d0c75aaba6ba4cd69ea:/SL/Form.pm?ds=inline

diff --git a/SL/Form.pm b/SL/Form.pm
index cef5995ab..b2d6645e2 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1873,12 +1873,12 @@ sub set_payment_options {
   my $dbh = $self->get_standard_dbh($myconfig);
 
   my $query =
-    qq|SELECT p.terms_netto, p.terms_skonto, p.percent_skonto, p.description_long | .
+    qq|SELECT p.terms_netto, p.terms_skonto, p.percent_skonto, p.description_long , p.description | .
     qq|FROM payment_terms p | .
     qq|WHERE p.id = ?|;
 
   ($self->{terms_netto}, $self->{terms_skonto}, $self->{percent_skonto},
-   $self->{payment_terms}) =
+   $self->{payment_terms}, $self->{payment_description}) =
      selectrow_query($self, $dbh, $query, $self->{payment_id});
 
   if ($transdate eq "") {