projekt kivitendo

  my $basket_item_ids = $::form->{ids};

  my $vendor_item_ids = $::form->{vendor_part_ids};

  unless (($basket_item_ids && scalar @{ $basket_item_ids})

      || ( $vendor_item_ids && scalar @{ $vendor_item_ids}))

  my $vendor_id =  $::form->{vendor_ids}->[0];

  # check for same vendor

  my %basket_id_vendor_id_map =

    map {$::form->{basket_ids}->[$_] => $::form->{vendor_ids}->[$_]}

    (0..$#{$::form->{vendor_ids}});

  my @different_vendor_ids =

    grep { $basket_id_vendor_id_map{$_} ne $vendor_id }

    @{$basket_item_ids};

  if (scalar @different_vendor_ids) {

    $self->js->flash('error', t8('There are mulitple vendors selected'));

    return $self->js->render();

    action     => 'add_from_purchase_basket',

    basket_item_ids => $basket_item_ids,

    vendor_item_ids => $vendor_item_ids,

    vendor_id       => $vendor_id,

        call    => [ 'kivi.DispositionManager.create_purchase_order' ],

__PACKAGE__->run_before('get_basket_info_from_from');

sub action_add_from_purchase_basket {

  my ($self) = @_;

  my $basket_item_ids = $::form->{basket_item_ids};

  my $vendor_item_ids = $::form->{vendor_item_ids};

  my $vendor_id       = $::form->{vendor_id};

  unless (scalar @{ $basket_item_ids} || scalar @{ $vendor_item_ids}) {

    $self->js->flash('error', t8('There are no items selected'));

    return $self->js->render();

  }

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

    $basket_item_ids, $vendor_item_ids, $vendor_id

  );

  $self->order($order);

  $self->action_add();

}

  $self->js->val('[name="basket_item_ids[+]"]', '');

sub get_basket_info_from_from {

  my ($self) = @_;

  my $order = $self->order;

  my $basket_item_ids = $::form->{basket_item_ids};

  if (scalar @{ $basket_item_ids || [] }) {

    for my $idx (0 .. $#{ $order->items_sorted }) {

      my $order_item = $order->items_sorted->[$idx];

      $order_item->{basket_item_id} = $basket_item_ids->[$idx];

    }

  }

}

use SL::DB::PurchaseBasketItem;

__PACKAGE__->before_save('_before_save_delete_from_purchase_basket');

sub _before_save_delete_from_purchase_basket {

  my ($self) = @_;

  my @basket_item_ids = grep { $_ ne ''} map { $_->{basket_item_id} } $self->orderitems;

  if (scalar @basket_item_ids) {

    SL::DB::Manager::PurchaseBasketItem->delete_all(

      where => [ id => \@basket_item_ids]

    );

  }

  return 1;

}

sub create_from_purchase_basket {

  my ($class, $basket_item_ids, $vendor_item_ids, $vendor_id) = @_;

  my ($vendor, $employee);

  $vendor   = SL::DB::Manager::Vendor->find_by(id => $vendor_id);

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

  my @orderitem_maps = (); # part, qty, orderer_id

  if ($basket_item_ids && scalar @{ $basket_item_ids}) {

    my $basket_items = SL::DB::Manager::PurchaseBasketItem->get_all(

      query => [ id => $basket_item_ids ],

      with_objects => ['part'],

    );

    push @orderitem_maps, map {{

        basket_item_id => $_->id,

        part       => $_->part,

        qty        => $_->qty,

        orderer_id => $_->orderer_id,

      }} @{$basket_items};

  }

  if ($vendor_item_ids && scalar @{ $vendor_item_ids}) {

    my $vendor_items = SL::DB::Manager::Part->get_all(

      query => [ id => $vendor_item_ids ] );

    push @orderitem_maps, map {{

        basket_item_id => undef,

        part       => $_,

        qty        => $_->order_qty || 1,

        orderer_id => $employee->id,

      }} @{$vendor_items};

  }

  my $order = $class->new(

    vendor_id               => $vendor->id,

    employee_id             => $employee->id,

    intnotes                => $vendor->notes,

    salesman_id             => $employee->id,

    payment_id              => $vendor->payment_id,

    delivery_term_id        => $vendor->delivery_term_id,

    taxzone_id              => $vendor->taxzone_id,

    currency_id             => $vendor->currency_id,

    transdate               => DateTime->today_local

  );

  my @order_items;

  my $i = 0;

  foreach my $orderitem_map (@orderitem_maps) {

    $i++;

    my $part = $orderitem_map->{part};

    my $qty = $orderitem_map->{qty};

    my $orderer_id = $orderitem_map->{orderer_id};

    my $order_item = SL::DB::OrderItem->new(

      part                => $part,

      qty                 => $qty,

      unit                => $part->unit,

      description         => $part->description,

      price_factor_id     => $part->price_factor_id,

      price_factor        =>

        $part->price_factor_id ? $part->price_factor->factor

                               : '',

      orderer_id          => $orderer_id,

      position            => $i,

    );

    $order_item->{basket_item_id} = $orderitem_map->{basket_item_id};

    my $price_source  = SL::PriceSource->new(

      record_item => $order_item, record => $order);

    $order_item->sellprice(

      $price_source->best_price ? $price_source->best_price->price

                                : 0);

    $order_item->active_price_source(

      $price_source->best_price ? $price_source->best_price->source

                                : '');

    push @order_items, $order_item;

  }

  $order->assign_attributes(orderitems => \@order_items);

  $order->calculate_prices_and_taxes;

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

    $item->parse_custom_variable_values;

    $item->{custom_variables} = \@{ $item->cvars_by_config };

  }

  return $order;

}

  ns.create_purchase_order = function() {

        <td>

          [% L.checkbox_tag('ids[+]', "data-checkall"=1, checked = '1',  value=basket_item.id) %]

          [% L.hidden_tag('basket_ids[+]', basket_item.id) %]

      [% L.hidden_tag("basket_item_ids[+]", ITEM.basket_item_id) %]

        <td>

          [% L.checkbox_tag('ids[+]', "data-checkall"=1, checked = '1',  value=basket_item.id) %]

          [% L.hidden_tag('basket_ids[+]', basket_item.id) %]

      [% L.hidden_tag("purchase_basket_item_ids[+]", ITEM.purchase_basket_item_ids) %]