X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FOrderItem.pm;fp=SL%2FDB%2FOrderItem.pm;h=0c28a52435faa54aa49b2abf54f5ffab76591824;hb=9c04a397c71979a472e6728e95300e0c362518bb;hp=1925c8085c2a5841cd33499ad96a33723fdb5a35;hpb=f7c37ff950e74addee71558c2f3e1860ce7bf967;p=kivitendo-erp.git diff --git a/SL/DB/OrderItem.pm b/SL/DB/OrderItem.pm index 1925c8085..0c28a5243 100644 --- a/SL/DB/OrderItem.pm +++ b/SL/DB/OrderItem.pm @@ -37,13 +37,15 @@ sub shipped_qty { sub delivered_qty { my ($self) = @_; - $self->_delivered_qty unless $self->{delivered_qty}; + $self->_delivered_qty; return $self->{delivered_qty}; } sub _delivered_qty { my ($self) = @_; + return if $self->{delivered_qty}; + my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder'); my @d_orders_delivered = grep { $_->delivered } @$d_orders; @@ -59,7 +61,7 @@ sub value_of_goods { my $price_factor = $self->price_factor || 1; - $self->_delivered_qty unless $self->{delivered_qty}; + $self->_delivered_qty; return ($self->{delivered_qty} * $self->sellprice * (1 - $self->discount ) / $price_factor); }