Revision c91e4426
Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt
| SL/Controller/RecordLinks.pm | ||
|---|---|---|
| 51 | 51 |
{ title => t8('Request for Quotation'), type => 'request_quotation', model => 'Order', number => 'quonumber', },
|
| 52 | 52 |
{ title => t8('Purchase Quotation Intake'), type => 'purchase_quotation_intake', model => 'Order', number => 'quonumber', },
|
| 53 | 53 |
{ title => t8('Purchase Order'), type => 'purchase_order', model => 'Order', number => 'ordnumber', },
|
| 54 |
{ title => t8('Purchase Order Confirmation'), type => 'purchase_order_confirmation', model => 'Order', number => 'ordnumber', },
|
|
| 54 | 55 |
{ title => t8('Purchase delivery order'), type => 'purchase_delivery_order', model => 'DeliveryOrder', number => 'donumber', },
|
| 55 | 56 |
{ title => t8('Supplier delivery order'), type => 'supplier_delivery_order', model => 'DeliveryOrder', number => 'sdonumber', },
|
| 56 | 57 |
{ title => t8('Purchase Reclamation'), type => 'purchase_reclamation', model => 'Reclamation', number => 'record_number', },
|
| SL/DB/Helper/LinkedRecords.pm | ||
|---|---|---|
| 343 | 343 |
request_quotation => 120, |
| 344 | 344 |
purchase_quotation_intake => 125, |
| 345 | 345 |
purchase_order => 130, |
| 346 |
purchase_order_confirmation => 135, |
|
| 346 | 347 |
purchase_delivery_order => 140, |
| 347 | 348 |
'SL::DB::PurchaseInvoice' => 150, |
| 348 | 349 |
'SL::DB::GLTransaction' => 170, |
| SL/Presenter/Order.pm | ||
|---|---|---|
| 6 | 6 |
use SL::Presenter::Tag qw(link_tag); |
| 7 | 7 |
|
| 8 | 8 |
use Exporter qw(import); |
| 9 |
our @EXPORT_OK = qw(sales_quotation sales_order request_quotation purchase_order); |
|
| 9 |
our @EXPORT_OK = qw(sales_quotation sales_order request_quotation purchase_order purchase_order_confirmation);
|
|
| 10 | 10 |
|
| 11 | 11 |
use Carp; |
| 12 | 12 |
|
| ... | ... | |
| 46 | 46 |
return _oe_record($order, 'purchase_order', %params); |
| 47 | 47 |
} |
| 48 | 48 |
|
| 49 |
sub purchase_order_confirmation {
|
|
| 50 |
my ($order, %params) = @_; |
|
| 51 |
|
|
| 52 |
return _oe_record($order, 'purchase_order_confirmation', %params); |
|
| 53 |
} |
|
| 54 |
|
|
| 49 | 55 |
sub _oe_record {
|
| 50 | 56 |
my ($order, $type, %params) = @_; |
| 51 | 57 |
|
| ... | ... | |
| 80 | 86 |
|
| 81 | 87 |
SL::Presenter::Order - Presenter module for Rose::DB objects for sales |
| 82 | 88 |
quotations, sales order_intakes, sales orders, |
| 83 |
requests for quotations, purchase_quotation_intakes and purchase orders |
|
| 89 |
requests for quotations, purchase_quotation_intakes, |
|
| 90 |
purchase orders and purchase order confirmations |
|
| 84 | 91 |
|
| 85 | 92 |
=head1 SYNOPSIS |
| 86 | 93 |
|
| SL/Presenter/Record.pm | ||
|---|---|---|
| 57 | 57 |
$output .= _request_quotation_list( $groups{purchase_quotations}, %params) if $groups{purchase_quotations};
|
| 58 | 58 |
$output .= _purchase_quotation_intake_list( $groups{purchase_quotation_intakes}, %params) if $groups{purchase_quotation_intakes};
|
| 59 | 59 |
$output .= _purchase_order_list( $groups{purchase_orders}, %params) if $groups{purchase_orders};
|
| 60 |
$output .= _purchase_order_confirmation_list($groups{purchase_order_confirmations}, %params) if $groups{purchase_order_confirmations};
|
|
| 60 | 61 |
$output .= _purchase_delivery_order_list( $groups{purchase_delivery_orders}, %params) if $groups{purchase_delivery_orders};
|
| 61 | 62 |
$output .= _supplier_delivery_order_list( $groups{supplier_delivery_orders}, %params) if $groups{supplier_delivery_orders};
|
| 62 | 63 |
$output .= _purchase_reclamation_list( $groups{purchase_reclamation}, %params) if $groups{purchase_reclamation};
|
| ... | ... | |
| 200 | 201 |
purchase_quotations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('request_quotation') },
|
| 201 | 202 |
purchase_quotation_intakes => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('purchase_quotation_intake') },
|
| 202 | 203 |
purchase_orders => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('purchase_order') },
|
| 204 |
purchase_order_confirmations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('purchase_order_confirmation') },
|
|
| 203 | 205 |
purchase_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('purchase_delivery_order') },
|
| 204 | 206 |
supplier_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('supplier_delivery_order') },
|
| 205 | 207 |
purchase_reclamation => sub { (ref($_[0]) eq 'SL::DB::Reclamation') && $_[0]->is_type('purchase_reclamation')},
|
| ... | ... | |
| 398 | 400 |
); |
| 399 | 401 |
} |
| 400 | 402 |
|
| 403 |
sub _purchase_order_confirmation_list {
|
|
| 404 |
my ($list, %params) = @_; |
|
| 405 |
|
|
| 406 |
return record_list( |
|
| 407 |
$list, |
|
| 408 |
title => $::locale->text('Purchase Order Confirmations'),
|
|
| 409 |
type => 'purchase_order_confirmation', |
|
| 410 |
columns => [ |
|
| 411 |
[ $::locale->text('Order Date'), 'transdate' ],
|
|
| 412 |
[ $::locale->text('Order Number'), sub { $_[0]->presenter->purchase_order_confirmation(display => 'table-cell') } ],
|
|
| 413 |
[ $::locale->text('Vendor'), 'vendor' ],
|
|
| 414 |
[ $::locale->text('Net amount'), 'netamount' ],
|
|
| 415 |
[ $::locale->text('Transaction description'), 'transaction_description' ],
|
|
| 416 |
[ $::locale->text('Project'), 'globalproject', ],
|
|
| 417 |
[ $::locale->text('Closed'), 'closed' ],
|
|
| 418 |
], |
|
| 419 |
%params, |
|
| 420 |
); |
|
| 421 |
} |
|
| 422 |
|
|
| 401 | 423 |
sub _sales_delivery_order_list {
|
| 402 | 424 |
my ($list, %params) = @_; |
| 403 | 425 |
|
Auch abrufbar als: Unified diff
Lieferantenauftragsbestätigung: Verknüpfte Belege