-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;
-};