projekt kivitendo

package SL::Controller::DispositionsManager;

use strict;

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

use SL::DB::Part;

use SL::DB::PurchaseBasket;

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

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

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

  $self->_setup_list_action_bar;

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

}

sub action_add_to_purchase_basket{

  my ( $self ) = @_;

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

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

    my $part = SL::DB::Manager::Part->get_first( query => [ id => $id ] );

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

                              parts_id    => $part->id,

                              qty         => $part->min_order_qty,

                              description => $part->description,

                            );

   $basket_part->save;

 }

 $self->action_show_basket;

}

sub action_show_basket {

  my ( $self ) = @_;

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

  my $basket = SL::DB::Manager::PurchaseBasket->get_all( query => [ cleared => 'F' ],  with_objects => [ 'parts', 'parts.makemodels' ]);

  $self->_setup_show_basket_action_bar;

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

}

sub action_transfer_to_purchase_order {

  my ( $self ) = @_;

}

sub _setup_list_action_bar {

  my ($self) = @_;

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

    $bar->add(

      action => [

        t8('Action'),

        submit   => [ '#form', { action => "DispositionsManager/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   => [ '#form', { action => "DispositionsManager/show_basket" } ],

      ],

      action => [

        t8('Action'),

        submit   => [ '#form', { action => "DispositionsManager/transfer_to_purchase_order" } ],

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

      ],

    );

  }

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::DispositionsManager Controller to manage purchaseorders 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 purchaseorder 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 qty 1.

Tables:

=over 2

=item purchase_basket

=back

Depencies:

=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 wich are in the basket.

This List can be filtered by vendor. Then you can create a purchaseorder.

=item C<action_transfer_to_purchase_order>

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

Deletes the entry in the purchasebasket.

=back

=head1 BUGS

None yet. :)

=head1 AUTHOR

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

=cut

                                  min_order_qty        => '1',

$main::lxdebug->dump(0, 'WH:MMFORM ', $makemodels);

$main::lxdebug->dump(0, 'WH:MM ', $makemodels);

                                    min_order_qty => $::form->parse_amount(\%::myconfig, $makemodel->{min_order_qty_as_number} || 0),

  purchase_basket                => 'purchase_basket',

# 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::PurchaseBasket;

use strict;

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

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

__PACKAGE__->make_manager_methods;

1;

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

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

# by rose_auto_create_model.pl automatically.

package SL::DB::PurchaseBasket;

use strict;

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

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

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

  parts => {

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

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

  },

);

1;

;

use SL::DB::Vendor;

sub vendor_dropdown {

  my ( $self ) = @_;

  my @vendor_dd;

  # $main::lxdebug->dump(0, 'WH:MakeModels ', $_[0]->makemodels);

  foreach my $mm ( @{$_[0]->makemodels} ){

    my $vendor = SL::DB::Manager::Vendor->get_first( where => [ id => $mm->make ] );

    my @tmp = ({ title => $vendor->name, value => $vendor->{id} });

    push @vendor_dd, @tmp;

  }

  return \@vendor_dd;

}

# 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::PurchaseBasket;

use strict;

use SL::DB::MetaSetup::PurchaseBasket;

use SL::DB::Manager::PurchaseBasket;

__PACKAGE__->meta->initialize;

1;

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

  ns.sort_vendors = function() {

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

      if ( index !== 0 ) {

        $row = $(this);

    //    alert( $row.find('#vendor_id').val() + '!=' + $('#cv_id').val());

        if( $row.find('#vendor_id').val() != $('#cv_id').val()) {

          $row.remove();

        }

      }

    });

  }

});

---

- parent: ap

  id: ap_disp_manager

  name: Dispositionsmanager

  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: DispositionsManager/list_parts

- parent: ap_disp_manager

  id: ap_disp_manager_basket

  name: Show purchase basket

  order: 170

  params:

    action: DispositionsManager/show_basket

-- @tag: purchase_basket

-- @description: Tabelle für den Dispostionsmanager

-- @depends: release_3_5_1

-- @ignore: 0

CREATE TABLE purchase_basket (

  id SERIAL PRIMARY KEY,

  parts_id INTEGER REFERENCES parts(id),

  qty NUMERIC(15,5),

  description text,

  cleared BOOLEAN NOT NULL DEFAULT FALSE

);

ALTER TABLE parts     ADD COLUMN min_order_qty NUMERIC(15,5);

ALTER TABLE makemodel ADD COLUMN min_order_qty NUMERIC(15,5);

[%- 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') %][% 'Purchasebasket' | $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('id[]', checked = '1',  value=part.id) %][% ELSE %][% 'No Vendor' | $T8 %][% END %]</td>

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

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

        <td>[% part.onhand_as_number %]        </td>

        <td>[% part.rop_as_number %]           </td>

        <td>[% 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>[% part.onhand_as_number %]         </td>

      <td>[% part.rop_as_number %]            </td>

      <td>[% part.get_ordered_qty(part.id) %] </td>

    </tr>

    [% END %]

  [% END %]

</table>

<script type="text/javascript">

<!--

  kivi.DispositionsManager.sort_vendors();

$(function() {

  alert('hallo9');

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

  kivi.DispositionsManager.sort_vendors();

});

-->

</script>

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

[% USE Dumper %]

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

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

<hr>

[% # Dumper.dump_html(PARTS) %]

<form id="form">

[% 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">

    <thead>

     <tr class="listheading">

       <th>[% L.checkbox_tag('check_all') %][% 'Purchasebasket' | $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 part = PARTS %]

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

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

      <tr class="listrow">

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

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

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

        <td>[% part.parts.onhand_as_number %]        </td>

        <td>[% part.parts.rop_as_number %]           </td>

        <td>[% part.parts.min_order_qty %]           </td>

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

      </tr>

      [% END %]

    [% END %]

    </tbody>

  </table>

</form>

<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.DispositionsManager.sort_vendors();

 })

$(function() {

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

});

-->

</script>

          <tr>

           <th align="right" nowrap="true">[% 'Minimum order Quantity' | $T8 %]</th>

           <td>[% L.input_tag("part.min_order_qty_as_number", SELF.part.min_order_qty_as_number, size=10, class="reformat_number numeric") %]</td>

          </tr>