Revision 7d40c44b
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/Controller/RecordLinks.pm | ||
|---|---|---|
| 42 | 42 |
{ title => t8('Requirement spec'), type => 'requirement_spec', model => 'RequirementSpec', number => 'id', project => 'project', description => 'title', date => undef, filter => 'working_copy_filter', },
|
| 43 | 43 |
{ title => t8('Shop Order'), type => 'shop_order', model => 'ShopOrder', number => 'shop_ordernumber', date => 'order_date', project => undef, description => undef, },
|
| 44 | 44 |
{ title => t8('Sales quotation'), type => 'sales_quotation', model => 'Order', number => 'quonumber', },
|
| 45 |
{ title => t8('Sales Order Intake'), type => 'sales_order_intake', model => 'Order', number => 'ordnumber', },
|
|
| 45 | 46 |
{ title => t8('Sales Order'), type => 'sales_order', model => 'Order', number => 'ordnumber', },
|
| 46 | 47 |
{ title => t8('Sales delivery order'), type => 'sales_delivery_order', model => 'DeliveryOrder', number => 'donumber', },
|
| 47 | 48 |
{ title => t8('RMA delivery order'), type => 'rma_delivery_order', model => 'DeliveryOrder', number => 'rdonumber', },
|
| SL/DB/Helper/LinkedRecords.pm | ||
|---|---|---|
| 335 | 335 |
'SL::DB::RequirementSpec' => 15, |
| 336 | 336 |
'SL::DB::Order' => sub { $scores{ $_[0]->type } },
|
| 337 | 337 |
sales_quotation => 20, |
| 338 |
sales_order_intake => 25, |
|
| 338 | 339 |
sales_order => 30, |
| 339 | 340 |
sales_delivery_order => 40, |
| 340 | 341 |
'SL::DB::DeliveryOrder' => sub { $scores{ $_[0]->type } },
|
| SL/Presenter/Order.pm | ||
|---|---|---|
| 16 | 16 |
return _oe_record($order, 'sales_quotation', %params); |
| 17 | 17 |
} |
| 18 | 18 |
|
| 19 |
sub sales_order_intake {
|
|
| 20 |
my ($order, %params) = @_; |
|
| 21 |
|
|
| 22 |
return _oe_record($order, 'sales_order_intake', %params); |
|
| 23 |
} |
|
| 24 |
|
|
| 19 | 25 |
sub sales_order {
|
| 20 | 26 |
my ($order, %params) = @_; |
| 21 | 27 |
|
| ... | ... | |
| 69 | 75 |
=head1 NAME |
| 70 | 76 |
|
| 71 | 77 |
SL::Presenter::Order - Presenter module for Rose::DB objects for sales |
| 72 |
quotations, sales orders, requests for quotations and purchase orders |
|
| 78 |
quotations, sales order_intakes, sales orders, |
|
| 79 |
requests for quotations and purchase orders |
|
| 73 | 80 |
|
| 74 | 81 |
=head1 SYNOPSIS |
| 75 | 82 |
|
| SL/Presenter/Record.pm | ||
|---|---|---|
| 46 | 46 |
$output .= _requirement_spec_list( $groups{requirement_specs}, %params) if $groups{requirement_specs};
|
| 47 | 47 |
$output .= _shop_order_list( $groups{shop_orders}, %params) if $groups{shop_orders};
|
| 48 | 48 |
$output .= _sales_quotation_list( $groups{sales_quotations}, %params) if $groups{sales_quotations};
|
| 49 |
$output .= _sales_order_intake_list( $groups{sales_order_intakes}, %params) if $groups{sales_order_intakes};
|
|
| 49 | 50 |
$output .= _sales_order_list( $groups{sales_orders}, %params) if $groups{sales_orders};
|
| 50 | 51 |
$output .= _sales_delivery_order_list( $groups{sales_delivery_orders}, %params) if $groups{sales_delivery_orders};
|
| 51 | 52 |
$output .= _rma_delivery_order_list( $groups{rma_delivery_orders}, %params) if $groups{rma_delivery_orders};
|
| ... | ... | |
| 188 | 189 |
requirement_specs => sub { (ref($_[0]) eq 'SL::DB::RequirementSpec') },
|
| 189 | 190 |
shop_orders => sub { (ref($_[0]) eq 'SL::DB::ShopOrder') && $_[0]->id },
|
| 190 | 191 |
sales_quotations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_quotation') },
|
| 192 |
sales_order_intakes => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_order_intake') },
|
|
| 191 | 193 |
sales_orders => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_order') },
|
| 192 | 194 |
sales_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('sales_delivery_order') },
|
| 193 | 195 |
rma_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('rma_delivery_order') },
|
| ... | ... | |
| 311 | 313 |
); |
| 312 | 314 |
} |
| 313 | 315 |
|
| 316 |
sub _sales_order_intake_list {
|
|
| 317 |
my ($list, %params) = @_; |
|
| 318 |
|
|
| 319 |
return record_list( |
|
| 320 |
$list, |
|
| 321 |
title => $::locale->text('Sales Order Intakes'),
|
|
| 322 |
type => 'sales_order_intake', |
|
| 323 |
columns => [ |
|
| 324 |
[ $::locale->text('Order Date'), 'transdate' ],
|
|
| 325 |
[ $::locale->text('Order Number'), sub { $_[0]->presenter->sales_order_intake(display => 'table-cell') } ],
|
|
| 326 |
[ $::locale->text('Quotation'), 'quonumber' ],
|
|
| 327 |
[ $::locale->text('Customer'), 'customer' ],
|
|
| 328 |
[ $::locale->text('Net amount'), 'netamount' ],
|
|
| 329 |
[ $::locale->text('Transaction description'), 'transaction_description' ],
|
|
| 330 |
[ $::locale->text('Project'), 'globalproject', ],
|
|
| 331 |
[ $::locale->text('Closed'), 'closed' ],
|
|
| 332 |
], |
|
| 333 |
%params, |
|
| 334 |
); |
|
| 335 |
} |
|
| 336 |
|
|
| 314 | 337 |
sub _sales_order_list {
|
| 315 | 338 |
my ($list, %params) = @_; |
| 316 | 339 |
|
Auch abrufbar als: Unified diff
Auftrags-Eingang: Verknüpfte Belege