X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/247a26dc4b5b0d73c03fc6f05fb17daace0835d9..ca12e8dfc4773aabc13818a0398e06e44028e2bc:/SL/IR.pm

diff --git a/SL/IR.pm b/SL/IR.pm
index 936cc98fe..72a36ae57 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -866,7 +866,7 @@ sub get_vendor {
   }
   my $query =
     qq|SELECT
-         v.name AS vendor, v.creditlimit, v.terms, v.notes AS intnotes,
+         v.id AS vendor_id, 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,