projekt kivitendo

# some of the invocations never need to load all orderitems to copute their answers

# delivered however needs oi_qty to be set for each orderitem to decide whether

# delivered should be set or not.

sub ensure_all_orderitems_for_orders {

  my ($self) = @_;

  return if $self->fill_up;

  my $oi_query  = sprintf $fill_up_oi_query,   join (', ', ('?')x@{ $self->oe_ids });

  my $oi  = selectall_hashref_query($::form, $self->dbh, $oi_query, @{ $self->oe_ids });

  for (@$oi) {

    $self->{oi_qty}{ $_->{id} } //= $_->{qty};

    $self->{oi2oe}{ $_->{id} }  //= $_->{trans_id};

  }

}

  $self->ensure_all_orderitems_for_orders;

my $part1 = SL::DB::Manager::Part->find_by( partnumber => '1' ) or die;

my $part2 = SL::DB::Manager::Part->find_by( partnumber => '2' ) or die;

my $part3 = SL::DB::Manager::Part->find_by( partnumber => '3' ) or die;

my $part4 = SL::DB::Manager::Part->find_by( partnumber => '4' ) or die;

}

{

# edge case:

#

# suppose an order was delivered, and someone removes one item from the delivery order.

# make sure the order is then shown as not delivered.

#

  my $sales_order = create_sales_order(

    save       => 1,

    orderitems => [ create_order_item(part => new_part()->save, qty => 5),

                    create_order_item(part => new_part()->save, qty => 6),

                    create_order_item(part => new_part()->save, qty => 7),

                  ]

  );

  $sales_order->load;

  my $delivery_order = SL::DB::DeliveryOrder->new_from($sales_order);

  $delivery_order->save;

  $delivery_order->items(@{ $delivery_order->items_sorted }[0..1]);

  $delivery_order->save;

  SL::Helper::ShippedQty

    ->new(fill_up => 0, require_stock_out => 0)

    ->calculate($sales_order)

    ->write_to_objects;

  ok !$sales_order->delivered, 'after deleting a position from a delivery order, the order is undelivered again';