CVars: Lieferadressen-CVars bei Ein-/Verkaufsbelegen benutzen können

[mfinanz.git] / SL / Common.pm

diff --git a/SL/Common.pm b/SL/Common.pm
index bcaeb62c13f48795be25720f0f0df1a812e24cfe..dfdf3c5d4b35d3d8771a153d43a927624b5e5501 100644 (file)
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -447,6 +447,13 @@ sub get_shipto_by_id {
 
   map { $form->{"${prefix}${_}"} = $ref->{$_} } keys %{ $ref } if $ref;
 
+  my $cvars = CVar->get_custom_variables(
+    dbh      => $dbh,
+    module   => 'ShipTo',
+    trans_id => $shipto_id,
+  );
+  $form->{"${prefix}shiptocvar_$_->{name}"} = $_->{value} for @{ $cvars };
+
   $dbh->disconnect();
 
   $main::lxdebug->leave_sub();