projekt kivitendo

use SL::DB::Helper::RecordLink qw(set_record_link_conversions);

use SL::DB::Helper::TypeDataProxy;

use SL::Model::Record;

use SL::Helper::CreatePDF qw(:all);

use SL::Helper::PrintOptions;

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

  my %params;

  my $order = SL::Model::Record->new_from_workflow($reclamation, $target_type);

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

  my ($self) = @_;

  SL::Model::Record->delete($self->order);

           : '';

  flash_later('info', $text);

  $self->save();

           : '';

  flash_later('info', $text);

  $config  ||= SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $::form->{id}) if $::form->{id};

  my $has_active_periodic_invoices =

    && $config

    && $config->active

    && (!$config->end_date || ($config->end_date > DateTime->today_local))

  # can't use save_and_redirect_to, because id is set!

  $self->save();

  $self->redirect_to(

    controller => 'Reclamation',

    action     => 'add_from_order',

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

  my $from_side        = $self->order->is_sales ? 'sales' : 'purchase';

  # check for direct delivery

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

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

  # no linked records to quotations from the same side (sales -> sales or purchase -> purchase)

       && $from_side eq $to_side) {

    delete $::form->{id};

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

#

sub init_valid_types {

}

sub init_type {

sub init_cv {

  my ($self) = @_;

         : die "Not a valid type for order";

  return $cv;

  my $order;

  $order   = SL::DB::Order->new(id => $::form->{id})->load(with => [ 'orderitems', 'orderitems.part' ]) if $::form->{id};

  $order ||= SL::DB::Order->new(orderitems  => [],

                                currency_id => $::instance_conf->get_currency_id(),);

  my $cv_id_method = $self->cv . '_id';

    $item->active_discount_source($price_source->discount_from_source($item->active_discount_source));

  }

    # Calculate shipped qtys here to prevent calling calculate for every item via the items method.

    # Do not use write_to_objects to prevent order->delivered to be set, because this should be

    # the value from db, which can be set manually or is set when linked delivery orders are saved.

                                                } } @all_objects;

  }

      && $::instance_conf->get_transport_cost_reminder_article_number_id ) {

    $self->{template_args}->{transport_cost_reminder_article} = SL::DB::Part->new(id => $::instance_conf->get_transport_cost_reminder_article_number_id)->load;

  }

sub setup_edit_action_bar {

  my ($self, %params) = @_;

  my @req_trans_cost_art = qw(kivi.Order.check_transport_cost_article_presence) x!!$::instance_conf->get_transport_cost_reminder_article_number_id;

  my $has_invoice_for_advance_payment;

    my $lr = $self->order->linked_records(direction => 'to', to => ['Invoice']);

    $has_invoice_for_advance_payment = any {'SL::DB::Invoice' eq ref $_ && "invoice_for_advance_payment" eq $_->type} @$lr;

  }

  my $has_final_invoice;

    my $lr = $self->order->linked_records(direction => 'to', to => ['Invoice']);

    $has_final_invoice               = any {'SL::DB::Invoice' eq ref $_ && "final_invoice" eq $_->type} @$lr;

  }

        ],

        action => [

          t8('Save and Quotation'),

          checks   => [ @req_trans_cost_art, @req_cusordnumber ],

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

        ],

        action => [

          t8('Save and RFQ'),

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

        ],

        action => [

          t8('Save and Sales Order'),

          checks   => [ @req_trans_cost_art ],

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

        ],

        action => [

          t8('Save and Purchase Order'),

          checks    => [ @req_trans_cost_art, @req_cusordnumber ],

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

        ],

        action => [

          checks    => [ 'kivi.Order.check_save_active_periodic_invoices',

                         @req_trans_cost_art, @req_cusordnumber,

          ],

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

        ],

        action => [

          checks    => [ 'kivi.Order.check_save_active_periodic_invoices',

                         @req_trans_cost_art, @req_cusordnumber,

          ],

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

        ],

        action => [

          call      => [ 'kivi.Order.save', { action             => 'save_and_reclamation',

                                              warn_on_duplicates => $::instance_conf->get_order_warn_duplicate_parts },

          ],

        ],

        action => [

          t8('Save and Invoice'),

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

                     : $has_final_invoice ? t8('This order has already a final invoice.')

                     :                      undef,

        ],

        action => [

          t8('Save and Final Invoice'),

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

                     : $has_final_invoice ? t8('This order has already a final invoice.')

                     :                      undef,

        ],

        action => [

          t8('Save and AP Transaction'),

          call      => [ 'kivi.Order.save', { action             => 'save_and_ap_transaction',

                                              warn_on_duplicates => $::instance_conf->get_order_warn_duplicate_parts },

          ],

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

        ],

sub get_periodic_invoices_status {

  my ($self, $config) = @_;

  return t8('not configured') if !$config;

  my $active = ('HASH' eq ref $config)                           ? $config->{active}

  # $::locale->text("Edit Request for Quotation");

  $action = ucfirst(lc($action));

       : '';

}

  return ($price_src, $discount_src);

}

sub nr_key {

       : '';

}

  $self->save();

           : '';

  flash_later('info', $text);