X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b6dc5623d93c1be1c54248d4512e80f495af2899..4be9b9dc16a69c791e47e53790307458bcf7ad7b:/SL/IR.pm diff --git a/SL/IR.pm b/SL/IR.pm index 1d4b90348..6950739b0 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -814,7 +814,6 @@ sub get_vendor { my ($self, $myconfig, $form, $params) = @_; $params = $form unless defined $params && ref $params eq "HASH"; - $main::lxdebug->message(0, Dumper($params)); # connect to database my $dbh = $form->dbconnect($myconfig); @@ -842,7 +841,7 @@ sub get_vendor { } my $query = qq|SELECT - v.id, v.name AS vendor, v.creditlimit, v.terms, v.notes AS intnotes, + v.name AS vendor, v.creditlimit, v.terms, v.notes AS intnotes, v.email, v.cc, v.bcc, v.language_id, v.payment_id, v.street, v.zipcode, v.city, v.country, v.taxzone_id, $duedate + COALESCE(pt.terms_netto, 0) AS duedate,