X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/478489bfa2608ea78baadd6f9dcbcff0ee31043c..713a6d703c0b2806f6a1f8fafa6bc9b6554c4087:/SL/IR.pm

diff --git a/SL/IR.pm b/SL/IR.pm
index 44a2db568..8fa92e637 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -841,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,
@@ -1108,6 +1108,11 @@ sub vendor_details {
 
   map { $form->{$_} = $ref->{$_} } keys %$ref;
 
+  my $custom_variables = CVar->get_custom_variables('dbh'      => $dbh,
+                                                    'module'   => 'CT',
+                                                    'trans_id' => $form->{vendor_id});
+  map { $form->{"vc_cvar_$_->{name}"} = $_->{value} } @{ $custom_variables };
+
   $dbh->disconnect();
 
   $main::lxdebug->leave_sub();