Revision 4493d1eb
Von Moritz Bunkus vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1648 | 1648 |
call_sub($::form->{vc} . "_details", qw(name department_1 department_2 street zipcode city country gln contact email phone fax), $::form->{vc} . "number");
|
| 1649 | 1649 |
$::form->{rowcount}--;
|
| 1650 | 1650 |
|
| 1651 |
my $cvars = SL::DB::Shipto->new->cvars_by_config; |
|
| 1651 | 1652 |
my @shipto_vars = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln |
| 1652 | 1653 |
shiptocontact shiptocp_gender shiptophone shiptofax shiptoemail |
| 1653 | 1654 |
shiptodepartment_1 shiptodepartment_2); |
| 1654 |
my $previous_form = $::auth->save_form_in_session(skip_keys => [ @shipto_vars, qw(header shipto_id) ]); |
|
| 1655 |
my $previous_form = $::auth->save_form_in_session(skip_keys => [ @shipto_vars, qw(header shipto_id), map { "shiptocvar_" . $_->config->name } @{ $cvars } ]);
|
|
| 1655 | 1656 |
$::form->{title} = $::locale->text('Ship to');
|
| 1656 | 1657 |
$::form->header; |
| 1657 | 1658 |
|
| 1658 | 1659 |
my $vc_obj = ($::form->{vc} eq 'customer' ? "SL::DB::Customer" : "SL::DB::Vendor")->new(id => $::form->{$::form->{vc} . "_id"})->load;
|
| 1659 | 1660 |
|
| 1661 |
$_->value($::form->{"shiptocvar_" . $_->config->name}) for @{ $cvars };
|
|
| 1662 |
|
|
| 1660 | 1663 |
print $::form->parse_html_template('io/ship_to', { previousform => $previous_form,
|
| 1661 | 1664 |
nextsub => $::form->{display_form} || 'display_form',
|
| 1662 | 1665 |
vc_obj => $vc_obj, |
| 1666 |
cvars => $cvars, |
|
| 1663 | 1667 |
}); |
| 1664 | 1668 |
|
| 1665 | 1669 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
CVars: Lieferadressen-CVars bei Ein-/Verkaufsbelegen benutzen können