projekt kivitendo

  my $order = SL::DB::Order->new(id => $self->{converted_from_oe_id})->load;

  my $target_type = $::form->{type};

  $self->order($delivery_order);

  $self->action_add;

  my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load;

  my $target_type = $reclamation->is_sales ? 'rma_delivery_order'

                                           : 'supplier_delivery_order';

  $self->{converted_from_reclamation_id} = $::form->{from_id};

  $self->order($delivery_order);

  my @multi_orders = map { SL::DB::DeliveryOrder->new(id => $_)->load } @multi_ids;

  $self->{converted_from_oe_id} = join ' ', map { $_->id } @multi_orders;

  my $target_type = SALES_DELIVERY_ORDER_TYPE();

  $self->order($delivery_order);

  $self->action_edit();

  # always save

  $self->save();

  $self->order($delivery_order);

  $self->{converted_from_oe_id} = delete $::form->{id};

  # always save

  $self->save();

  $self->order($delivery_order);

  $self->{converted_from_oe_id} = delete $::form->{id};