projekt kivitendo

use Rose::Object::MakeMethods::Generic

(

 scalar => [ qw(item_ids_to_delete is_custom_shipto_to_delete) ],

 'scalar --get_set_init' => [ qw(order valid_types type cv p all_price_factors search_cvpartnumber show_update_button part_picker_classification_ids type_data) ],

                        except => [ qw(update_stock_information) ]);

                        except => [ qw(update_stock_information edit show_customer_vendor_details_dialog price_popup stock_in_out_dialog load_second_rows) ]);

                        only => [ qw(save save_as_new save_and_delivery_order save_and_invoice save_and_ap_transaction

                                     print send_email) ]);

    $::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_DELIVERY_ORDER_SAVE())->token;

      $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);

      $::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_DELIVERY_ORDER_SAVE())->token;

    $::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_DELIVERY_ORDER_SAVE())->token;

    return $self->js->flash('error', t8('Format \'#1\' is not supported yet/anymore.', $format))->render;

    return $self->js->flash('error', t8('Media \'#1\' is not supported yet/anymore.', $media))->render;

  $form->{language}         = '_' . $self->order->language->template_code if $self->order->language;

  my @errors = generate_pdf($self->order, \$pdf, { format     => $format,

                                                   formname   => $formname,

                                                   language   => $self->order->language,

                                                   printer_id => $printer_id,

                                                   groupitems => $groupitems });

    return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render;

  my @warnings = store_pdf_to_webdav_and_filemanagement($self->order, $pdf, $pdf_filename);

  $form->{language}         = '_' . $self->order->language->template_code if $self->order->language;

  my @errors = generate_pdf($self->order, \$pdf, { format     => $format,

                                                   formname   => $formname,

                                                   language   => $self->order->language,

                                                 });

    return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render;

    return $self->js->flash('error', $self->cv eq 'customer' ? t8('Cannot send E-mail without customer given') : t8('Cannot send E-mail without vendor given'))

                    ->render($self);

  $form->{language}         = '_' . $self->order->language->template_code if $self->order->language;

  $form->{language_id}      = $self->order->language->id                  if $self->order->language;

  $form->{cp_id}            = $self->order->contact->cp_id if $self->order->contact;

  $self->{all_employees} = SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);

  my $dialog_html = $self->render('common/_send_email_dialog', { output => 0 },

                                  email_form  => $email_form,

                                  show_bcc    => $::auth->assert('email_bcc', 'may fail'),

                                  FILES       => \%files,

                                  is_customer => $self->type_data->properties("is_customer"),

                                  ALL_EMPLOYEES => $self->{all_employees},

    my @errors = generate_pdf($self->order, \$pdf, {media      => $::form->{media},

                                                    format     => $::form->{print_options}->{format},

                                                    formname   => $::form->{print_options}->{formname},

                                                    language   => $self->order->language,

                                                    printer_id => $::form->{print_options}->{printer_id},

                                                    groupitems => $::form->{print_options}->{groupitems}});

      return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render($self);

    my @warnings = store_pdf_to_webdav_and_filemanagement($self->order, $pdf, $::form->{attachment_filename});

    $::form->{tmpdir}  = $sfile->get_path; # for Form::cleanup which may be called in Form::send_email

  $::form->{id} = $self->order->id; # this is used in SL::Mailer to create a linked record to the mail

    $intnotes   .= t8('[email]')                                                                                        . "\n";

    $intnotes   .= t8('Date')       . ": " . $::locale->format_date_object(DateTime->now_local, precision => 'seconds') . "\n";

    $intnotes   .= t8('To (email)') . ": " . $::form->{email}                                                           . "\n";

    $intnotes   .= t8('Cc')         . ": " . $::form->{cc}                                                              . "\n"    if $::form->{cc};

    $intnotes   .= t8('Bcc')        . ": " . $::form->{bcc}                                                             . "\n"    if $::form->{bcc};

    $intnotes   .= t8('Subject')    . ": " . $::form->{subject}                                                         . "\n\n";

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

  if ($self->order->$cv_method->contacts && scalar @{ $self->order->$cv_method->contacts } > 0) {

  $self->js

    ->run('kivi.DeliveryOrder.update_sellprice', $::form->{item_id}, $item->sellprice_as_number);

      ->before ('.row_entry:has(#item_' . $::form->{insert_before_item_id} . ')', $row_as_html);

      my $attr = { parts_id => $assortment_item->parts_id,

                   qty      => $assortment_item->qty * $::form->parse_amount(\%::myconfig, $form_attr->{qty_as_number}), # TODO $form_attr->{unit}

                   unit     => $assortment_item->unit,

                   description => $assortment_item->part->description,

                 };

      # set discount to 100% if item isn't supposed to be charged, overwriting any customer discount

      my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);

          ->before ('.row_entry:has(#item_' . $::form->{insert_before_item_id} . ')', $row_as_html);

        my $attr = { parts_id => $assortment_item->parts_id,

                     qty      => $assortment_item->qty * $item->qty, # TODO $form_attr->{unit}

                     unit     => $assortment_item->unit,

                     description => $assortment_item->part->description,

                   };

        # set discount to 100% if item isn't supposed to be charged, overwriting any customer discount

    my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);

                                       ITEM => $item,

                                       ID   => $item_id,

                                       SELF => $self,

                                       in_out => $self->type_data->properties("transfer"),

        ->before ('.row_entry:has(#item_' . $::form->{insert_before_item_id} . ')', $row_as_html);

  my @to_sort = map { { old_pos => $_->position, order_by => $method->($_) } } @{ $self->order->items_sorted };

  flash_later('info', t8('You are adding a new part while you are editing another document. You will be redirected to your document when saving the new part or aborting this form.'));

  $self->{created_part} = SL::DB::Part->new(id => delete $::form->{new_parts_id})->load if $::form->{new_parts_id};

    $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);

  $self->render(\ SL::JSON::to_json($response), { layout => 0, type => 'json', process => 0 });

      $row->{available_qty} = _format_number($part->unit_obj->convert_to($row->{qty}, $unit));

  $self->js->run('kivi.DeliveryOrder.init_row_handlers') if $self->order->is_sales; # for lastcosts change-callback

      $price_src->price($::form->round_amount($price_src->price / $self->order->exchangerate, 5)) if $self->order->exchangerate;

    return $self->js->flash("error", t8('The parts for this order have already been transferred'))->render;

    ? SL::DB::Manager::TransferType->find_by(direction => "in", description => "stock")

    : SL::DB::Manager::TransferType->find_by(direction => "out", description => "shipped");

    ->run('kivi.ActionBar.setDisabled', '#transfer_out_action', t8('The parts for this order have already been transferred'))

    ->run('kivi.ActionBar.setDisabled', '#transfer_in_action', t8('The parts for this order have already been transferred'))

    ->run('kivi.ActionBar.setDisabled', '#delete_action', t8('The parts for this order have already been transferred'))

    ->run('kivi.ActionBar.setEnabled', '#undo_transfer_action', t8('The parts for this order have already been transferred'))

      ->val ('[name="orderitem_ids[+]"][value="' . $form_item_id . '"]', $self->order->items_sorted->[$idx]->id)

      ->attr('#item_' . $form_item_id, "id", 'item_' . $self->order->items_sorted->[$idx]->id);

  return [ map { $_->id } @{ SL::DB::Manager::PartClassification->get_all(where => $self->type_data->part_classification_query) } ];

             [ {displayable_id => t8("No/individual shipping address"), shipto_id => ''}, $self->order->{$self->cv}->shipto ],

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

  $order ||= SL::DB::DeliveryOrder->new(orderitems  => [], currency_id => $::instance_conf->get_currency_id(), order_type => $self->type_data->validate);

  my $form_orderitems                  = delete $::form->{order}->{orderitems};

  my $price_source = SL::PriceSource->new(record_item => $item, record => $record);

  my $texts = get_part_texts($part, $record->language_id, description => $new_attr{description}, longdescription => $new_attr{longdescription});

    my $custom_shipto = $order->custom_shipto || $order->custom_shipto(SL::DB::Shipto->new(module => 'OE', custom_variables => []));

    my $shipto_cvars  = {map { my ($key) = m{^shiptocvar_(.+)}; $key => delete $form->{$_}} grep { m{^shiptocvar_} } keys %$form};

    my $shipto_attrs  = {map {                                  $_   => delete $form->{$_}} grep { m{^shipto}      } keys %$form};

    my @converted_from_reclamation_ids = split ' ', $::form->{converted_from_reclamation_id};

                          with_validity_token        => { scope => SL::DB::ValidityToken::SCOPE_DELIVERY_ORDER_SAVE(), token => $::form->{form_validity_token} },

                          delete_custom_shipto       => $self->is_custom_shipto_to_delete || $self->order->custom_shipto->is_empty,

                          items_to_delete            => $items_to_delete,

  my $delivery_order = SL::Model::Record->new_from_workflow($self->order, $destination_type);

  $self->order($delivery_order);

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

  # set item ids to new fake id, to identify them as new items

  foreach my $item (@{$self->order->items_sorted}) {

    $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);

  }

  # change form type

  $::form->{type} = $destination_type;

  $self->type($self->init_type);

  $self->cv  ($self->init_cv);

  $self->check_auth;

  $self->get_unalterable_data();

  $self->pre_render();

  # trigger rendering values for second row as hidden, because they

  # are loaded only on demand. So we need to keep the values from the

  # source.

  $_->{render_second_row} = 1 for @{ $self->order->items_sorted };

  $self->render(

    'delivery_order/form',

    title => $self->get_title_for('edit'),

    %{$self->{template_args}}

}

sub workflow_sales_or_purchase_order {

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

  # always save

  $self->save();

  my $delivery_order = SL::Model::Record->new_from_workflow($self->order, $destination_type);

    $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);

  $::request->{layout}->use_javascript("${_}.js") for qw(kivi.SalesPurchase kivi.DeliveryOrder kivi.File

                                                         calculate_qty kivi.Validator follow_up show_history);

  my $may_edit_create  = $::auth->assert($self->type_data->rights('edit') || 'DOES_NOT_EXIST', 1);

          call     => [ 'kivi.DeliveryOrder.show_print_options', { warn_on_duplicates => $::instance_conf->get_order_warn_duplicate_parts,

                                                                   warn_on_reqdate    => $::instance_conf->get_order_warn_no_deliverydate },

    push @errors, $::locale->text('Cannot find matching template for this print request. Please contact your template maintainer. I tried these: #1.', join ', ', map { "'$_'"} @template_files);

    my @mms = grep { $_->make eq $self->order->customervendor->id } @{$item->part->makemodels};

    my @cps = grep { $_->customer_id eq $self->order->customervendor->id } @{$item->part->customerprices};