Revision e831bee6
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| SL/Controller/DeliveryPlan.pm | ||
|---|---|---|
| 153 | 153 |
$self->{report} = $report;
|
| 154 | 154 |
|
| 155 | 155 |
my @columns = qw(reqdate customer ordnumber partnumber description qty shipped_qty not_shipped_qty); |
| 156 |
my @sortable = qw(reqdate customer ordnumber partnumber description );
|
|
| 156 |
my @sortable = qw(reqdate customer ordnumber partnumber description); |
|
| 157 | 157 |
|
| 158 | 158 |
my %column_defs = ( |
| 159 | 159 |
reqdate => { sub => sub { $_[0]->reqdate_as_date || $_[0]->order->reqdate_as_date } },
|
| 160 | 160 |
description => { sub => sub { $_[0]->description },
|
| 161 |
obj_link => sub { $self->link_to($_[0]->part) } },
|
|
| 161 |
obj_link => sub { $self->link_to($_[0]->part) } },
|
|
| 162 | 162 |
partnumber => { sub => sub { $_[0]->part->partnumber },
|
| 163 |
obj_link => sub { $self->link_to($_[0]->part) } },
|
|
| 163 |
obj_link => sub { $self->link_to($_[0]->part) } },
|
|
| 164 | 164 |
qty => { sub => sub { $_[0]->qty_as_number . ' ' . $_[0]->unit } },
|
| 165 | 165 |
shipped_qty => { sub => sub { $::form->format_amount(\%::myconfig, $_[0]->shipped_qty, 2) . ' ' . $_[0]->unit } },
|
| 166 | 166 |
not_shipped_qty => { sub => sub { $::form->format_amount(\%::myconfig, $_[0]->qty - $_[0]->shipped_qty, 2) . ' ' . $_[0]->unit } },
|
| 167 | 167 |
ordnumber => { sub => sub { $_[0]->order->ordnumber },
|
| 168 |
obj_link => sub { $self->link_to($_[0]->order) } },
|
|
| 168 |
obj_link => sub { $self->link_to($_[0]->order) } },
|
|
| 169 | 169 |
customer => { sub => sub { $_[0]->order->customer->name },
|
| 170 |
obj_link => sub { $self->link_to($_[0]->order->customer) } },
|
|
| 170 |
obj_link => sub { $self->link_to($_[0]->order->customer) } },
|
|
| 171 | 171 |
); |
| 172 | 172 |
|
| 173 | 173 |
map { $column_defs{$_}->{text} = $::locale->text( $self->get_sort_spec->{$_}->{title} ) } keys %column_defs;
|
Auch abrufbar als: Unified diff
Kosmetik: Einrückung gefixt