projekt kivitendo

  my $destination_type = $::form->{to_type} ? $::form->{to_type} : '';

  # check for direct delivery

  # copy shipto in custom shipto (custom shipto will be copied by new_from() in case)

  my $custom_shipto;

  $self->order(SL::DB::Order->new_from($self->order, destination_type => $destination_type));

    delete $::form->{id};

    delete $::form->{$_} for qw(converted_from_oe_id converted_from_orderitems_ids);

  } else {

          t8('Save and Quotation'),

          call     => [ 'kivi.submit_ajax_form', $self->url_for(action => "save_and_order_workflow", to_type => sales_quotation_type()), '#order_form' ],

          checks   => [ @req_trans_cost_art, @req_cusordnumber ],

          disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef,

        ],

        action => [

    { from => 'purchase_order',    to => 'sales_order',       abbr => 'poso' },

    { from => 'sales_order',       to => 'sales_quotation',   abbr => 'sosq' },

    { from => 'purchase_order',    to => 'request_quotation', abbr => 'porq' },

  );

  my $from_to = (grep { $_->{from} eq $source->type && $_->{to} eq $destination_type} @from_tos)[0];

  croak("Cannot convert from '" . $source->type . "' to '" . $destination_type . "'") if !$from_to;

    $args{payment_id}       = undef;

    $args{delivery_term_id} = undef;

  }

    $args{vendor_id} = undef;

  }

  if ( $is_abbr_any->(qw(soso)) ) {

    $args{periodic_invoices_config} = $source->periodic_invoices_config->clone_and_reset if $source->periodic_invoices_config;

  }

    $args{ordnumber} = undef;

    $args{quonumber} = undef;

    $args{reqdate}   = DateTime->today_local->next_workday();

      $current_oe_item->sellprice($source_item->lastcost);

      $current_oe_item->discount(0);

    }

      $current_oe_item->lastcost($source_item->sellprice);

    }

    $current_oe_item->{"converted_from_orderitems_id"} = $_->{id} if ref($item_parent) eq 'SL::DB::Order';