projekt kivitendo

package SL::Controller::DispositionManager;

use strict;

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

use SL::DB::Part;

use SL::DB::PurchaseBasketItem;

use SL::PriceSource;

use SL::Locale::String qw(t8);

use Data::Dumper;

sub action_list_parts {

  my ( $self ) = @_;

  my $parts = $self->_get_parts;

  $self->_setup_list_action_bar;

  $self->render('disposition_manager/list_parts', title => t8('Parts short onhand'), PARTS => $parts);

}

sub action_add_to_purchase_basket{

  my ( $self ) = @_;

  my $parts_to_add = delete($::form->{ids}) || [];

  foreach my $id (@{ $parts_to_add }) {

    my $part = SL::DB::Manager::Part->find_by(id => $id) or die "Can't find part with id: $id\n";

    my $basket_part = SL::DB::PurchaseBasketItem->new(

      parts_id    => $part->id,

      qty         => $part->min_order_qty, # was ist wenn min_order_qty < (rop-onhand) ist? sollte dann nicht (rop-onhand) genommen werden?

      description => $part->description,  # Warum wird description zusätzlich gespeichert, parts_id sollte doch reichen? Falls die sich in den Stammdaten in der Zwischenzeit verändert? zumal du in action_transfer_to_purchase_order explizit $part->description verwendest

    )->save;

 }

 $self->action_show_basket;

}

sub action_show_basket {

  my ( $self ) = @_;

  $::request->{layout}->add_javascripts('kivi.DispositionManager.js');

  my $basket_items = SL::DB::Manager::PurchaseBasketItem->get_all( query => [ cleared => 'F' ],  with_objects => [ 'part', 'part.makemodels' ]);

  $self->_setup_show_basket_action_bar;

  $self->render('disposition_manager/show_purchase_basket', BASKET_ITEMS => $basket_items, title => "Purchase basket" );

}

sub action_transfer_to_purchase_order {

  my ( $self ) = @_;

  require SL::DB::Order;

  require SL::DB::OrderItem;

  require SL::DB::Part;

  require SL::DB::Vendor;

  my @error_report;

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

  my ($vendor, $employee);

  $vendor   = SL::DB::Manager::Vendor->find_by(id => $v_id) or die "Can't find vendor";

  $employee = SL::DB::Manager::Employee->current            or die "Can't find employee";

  my $basket_items = SL::DB::Manager::PurchaseBasketItem->get_all( query => [ id => \@{ $::form->{ids} } ] );

  # create order first so we have a record for PriceSource

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

    vendor_id               => $vendor->id,

    employee_id             => $employee->id,

    intnotes                => $vendor->notes,

    salesman_id             => $employee->id,

    payment_id              => $vendor->payment_id,

    taxzone_id              => $vendor->taxzone_id,

    currency_id             => $vendor->currency_id,

    transdate               => DateTime->today_local

  );

  my $i = 0;

  my @items;

  foreach my $basket_item ( @{ $basket_items } ) {

    $i++;

    my $mm = SL::DB::Manager::MakeModel->get_first( query => [ make => $vendor->id, parts_id => $basket_item->parts_id] );

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

      part                => $basket_item->part,

      description         => $basket_item->part->description,

      qty                 => $basket_item->qty || 1,

      unit                => $basket_item->part->unit,

      position            => $i,

    );

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

    $current_order_item->sellprice($price_source->best_price->price);

    $current_order_item->active_price_source($price_source->best_price->source);

    push(@items, $current_order_item);

  }

  $order->orderitems( [ @items ] );

  $order->db->with_transaction( sub {

    $order->calculate_prices_and_taxes;

    $order->save;

    my $snumbers = "ordernumber_" . $order->ordnumber;

    SL::DB::History->new(

                      trans_id    => $order->id,

                      snumbers    => $snumbers,

                      employee_id => SL::DB::Manager::Employee->current->id,

                      addition    => 'SAVED',

                      what_done   => 'PurchaseBasket->Order',

                    )->save();

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

      $item->parse_custom_variable_values->save;

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

      $item->save;

    }

    SL::DB::Manager::PurchaseBasketItem->delete_all( where => [ id => \@{ $::form->{ids} }]);

    return 1;

  }) || die "error: " . $order->db->error;

  $self->redirect_to(controller => "oe.pl", action => 'edit', type => 'purchase_order', vc => 'vendor', id => $order->id);

}

sub _get_parts {

  my ($self) = @_;

  my $query = <<SQL;

SELECT *

  FROM parts

 WHERE onhand <= rop

   AND rop != 0

   AND id NOT IN( SELECT parts_id FROM purchase_basket_items )

   AND NOT obsolete

SQL

  return SL::DB::Manager::Part->get_objects_from_sql( sql => $query );

};

sub _setup_list_action_bar {

  my ($self) = @_;

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      action => [

        t8('Action'),

        submit   => [ '#form', { action => "DispositionManager/add_to_purchase_basket" } ],

        tooltip  => t8('Add to purchase basket'),

      ],

    );

  }

}

sub _setup_show_basket_action_bar {

  my ($self) = @_;

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      action => [

        t8('Reload'),

        submit   => [ '#purchasebasket', { action => "DispositionManager/show_basket" } ],

      ],

      action => [

        t8('Action'),

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

        tooltip  => t8('Create purchase order'),

      ],

    );

  }

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::DispositionManager Controller to manage purchase orders for parts

=head1 DESCRIPTION

This controller shows a list of parts using the filter minimum stock (rop).

From this list it is possible to put parts in a purchase basket to order.

It's also possible to put parts from the parts edit form in the purchase basket.

From the purchase basket you can create a purchase order by using the filter vendor.

The quantity to order will be prefilled by the value min_qty_to_order from parts or

makemodel(vendor_parts) or default to qty 1.

Tables:

=over 2

=item purchase_basket

=back

Dependencies:

=over 2

=item parts

=item makemodels

=back

=head1 URL ACTIONS

=over 4

=item C<action_list_parts>

List the parts by the filter min stock (rop) and not in an open purchase order.

=item C<action_add_to_purchase_basket>

Adds one or more parts to the purchase basket.

=item C<action_show_basket>

Shows a list with parts which are in the basket.

This list can be filtered by vendor. Then you can create a purchase order.

=item C<action_transfer_to_purchase_order>

Transfers the marked and by vendor filtered parts to a purchase order.

Deletes the entry in the purchase basket.

=back

=head1 BUGS

None yet. :)

=head1 AUTHOR

W. Hahn E<lt>wh@futureworldsearch.netE<gt>

=cut

use SL::DB::PurchaseBasketItem;

  purchase_basket_items          => 'purchase_basket_item',

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Manager::PurchaseBasketItem;

use strict;

use parent qw(SL::DB::Helper::Manager);

sub object_class { 'SL::DB::PurchaseBasketItem' }

__PACKAGE__->make_manager_methods;

1;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::PurchaseBasketItem;

use strict;

use parent qw(SL::DB::Object);

__PACKAGE__->meta->table('purchase_basket_items');

__PACKAGE__->meta->columns(

  cleared     => { type => 'boolean', default => 'false', not_null => 1 },

  description => { type => 'text' },

  id          => { type => 'serial', not_null => 1 },

  parts_id    => { type => 'integer' },

  qty         => { type => 'numeric', precision => 15, scale => 5 },

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

__PACKAGE__->meta->foreign_keys(

  part => {

    class       => 'SL::DB::Part',

    key_columns => { parts_id => 'id' },

  },

);

1;

;

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::PurchaseBasketItem;

use strict;

use SL::DB::MetaSetup::PurchaseBasketItem;

use SL::DB::Manager::PurchaseBasketItem;

__PACKAGE__->meta->initialize;

1;

namespace('kivi.DispositionManager', function(ns) {

  ns.sort_vendors = function() {

    $("table tr").each(function(index) {

      if ( index !== 0 ) {

        $row = $(this);

        //alert( $row.find("select[name='vendor_id[]']").val() + '!=' + $('#cv_id').val());

        if( $row.find("select[name='vendor_id[]']").val() != $('#cv_id').val()) {

          $row.remove();

        }

      }

    });

  }

  ns.create_order = function() {

    var data = $('#purchasebasket').serializeArray();

    data.push({ name: 'action', value: 'DispositionManager/transfer_to_purchase_order' });

    $.post("controller.pl", data, kivi.eval_json_result);

  }

});

  'Disposition manager'         => 'Dispositionsmanager',

---

- parent: ap

  id: ap_disp_manager

  name: Disposition manager

  icon: rfq_add

  order: 150

  access: request_quotation_edit

- parent: ap_disp_manager

  id: ap_disp_manager_onhand

  name: List short onhand

  order: 160

  params:

    action: DispositionManager/list_parts

- parent: ap_disp_manager

  id: ap_disp_manager_basket

  name: Show purchase basket

  order: 170

  params:

    action: DispositionManager/show_basket

    purchase_basket_items     => { parts_id => 'part' },

-- @description: Tabelle für den Dispositionsmanager

CREATE TABLE purchase_basket_items (

use Test::More tests => 9;

use SL::DB::PurchaseBasketItem;

use SL::Controller::DispositionManager;

  partnumber   => 'TP 1',

  description  => 'Testpart 1 rop no stock',

  sellprice    => 5,

  lastcost     => 3,

  partnumber   => 'TP 2',

  description  => 'Testpart 2 norop',

set_stock(part => $part2, bin_id => $bin->id, qty => 80);

for my $i (1 .. 10) {

  my $part = new_part(

    partnumber   => "TPO $i",

    description  => "Testpart onhand $i",

    rop          => 50,

    sellprice    => 5,

    lastcost     => 3,

    warehouse_id => $wh->id,

    bin_id       => $bin->id,

    makemodels   => [ _create_makemodel_for_vendor(vendor => $vendor) ],

  )->save;

  set_stock(part => $part, bin_id => $bin->id, qty => ($i * 10));

}

my $controller = SL::Controller::DispositionManager->new();

my $reorder_parts = $controller->_get_parts;

is(scalar @{$reorder_parts}, 6, "found 6 parts where onhand <= rop");

# die; # die here if you want to test making basket manually

note('creating purchase basket items');

$::form = Support::TestSetup->create_new_form;

$::form->{ids} = [ map { $_->id } @{$reorder_parts} ];

# call action_add_to_purchase_basket while redirecting rendered HTML output

my $output;

open(my $outputFH, '>', \$output) or die;

my $oldFH = select $outputFH;

$controller->action_add_to_purchase_basket;

select $oldFH;

close $outputFH;

is(SL::DB::Manager::PurchaseBasketItem->get_all_count(), 6, "6 items in purchase basket ok");

# die; # die here if you want to test creating purchase orders manually

note('making purchase order from purchase basket items');

my $purchase_basket_items = SL::DB::Manager::PurchaseBasketItem->get_all;

$::form = Support::TestSetup->create_new_form;

$::form->{ids}        = [ map { $_->id       } @{ $purchase_basket_items } ];

$::form->{vendor_ids} = [ map { $vendor->id  } @{ $purchase_basket_items } ];

$controller->action_transfer_to_purchase_order;

is(SL::DB::Manager::Order->get_all_count( where => [ SL::DB::Manager::Order->type_filter('purchase_order') ] ), 1, "1 purchase order created ok");

is(SL::DB::Manager::PurchaseBasketItem->get_all_count(), 0, "purchase basket empty after purchase order was created");

my $purchase_order = SL::DB::Manager::Order->get_first();

is( scalar @{$purchase_order->items}, 6, "Purchase order has 6 item ok");

my $first_item = $purchase_order->items_sorted->[0];

is( $first_item->parts_id, $part1->id, "Purchase order: first item is part1");

is( $first_item->qty, 1, "Purchase order: first item has qty 1");

cmp_ok( $purchase_order->netamount, '==', 12, "Purchase order: netamount ok");

is( $first_item->active_price_source, 'makemodel/' . $first_item->part->makemodels->[0]->id, "Purchase order: first item has correct active_price_source");

  SL::DB::Manager::PurchaseBasketItem->delete_all(all => 1);

                                  lastcost      => 2,

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%]

[% USE Dumper %]

[%- INCLUDE 'common/flash.html' %]

<h1>[% title %]</h1>

<hr>

<h2>[% 'Short onhand' | $T8 %]</h2>

<form id="form">

  <table>

    <thead>

     <tr class="listheading">

       <th>[% L.checkbox_tag('check_all') %][% 'Purchase basket' | $T8 %] </th>

       <th>[% 'Partnumber'                                      | $T8 %] </th>

       <th>[% 'Description'                                     | $T8 %] </th>

       <th>[% 'Onhand'                                          | $T8 %] </th>

       <th>[% 'Rop'                                             | $T8 %] </th>

       <th>[% 'Minimum order quantity'                          | $T8 %] </th>

     </tr>

    </thead>

    [% FOREACH part = PARTS %]

      [% IF !part.get_ordered_qty(part.id) %]

      <tr class="listrow">

        <td>[% IF part.makemodels.size %][% L.checkbox_tag('ids[+]', checked = '1', value=part.id) %][% ELSE %][% 'No Vendor' | $T8 %][% END %]</td>

        <td>[% HTML.escape(part.partnumber) %] </td>

        <td>[% HTML.escape(part.description) %]</td>

        <td class="numeric">[% part.onhand_as_number %]</td>

        <td class="numeric">[% part.rop_as_number %]           </td>

        <td class="numeric">[% part.min_order_qty_as_number %] </td>

      </tr>

      [% END %]

    [% END %]

  </table>

</form>

<hr>

<h2>[% 'Short onhand Ordered' | $T8 %]</h2>

<table>

  <thead>

   <tr class="listheading">

     <th>[% 'Partnumber'       | $T8 %] </th>

     <th>[% 'Description'      | $T8 %] </th>

     <th>[% 'onhand'           | $T8 %] </th>

     <th>[% 'rop'              | $T8 %] </th>

     <th>[% 'Ordered purchase' | $T8 %] </th>

   </tr>

  </thead>

  [% FOREACH part = PARTS %]

    [% IF part.get_ordered_qty(part.id) %]

    <tr class="listrow">

      <td>[% HTML.escape(part.partnumber) %]  </td>

      <td>[% HTML.escape(part.description) %] </td>

      <td class="numeric">[% part.onhand_as_number %]         </td>

      <td class="numeric">[% part.rop_as_number %]            </td>

      <td class="numeric">[% part.get_ordered_qty(part.id) %] </td>

    </tr>

    [% END %]

  [% END %]

</table>

<script type="text/javascript">

<!--

  kivi.DispositionManager.sort_vendors();

$(function() {

  alert('hallo9');

  $('#check_all').checkall('INPUT[name^="id"]');

  kivi.DispositionManager.sort_vendors();

});

-->

</script>

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%][% USE P %]

[% USE Dumper %]

[%- INCLUDE 'common/flash.html' %]

<h1>[% title %]</h1>

[% # Dumper.dump_html(BASKET_ITEMS) %]

<form id="purchasebasket" style="margin:1em;">

[% P.customer_vendor.picker('vendor_id2', '', type='vendor', fat_set_item=1) %]<br>

<div>id  from change: <span id='change3'></span></div>

[% L.hidden_tag('cv_id', '') %]

  <table id="baskettable" width="100%">

    <thead>

     <tr class="listheading">

       <th>[% L.checkbox_tag('check_all') %][% 'Purchase basket' | $T8 %] </th>

       <th>[% 'Partnumber'                                      | $T8 %] </th>

       <th>[% 'Description'                                     | $T8 %] </th>

       <th>[% 'Onhand'                                          | $T8 %] </th>

       <th>[% 'Rop'                                             | $T8 %] </th>

       <th>[% 'Order quantity'                                  | $T8 %] </th>

       <th>[% 'Vendor'                                          | $T8 %] </th>

     </tr>

    </thead>

    <tbody>

    [% FOREACH basket_item = BASKET_ITEMS %]

    [% SET select_size = basket_item.part.vendor_dropdown.size %]

      [% IF !basket_item.part.get_ordered_qty(part.id) %]

      <tr class="listrow">

        <td>[% L.checkbox_tag('ids[+]', checked = '1',  value=basket_item.id) %]</td>

        <td>[% HTML.escape(basket_item.part.partnumber) %] </td>

        <td>[% HTML.escape(basket_item.part.description) %]</td>

        <td class="numeric">[% basket_item.part.onhand_as_number %]        </td>

        <td class="numeric">[% basket_item.part.rop_as_number %]           </td>

        <td class="numeric">[% basket_item.qty_as_number %] </td>

        <td>[% L.select_tag('vendor_ids[]', basket_item.part.vendor_dropdown, value_key = 'value', title_key = 'title', default = basket_item.part.makemodels.item(0).make, size = select_size, style='width: 350px;' ) %]</td>

      </tr>

      [% END %]

    [% END %]

    </tbody>

  </table>

</form>

<hr>

<script type="text/javascript">

<!--

 $('#vendor_id2').change(function() { $('#change3').html($('#vendor_id2').val()) })

 $('#vendor_id2').on('set_item:CustomerVendorPicker', function(e,o) {

   $('#cv_id').val(o.id)

   kivi.DispositionManager.sort_vendors();

 })

$(function() {

  $('#check_all').checkall('INPUT[name^="id"]');

});

-->

</script>