projekt kivitendo

  # load order from db to check if values changed

  my %new_attrs;

  # Lets assign a new number if the user hasn't changed the previous one.

  # If it has been changed manually then use it as-is.

  $new_attrs{number}    = (trim($order->number) eq $saved_order->number)

                        ? ''

                        : trim($order->number);

  # Clear transdate unless changed

  $new_attrs{transdate} = ($order->transdate == $saved_order->transdate)

                        ? DateTime->today_local

                        : $order->transdate;

  # Set new reqdate unless changed if it is enabled in client config

  if ($order->reqdate == $saved_order->reqdate) {

    my $extra_days = $self->type eq sales_quotation_type() ? $::instance_conf->get_reqdate_interval       :

                     $self->type eq sales_order_type()     ? $::instance_conf->get_delivery_date_interval : 1;

    if (   ($self->type eq sales_order_type()     &&  !$::instance_conf->get_deliverydate_on)

        || ($self->type eq sales_quotation_type() &&  !$::instance_conf->get_reqdate_on)) {

      $new_attrs{reqdate} = '';

    } else {

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

    }

  } else {

    $new_attrs{reqdate} = $order->reqdate;

  }

  # Update employee

  $new_attrs{employee}  = SL::DB::Manager::Employee->current;

  # Warn on obsolete items

  my @obsolete_positions = map { $_->position } grep { $_->part->obsolete } @{ $order->items_sorted };

  flash_later('warning', t8('This record containts obsolete items at position #1', join ', ', @obsolete_positions)) if @obsolete_positions;

  $self->order(SL::DB::Order->new_from($order, destination_type => $order->type, attributes => \%new_attrs));