projekt kivitendo

  my $parts = $self->_get_parts;

      parts_id    => $part->id,

      qty         => $part->min_order_qty,

      description => $part->description,

    );

  $self->render('dispositionsmanager/show_purchase_basket', PARTS => $basket, title => "Purchase basket" );

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 ) AND NOT obsolete

SQL

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

};

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

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

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

makemodel(vendor_parts) or default to qty 1.

Dependencies:

Shows a list with parts which are in the basket.

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

Deletes the entry in the purchase basket.

    rop          => 20,

use strict;

use Test::More;

use lib 't';

use Support::TestSetup;

use Test::Exception;

use SL::DB::Part;

use SL::DB::Inventory;

use SL::DB::MakeModel;

use SL::DB::PurchaseBasket;

use SL::Controller::DispositionsManager;

use DateTime;

use Data::Dumper;

use SL::Dev::Part qw(new_part);

use SL::Dev::Inventory qw(create_warehouse_and_bins set_stock);

use SL::Dev::CustomerVendor qw(new_vendor);

use utf8;

Support::TestSetup::login();

clear_up();

my ($wh, $bin) = create_warehouse_and_bins();

my $vendor = new_vendor()->save;

my $part1 = new_part(

  partnumber   => 'Testpart 1 rop no stock',

  rop          => 20,

  warehouse_id => $wh->id,

  bin_id       => $bin->id,

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

)->save;

my $part2 = new_part(

  partnumber   => 'Testpart 2 rop with stock',

  rop          => 60,

)->save;

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

my $part3 = new_part(

  partnumber   => 'Testpart 3 norop',

  rop          => 60,

)->save;

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

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

my $parts = $controller->_get_parts;

is(scalar @{$parts}, 2, "found 2 parts that are below rop");

done_testing();

# clear_up();

sub clear_up {

  my %params = @_;

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

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

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

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

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

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

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

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

};

sub _create_makemodel_for_vendor {

  my %params = @_;

  my $vendor = delete $params{vendor};

  die "no vendor" unless ref($vendor) eq 'SL::DB::Vendor';

  my $mm = SL::DB::MakeModel->new(make          => $vendor->id,

                                  model         => '',

                                  min_order_qty => '1',

                                  lastcost      => 0,

                                  sortorder     => 1,

                                 );

  $mm->assign_attributes( %params );

  return $mm;

}

1;

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