X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FOrderItem.pm;h=058d04bfe5409151e0b32c43658d1987feb47125;hb=7d8de6d3bc1c10309351c115b398d7dc97f5fd3f;hp=67bffd8cef00002d5612e8e5bac3136bed26e2fa;hpb=26dcea15bd1f734316221139015c4b7215662340;p=kivitendo-erp.git diff --git a/SL/DB/OrderItem.pm b/SL/DB/OrderItem.pm index 67bffd8ce..058d04bfe 100644 --- a/SL/DB/OrderItem.pm +++ b/SL/DB/OrderItem.pm @@ -10,15 +10,10 @@ use SL::DB::Helper::CustomVariables ( sub_module => 'orderitems', cvars_alias => 1, overloads => { - parts_id => 'SL::DB::Part', - }, -); - -__PACKAGE__->meta->add_relationship( - unit_obj => { - type => 'many to one', - class => 'SL::DB::Unit', - column_map => { unit => 'name' }, + parts_id => { + class => 'SL::DB::Part', + module => 'IC', + } }, ); @@ -39,4 +34,30 @@ sub shipped_qty { return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi); } +sub delivered_qty { + my ($self) = @_; + + my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder'); + + my @d_orders_delivered = grep { $_->delivered } @$d_orders; + + my @doi_delivered = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @d_orders_delivered; + + require SL::AM; + return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi_delivered); +} + +sub value_of_goods { + my ($self) = @_; + + my $price_factor = $self->price_factor || 1; + + return ($self->qty * $self->sellprice * (1 - $self->discount ) / $price_factor); +} + +sub taxincluded { + my ($self) = @_; + + return SL::DB::Manager::Order->find_by(id => $self->trans_id)->taxincluded ? $::locale->text('WARN: Tax included value!') : ''; +} 1;