Revision 66b6d647
Von Werner Hahn vor fast 8 Jahren hinzugefügt
| SL/Presenter/Record.pm | ||
|---|---|---|
| 43 | 43 |
my $output = ''; |
| 44 | 44 |
|
| 45 | 45 |
$output .= _requirement_spec_list( $self, $groups{requirement_specs}, %params) if $groups{requirement_specs};
|
| 46 |
$output .= _shop_order_list( $self, $groups{shop_orders}, %params) if $groups{shop_orders};
|
|
| 46 | 47 |
$output .= _sales_quotation_list( $self, $groups{sales_quotations}, %params) if $groups{sales_quotations};
|
| 47 | 48 |
$output .= _sales_order_list( $self, $groups{sales_orders}, %params) if $groups{sales_orders};
|
| 48 | 49 |
$output .= _sales_delivery_order_list( $self, $groups{sales_delivery_orders}, %params) if $groups{sales_delivery_orders};
|
| ... | ... | |
| 165 | 166 |
|
| 166 | 167 |
sub _group_records {
|
| 167 | 168 |
my ($list) = @_; |
| 168 |
|
|
| 169 |
$main::lxdebug->dump(0, 'WH: GROUP_RECORDS: ',\@_); |
|
| 169 | 170 |
my %matchers = ( |
| 170 | 171 |
requirement_specs => sub { (ref($_[0]) eq 'SL::DB::RequirementSpec') },
|
| 172 |
shop_orders => sub { (ref($_[0]) eq 'SL::DB::ShopOrder') },
|
|
| 171 | 173 |
sales_quotations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_quotation') },
|
| 172 | 174 |
sales_orders => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_order') },
|
| 173 | 175 |
sales_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_sales },
|
| ... | ... | |
| 229 | 231 |
); |
| 230 | 232 |
} |
| 231 | 233 |
|
| 234 |
sub _shop_order_list {
|
|
| 235 |
my ($self, $list, %params) = @_; |
|
| 236 |
$main::lxdebug->dump(0, 'WH: ORDER_LIST: ',\@_); |
|
| 237 |
return $self->record_list( |
|
| 238 |
$list, |
|
| 239 |
title => $::locale->text('Shop Orders'),
|
|
| 240 |
type => 'shop_order', |
|
| 241 |
columns => [ |
|
| 242 |
[ $::locale->text('Shop Order Date'), 'order_date' ],
|
|
| 243 |
[ $::locale->text('Shop Order Number'), sub { $self->shop_order($_[0], display => 'table-cell') } ],
|
|
| 244 |
[ $::locale->text('Transfer Date'), 'transfer_date' ],
|
|
| 245 |
# [ $::locale->text('Customer'), 'customer' ],
|
|
| 246 |
[ $::locale->text('Net amount'), 'netamount' ],
|
|
| 247 |
#[ $::locale->text('Transaction description'), 'transaction_description' ],
|
|
| 248 |
#[ $::locale->text('Project'), 'globalproject', ],
|
|
| 249 |
#[ $::locale->text('Closed'), 'closed' ],
|
|
| 250 |
], |
|
| 251 |
%params, |
|
| 252 |
); |
|
| 253 |
} |
|
| 254 |
|
|
| 232 | 255 |
sub _sales_quotation_list {
|
| 233 | 256 |
my ($self, $list, %params) = @_; |
| 234 | 257 |
|
Auch abrufbar als: Unified diff
RecordsLinks auch für/bei ShopOrders anzeigen
Conflicts:
SL/Controller/RecordLinks.pm