Pflichtenheft: Zugriff auf nicht vorhandenes »visible_item« verhindern
[kivitendo-erp.git] / SL / DB / OrderItem.pm
1 package SL::DB::OrderItem;
2
3 use strict;
4
5 use List::Util qw(sum);
6
7 use SL::DB::MetaSetup::OrderItem;
8 use SL::DB::Manager::OrderItem;
9 use SL::DB::DeliveryOrderItemsStock;
10 use SL::DB::Helper::ActsAsList;
11 use SL::DB::Helper::LinkedRecords;
12 use SL::DB::Helper::RecordItem;
13 use SL::DB::Helper::CustomVariables (
14   sub_module  => 'orderitems',
15   cvars_alias => 1,
16   overloads   => {
17     parts_id => {
18       class => 'SL::DB::Part',
19       module => 'IC',
20     }
21   },
22 );
23
24 __PACKAGE__->meta->initialize;
25
26 __PACKAGE__->configure_acts_as_list(group_by => [qw(trans_id)]);
27
28 sub is_price_update_available {
29   my $self = shift;
30   return $self->origprice > $self->part->sellprice;
31 }
32
33 sub shipped_qty {
34   my ($self) = @_;
35
36   my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
37   my @doi      = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @$d_orders;
38
39   require SL::AM;
40   return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi);
41 }
42
43 sub record { goto &order }
44
45 1;
46
47 __END__
48
49 =pod
50
51 =head1 NAME
52
53 SL::DB::OrderItems: Rose model for orderitems
54
55 =head1 FUNCTIONS
56
57 =over 4
58
59 =item C<shipped_qty>
60
61 returns the number of orderitems which are already linked to Delivery Orders.
62 The linked key is parts_id and not orderitems (id) -> delivery_order_items (id).
63 Therefore this function is not safe for identical parts_id.
64 Sample call:
65 C<$::form-E<gt>format_amount(\%::myconfig, $_[0]-E<gt>shipped_qty);>
66
67 =back
68
69 =head1 TODO
70
71 Older versions of OrderItem.pm had more functions which where used for calculating the
72 qty for the different states of the Delivery Order.
73 For example to get the qty in already marked as delivered Delivery Orders:
74
75 C<delivered_qty>
76
77 return $self-E<gt>_delivered_qty;
78
79   sub _delivered_qty {
80   (..)
81     my @d_orders_delivered = grep { $_-E<gt>delivered } @$d_orders;
82     my @doi_delivered      = grep { $_-E<gt>parts_id == $self-E<gt>parts_id } map { $_-E<gt>orderitems } @d_orders_delivered;
83   }
84
85 In general the function C<shipped_qty> and all (project) related functions should be marked deprecate,
86  because of the better linked item to item data in the record_links table.
87
88
89
90