projekt kivitendo

  }

  my $record = SL::Model::Record->get_record($from_type, $from_id);

  if (ref $record eq 'SL::DB::Order') {

    # Calculate shipped qtys here to prevent calling calculate for every item

    # via the items method.

    SL::Helper::ShippedQty->new->calculate($record)->write_to(\@{$record->items});

    my @items_with_not_delivered_qty =

      grep {$_->qty > 0}

      @{$record->items_sorted};

    $flags{items} = \@items_with_not_delivered_qty;

  }

  my $delivery_order = SL::Model::Record->new_from_workflow($record, $self->type, %flags);

  $self->order($delivery_order);