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 936cc98fedea0c3eaed86ceca0fb8aeaf292bdd6..72a36ae5710732a6f660e2cb13f029f119da68f9 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -866,7 +866,7 @@ sub get_vendor {
   }
   my $query =
     qq|SELECT
   }
   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,
          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 9a338eb0b27a78d24209b2f5bad4bddf83f919fa..7e52b2bea5becda28ccef2eb52d4feeac45b70d1 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1526,7 +1526,7 @@ sub get_customer {
   # get customer
   $query =
     qq|SELECT
   # 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,
          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,