projekt kivitendo

use strict;

use parent qw(SL::Controller::Base);

  $self->pre_render();

  $self->render(

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

    %{$self->{template_args}}

  );

  $self->pre_render();

  $self->render(

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

    %{$self->{template_args}}

  );

  # fall back to save as new if only one id is given

  if (scalar @multi_ids == 1) {

    $self->action_save_as_new();

    return;

  }

  # make new order from given orders

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

  $self->action_edit();

}

  }

  # 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.

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

  # Create new record from current one

  # no linked records on save as new

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

  $self->get_item_cvpartnumber($item);

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

                                     ITEM => $item,

                                     ID   => $item_id,

                                     SELF => $self,

      $self->order->add_items( $item );

      $self->get_item_cvpartnumber($item);

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

                                         ITEM => $item,

                                         ID   => $item_id,

                                         SELF => $self,

  foreach my $item (@items) {

    $self->get_item_cvpartnumber($item);

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

                                       ITEM => $item,

                                       ID   => $item_id,

                                       SELF => $self,

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

  $self->render(

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

    %{$self->{template_args}}

  );

    $item->parse_custom_variable_values;

  }

  $self->js

    ->html('#second_row_' . $item_id, $row_as_html)

# Needed, if customer/vendor changed.

sub build_business_info_row

{

}

sub load_order {

  my ($self) = @_;

  return if !$::form->{id};

  # Add an empty custom shipto to the order, so that the dialog can render the cvar inputs.

  # You need a custom shipto object to call cvars_by_config to get the cvars.

  # be retrieved via items until the order is saved. Adding empty items to new

  # order here solves this problem.

  my $order;

                                quotation   => (any { $self->type eq $_ } (sales_quotation_type(), request_quotation_type())),

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

  # add_custom_variables adds cvars to an orderitem with no cvars for saving, but

  # they cannot be retrieved via custom_variables until the order/orderitem is

  # saved. Adding empty custom_variables to new orderitem here solves this problem.

  $item->assign_attributes(%$attr);

sub new_item {

  my ($record, $attr) = @_;

  # Remove attributes where the user left or set the inputs empty.

  # So these attributes will be undefined and we can distinguish them

      $self->order->custom_shipto(undef);

    }

    $self->order->save(cascade => 1);

    # link records

    if ($::form->{converted_from_oe_id}) {

      my @converted_from_oe_ids = split ' ', $::form->{converted_from_oe_id};

      foreach my $converted_from_oe_id (@converted_from_oe_ids) {

        $src->update_attributes(closed => 1) if $src->type =~ /_quotation$/;

        $src->link_to_record($self->order);

      }

  my $destination_type = $::form->{type} eq sales_order_type() ? sales_quotation_type() : request_quotation_type();

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

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

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

  $self->render(

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

    %{$self->{template_args}}

  );

  my $custom_shipto;

  if (   $::form->{type} eq sales_order_type() && $destination_type eq purchase_order_type()

      && $::form->{use_shipto} && $self->order->shipto) {

  }

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

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

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

  $self->render(

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

    %{$self->{template_args}}

  );

        ],

        action => [

          t8('Save and Quotation'),

          only_if  => (any { $self->type eq $_ } (sales_order_type())),

        ],

        action => [

          t8('Save and RFQ'),

          only_if  => (any { $self->type eq $_ } (purchase_order_type())),

        ],

        action => [

          t8('Save and Sales Order'),

          only_if  => (any { $self->type eq $_ } (sales_quotation_type(), purchase_order_type())),

        ],

        action => [

the controller

main form

Main tab for basic_data.

=over 4

For displaying information on business type

The input line for items

One row for already entered items

Displaying tax information

=back

=item * C<js/kivi.Order.js>