Revision 6f1ffd59
Von Bernd Bleßmann vor mehr als 4 Jahren hinzugefügt
bin/mozilla/do.pl | ||
---|---|---|
466 | 466 |
|
467 | 467 |
$::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.File kivi.MassDeliveryOrderPrint kivi.SalesPurchase kivi.Part kivi.CustomerVendor kivi.Validator ckeditor/ckeditor ckeditor/adapters/jquery kivi.io)); |
468 | 468 |
|
469 |
my @custom_hidden; |
|
470 |
push @custom_hidden, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) }; |
|
471 |
|
|
472 |
$::form->{HIDDENS} = [ map { +{ name => $_, value => $::form->{$_} } } (@custom_hidden) ]; |
|
473 |
|
|
474 | 469 |
setup_do_action_bar(); |
475 | 470 |
|
476 | 471 |
$form->header(); |
... | ... | |
501 | 496 |
$form->{PRINT_OPTIONS} = setup_sales_purchase_print_options(); |
502 | 497 |
$form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted(); |
503 | 498 |
|
499 |
my $shipto_cvars = SL::DB::Shipto->new->cvars_by_config; |
|
500 |
foreach my $var (@{ $shipto_cvars }) { |
|
501 |
my $name = "shiptocvar_" . $var->config->name; |
|
502 |
$var->value($form->{$name}) if exists $form->{$name}; |
|
503 |
} |
|
504 |
|
|
504 | 505 |
print $form->parse_html_template('do/form_footer', |
505 |
{transfer_default => ($::instance_conf->get_transfer_default)}); |
|
506 |
{transfer_default => ($::instance_conf->get_transfer_default), |
|
507 |
shipto_cvars => $shipto_cvars}); |
|
506 | 508 |
|
507 | 509 |
$main::lxdebug->leave_sub(); |
508 | 510 |
} |
Auch abrufbar als: Unified diff
Lieferscheine: Benutzerdef. Variablen in Lieferadressen gefixt