projekt kivitendo

use List::MoreUtils qw(uniq);

use List::Util qw(first);

use SL::DB::Order;

use constant TAB_ID => 'ui-tabs-4';

  scalar                  => [ qw(parts) ],

  'scalar --get_set_init' => [ qw(requirement_spec js h_unit_name all_customers all_parts) ],

  $self->js->html('#' . TAB_ID(), $html)

           ->render($self);

}

sub action_create {

  my ($self)         = @_;

  # 1. Update sections with selected part IDs.

  my $section_attrs  = $::form->{sections} || [];

  my $sections       = SL::DB::Manager::RequirementSpecItem->get_all(where => [ id => [ map { $_->{id} } @{ $section_attrs } ] ]);

  my %sections_by_id = map { ($_->{id} => $_) } @{ $sections };

  $sections_by_id{ $_->{id} }->update_attributes(order_part_id => $_->{order_part_id}) for @{ $section_attrs };

  # 2. Create actual quotation/order.

  my $order = $self->create_order(sections => $sections);

  $order->save;

  $self->requirement_spec->orders(

    @{ $self->requirement_spec->orders },

    SL::DB::RequirementSpecOrder->new(order => $order, version => $self->requirement_spec->version)

  );

  $self->requirement_spec->save;

  $self->init_requirement_spec;

  # 3. Notify the user and return to list.

  my $html = $self->render('requirement_spec_order/list', { output => 0 });

  $self->js->html('#' . TAB_ID(), $html)

           ->flash('info', $::form->{quotation} ? t8('Sales quotation #1 has been created.', $order->quonumber) : t8('Sales order #1 has been created.', $order->ordnumber))

  $self->js->html('#' . TAB_ID(), $html)

  $self->js->html('#' . TAB_ID(), $html)

  $self->js->html('#' . TAB_ID(), $html)

  $::request->{layout}->use_javascript("${_}.js")  for qw(jquery.jstree jquery/jquery.contextMenu client_js requirement_spec);

sub init_h_unit_name   { first { SL::DB::Manager::Unit->find_by(name => $_) } qw(Std h Stunde) };

sub load_parts_for_sections {

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

  $self->parts({ map { ($_->{id} => $_) } @{ SL::DB::Manager::Part->get_all(where => [ id => [ uniq map { $_->{order_part_id} } @{ $params{sections} } ] ]) } });

}

sub create_order_item {

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

  my $section         = $params{section};

  my $item            = $params{item} || SL::DB::OrderItem->new;

  my $part            = $self->parts->{ $section->order_part_id };

  my $description     = $section->{keep_description} ? $item->description : $part->description;

  if (!$section->{keep_description}) {

    $description =  '<%fb_number%> <%title%>' unless $description =~ m{<%};

    $description =~ s{<% (.+?) %>}{$section->$1}egx;

  }

  $item->assign_attributes(

    parts_id    => $part->id,

    description => $description,

    qty         => $section->time_estimation * 1,

    unit        => $self->h_unit_name,

    sellprice   => $::form->round_amount($self->requirement_spec->hourly_rate, 2),

    discount    => 0,

    project_id  => $self->requirement_spec->project_id,

  );

  return $item;

}

sub create_order {

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

  $self->load_parts_for_sections(%params);

  my @orderitems = map { $self->create_order_item(section => $_) } @{ $params{sections} };

  my $employee   = SL::DB::Manager::Employee->current;

  my $customer   = SL::DB::Customer->new(id => $::form->{customer_id})->load;

  my $order      = SL::DB::Order->new(

    globalproject_id        => $self->requirement_spec->project_id,

    transdate               => DateTime->today_local,

    reqdate                 => $::form->{quotation} && $customer->payment_id ? $customer->payment->calc_date : undef,

    quotation               => !!$::form->{quotation},

    orderitems              => \@orderitems,

    customer_id             => $customer->id,

    taxincluded             => $customer->taxincluded,

    intnotes                => $customer->notes,

    language_id             => $customer->language_id,

    payment_id              => $customer->payment_id,

    taxzone_id              => $customer->taxzone_id,

    employee_id             => $employee->id,

    salesman_id             => $employee->id,

    transaction_description => $self->requirement_spec->displayable_name,

    currency_id             => $::instance_conf->get_currency_id,

  );

  $order->calculate_prices_and_taxes;

  return $order;

}

"Create":"Anlegen",

"Create new quotation/order":"Neues Angebot/neuen Auftrag anlegen",

  if ((key == 'save_assignment') || (key == 'create'))

  $.contextMenu({

    selector: '.quotations-and-orders-new-context-menu',

    items:    $.extend({

        heading: { name: kivi.t8('Create new quotation/order'), className: 'context-menu-heading'    }

      , create:  { name: kivi.t8('Create'), icon: "edit",  callback: ns.standard_quotation_order_ajax_call }

      , cancel:  { name: kivi.t8('Cancel'), icon: "close", callback: ns.standard_quotation_order_ajax_call }

    }, general_actions)

  });

  'Create'                      => 'Anlegen',

  'Create new quotation/order'  => 'Neues Angebot/neuen Auftrag anlegen',

  'Sales order #1 has been created.' => 'Kundenauftrag #1 wurde angelegt.',

  'Sales quotation #1 has been created.' => 'Angebot #1 wurde angelegt.',

<form id="quotations_and_orders_article_assignment_form">

 <table>

  [% IF for_new %]

  <tr>

   <td>[% LxERP.t8("Record type to create") %]:</td>

   <td>[% L.select_tag('quotation', [ [ 1, LxERP.t8('Sales quotation') ], [ 0, LxERP.t8('Sales Order') ] ], style=style, no_id=1) %]</td>

  </tr>

  <tr>

   <td>[% LxERP.t8("Customer") %]:</td>

   <td>[% L.select_tag('customer_id', SELF.all_customers, default=SELF.requirement_spec.customer_id, title_key='name', style=style, no_id=1) %]</td>

  </tr>

  [% END %]

  <tr>

   <td>[% LxERP.t8("Assign the following article to all sections") %]:</td>

   <td>

    [% L.select_tag('quotations_and_orders_dummy', SELF.all_parts, default=INSTANCE_CONF.get_requirement_spec_section_order_part_id, title_sub=\make_part_title, id='quoations_and_orders_order_id', style=style) %]

    [% L.button_tag('kivi.requirement_spec.assign_order_part_id_to_all()', LxERP.t8('Assign article')) %]

   </td>

  </tr>

 </table>

     <td>

      <a href="oe.pl?action=edit&id=[% HTML.url(rs_order.order_id) %]&type=[% HTML.url(rs_order.order.type) %]">

       [% HTML.escape(rs_order.order.quotation ? rs_order.order.quonumber : rs_order.order.ordnumber) %]

      </a>

     </td>

<div id="quotations_and_orders_new" class="quotations-and-orders-new-context-menu">