- my %column_defs = (
- transdate => { text => $::locale->text('Date'),
- sub => sub { $_[0]->order->transdate_as_date }},
- ordnumber => { text => $::locale->text('Number'),
- sub => sub { $_[0]->order->ordnumber },
- obj_link => sub { $self->link_to($_[0]->order) }},
- customer => { text => $::locale->text('Customer'),
- sub => sub { $_[0]->order->customer->name },
- obj_link => sub { $self->link_to($_[0]->order->customer) }},
- customer => { text => $::locale->text('Customer'),
- sub => sub { $_[0]->order->customer->name },
- obj_link => sub { $self->link_to($_[0]->order->customer) }},
- ship => { text => $::locale->text('Delivered'),
- sub => sub { $::form->format_amount(\%::myconfig, $_[0]->shipped_qty) . ' ' . $_[0]->unit }},
- qty => { text => $::locale->text('Qty'),
- sub => sub { $_[0]->qty_as_number . ' ' . $_[0]->unit }},
- sellprice => { text => $::locale->text('Sell Price'),
- sub => sub { $_[0]->sellprice_as_number }},
- discount => { text => $::locale->text('Discount'),
- sub => sub { $_[0]->discount_as_percent . "%" }},
- amount => { text => $::locale->text('Amount'),
- sub => sub { $::form->format_amount(\%::myconfig, $_[0]->qty * $_[0]->sellprice * (1 - $_[0]->discount), 2) }},
- );