Revision c91e4426
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/Controller/RecordLinks.pm | ||
|---|---|---|
|
{ title => t8('Request for Quotation'), type => 'request_quotation', model => 'Order', number => 'quonumber', },
|
||
|
{ title => t8('Purchase Quotation Intake'), type => 'purchase_quotation_intake', model => 'Order', number => 'quonumber', },
|
||
|
{ title => t8('Purchase Order'), type => 'purchase_order', model => 'Order', number => 'ordnumber', },
|
||
|
{ title => t8('Purchase Order Confirmation'), type => 'purchase_order_confirmation', model => 'Order', number => 'ordnumber', },
|
||
|
{ title => t8('Purchase delivery order'), type => 'purchase_delivery_order', model => 'DeliveryOrder', number => 'donumber', },
|
||
|
{ title => t8('Supplier delivery order'), type => 'supplier_delivery_order', model => 'DeliveryOrder', number => 'sdonumber', },
|
||
|
{ title => t8('Purchase Reclamation'), type => 'purchase_reclamation', model => 'Reclamation', number => 'record_number', },
|
||
| SL/DB/Helper/LinkedRecords.pm | ||
|---|---|---|
|
request_quotation => 120,
|
||
|
purchase_quotation_intake => 125,
|
||
|
purchase_order => 130,
|
||
|
purchase_order_confirmation => 135,
|
||
|
purchase_delivery_order => 140,
|
||
|
'SL::DB::PurchaseInvoice' => 150,
|
||
|
'SL::DB::GLTransaction' => 170,
|
||
| SL/Presenter/Order.pm | ||
|---|---|---|
|
use SL::Presenter::Tag qw(link_tag);
|
||
|
|
||
|
use Exporter qw(import);
|
||
|
our @EXPORT_OK = qw(sales_quotation sales_order request_quotation purchase_order);
|
||
|
our @EXPORT_OK = qw(sales_quotation sales_order request_quotation purchase_order purchase_order_confirmation);
|
||
|
|
||
|
use Carp;
|
||
|
|
||
| ... | ... | |
|
return _oe_record($order, 'purchase_order', %params);
|
||
|
}
|
||
|
|
||
|
sub purchase_order_confirmation {
|
||
|
my ($order, %params) = @_;
|
||
|
|
||
|
return _oe_record($order, 'purchase_order_confirmation', %params);
|
||
|
}
|
||
|
|
||
|
sub _oe_record {
|
||
|
my ($order, $type, %params) = @_;
|
||
|
|
||
| ... | ... | |
|
|
||
|
SL::Presenter::Order - Presenter module for Rose::DB objects for sales
|
||
|
quotations, sales order_intakes, sales orders,
|
||
|
requests for quotations, purchase_quotation_intakes and purchase orders
|
||
|
requests for quotations, purchase_quotation_intakes,
|
||
|
purchase orders and purchase order confirmations
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
| SL/Presenter/Record.pm | ||
|---|---|---|
|
$output .= _request_quotation_list( $groups{purchase_quotations}, %params) if $groups{purchase_quotations};
|
||
|
$output .= _purchase_quotation_intake_list( $groups{purchase_quotation_intakes}, %params) if $groups{purchase_quotation_intakes};
|
||
|
$output .= _purchase_order_list( $groups{purchase_orders}, %params) if $groups{purchase_orders};
|
||
|
$output .= _purchase_order_confirmation_list($groups{purchase_order_confirmations}, %params) if $groups{purchase_order_confirmations};
|
||
|
$output .= _purchase_delivery_order_list( $groups{purchase_delivery_orders}, %params) if $groups{purchase_delivery_orders};
|
||
|
$output .= _supplier_delivery_order_list( $groups{supplier_delivery_orders}, %params) if $groups{supplier_delivery_orders};
|
||
|
$output .= _purchase_reclamation_list( $groups{purchase_reclamation}, %params) if $groups{purchase_reclamation};
|
||
| ... | ... | |
|
purchase_quotations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('request_quotation') },
|
||
|
purchase_quotation_intakes => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('purchase_quotation_intake') },
|
||
|
purchase_orders => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('purchase_order') },
|
||
|
purchase_order_confirmations => sub { (ref($_[0]) eq 'SL::DB::Order') && $_[0]->is_type('purchase_order_confirmation') },
|
||
|
purchase_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('purchase_delivery_order') },
|
||
|
supplier_delivery_orders => sub { (ref($_[0]) eq 'SL::DB::DeliveryOrder') && $_[0]->is_type('supplier_delivery_order') },
|
||
|
purchase_reclamation => sub { (ref($_[0]) eq 'SL::DB::Reclamation') && $_[0]->is_type('purchase_reclamation')},
|
||
| ... | ... | |
|
);
|
||
|
}
|
||
|
|
||
|
sub _purchase_order_confirmation_list {
|
||
|
my ($list, %params) = @_;
|
||
|
|
||
|
return record_list(
|
||
|
$list,
|
||
|
title => $::locale->text('Purchase Order Confirmations'),
|
||
|
type => 'purchase_order_confirmation',
|
||
|
columns => [
|
||
|
[ $::locale->text('Order Date'), 'transdate' ],
|
||
|
[ $::locale->text('Order Number'), sub { $_[0]->presenter->purchase_order_confirmation(display => 'table-cell') } ],
|
||
|
[ $::locale->text('Vendor'), 'vendor' ],
|
||
|
[ $::locale->text('Net amount'), 'netamount' ],
|
||
|
[ $::locale->text('Transaction description'), 'transaction_description' ],
|
||
|
[ $::locale->text('Project'), 'globalproject', ],
|
||
|
[ $::locale->text('Closed'), 'closed' ],
|
||
|
],
|
||
|
%params,
|
||
|
);
|
||
|
}
|
||
|
|
||
|
sub _sales_delivery_order_list {
|
||
|
my ($list, %params) = @_;
|
||
|
|
||
Auch abrufbar als: Unified diff
Lieferantenauftragsbestätigung: Verknüpfte Belege