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

[mfinanz.git] / bin / mozilla / io.pl

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index c3ab47e282c2f6307aff9506406f309b999e675a..1dc7a64d15bd1d7da298b8741089346bd036d75e 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1648,18 +1648,22 @@ sub ship_to {
   call_sub($::form->{vc} . "_details", qw(name department_1 department_2 street zipcode city country gln contact email phone fax), $::form->{vc} . "number");
   $::form->{rowcount}--;
 
+  my $cvars         = SL::DB::Shipto->new->cvars_by_config;
   my @shipto_vars   = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln
                          shiptocontact shiptocp_gender shiptophone shiptofax shiptoemail
                          shiptodepartment_1 shiptodepartment_2);
-  my $previous_form = $::auth->save_form_in_session(skip_keys => [ @shipto_vars, qw(header shipto_id) ]);
+  my $previous_form = $::auth->save_form_in_session(skip_keys => [ @shipto_vars, qw(header shipto_id), map { "shiptocvar_" . $_->config->name } @{ $cvars } ]);
   $::form->{title}  = $::locale->text('Ship to');
   $::form->header;
 
   my $vc_obj = ($::form->{vc} eq 'customer' ? "SL::DB::Customer" : "SL::DB::Vendor")->new(id => $::form->{$::form->{vc} . "_id"})->load;
 
+  $_->value($::form->{"shiptocvar_" . $_->config->name}) for @{ $cvars };
+
   print $::form->parse_html_template('io/ship_to', { previousform => $previous_form,
                                                      nextsub      => $::form->{display_form} || 'display_form',
                                                      vc_obj       => $vc_obj,
+                                                     cvars        => $cvars,
                                                    });
 
   $main::lxdebug->leave_sub();