+sub shipped_qty {
+ my ($self) = @_;
+
+ my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder', with_objects => [ 'orderitems' ]);
+ my @doi = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @$d_orders;
+
+ return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi);
+}
+
+sub linked_delivery_order_items {
+ my ($self) = @_;
+
+ return $self->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrderItem');
+}
+
+sub delivered_qty {
+ # checks for delivery_order_stock_id entries, which have been converted to inventory entries
+ # uses several rose relationships
+ # doesn't differentiate between sales and orders
+
+ my ($self) = @_;
+ my $delivered_qty = 0;
+ foreach my $doi ( @{$self->linked_delivery_order_items} ) {
+ next unless scalar @{$doi->delivery_order_stock_entries};
+ $delivered_qty += sum map { $_->inventory ? $_->qty : 0 } @{$doi->delivery_order_stock_entries};
+ };
+ return $delivered_qty;
+};
+
+sub delivered_qty_sql {
+ # checks for delivery_order_stock_id entries, which have been converted to inventory entries
+ my ($self) = @_;
+
+my $query = <<SQL;
+SELECT (sum(i.qty) * CASE WHEN oe.customer_id IS NULL THEN 1 ELSE -1 END) AS delivered
+ FROM orderitems oi
+ INNER JOIN record_links rl ON ( oi.id = rl.FROM_id
+ and rl.FROM_table = 'orderitems'
+ and rl.to_table::text = 'delivery_order_items'::text
+ )
+ INNER JOIN delivery_order_items doi ON (doi.id =rl.to_id)
+ INNER JOIN delivery_order_items_stock dois ON (dois.delivery_order_item_id = doi.id)
+ INNER JOIN inventory i ON (dois.id = i.delivery_order_items_stock_id)
+ INNER JOIN oe ON (oe.id = oi.trans_id)
+ WHERE oi.id = ?
+ GROUP BY oi.id, oe.id
+SQL
+ my ($delivered_qty) = selectfirst_array_query($::form, $self->db->dbh, $query, $self->id);
+
+ return $delivered_qty;
+};
+
+sub delivered_qty_sql_multi {
+ # checks for delivery_order_stock_id entries, which have been converted to inventory entries
+ my ($self) = @_;
+
+my $query = <<SQL;
+SELECT sum(dois.qty) from delivery_order_items_stock dois
+ LEFT OUTER JOIN inventory i ON (dois.id = i.delivery_order_items_stock_id)
+WHERE
+ dois.delivery_order_item_id in (
+SELECT
+ to_id
+FROM
+ record_links
+WHERE
+ (
+ from_id = in AND
+ from_table = 'orderitems' AND
+ to_table = 'delivery_order_items'
+ )
+)
+SQL
+ my ($delivered_qty) = selectfirst_array_query($::form, $self->db->dbh, $query, $self->id);
+
+ return $delivered_qty;
+};
+
+sub record { goto &order }
+