Revision 74fcf208
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/Presenter/Record.pm | ||
|---|---|---|
| 49 | 49 |
$output .= _sales_order_list( $groups{sales_orders}, %params) if $groups{sales_orders};
|
| 50 | 50 |
$output .= _sales_delivery_order_list( $groups{sales_delivery_orders}, %params) if $groups{sales_delivery_orders};
|
| 51 | 51 |
$output .= _rma_delivery_order_list( $groups{rma_delivery_orders}, %params) if $groups{rma_delivery_orders};
|
| 52 |
$output .= _sales_reclamation_list( $groups{sales_reclamation}, %params) if $groups{sales_reclamation};
|
|
| 52 | 53 |
$output .= _sales_invoice_list( $groups{sales_invoices}, %params) if $groups{sales_invoices};
|
| 53 | 54 |
$output .= _ar_transaction_list( $groups{ar_transactions}, %params) if $groups{ar_transactions};
|
| 54 | 55 |
|
| ... | ... | |
| 56 | 57 |
$output .= _purchase_order_list( $groups{purchase_orders}, %params) if $groups{purchase_orders};
|
| 57 | 58 |
$output .= _purchase_delivery_order_list($groups{purchase_delivery_orders}, %params) if $groups{purchase_delivery_orders};
|
| 58 | 59 |
$output .= _supplier_delivery_order_list($groups{supplier_delivery_orders}, %params) if $groups{supplier_delivery_orders};
|
| 60 |
$output .= _purchase_reclamation_list( $groups{purchase_reclamation}, %params) if $groups{purchase_reclamation};
|
|
| 59 | 61 |
$output .= _purchase_invoice_list( $groups{purchase_invoices}, %params) if $groups{purchase_invoices};
|
| 60 | 62 |
$output .= _ap_transaction_list( $groups{ap_transactions}, %params) if $groups{ap_transactions};
|
| 61 | 63 |
|
| ... | ... | |
| 187 | 189 |
sales_orders => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('sales_order') },
|
| 188 | 190 |
sales_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('sales_delivery_order') },
|
| 189 | 191 |
rma_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('rma_delivery_order') },
|
| 192 |
sales_reclamation => sub { (ref($_[0]) eq 'SL::DB::Reclamation') && $_[0]->is_type('sales_reclamation') },
|
|
| 190 | 193 |
sales_invoices => sub { (ref($_[0]) eq 'SL::DB::Invoice') && $_[0]->invoice },
|
| 191 | 194 |
ar_transactions => sub { (ref($_[0]) eq 'SL::DB::Invoice') && !$_[0]->invoice },
|
| 192 | 195 |
purchase_quotations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('request_quotation') },
|
| 193 | 196 |
purchase_orders => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('purchase_order') },
|
| 194 | 197 |
purchase_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('purchase_delivery_order') },
|
| 195 | 198 |
supplier_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('supplier_delivery_order') },
|
| 199 |
purchase_reclamation => sub { (ref($_[0]) eq 'SL::DB::Reclamation') && $_[0]->is_type('purchase_reclamation')},
|
|
| 196 | 200 |
purchase_invoices => sub { (ref($_[0]) eq 'SL::DB::PurchaseInvoice') && $_[0]->invoice },
|
| 197 | 201 |
ap_transactions => sub { (ref($_[0]) eq 'SL::DB::PurchaseInvoice') && !$_[0]->invoice },
|
| 198 | 202 |
sepa_collections => sub { (ref($_[0]) eq 'SL::DB::SepaExportItem') && $_[0]->ar_id },
|
| ... | ... | |
| 431 | 435 |
); |
| 432 | 436 |
} |
| 433 | 437 |
|
| 438 |
sub _sales_reclamation_list {
|
|
| 439 |
my ($list, %params) = @_; |
|
| 440 |
|
|
| 441 |
return record_list( |
|
| 442 |
$list, |
|
| 443 |
title => $::locale->text('Sales Reclamation'),
|
|
| 444 |
type => 'sales_reclamation', |
|
| 445 |
columns => [ |
|
| 446 |
[ $::locale->text('Reclamation Date'), 'transdate' ],
|
|
| 447 |
[ $::locale->text('Reclamation Number'), sub { $_[0]->presenter->sales_reclamation(display => 'table-cell') } ],
|
|
| 448 |
[ $::locale->text('Customer'), 'customer' ],
|
|
| 449 |
[ $::locale->text('Transaction description'), 'transaction_description' ],
|
|
| 450 |
[ $::locale->text('Project'), 'globalproject', ],
|
|
| 451 |
[ $::locale->text('Delivered'), 'delivered' ],
|
|
| 452 |
[ $::locale->text('Closed'), 'closed' ],
|
|
| 453 |
], |
|
| 454 |
%params, |
|
| 455 |
); |
|
| 456 |
} |
|
| 457 |
|
|
| 434 | 458 |
sub _sales_invoice_list {
|
| 435 | 459 |
my ($list, %params) = @_; |
| 436 | 460 |
|
| ... | ... | |
| 710 | 734 |
|
| 711 | 735 |
=item * rma delivery orders |
| 712 | 736 |
|
| 737 |
=item * sales reclamation |
|
| 738 |
|
|
| 713 | 739 |
=item * sales invoices |
| 714 | 740 |
|
| 715 | 741 |
=item * AR transactions |
| ... | ... | |
| 722 | 748 |
|
| 723 | 749 |
=item * supplier delivery orders |
| 724 | 750 |
|
| 751 |
=item * purchase reclamation |
|
| 752 |
|
|
| 725 | 753 |
=item * purchase invoices |
| 726 | 754 |
|
| 727 | 755 |
=item * AP transactions |
Auch abrufbar als: Unified diff
Reclamation: added to RecordLinks