Beim Anlegen des allerersten Beleges eines Typs dafür sorgen, dass vendor_id bzw...

diff --git a/SL/IR.pm b/SL/IR.pm
index 936cc98..72a36ae 100644 (file)
--- 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,

diff --git a/SL/IS.pm b/SL/IS.pm
index 9a338eb..7e52b2b 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1526,7 +1526,7 @@ sub get_customer {
   # get customer
   $query =
     qq|SELECT
-         c.name AS customer, c.discount, c.creditlimit, c.terms,
+         c.id AS customer_id, c.name AS customer, c.discount, c.creditlimit, c.terms,
          c.email, c.cc, c.bcc, c.language_id, c.payment_id,
          c.street, c.zipcode, c.city, c.country,
          c.notes AS intnotes, c.klass as customer_klass, c.taxzone_id, c.salesman_id,