Projekt

Allgemein

Profil

Herunterladen (75,3 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/SL/Controller/Part.pm @ 73009101

7abae2f3 Sven Schöling
package SL::Controller::Part;

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

ced6ec1d Moritz Bunkus
use Carp;
2504ebe1 Sven Schöling
use Clone qw(clone);
ced6ec1d Moritz Bunkus
use Data::Dumper;
use DateTime;
5d27f2bd Moritz Bunkus
use File::Temp;
13fb6d81 Geoffrey Richardson
use List::Util qw(sum);
187c4ee1 Jan Büren
use List::UtilsBy qw(extract_by);
5d27f2bd Moritz Bunkus
use POSIX qw(strftime);
ced6ec1d Moritz Bunkus
use Text::CSV_XS;

13fb6d81 Geoffrey Richardson
use SL::CVar;
ced6ec1d Moritz Bunkus
use SL::Controller::Helper::GetModels;
8a721ec3 Bernd Bleßmann
use SL::DB::Business;
use SL::DB::BusinessModel;
ced6ec1d Moritz Bunkus
use SL::DB::Helper::ValidateAssembly qw(validate_assembly);
use SL::DB::History;
use SL::DB::Part;
use SL::DB::PartsGroup;
use SL::DB::PriceRuleItem;
c307d4a1 Tamino Steinert
use SL::DB::PurchaseBasketItem;
ced6ec1d Moritz Bunkus
use SL::DB::Shop;
use SL::Helper::Flash;
3d945302 Tamino Steinert
use SL::Helper::PrintOptions;
e8983996 Bernd Bleßmann
use SL::Helper::UserPreferences::PartPickerSearch;
ced6ec1d Moritz Bunkus
use SL::JSON;
use SL::Locale::String qw(t8);
9c76baca Sven Schöling
use SL::MoreCommon qw(save_form);
9c29f718 Sven Schöling
use SL::Presenter::EscapedText qw(escape is_escaped);
5d27f2bd Moritz Bunkus
use SL::Presenter::Part;
d210aa27 Jan Büren
use SL::Presenter::Tag qw(select_tag);
2504ebe1 Sven Schöling
use Rose::Object::MakeMethods::Generic (
13fb6d81 Geoffrey Richardson
'scalar --get_set_init' => [ qw(parts models part p warehouses multi_items_models
8a721ec3 Bernd Bleßmann
makemodels businessmodels shops_not_assigned
62f21410 Martin Helmling
customerprices
13fb6d81 Geoffrey Richardson
orphaned
assortment assortment_items assembly assembly_items
all_pricegroups all_translations all_partsgroups all_units
all_buchungsgruppen all_payment_terms all_warehouses
ce904bd6 Geoffrey Richardson
parts_classification_filter
8a721ec3 Bernd Bleßmann
all_languages all_units all_price_factors
all_businesses) ],
20004cac Geoffrey Richardson
'scalar' => [ qw(warehouse bin stock_amounts journal) ],
2504ebe1 Sven Schöling
);
7abae2f3 Sven Schöling
# safety
c2f76ee5 Jan Büren
__PACKAGE__->run_before(sub { $::auth->assert('part_service_assembly_edit', 1) || $::auth->assert('part_service_assembly_details') },
63575bd2 Bernd Bleßmann
except => [ qw(ajax_autocomplete part_picker_search part_picker_result) ]);
7abae2f3 Sven Schöling
eea0a76f Sven Schöling
__PACKAGE__->run_before(sub { $::auth->assert('developer') },
only => [ qw(test_page) ]);

13fb6d81 Geoffrey Richardson
__PACKAGE__->run_before('check_part_id', only => [ qw(edit delete) ]);

# actions for editing parts
#
sub action_add_part {
my ($self, %params) = @_;

$self->part( SL::DB::Part->new_part );
$self->add;
};

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

$self->part( SL::DB::Part->new_service );
$self->add;
};

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

$self->part( SL::DB::Part->new_assembly );
$self->add;
};

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

$self->part( SL::DB::Part->new_assortment );
$self->add;
};

9c76baca Sven Schöling
sub action_add_from_record {
my ($self) = @_;

check_has_valid_part_type($::form->{part}{part_type});

ce904bd6 Geoffrey Richardson
die 'parts_classification_type must be "sales" or "purchases"'
unless $::form->{parts_classification_type} =~ m/^(sales|purchases)$/;

9c76baca Sven Schöling
$self->parse_form;
$self->add;
}

13fb6d81 Geoffrey Richardson
sub action_add {
my ($self) = @_;

check_has_valid_part_type($::form->{part_type});

$self->action_add_part if $::form->{part_type} eq 'part';
$self->action_add_service if $::form->{part_type} eq 'service';
$self->action_add_assembly if $::form->{part_type} eq 'assembly';
$self->action_add_assortment if $::form->{part_type} eq 'assortment';
};

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

# checks that depend only on submitted $::form
$self->check_form or return $self->js->render;

my $is_new = !$self->part->id; # $ part gets loaded here

# check that the part hasn't been modified
unless ( $is_new ) {
$self->check_part_not_modified or
return $self->js->error(t8('The document has been changed by another user. Please reopen it in another window and copy the changes to the new window'))->render;
}

ae84885c Geoffrey Richardson
if ( $is_new
&& $::form->{part}{partnumber}
&& SL::DB::Manager::Part->find_by(partnumber => $::form->{part}{partnumber})
) {
return $self->js->error(t8('The partnumber is already being used'))->render;
13fb6d81 Geoffrey Richardson
}

$self->parse_form;

my @errors = $self->part->validate;
return $self->js->error(@errors)->render if @errors;

c5faf624 Moritz Bunkus
if ($is_new) {
# Ensure CVars that should be enabled by default actually are when
# creating new parts.
my @default_valid_configs =
grep { ! $_->{flag_defaults_to_invalid} }
grep { $_->{module} eq 'IC' }
@{ CVar->get_configs() };

$::form->{"cvar_" . $_->{name} . "_valid"} = 1 for @default_valid_configs;
0e7a8b0c Jan Büren
} else {
2172794d Jan Büren
$self->{lastcost_modified} = $self->check_lastcost_modified;
c5faf624 Moritz Bunkus
}

13fb6d81 Geoffrey Richardson
# $self->part has been loaded, parsed and validated without errors and is ready to be saved
$self->part->db->with_transaction(sub {

$self->part->save(cascade => 1);
2172794d Jan Büren
$self->part->set_lastcost_assemblies_and_assortiments if $self->{lastcost_modified};
13fb6d81 Geoffrey Richardson
SL::DB::History->new(
trans_id => $self->part->id,
snumbers => 'partnumber_' . $self->part->partnumber,
employee_id => SL::DB::Manager::Employee->current->id,
what_done => 'part',
addition => 'SAVED',
)->save();

CVar->save_custom_variables(
193168d5 Bernd Bleßmann
dbh => $self->part->db->dbh,
module => 'IC',
trans_id => $self->part->id,
variables => $::form, # $::form->{cvar} would be nicer
save_validity => 1,
13fb6d81 Geoffrey Richardson
);

1;
}) or return $self->js->error(t8('The item couldn\'t be saved!') . " " . $self->part->db->error )->render;

639de8c2 Geoffrey Richardson
flash_later('info', $is_new ? t8('The item has been created.') . " " . $self->part->displayable_name : t8('The item has been saved.'));
13fb6d81 Geoffrey Richardson
eae5f8bd Geoffrey Richardson
if ( $::form->{callback} ) {
9c76baca Sven Schöling
$self->redirect_to($::form->unescape($::form->{callback}) . '&new_parts_id=' . $self->part->id);

eae5f8bd Geoffrey Richardson
} else {
# default behaviour after save: reload item, this also resets last_modification!
$self->redirect_to(controller => 'Part', action => 'edit', 'part.id' => $self->part->id);
}
13fb6d81 Geoffrey Richardson
}

afd5395b Bernd Bleßmann
sub action_save_and_purchase_order {
my ($self) = @_;

2b2a37fd Bernd Bleßmann
my $session_value;
if (1 == scalar @{$self->part->makemodels}) {
my $prepared_form = Form->new('');
$prepared_form->{vendor_id} = $self->part->makemodels->[0]->make;
$session_value = $::auth->save_form_in_session(form => $prepared_form);
}

afd5395b Bernd Bleßmann
$::form->{callback} = $self->url_for(
controller => 'Order',
action => 'return_from_create_part',
type => 'purchase_order',
2b2a37fd Bernd Bleßmann
previousform => $session_value,
afd5395b Bernd Bleßmann
);

$self->_run_action('save');
}

d1809c22 Bernd Bleßmann
sub action_abort {
my ($self) = @_;

if ( $::form->{callback} ) {
$self->redirect_to($::form->unescape($::form->{callback}));
}
}

13fb6d81 Geoffrey Richardson
sub action_delete {
my ($self) = @_;

my $db = $self->part->db; # $self->part has a get_set_init on $::form

my $partnumber = $self->part->partnumber; # remember for history log

$db->do_transaction(
sub {

# delete part, together with relationships that don't already
# have an ON DELETE CASCADE, e.g. makemodel and translation.
$self->part->delete(cascade => 1);

SL::DB::History->new(
trans_id => $self->part->id,
snumbers => 'partnumber_' . $partnumber,
employee_id => SL::DB::Manager::Employee->current->id,
what_done => 'part',
addition => 'DELETED',
)->save();
1;
}) or return $self->js->error(t8('The item couldn\'t be deleted!') . " " . $self->part->db->error)->render;

flash_later('info', t8('The item has been deleted.'));
eae5f8bd Geoffrey Richardson
if ( $::form->{callback} ) {
$self->redirect_to($::form->unescape($::form->{callback}));
} else {
c2efdba2 Moritz Bunkus
$self->redirect_to(controller => 'ic.pl', action => 'search', searchitems => 'article');
eae5f8bd Geoffrey Richardson
}
13fb6d81 Geoffrey Richardson
}

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

my $oldpart = SL::DB::Manager::Part->find_by( id => $::form->{old_id}) or die "can't find old part";
$::form->{oldpartnumber} = $oldpart->partnumber;

$self->part($oldpart->clone_and_reset_deep);
64031f04 Jan Büren
$self->parse_form(use_as_new => 1);
13fb6d81 Geoffrey Richardson
$self->part->partnumber(undef);
a908b2eb Bernd Bleßmann
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
# No right to edit prices -> remove prices for new part.
$self->part->$_(undef) for qw(sellprice lastcost listprice);
}

64031f04 Jan Büren
$self->render_form(use_as_new => 1);
13fb6d81 Geoffrey Richardson
}

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

$self->render_form;
}

c307d4a1 Tamino Steinert
sub action_add_to_basket {
my ( $self ) = @_;

if ( !$self->_is_in_purchase_basket && scalar @{$self->part->makemodels}) {

my $part = $self->part;

my $needed_qty = $part->order_qty < ($part->rop - $part->onhandqty) ?
$part->rop - $part->onhandqty
: $part->order_qty;

my $basket_part = SL::DB::PurchaseBasketItem->new(
part_id => $part->id,
qty => $needed_qty,
orderer => SL::DB::Manager::Employee->current,
)->save;

$self->js->flash('info', t8('Part added to purchasebasket'))->render;
} else {
$self->js->flash('error', t8('Part already in purchasebasket or has no vendor'))->render;
}
return 1;
}

13fb6d81 Geoffrey Richardson
sub render_form {
my ($self, %params) = @_;

$self->_set_javascript;
6b5fa71b Moritz Bunkus
$self->_setup_form_action_bar;
13fb6d81 Geoffrey Richardson
my (%assortment_vars, %assembly_vars);
%assortment_vars = %{ $self->prepare_assortment_render_vars } if $self->part->is_assortment;
%assembly_vars = %{ $self->prepare_assembly_render_vars } if $self->part->is_assembly;

64031f04 Jan Büren
$params{CUSTOM_VARIABLES} = $params{use_as_new} && $::form->{old_id}
? CVar->get_custom_variables(module => 'IC', trans_id => $::form->{old_id})
: CVar->get_custom_variables(module => 'IC', trans_id => $self->part->id);

13fb6d81 Geoffrey Richardson
187c4ee1 Jan Büren
if (scalar @{ $params{CUSTOM_VARIABLES} }) {
CVar->render_inputs('variables' => $params{CUSTOM_VARIABLES}, show_disabled_message => 1, partsgroup_id => $self->part->partsgroup_id);
$params{CUSTOM_VARIABLES_FIRST_TAB} = [];
@{ $params{CUSTOM_VARIABLES_FIRST_TAB} } = extract_by { $_->{first_tab} == 1 } @{ $params{CUSTOM_VARIABLES} };
}
13fb6d81 Geoffrey Richardson
my %title_hash = ( part => t8('Edit Part'),
assembly => t8('Edit Assembly'),
service => t8('Edit Service'),
assortment => t8('Edit Assortment'),
);

$self->part->prices([]) unless $self->part->prices;
$self->part->translations([]) unless $self->part->translations;

$self->render(
'part/form',
title => $title_hash{$self->part->part_type},
%assortment_vars,
%assembly_vars,
translations_map => { map { ($_->language_id => $_) } @{$self->part->translations} },
prices_map => { map { ($_->pricegroup_id => $_) } @{$self->part->prices } },
oldpartnumber => $::form->{oldpartnumber},
old_id => $::form->{old_id},
%params,
);
}

sub action_history {
my ($self) = @_;

my $history_entries = SL::DB::Part->new(id => $::form->{part}{id})->history_entries;
$_[0]->render('part/history', { layout => 0 },
history_entries => $history_entries);
}

20004cac Geoffrey Richardson
sub action_inventory {
my ($self) = @_;

$::auth->assert('warehouse_contents');

$self->stock_amounts($self->part->get_simple_stock_sql);
$self->journal($self->part->get_mini_journal);

$_[0]->render('part/_inventory_data', { layout => 0 });
};

13fb6d81 Geoffrey Richardson
sub action_update_item_totals {
my ($self) = @_;

my $part_type = $::form->{part_type};
die unless $part_type =~ /^(assortment|assembly)$/;

f01ed5d1 Bernd Bleßmann
my $sellprice_sum = $self->recalc_item_totals(part_type => $part_type, price_type => 'sellcost');
my $lastcost_sum = $self->recalc_item_totals(part_type => $part_type, price_type => 'lastcost');
my $items_weight_sum = $self->recalc_item_totals(part_type => $part_type, price_type => 'weight');
13fb6d81 Geoffrey Richardson
my $sum_diff = $sellprice_sum-$lastcost_sum;

$self->js
->html('#items_sellprice_sum', $::form->format_amount(\%::myconfig, $sellprice_sum, 2, 0))
->html('#items_lastcost_sum', $::form->format_amount(\%::myconfig, $lastcost_sum, 2, 0))
->html('#items_sum_diff', $::form->format_amount(\%::myconfig, $sum_diff, 2, 0))
->html('#items_sellprice_sum_basic', $::form->format_amount(\%::myconfig, $sellprice_sum, 2, 0))
->html('#items_lastcost_sum_basic', $::form->format_amount(\%::myconfig, $lastcost_sum, 2, 0))
f01ed5d1 Bernd Bleßmann
->html('#items_weight_sum_basic' , $::form->format_amount(\%::myconfig, $items_weight_sum))
5d711a25 Martin Helmling
->no_flash_clear->render();
13fb6d81 Geoffrey Richardson
}

sub action_add_multi_assortment_items {
my ($self) = @_;

my $item_objects = $self->parse_add_items_to_objects(part_type => 'assortment');
my $html = $self->render_assortment_items_to_html($item_objects);

905d9edd Sven Schöling
$self->js->run('kivi.Part.close_picker_dialogs')
13fb6d81 Geoffrey Richardson
->append('#assortment_rows', $html)
->run('kivi.Part.renumber_positions')
->run('kivi.Part.assortment_recalc')
->render();
}

sub action_add_multi_assembly_items {
my ($self) = @_;

my $item_objects = $self->parse_add_items_to_objects(part_type => 'assembly');
5d711a25 Martin Helmling
my @checked_objects;
foreach my $item (@{$item_objects}) {
my $errstr = validate_assembly($item->part,$self->part);
$self->js->flash('error',$errstr) if $errstr;
push (@checked_objects,$item) unless $errstr;
}

my $html = $self->render_assembly_items_to_html(\@checked_objects);
13fb6d81 Geoffrey Richardson
905d9edd Sven Schöling
$self->js->run('kivi.Part.close_picker_dialogs')
13fb6d81 Geoffrey Richardson
->append('#assembly_rows', $html)
->run('kivi.Part.renumber_positions')
->run('kivi.Part.assembly_recalc')
->render();
}

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

validate_add_items() or return $self->js->error(t8("No part was selected."))->render;

carp('Too many objects passed to add_assortment_item') if @{$::form->{add_items}} > 1;

my $add_item_id = $::form->{add_items}->[0]->{parts_id};
if ( $add_item_id && grep { $add_item_id == $_->parts_id } @{ $self->assortment_items } ) {
return $self->js->flash('error', t8("This part has already been added."))->render;
};

my $number_of_items = scalar @{$self->assortment_items};
my $item_objects = $self->parse_add_items_to_objects(part_type => 'assortment');
my $html = $self->render_assortment_items_to_html($item_objects, $number_of_items);

push(@{$self->assortment_items}, @{$item_objects});
my $part = SL::DB::Part->new(part_type => 'assortment');
$part->assortment_items(@{$self->assortment_items});
my $items_sellprice_sum = $part->items_sellprice_sum;
my $items_lastcost_sum = $part->items_lastcost_sum;
my $items_sum_diff = $items_sellprice_sum - $items_lastcost_sum;

$self->js
->append('#assortment_rows' , $html) # append in tbody
->val('.add_assortment_item_input' , '')
->run('kivi.Part.focus_last_assortment_input')
->html("#items_sellprice_sum", $::form->format_amount(\%::myconfig, $items_sellprice_sum, 2, 0))
->html("#items_lastcost_sum", $::form->format_amount(\%::myconfig, $items_lastcost_sum, 2, 0))
->html("#items_sum_diff", $::form->format_amount(\%::myconfig, $items_sum_diff, 2, 0))
->html('#items_sellprice_sum_basic', $::form->format_amount(\%::myconfig, $items_sellprice_sum, 2, 0))
->html('#items_lastcost_sum_basic', $::form->format_amount(\%::myconfig, $items_lastcost_sum, 2, 0))
->render;
}
5d711a25 Martin Helmling
13fb6d81 Geoffrey Richardson
sub action_add_assembly_item {
my ($self) = @_;

validate_add_items() or return $self->js->error(t8("No part was selected."))->render;

carp('Too many objects passed to add_assembly_item') if @{$::form->{add_items}} > 1;

my $add_item_id = $::form->{add_items}->[0]->{parts_id};
5d711a25 Martin Helmling
13fb6d81 Geoffrey Richardson
my $duplicate_warning = 0; # duplicates are allowed, just warn
if ( $add_item_id && grep { $add_item_id == $_->parts_id } @{ $self->assembly_items } ) {
$duplicate_warning++;
};

my $number_of_items = scalar @{$self->assembly_items};
my $item_objects = $self->parse_add_items_to_objects(part_type => 'assembly');
5d711a25 Martin Helmling
if ($add_item_id ) {
foreach my $item (@{$item_objects}) {
my $errstr = validate_assembly($item->part,$self->part);
return $self->js->flash('error',$errstr)->render if $errstr;
}
}


13fb6d81 Geoffrey Richardson
my $html = $self->render_assembly_items_to_html($item_objects, $number_of_items);

$self->js->flash('info', t8("This part has already been added.")) if $duplicate_warning;

push(@{$self->assembly_items}, @{$item_objects});
my $part = SL::DB::Part->new(part_type => 'assembly');
$part->assemblies(@{$self->assembly_items});
my $items_sellprice_sum = $part->items_sellprice_sum;
my $items_lastcost_sum = $part->items_lastcost_sum;
my $items_sum_diff = $items_sellprice_sum - $items_lastcost_sum;
f01ed5d1 Bernd Bleßmann
my $items_weight_sum = $part->items_weight_sum;
13fb6d81 Geoffrey Richardson
$self->js
->append('#assembly_rows', $html) # append in tbody
->val('.add_assembly_item_input' , '')
->run('kivi.Part.focus_last_assembly_input')
->html('#items_sellprice_sum', $::form->format_amount(\%::myconfig, $items_sellprice_sum, 2, 0))
->html('#items_lastcost_sum' , $::form->format_amount(\%::myconfig, $items_lastcost_sum , 2, 0))
->html('#items_sum_diff', $::form->format_amount(\%::myconfig, $items_sum_diff , 2, 0))
->html('#items_sellprice_sum_basic', $::form->format_amount(\%::myconfig, $items_sellprice_sum, 2, 0))
->html('#items_lastcost_sum_basic' , $::form->format_amount(\%::myconfig, $items_lastcost_sum , 2, 0))
f01ed5d1 Bernd Bleßmann
->html('#items_weight_sum_basic' , $::form->format_amount(\%::myconfig, $items_weight_sum))
13fb6d81 Geoffrey Richardson
->render;
}

sub action_show_multi_items_dialog {
0c73b206 Bernd Bleßmann
my ($self) = @_;

my $search_term = $self->models->filtered->laundered->{all_substr_multi__ilike};
$search_term ||= $self->models->filtered->laundered->{all_with_makemodel_substr_multi__ilike};
$search_term ||= $self->models->filtered->laundered->{all_with_customer_partnumber_substr_multi__ilike};

13fb6d81 Geoffrey Richardson
$_[0]->render('part/_multi_items_dialog', { layout => 0 },
0c73b206 Bernd Bleßmann
all_partsgroups => SL::DB::Manager::PartsGroup->get_all,
search_term => $search_term
905d9edd Sven Schöling
);
13fb6d81 Geoffrey Richardson
}

sub action_multi_items_update_result {
8c30110b Bernd Bleßmann
my $max_count = $::form->{limit};
13fb6d81 Geoffrey Richardson
my $count = $_[0]->multi_items_models->count;

if ($count == 0) {
9c29f718 Sven Schöling
my $text = escape($::locale->text('No results.'));
13fb6d81 Geoffrey Richardson
$_[0]->render($text, { layout => 0 });
8c30110b Bernd Bleßmann
} elsif ($max_count && $count > $max_count) {
5cc5eed7 Sven Schöling
my $text = escape($::locale->text('Too many results (#1 from #2).', $count, $max_count));
13fb6d81 Geoffrey Richardson
$_[0]->render($text, { layout => 0 });
} else {
my $multi_items = $_[0]->multi_items_models->get;
$_[0]->render('part/_multi_items_result', { layout => 0 },
multi_items => $multi_items);
}
}

sub action_add_makemodel_row {
my ($self) = @_;

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

my $vendor = SL::DB::Manager::Vendor->find_by(id => $vendor_id) or
return $self->js->error(t8("No vendor selected or found!"))->render;

if ( grep { $vendor_id == $_->make } @{ $self->makemodels } ) {
$self->js->flash('info', t8("This vendor has already been added."));
};

my $position = scalar @{$self->makemodels} + 1;

aa8106e2 Bernd Bleßmann
my $mm = SL::DB::MakeModel->new(# parts_id => $::form->{part}->{id},
make => $vendor->id,
model => '',
part_description => '',
part_longdescription => '',
lastcost => 0,
sortorder => $position,
13fb6d81 Geoffrey Richardson
) or die "Can't create MakeModel object";

my $row_as_html = $self->p->render('part/_makemodel_row',
makemodel => $mm,
listrow => $position % 2 ? 0 : 1,
);

# after selection focus on the model field in the row that was just added
$self->js
->append('#makemodel_rows', $row_as_html) # append in tbody
->val('.add_makemodel_input', '')
->run('kivi.Part.focus_last_makemodel_input')
->render;
}

8a721ec3 Bernd Bleßmann
sub action_add_businessmodel_row {
my ($self) = @_;

my $business_id = $::form->{add_businessmodel};

my $business = SL::DB::Manager::Business->find_by(id => $business_id) or
return $self->js->error(t8("No business selected or found!"))->render;

if ( grep { $business_id == $_->business_id } @{ $self->businessmodels } ) {
54f8895e Bernd Bleßmann
return $self->js
->scroll_into_view('#content')
->flash('error', (t8("This business has already been added.")))
->render;
8a721ec3 Bernd Bleßmann
};

94cb09ab Bernd Bleßmann
my $position = scalar @{ $self->businessmodels } + 1;

8a721ec3 Bernd Bleßmann
my $bm = SL::DB::BusinessModel->new(#parts_id => $::form->{part}->{id},
business => $business,
model => '',
part_description => '',
part_longdescription => '',
94cb09ab Bernd Bleßmann
position => $position,
8a721ec3 Bernd Bleßmann
) or die "Can't create BusinessModel object";

my $row_as_html = $self->p->render('part/_businessmodel_row',
businessmodel => $bm);

# after selection focus on the model field in the row that was just added
$self->js
->append('#businessmodel_rows', $row_as_html) # append in tbody
->val('#add_businessmodel', '')
->run('kivi.Part.focus_last_businessmodel_input')
->render;
}

62f21410 Martin Helmling
sub action_add_customerprice_row {
my ($self) = @_;

my $customer_id = $::form->{add_customerprice};

my $customer = SL::DB::Manager::Customer->find_by(id => $customer_id)
or return $self->js->error(t8("No customer selected or found!"))->render;

if (grep { $customer_id == $_->customer_id } @{ $self->customerprices }) {
$self->js->flash('info', t8("This customer has already been added."));
}

my $position = scalar @{ $self->customerprices } + 1;

my $cu = SL::DB::PartCustomerPrice->new(
09f405ce Bernd Bleßmann
customer_id => $customer->id,
customer_partnumber => '',
part_description => '',
part_longdescription => '',
price => 0,
sortorder => $position,
62f21410 Martin Helmling
) or die "Can't create Customerprice object";

my $row_as_html = $self->p->render(
'part/_customerprice_row',
customerprice => $cu,
listrow => $position % 2 ? 0
: 1,
);

$self->js->append('#customerprice_rows', $row_as_html) # append in tbody
->val('.add_customerprice_input', '')
->run('kivi.Part.focus_last_customerprice_input')->render;
}

13fb6d81 Geoffrey Richardson
sub action_reorder_items {
my ($self) = @_;

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

my %sort_keys = (
partnumber => sub { $_[0]->part->partnumber },
description => sub { $_[0]->part->description },
qty => sub { $_[0]->qty },
sellprice => sub { $_[0]->part->sellprice },
lastcost => sub { $_[0]->part->lastcost },
partsgroup => sub { $_[0]->part->partsgroup_id ? $_[0]->part->partsgroup->partsgroup : '' },
);

my $method = $sort_keys{$::form->{order_by}};

my @items;
if ($part_type eq 'assortment') {
@items = @{ $self->assortment_items };
} else {
@items = @{ $self->assembly_items };
};

my @to_sort = map { { old_pos => $_->position, order_by => $method->($_) } } @items;
if ($::form->{order_by} =~ /^(qty|sellprice|lastcost)$/) {
if ($::form->{sort_dir}) {
@to_sort = sort { $a->{order_by} <=> $b->{order_by} } @to_sort;
} else {
@to_sort = sort { $b->{order_by} <=> $a->{order_by} } @to_sort;
}
} else {
if ($::form->{sort_dir}) {
@to_sort = sort { $a->{order_by} cmp $b->{order_by} } @to_sort;
} else {
@to_sort = sort { $b->{order_by} cmp $a->{order_by} } @to_sort;
}
};

$self->js->run('kivi.Part.redisplay_items', \@to_sort)->render;
}

sub action_warehouse_changed {
my ($self) = @_;

3a8e5bda Martin Helmling
if ($::form->{warehouse_id} ) {
$self->warehouse(SL::DB::Manager::Warehouse->find_by_or_create(id => $::form->{warehouse_id}));
die unless ref($self->warehouse) eq 'SL::DB::Warehouse';

if ( $self->warehouse->id and @{$self->warehouse->bins} ) {
6798d5bb Jan Büren
$self->bin($self->warehouse->bins_sorted_naturally->[0]);
3a8e5bda Martin Helmling
$self->js
->html('#bin', $self->build_bin_select)
->focus('#part_bin_id');
return $self->js->render;
}
}

# no warehouse was selected, empty the bin field and reset the id
$self->js
->val('#part_bin_id', undef)
->html('#bin', '');
13fb6d81 Geoffrey Richardson
return $self->js->render;
}

7abae2f3 Sven Schöling
sub action_ajax_autocomplete {
my ($self, %params) = @_;

eff6af28 Sven Schöling
# if someone types something, and hits enter, assume he entered the full name.
# if something matches, treat that as sole match
68b29955 Sven Schöling
# since we need a second get models instance with different filters for that,
# we only modify the original filter temporarily in place
eff6af28 Sven Schöling
if ($::form->{prefer_exact}) {
0c73b206 Bernd Bleßmann
local $::form->{filter}{'all::ilike'} = delete local $::form->{filter}{'all:substr:multi::ilike'};
local $::form->{filter}{'all_with_makemodel::ilike'} = delete local $::form->{filter}{'all_with_makemodel:substr:multi::ilike'};
local $::form->{filter}{'all_with_customer_partnumber::ilike'} = delete local $::form->{filter}{'all_with_customer_partnumber:substr:multi::ilike'};
68b29955 Sven Schöling
my $exact_models = SL::Controller::Helper::GetModels->new(
controller => $self,
sorted => 0,
paginated => { per_page => 2 },
with_objects => [ qw(unit_obj classification) ],
);
58e12eca Sven Schöling
my $exact_matches;
68b29955 Sven Schöling
if (1 == scalar @{ $exact_matches = $exact_models->get }) {
58e12eca Sven Schöling
$self->parts($exact_matches);
}
eff6af28 Sven Schöling
}

7a646681 Sven Schöling
my @hashes = map {
+{
dc824520 Geoffrey Richardson
value => $_->displayable_name,
label => $_->displayable_name,
7a646681 Sven Schöling
id => $_->id,
partnumber => $_->partnumber,
description => $_->description,
87b5c8e4 Bernd Bleßmann
ean => $_->ean,
862bc8ce Geoffrey Richardson
part_type => $_->part_type,
579f5842 Moritz Bunkus
unit => $_->unit,
a261c693 Moritz Bunkus
cvars => { map { ($_->config->name => { value => $_->value_as_text, is_valid => $_->is_valid }) } @{ $_->cvars_by_config } },
7a646681 Sven Schöling
}
58e12eca Sven Schöling
} @{ $self->parts }; # neato: if exact match triggers we don't even need the init_parts
7a646681 Sven Schöling
$self->render(\ SL::JSON::to_json(\@hashes), { layout => 0, type => 'json', process => 0 });
7abae2f3 Sven Schöling
}

2504ebe1 Sven Schöling
sub action_test_page {
bf0b9c5e Moritz Bunkus
$_[0]->render('part/test_page', pre_filled_part => SL::DB::Manager::Part->get_first);
2504ebe1 Sven Schöling
}

sub action_part_picker_search {
0c73b206 Bernd Bleßmann
my ($self) = @_;

my $search_term = $self->models->filtered->laundered->{all_substr_multi__ilike};
$search_term ||= $self->models->filtered->laundered->{all_with_makemodel_substr_multi__ilike};
$search_term ||= $self->models->filtered->laundered->{all_with_customer_partnumber_substr_multi__ilike};

e8983996 Bernd Bleßmann
my $all_as_list = SL::Helper::UserPreferences::PartPickerSearch->new()->get_all_as_list_default;

$_[0]->render('part/part_picker_search', { layout => 0 }, search_term => $search_term, all_as_list => $all_as_list);
2504ebe1 Sven Schöling
}

sub action_part_picker_result {
905d9edd Sven Schöling
$_[0]->render('part/_part_picker_result', { layout => 0 }, parts => $_[0]->parts);
2504ebe1 Sven Schöling
}

57faab8f Sven Schöling
sub action_show {
my ($self) = @_;

if ($::request->type eq 'json') {
my $part_hash;
if (!$self->part) {
# TODO error
} else {
eb07117b Geoffrey Richardson
$part_hash = $self->part->as_tree;
$part_hash->{cvars} = $self->part->cvar_as_hashref;
57faab8f Sven Schöling
}

$self->render(\ SL::JSON::to_json($part_hash), { layout => 0, type => 'json', process => 0 });
}
}

3d945302 Tamino Steinert
sub action_showdetails {
my ($self, %params) = @_;

007fe204 Tamino Steinert
my @bindata;
my $bins = SL::DB::Manager::Bin->get_all(with_objects => ['warehouse' ]);
my %bins_by_id = map { $_->id => $_ } @$bins;
my $inventories = SL::DB::Manager::Inventory->get_all(where => [ parts_id => $self->part->id],
with_objects => ['parts', 'trans_type' ], sort_by => 'bin_id ASC');
foreach my $bin (@{ $bins }) {
$bin->{qty} = 0;
}

foreach my $inv (@{ $inventories }) {
my $bin = $bins_by_id{ $inv->bin_id };
$bin->{qty} += $inv->qty;
$bin->{unit} = $inv->parts->unit;
}
my $sum = 0;
for my $bin (@{ $bins }) {
push @bindata , {
'warehouse' => $bin->warehouse->description,
'description' => $bin->description,
'qty' => $bin->{qty},
'unit' => $bin->{unit},
} if $bin->{qty} != 0;

$sum += $bin->{qty};
}

my $todate = DateTime->now_local;
my $fromdate = DateTime->now_local->add_duration(DateTime::Duration->new(years => -1));
my $average = 0;
foreach my $inv (@{ $inventories }) {
$average += abs($inv->qty) if $inv->shippingdate && $inv->trans_type->direction eq 'out' &&
DateTime->compare($inv->shippingdate,$fromdate) != -1 &&
DateTime->compare($inv->shippingdate,$todate) == -1;
}
my $openitems = SL::DB::Manager::OrderItem->get_all(where => [ parts_id => $self->part->id, 'order.closed' => 0 ],
with_objects => ['order'],);
my ($not_delivered, $ordered) = 0;
for my $openitem (@{ $openitems }) {
if($openitem -> order -> type eq 'sales_order') {
$not_delivered += $openitem->qty - $openitem->shipped_qty;
} elsif ( $openitem->order->type eq 'purchase_order' ) {
$ordered += $openitem->qty - $openitem->delivered_qty;
}
}

my $stock_amounts = $self->part->get_simple_stock_sql;

my $output = SL::Presenter->get->render('part/showdetails',
part => $self->part,
stock_amounts => $stock_amounts,
average => $average/12,
fromdate => $fromdate,
todate => $todate,
sum => $sum,
not_delivered => $not_delivered,
ordered => $ordered,
3d945302 Tamino Steinert
print_options => SL::Helper::PrintOptions->get_print_options(
007fe204 Tamino Steinert
form => Form->new(
type => 'part',
printers => SL::DB::Manager::Printer->get_all_sorted,
),
options => {
dialog_name_prefix => 'print_options.',
show_headers => 1,
no_queue => 1,
no_postscript => 1,
no_opendocument => 1,
hide_language_id_print => 1,
no_html => 1,
},
3d945302 Tamino Steinert
),
007fe204 Tamino Steinert
);
$self->render(\$output, { layout => 0, process => 0 });
3d945302 Tamino Steinert
}

sub action_print_label {
my ($self) = @_;
# TODO: implement
return $self->render('generic/error', { layout => 1 }, label_error => t8('Not implemented yet!'));
}

83f2cb78 Moritz Bunkus
sub action_export_assembly_assortment_components {
5d27f2bd Moritz Bunkus
my ($self) = @_;

83f2cb78 Moritz Bunkus
my $bom_or_charge = $self->part->is_assembly ? 'bom' : 'charge';

5d27f2bd Moritz Bunkus
my @rows = ([
$::locale->text('Partnumber'),
$::locale->text('Description'),
$::locale->text('Type'),
$::locale->text('Classification'),
$::locale->text('Qty'),
$::locale->text('Unit'),
83f2cb78 Moritz Bunkus
$self->part->is_assembly ? $::locale->text('BOM') : $::locale->text('Charge'),
5d27f2bd Moritz Bunkus
$::locale->text('Line Total'),
$::locale->text('Sellprice'),
$::locale->text('Lastcost'),
$::locale->text('Partsgroup'),
]);

foreach my $item (@{ $self->part->items }) {
my $part = $item->part;

my @row = (
$part->partnumber,
$part->description,
SL::Presenter::Part::type_abbreviation($part->part_type),
SL::Presenter::Part::classification_abbreviation($part->classification_id),
$item->qty_as_number,
$part->unit,
83f2cb78 Moritz Bunkus
$item->$bom_or_charge ? $::locale->text('yes') : $::locale->text('no'),
5d27f2bd Moritz Bunkus
$::form->format_amount(\%::myconfig, $item->linetotal_sellprice, 3, 0),
$part->sellprice_as_number,
$part->lastcost_as_number,
$part->partsgroup ? $part->partsgroup->partsgroup : '',
);

push @rows, \@row;
}

my $csv = Text::CSV_XS->new({
sep_char => ';',
eol => "\n",
binary => 1,
});

my ($file_handle, $file_name) = File::Temp::tempfile;

binmode $file_handle, ":encoding(utf8)";

$csv->print($file_handle, $_) for @rows;

$file_handle->close;

83f2cb78 Moritz Bunkus
my $type_prefix = $self->part->is_assembly ? 'assembly' : 'assortment';
5d27f2bd Moritz Bunkus
my $part_number = $self->part->partnumber;
$part_number =~ s{[^[:word:]]+}{_}g;
83f2cb78 Moritz Bunkus
my $timestamp = strftime('_%Y-%m-%d_%H-%M-%S', localtime());
my $attachment_name = sprintf('%s_components_%s_%s.csv', $type_prefix, $part_number, $timestamp);
5d27f2bd Moritz Bunkus
$self->send_file(
$file_name,
content_type => 'text/csv',
name => $attachment_name,
);

}

13fb6d81 Geoffrey Richardson
# helper functions
sub validate_add_items {
scalar @{$::form->{add_items}};
}

sub prepare_assortment_render_vars {
my ($self) = @_;

my %vars = ( items_sellprice_sum => $self->part->items_sellprice_sum,
items_lastcost_sum => $self->part->items_lastcost_sum,
assortment_html => $self->render_assortment_items_to_html( \@{$self->part->items} ),
);
$vars{items_sum_diff} = $vars{items_sellprice_sum} - $vars{items_lastcost_sum};

return \%vars;
}

sub prepare_assembly_render_vars {
my ($self) = @_;

84648282 Jan Büren
croak("Need assembly item(s) to create a 'save as new' assembly.") unless $self->part->items;

13fb6d81 Geoffrey Richardson
my %vars = ( items_sellprice_sum => $self->part->items_sellprice_sum,
items_lastcost_sum => $self->part->items_lastcost_sum,
assembly_html => $self->render_assembly_items_to_html( \@{ $self->part->items } ),
);
$vars{items_sum_diff} = $vars{items_sellprice_sum} - $vars{items_lastcost_sum};

return \%vars;
}

sub add {
my ($self) = @_;

check_has_valid_part_type($self->part->part_type);

$self->_set_javascript;
6b5fa71b Moritz Bunkus
$self->_setup_form_action_bar;
13fb6d81 Geoffrey Richardson
my %title_hash = ( part => t8('Add Part'),
assembly => t8('Add Assembly'),
service => t8('Add Service'),
assortment => t8('Add Assortment'),
);

$self->render(
'part/form',
6b5fa71b Moritz Bunkus
title => $title_hash{$self->part->part_type},
13fb6d81 Geoffrey Richardson
);
}


sub _set_javascript {
my ($self) = @_;
6c693814 Sven Schöling
$::request->layout->use_javascript("${_}.js") for qw(kivi.Part kivi.File kivi.PriceRule kivi.ShopPart kivi.Validator);
13fb6d81 Geoffrey Richardson
$::request->layout->add_javascripts_inline("\$(function(){kivi.PriceRule.load_price_rules_for_part(@{[ $self->part->id ]})});") if $self->part->id;
}

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

if ( $params{part_type} eq 'assortment' ) {
return 0 unless scalar @{$self->assortment_items};
} elsif ( $params{part_type} eq 'assembly' ) {
return 0 unless scalar @{$self->assembly_items};
} else {
carp "can only calculate sum for assortments and assemblies";
};

my $part = SL::DB::Part->new(part_type => $params{part_type});
if ( $part->is_assortment ) {
$part->assortment_items( @{$self->assortment_items} );
if ( $params{price_type} eq 'lastcost' ) {
return $part->items_lastcost_sum;
} else {
if ( $params{pricegroup_id} ) {
return $part->items_sellprice_sum(pricegroup_id => $params{pricegroup_id});
} else {
return $part->items_sellprice_sum;
};
}
} elsif ( $part->is_assembly ) {
$part->assemblies( @{$self->assembly_items} );
f01ed5d1 Bernd Bleßmann
if ( $params{price_type} eq 'weight' ) {
return $part->items_weight_sum;
} elsif ( $params{price_type} eq 'lastcost' ) {
13fb6d81 Geoffrey Richardson
return $part->items_lastcost_sum;
} else {
return $part->items_sellprice_sum;
}
}
}

sub check_part_not_modified {
my ($self) = @_;

return !($::form->{last_modification} && ($self->part->last_modification ne $::form->{last_modification}));

}

0e7a8b0c Jan Büren
sub check_lastcost_modified {
my ($self) = @_;
8aec62ea Bernd Bleßmann
return (abs($self->part->lastcost - $self->part->last_price_update->lastcost) >= 0.009)
|| (abs(($self->part->price_factor ? $self->part->price_factor->factor : 1) - $self->part->last_price_update->price_factor) >= 0.009);
0e7a8b0c Jan Büren
}

13fb6d81 Geoffrey Richardson
sub parse_form {
64031f04 Jan Büren
my ($self, %params) = @_;
13fb6d81 Geoffrey Richardson
my $is_new = !$self->part->id;

my $params = delete($::form->{part}) || { };

a908b2eb Bernd Bleßmann
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
# No right to set or change prices, so delete prices from params.
delete $params->{$_} for qw(sellprice_as_number lastcost_as_number listprice_as_number);
}

13fb6d81 Geoffrey Richardson
delete $params->{id};
$self->part->assign_attributes(%{ $params});
$self->part->bin_id(undef) unless $self->part->warehouse_id;

db62bb40 Bernd Bleßmann
$self->normalize_text_blocks;

13fb6d81 Geoffrey Richardson
# Only reset items ([]) and rewrite from form if $::form->{assortment_items} isn't empty. This
# will be the case for used assortments when saving, or when a used assortment
# is "used as new"
if ( $self->part->is_assortment and $::form->{assortment_items} and scalar @{$::form->{assortment_items}}) {
$self->part->assortment_items([]);
$self->part->add_assortment_items(@{$self->assortment_items}); # assortment_items has a get_set_init
};

if ( $self->part->is_assembly and $::form->{assembly_items} and @{$::form->{assembly_items}} ) {
$self->part->assemblies([]); # completely rewrite assortments each time
$self->part->add_assemblies( @{ $self->assembly_items } );
};

48ad0f16 Bernd Bleßmann
# Update lastcost for assemblies
if ($self->part->is_assembly) {
my $lastcost_sum = $self->recalc_item_totals(part_type => $self->part->part_type, price_type => 'lastcost');
$self->part->lastcost($lastcost_sum);
}

64031f04 Jan Büren
$self->part->translations([]) unless $params{use_as_new};
13fb6d81 Geoffrey Richardson
$self->parse_form_translations;

d3c92dc2 Bernd Bleßmann
if ($::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
$self->part->prices([]);
$self->parse_form_prices;
}
13fb6d81 Geoffrey Richardson
62f21410 Martin Helmling
$self->parse_form_customerprices;
13fb6d81 Geoffrey Richardson
$self->parse_form_makemodels;
8a721ec3 Bernd Bleßmann
$self->parse_form_businessmodels;
13fb6d81 Geoffrey Richardson
}

sub parse_form_prices {
my ($self) = @_;
# only save prices > 0
my $prices = delete($::form->{prices}) || [];
foreach my $price ( @{$prices} ) {
my $sellprice = $::form->parse_amount(\%::myconfig, $price->{price});
next unless $sellprice > 0; # skip negative prices as well
my $p = SL::DB::Price->new(parts_id => $self->part->id,
pricegroup_id => $price->{pricegroup_id},
price => $sellprice,
);
$self->part->add_prices($p);
};
}

sub parse_form_translations {
my ($self) = @_;
# don't add empty translations
my $translations = delete($::form->{translations}) || [];
foreach my $translation ( @{$translations} ) {
next unless $translation->{translation};
my $t = SL::DB::Translation->new( %{$translation} ) or die "Can't create translation";
$self->part->add_translations( $translation );
};
}

sub parse_form_makemodels {
my ($self) = @_;

my $makemodels_map;
if ( $self->part->makemodels ) { # check for new parts or parts without makemodels
$makemodels_map = { map { $_->id => Rose::DB::Object::Helpers::clone($_) } @{$self->part->makemodels} };
};

$self->part->makemodels([]);

my $position = 0;
my $makemodels = delete($::form->{makemodels}) || [];
foreach my $makemodel ( @{$makemodels} ) {
next unless $makemodel->{make};
$position++;
my $vendor = SL::DB::Manager::Vendor->find_by(id => $makemodel->{make}) || die "Can't find vendor from make";

39fa895d Bernd Bleßmann
my $id = $makemodels_map->{$makemodel->{id}} ? $makemodels_map->{$makemodel->{id}}->id : undef;
aa8106e2 Bernd Bleßmann
my $mm = SL::DB::MakeModel->new( # parts_id => $self->part->id, # will be assigned by row add_makemodels
id => $id,
make => $makemodel->{make},
model => $makemodel->{model} || '',
part_description => $makemodel->{part_description},
part_longdescription => $makemodel->{part_longdescription},
lastcost => $::form->parse_amount(\%::myconfig, $makemodel->{lastcost_as_number}),
sortorder => $position,
13fb6d81 Geoffrey Richardson
);
2aacfefa Bernd Bleßmann
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
# No right to edit prices -> restore old lastcost.
$mm->lastcost($makemodels_map->{$id} ? $makemodels_map->{$id}->lastcost : undef);
}

13fb6d81 Geoffrey Richardson
if ($makemodels_map->{$mm->id} && !$makemodels_map->{$mm->id}->lastupdate && $makemodels_map->{$mm->id}->lastcost == 0 && $mm->lastcost == 0) {
# lastupdate isn't set, original lastcost is 0 and new lastcost is 0
# don't change lastupdate
} elsif ( !$makemodels_map->{$mm->id} && $mm->lastcost == 0 ) {
# new makemodel, no lastcost entered, leave lastupdate empty
} elsif ($makemodels_map->{$mm->id} && $makemodels_map->{$mm->id}->lastcost == $mm->lastcost) {
# lastcost hasn't changed, use original lastupdate
$mm->lastupdate($makemodels_map->{$mm->id}->lastupdate);
} else {
$mm->lastupdate(DateTime->now);
};
$self->part->makemodel( scalar @{$self->part->makemodels} ? 1 : 0 ); # do we need this boolean anymore?
$self->part->add_makemodels($mm);
};
}

8a721ec3 Bernd Bleßmann
sub parse_form_businessmodels {
my ($self) = @_;

my $make_key = sub { return $_[0]->parts_id . '+' . $_[0]->business_id; };

my $businessmodels_map;
if ( $self->part->businessmodels ) { # check for new parts or parts without businessmodels
$businessmodels_map = { map { $make_key->($_) => Rose::DB::Object::Helpers::clone($_) } @{$self->part->businessmodels} };
};

$self->part->businessmodels([]);

94cb09ab Bernd Bleßmann
my $position = 0;
8a721ec3 Bernd Bleßmann
my $businessmodels = delete($::form->{businessmodels}) || [];
foreach my $businessmodel ( @{$businessmodels} ) {
next unless $businessmodel->{business_id};

94cb09ab Bernd Bleßmann
$position++;
8a721ec3 Bernd Bleßmann
my $bm = SL::DB::BusinessModel->new( #parts_id => $self->part->id, # will be assigned by row add_businessmodels
business_id => $businessmodel->{business_id},
model => $businessmodel->{model} || '',
part_description => $businessmodel->{part_description} || '',
part_longdescription => $businessmodel->{part_longdescription} || '',
94cb09ab Bernd Bleßmann
position => $position,
8a721ec3 Bernd Bleßmann
);

$self->part->add_businessmodels($bm);
};
}

62f21410 Martin Helmling
sub parse_form_customerprices {
my ($self) = @_;

my $customerprices_map;
if ( $self->part->customerprices ) { # check for new parts or parts without customerprices
$customerprices_map = { map { $_->id => Rose::DB::Object::Helpers::clone($_) } @{$self->part->customerprices} };
};

$self->part->customerprices([]);

my $position = 0;
my $customerprices = delete($::form->{customerprices}) || [];
foreach my $customerprice ( @{$customerprices} ) {
next unless $customerprice->{customer_id};
$position++;
my $customer = SL::DB::Manager::Customer->find_by(id => $customerprice->{customer_id}) || die "Can't find customer from id";

39fa895d Bernd Bleßmann
my $id = $customerprices_map->{$customerprice->{id}} ? $customerprices_map->{$customerprice->{id}}->id : undef;
62f21410 Martin Helmling
my $cu = SL::DB::PartCustomerPrice->new( # parts_id => $self->part->id, # will be assigned by row add_customerprices
39fa895d Bernd Bleßmann
id => $id,
62f21410 Martin Helmling
customer_id => $customerprice->{customer_id},
customer_partnumber => $customerprice->{customer_partnumber} || '',
09f405ce Bernd Bleßmann
part_description => $customerprice->{part_description},
part_longdescription => $customerprice->{part_longdescription},
62f21410 Martin Helmling
price => $::form->parse_amount(\%::myconfig, $customerprice->{price_as_number}),
sortorder => $position,
);
2aacfefa Bernd Bleßmann
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
# No right to edit prices -> restore old price.
$cu->price($customerprices_map->{$id} ? $customerprices_map->{$id}->price : undef);
}

62f21410 Martin Helmling
if ($customerprices_map->{$cu->id} && !$customerprices_map->{$cu->id}->lastupdate && $customerprices_map->{$cu->id}->price == 0 && $cu->price == 0) {
# lastupdate isn't set, original price is 0 and new lastcost is 0
# don't change lastupdate
} elsif ( !$customerprices_map->{$cu->id} && $cu->price == 0 ) {
# new customerprice, no lastcost entered, leave lastupdate empty
} elsif ($customerprices_map->{$cu->id} && $customerprices_map->{$cu->id}->price == $cu->price) {
# price hasn't changed, use original lastupdate
$cu->lastupdate($customerprices_map->{$cu->id}->lastupdate);
} else {
$cu->lastupdate(DateTime->now);
};
$self->part->add_customerprices($cu);
};
}

13fb6d81 Geoffrey Richardson
sub build_bin_select {
6798d5bb Jan Büren
select_tag('part.bin_id', [ @{ $_[0]->warehouse->bins_sorted_naturally } ],
13fb6d81 Geoffrey Richardson
title_key => 'description',
default => $_[0]->bin->id,
);
}

d210aa27 Jan Büren
13fb6d81 Geoffrey Richardson
# get_set_inits for partpicker

2504ebe1 Sven Schöling
sub init_parts {
57faab8f Sven Schöling
if ($::form->{no_paginate}) {
$_[0]->models->disable_plugin('paginated');
}

9d015fd3 Sven Schöling
$_[0]->models->get;
fa7a37a2 Sven Schöling
}

13fb6d81 Geoffrey Richardson
# get_set_inits for part controller
57faab8f Sven Schöling
sub init_part {
13fb6d81 Geoffrey Richardson
my ($self) = @_;

# used by edit, save, delete and add

if ( $::form->{part}{id} ) {
8a721ec3 Bernd Bleßmann
return SL::DB::Part->new(id => $::form->{part}{id})->load(with => [ qw(makemodels businessmodels customerprices prices translations partsgroup shop_parts shop_parts.shop) ]);
20004cac Geoffrey Richardson
} elsif ( $::form->{id} ) {
return SL::DB::Part->new(id => $::form->{id})->load; # used by inventory tab
13fb6d81 Geoffrey Richardson
} else {
die "part_type missing" unless $::form->{part}{part_type};
return SL::DB::Part->new(part_type => $::form->{part}{part_type});
};
}

sub init_orphaned {
my ($self) = @_;
67814d7d Jan Büren
return $self->part->orphaned;
57faab8f Sven Schöling
}

fa7a37a2 Sven Schöling
sub init_models {
my ($self) = @_;

SL::Controller::Helper::GetModels->new(
controller => $self,
sorted => {
_default => {
dc824520 Geoffrey Richardson
by => 'partnumber',
fa7a37a2 Sven Schöling
dir => 1,
},
partnumber => t8('Partnumber'),
57faab8f Sven Schöling
description => t8('Description'),
9d015fd3 Sven Schöling
},
3a1b684b Martin Helmling
with_objects => [ qw(unit_obj classification) ],
fa7a37a2 Sven Schöling
);
2504ebe1 Sven Schöling
}
7abae2f3 Sven Schöling
13fb6d81 Geoffrey Richardson
sub init_p {
SL::Presenter->get;
}


sub init_assortment_items {
# this init is used while saving and whenever assortments change dynamically
my ($self) = @_;
my $position = 0;
my @array;
my $assortment_items = delete($::form->{assortment_items}) || [];
foreach my $assortment_item ( @{$assortment_items} ) {
next unless $assortment_item->{parts_id};
$position++;
my $part = SL::DB::Manager::Part->find_by(id => $assortment_item->{parts_id}) || die "Can't determine item to be added";
my $ai = SL::DB::AssortmentItem->new( parts_id => $part->id,
qty => $::form->parse_amount(\%::myconfig, $assortment_item->{qty_as_number}),
charge => $assortment_item->{charge},
unit => $assortment_item->{unit} || $part->unit,
position => $position,
);

push(@array, $ai);
};
return \@array;
}

sub init_makemodels {
my ($self) = @_;

my $position = 0;
my @makemodel_array = ();
my $makemodels = delete($::form->{makemodels}) || [];

foreach my $makemodel ( @{$makemodels} ) {
next unless $makemodel->{make};
$position++;
my $mm = SL::DB::MakeModel->new( # parts_id => $self->part->id, # will be assigned by row add_makemodels
aa8106e2 Bernd Bleßmann
id => $makemodel->{id},
make => $makemodel->{make},
model => $makemodel->{model} || '',
part_description => $makemodel->{part_description} || '',
part_longdescription => $makemodel->{part_longdescription} || '',
lastcost => $::form->parse_amount(\%::myconfig, $makemodel->{lastcost_as_number} || 0),
sortorder => $position,
13fb6d81 Geoffrey Richardson
) or die "Can't create mm";
# $mm->id($makemodel->{id}) if $makemodel->{id};
push(@makemodel_array, $mm);
};
return \@makemodel_array;
}

8a721ec3 Bernd Bleßmann
sub init_businessmodels {
my ($self) = @_;

my @businessmodel_array = ();
my $businessmodels = delete($::form->{businessmodels}) || [];

foreach my $businessmodel ( @{$businessmodels} ) {
next unless $businessmodel->{business_id};

my $bm = SL::DB::BusinessModel->new(#parts_id => $self->part->id, # will be assigned by row add_businessmodels
business_id => $businessmodel->{business_id},
model => $businessmodel->{model} || '',
part_description => $businessmodel->{part_description} || '',
part_longdescription => $businessmodel->{part_longdescription} || '',
) or die "Can't create bm";

push(@businessmodel_array, $bm);
};

return \@businessmodel_array;
}

62f21410 Martin Helmling
sub init_customerprices {
my ($self) = @_;

my $position = 0;
my @customerprice_array = ();
my $customerprices = delete($::form->{customerprices}) || [];

foreach my $customerprice ( @{$customerprices} ) {
next unless $customerprice->{customer_id};
$position++;
my $cu = SL::DB::PartCustomerPrice->new( # parts_id => $self->part->id, # will be assigned by row add_customerprices
09f405ce Bernd Bleßmann
id => $customerprice->{id},
customer_partnumber => $customerprice->{customer_partnumber},
customer_id => $customerprice->{customer_id} || '',
part_description => $customerprice->{part_description},
part_longdescription => $customerprice->{part_longdescription},
price => $::form->parse_amount(\%::myconfig, $customerprice->{price_as_number} || 0),
sortorder => $position,
62f21410 Martin Helmling
) or die "Can't create cu";
# $cu->id($customerprice->{id}) if $customerprice->{id};
push(@customerprice_array, $cu);
};
return \@customerprice_array;
}

13fb6d81 Geoffrey Richardson
sub init_assembly_items {
my ($self) = @_;
my $position = 0;
my @array;
my $assembly_items = delete($::form->{assembly_items}) || [];
foreach my $assembly_item ( @{$assembly_items} ) {
next unless $assembly_item->{parts_id};
$position++;
my $part = SL::DB::Manager::Part->find_by(id => $assembly_item->{parts_id}) || die "Can't determine item to be added";
my $ai = SL::DB::Assembly->new(parts_id => $part->id,
bom => $assembly_item->{bom},
qty => $::form->parse_amount(\%::myconfig, $assembly_item->{qty_as_number}),
position => $position,
);
push(@array, $ai);
};
return \@array;
}

sub init_all_warehouses {
my ($self) = @_;
SL::DB::Manager::Warehouse->get_all(query => [ or => [ invalid => 0, invalid => undef, id => $self->part->warehouse_id ] ]);
}

sub init_all_languages {
SL::DB::Manager::Language->get_all_sorted;
}

sub init_all_partsgroups {
9c785acd Geoffrey Richardson
my ($self) = @_;
SL::DB::Manager::PartsGroup->get_all_sorted(query => [ or => [ id => $self->part->partsgroup_id, obsolete => 0 ] ]);
13fb6d81 Geoffrey Richardson
}

sub init_all_buchungsgruppen {
my ($self) = @_;
cff9b88d Moritz Bunkus
if (!$self->part->orphaned) {
07c471d4 Jan Büren
return SL::DB::Manager::Buchungsgruppe->get_all_sorted(where => [ id => $self->part->buchungsgruppen_id ]);
13fb6d81 Geoffrey Richardson
}
cff9b88d Moritz Bunkus
return SL::DB::Manager::Buchungsgruppe->get_all_sorted(
where => [
or => [
id => $self->part->buchungsgruppen_id,
obsolete => 0,
],
]
);
13fb6d81 Geoffrey Richardson
}

e0e75548 Werner Hahn
sub init_shops_not_assigned {
my ($self) = @_;

my @used_shop_ids = map { $_->shop->id } @{ $self->part->shop_parts };
if ( @used_shop_ids ) {
return SL::DB::Manager::Shop->get_all( query => [ obsolete => 0, '!id' => \@used_shop_ids ], sort_by => 'sortkey' );
}
else {
return SL::DB::Manager::Shop->get_all( query => [ obsolete => 0 ], sort_by => 'sortkey' );
}
}

13fb6d81 Geoffrey Richardson
sub init_all_units {
my ($self) = @_;
if ( $self->part->orphaned ) {
return SL::DB::Manager::Unit->get_all_sorted;
} else {
return SL::DB::Manager::Unit->get_all(where => [ unit => $self->part->unit ]);
}
}

sub init_all_payment_terms {
77807bf5 Geoffrey Richardson
my ($self) = @_;
SL::DB::Manager::PaymentTerm->get_all_sorted(query => [ or => [ id => $self->part->payment_id, obsolete => 0 ] ]);
13fb6d81 Geoffrey Richardson
}

sub init_all_price_factors {
SL::DB::Manager::PriceFactor->get_all_sorted;
}

sub init_all_pricegroups {
d67c6b51 root
SL::DB::Manager::Pricegroup->get_all_sorted(query => [ obsolete => 0 ]);
13fb6d81 Geoffrey Richardson
}

8a721ec3 Bernd Bleßmann
sub init_all_businesses {
SL::DB::Manager::Business->get_all_sorted;
}

13fb6d81 Geoffrey Richardson
# model used to filter/display the parts in the multi-items dialog
sub init_multi_items_models {
SL::Controller::Helper::GetModels->new(
controller => $_[0],
model => 'Part',
3a1b684b Martin Helmling
with_objects => [ qw(unit_obj partsgroup classification) ],
13fb6d81 Geoffrey Richardson
disable_plugin => 'paginated',
source => $::form->{multi_items},
sorted => {
_default => {
by => 'partnumber',
dir => 1,
},
partnumber => t8('Partnumber'),
description => t8('Description')}
);
}

ce904bd6 Geoffrey Richardson
sub init_parts_classification_filter {
return [] unless $::form->{parts_classification_type};

return [ used_for_sale => 't' ] if $::form->{parts_classification_type} eq 'sales';
return [ used_for_purchase => 't' ] if $::form->{parts_classification_type} eq 'purchases';

die "no query rules for parts_classification_type " . $::form->{parts_classification_type};
}

13fb6d81 Geoffrey Richardson
# simple checks to run on $::form before saving

sub form_check_part_description_exists {
my ($self) = @_;

return 1 if $::form->{part}{description};

$self->js->flash('error', t8('Part Description missing!'))
->run('kivi.Part.set_tab_active_by_name', 'basic_data')
->focus('#part_description');
return 0;
}

sub form_check_assortment_items_exist {
my ($self) = @_;

return 1 unless $::form->{part}{part_type} eq 'assortment';
d3b2be26 Geoffrey Richardson
# skip item check for existing assortments that have been used
13fb6d81 Geoffrey Richardson
return 1 if ($self->part->id and !$self->part->orphaned);

# new or orphaned parts must have items in $::form->{assortment_items}
unless ( $::form->{assortment_items} and scalar @{$::form->{assortment_items}} ) {
$self->js->run('kivi.Part.set_tab_active_by_name', 'assortment_tab')
->focus('#add_assortment_item_name')
->flash('error', t8('The assortment doesn\'t have any items.'));
return 0;
};
return 1;
}

sub form_check_assortment_items_unique {
my ($self) = @_;

return 1 unless $::form->{part}{part_type} eq 'assortment';

my %duplicate_elements;
my %count;
for (map { $_->{parts_id} } @{$::form->{assortment_items}}) {
$duplicate_elements{$_}++ if $count{$_}++;
};

if ( keys %duplicate_elements ) {
$self->js->run('kivi.Part.set_tab_active_by_name', 'assortment_tab')
->flash('error', t8('There are duplicate assortment items'));
return 0;
};
return 1;
}

sub form_check_assembly_items_exist {
my ($self) = @_;

return 1 unless $::form->{part}->{part_type} eq 'assembly';

d3b2be26 Geoffrey Richardson
# skip item check for existing assembly that have been used
return 1 if ($self->part->id and !$self->part->orphaned);

13fb6d81 Geoffrey Richardson
unless ( $::form->{assembly_items} and scalar @{$::form->{assembly_items}} ) {
$self->js->run('kivi.Part.set_tab_active_by_name', 'assembly_tab')
->focus('#add_assembly_item_name')
->flash('error', t8('The assembly doesn\'t have any items.'));
return 0;
};
return 1;
}

sub form_check_partnumber_is_unique {
my ($self) = @_;

if ( !$::form->{part}{id} and $::form->{part}{partnumber} ) {
my $count = SL::DB::Manager::Part->get_all_count(where => [ partnumber => $::form->{part}{partnumber} ]);
if ( $count ) {
$self->js->flash('error', t8('The partnumber already exists!'))
->focus('#part_description');
return 0;
};
};
return 1;
}

cff9b88d Moritz Bunkus
sub form_check_buchungsgruppe {
my ($self) = @_;

return 1 if $::form->{part}->{obsolete};

my $buchungsgruppe = SL::DB::Buchungsgruppe->new(id => $::form->{part}->{buchungsgruppen_id})->load;

return 1 if !$buchungsgruppe->obsolete;

$self->js->flash('error', t8("The booking group '#1' is obsolete and cannot be used with active articles.", $buchungsgruppe->description))
->focus('#part_buchungsgruppen_id');

return 0;
}

13fb6d81 Geoffrey Richardson
# general checking functions

sub check_part_id {
die t8("Can't load item without a valid part.id") . "\n" unless $::form->{part}{id};
}

sub check_form {
my ($self) = @_;

$self->form_check_part_description_exists || return 0;
$self->form_check_assortment_items_exist || return 0;
$self->form_check_assortment_items_unique || return 0;
$self->form_check_assembly_items_exist || return 0;
$self->form_check_partnumber_is_unique || return 0;
cff9b88d Moritz Bunkus
$self->form_check_buchungsgruppe || return 0;
13fb6d81 Geoffrey Richardson
return 1;
}

sub check_has_valid_part_type {
die "invalid part_type" unless $_[0] =~ /^(part|service|assembly|assortment)$/;
}

2e97532c Jan Büren
sub normalize_text_blocks {
my ($self) = @_;

# check if feature is enabled (select normalize_part_descriptions from defaults)
return unless ($::instance_conf->get_normalize_part_descriptions);

# text block
foreach (qw(description)) {
$self->part->{$_} =~ s/\s+$//s;
$self->part->{$_} =~ s/^\s+//s;
$self->part->{$_} =~ s/ {2,}/ /g;
}
# html block (caveat: can be circumvented by using bold or italics)
$self->part->{notes} =~ s/^<p>(&nbsp;)+\s+/<p>/s;
$self->part->{notes} =~ s/(&nbsp;)+<\/p>$/<\/p>/s;

}

13fb6d81 Geoffrey Richardson
sub render_assortment_items_to_html {
my ($self, $assortment_items, $number_of_items) = @_;

my $position = $number_of_items + 1;
my $html;
foreach my $ai (@$assortment_items) {
$html .= $self->p->render('part/_assortment_row',
PART => $self->part,
orphaned => $self->orphaned,
ITEM => $ai,
listrow => $position % 2 ? 1 : 0,
position => $position, # for legacy assemblies
);
$position++;
};
return $html;
}

sub render_assembly_items_to_html {
my ($self, $assembly_items, $number_of_items) = @_;

my $position = $number_of_items + 1;
my $html;
foreach my $ai (@{$assembly_items}) {
$html .= $self->p->render('part/_assembly_row',
PART => $self->part,
orphaned => $self->orphaned,
ITEM => $ai,
listrow => $position % 2 ? 1 : 0,
position => $position, # for legacy assemblies
);
$position++;
};
return $html;
}

sub parse_add_items_to_objects {
my ($self, %params) = @_;
my $part_type = $params{part_type};
die unless $params{part_type} =~ /^(assortment|assembly)$/;
my $position = $params{position} || 1;

my @add_items = grep { $_->{qty_as_number} } @{ $::form->{add_items} };

my @item_objects;
foreach my $item ( @add_items ) {
my $part = SL::DB::Manager::Part->find_by(id => $item->{parts_id}) || die "Can't load part";
my $ai;
if ( $part_type eq 'assortment' ) {
$ai = SL::DB::AssortmentItem->new(part => $part,
qty => $::form->parse_amount(\%::myconfig, $item->{qty_as_number}),
unit => $part->unit, # TODO: $item->{unit} || $part->unit
position => $position,
) or die "Can't create AssortmentItem from item";
} elsif ( $part_type eq 'assembly' ) {
$ai = SL::DB::Assembly->new(parts_id => $part->id,
# id => $self->assembly->id, # will be set on save
qty => $::form->parse_amount(\%::myconfig, $item->{qty_as_number}),
bom => 0, # default when adding: no bom
position => $position,
);
} else {
die "part_type must be assortment or assembly";
}
push(@item_objects, $ai);
$position++;
};

return \@item_objects;
}

c307d4a1 Tamino Steinert
sub _is_in_purchase_basket {
my ( $self ) = @_;

return SL::DB::Manager::PurchaseBasketItem->get_all_count( query => [ part_id => $self->part->id ] );
}

sub _is_ordered {
my ( $self ) = @_;

return $self->part->get_ordered_qty( $self->part->id );
}

6b5fa71b Moritz Bunkus
sub _setup_form_action_bar {
my ($self) = @_;

115e5a24 Bernd Bleßmann
my $may_edit = $::auth->assert('part_service_assembly_edit', 'may fail');
my $used_in_pricerules = !!SL::DB::Manager::PriceRuleItem->get_all_count(where => [type => 'part', value_int => $self->part->id]);
6b5fa71b Moritz Bunkus
for my $bar ($::request->layout->get('actionbar')) {
$bar->add(
combobox => [
action => [
t8('Save'),
bad18bee Moritz Bunkus
call => [ 'kivi.Part.save' ],
disabled => !$may_edit ? t8('You do not have the permissions to access this function.') : undef,
61b62e3c Bernd Bleßmann
checks => ['kivi.validate_form'],
6b5fa71b Moritz Bunkus
],
action => [
t8('Use as new'),
call => [ 'kivi.Part.use_as_new' ],
disabled => !$self->part->id ? t8('The object has not been saved yet.')
: !$may_edit ? t8('You do not have the permissions to access this function.')
: undef,
],
], # end of combobox "Save"

afd5395b Bernd Bleßmann
combobox => [
action => [ t8('Workflow') ],
action => [
t8('Save and Purchase Order'),
submit => [ '#ic', { action => "Part/save_and_purchase_order" } ],
checks => ['kivi.validate_form'],
disabled => !$self->part->id ? t8('The object has not been saved yet.')
: !$may_edit ? t8('You do not have the permissions to access this function.')
: !$::auth->assert('purchase_order_edit', 'may fail') ? t8('You do not have the permissions to access this function.')
f9108ab9 Bernd Bleßmann
: $self->part->order_locked ? t8('This part should not be ordered any more.')
afd5395b Bernd Bleßmann
: undef,
only_if => !$::form->{inline_create},
],
],

5d27f2bd Moritz Bunkus
combobox => [
action => [
t8('Export'),
83f2cb78 Moritz Bunkus
only_if => $self->part->is_assembly || $self->part->is_assortment,
5d27f2bd Moritz Bunkus
],
action => [
83f2cb78 Moritz Bunkus
$self->part->is_assembly ? t8('Assembly items') : t8('Assortment items'),
submit => [ '#ic', { action => "Part/export_assembly_assortment_components" } ],
5d27f2bd Moritz Bunkus
checks => ['kivi.validate_form'],
disabled => !$self->part->id ? t8('The object has not been saved yet.')
: !$may_edit ? t8('You do not have the permissions to access this function.')
: !$::auth->assert('purchase_order_edit', 'may fail') ? t8('You do not have the permissions to access this function.')
: undef,
83f2cb78 Moritz Bunkus
only_if => $self->part->is_assembly || $self->part->is_assortment,
5d27f2bd Moritz Bunkus
],
],

d1809c22 Bernd Bleßmann
action => [
t8('Abort'),
submit => [ '#ic', { action => "Part/abort" } ],
15aab04c Bernd Bleßmann
only_if => !!$::form->{inline_create},
d1809c22 Bernd Bleßmann
],

6b5fa71b Moritz Bunkus
action => [
t8('Delete'),
call => [ 'kivi.Part.delete' ],
confirm => t8('Do you really want to delete this object?'),
disabled => !$self->part->id ? t8('This object has not been saved yet.')
: !$may_edit ? t8('You do not have the permissions to access this function.')
: !$self->part->orphaned ? t8('This object has already been used.')
115e5a24 Bernd Bleßmann
: $used_in_pricerules ? t8('This object is used in price rules.')
6b5fa71b Moritz Bunkus
: undef,
c307d4a1 Tamino Steinert
],

action => [
t8('Add to basket'),
call => [ 'kivi.Part.add_to_basket' ],
disabled => !$self->part->id ? t8('This object has not been saved yet.')
: $self->_is_in_purchase_basket ? t8('Part already in purchasebasket')
: $self->_is_ordered ? t8('Part already ordered')
: !scalar @{$self->part->makemodels} ? t8('No vendors to add to purchasebasket')
: undef,
6b5fa71b Moritz Bunkus
],

'separator',

action => [
t8('History'),
call => [ 'kivi.Part.open_history_popup' ],
disabled => !$self->part->id ? t8('This object has not been saved yet.')
: !$may_edit ? t8('You do not have the permissions to access this function.')
: undef,
],
);
}
}

7abae2f3 Sven Schöling
1;
13fb6d81 Geoffrey Richardson
__END__

=encoding utf-8

=head1 NAME

SL::Controller::Part - Part CRUD controller

=head1 DESCRIPTION

Controller for adding/editing/saving/deleting parts.

All the relations are loaded at once and saving the part, adding a history
entry and saving CVars happens inside one transaction. When saving the old
relations are deleted and written as new to the database.

Relations for parts:

=over 2

=item makemodels

=item translations

=item assembly items

=item assortment items

=item prices

=back

=head1 PART_TYPES

There are 4 different part types:

=over 4

=item C<part>

The "default" part type.

inventory_accno_id is set.

=item C<service>

Services can't be stocked.

inventory_accno_id isn't set.

=item C<assembly>

Assemblies consist of other parts, services, assemblies or assortments. They
aren't meant to be bought, only sold. To add assemblies to stock you typically
have to make them, which reduces the stock by its respective components. Once
an assembly item has been created there is currently no way to "disassemble" it
again. An assembly item can appear several times in one assembly. An assmbly is
sold as one item with a defined sellprice and lastcost. If the component prices
change the assortment price remains the same. The assembly items may be printed
in a record if the item's "bom" is set.

=item C<assortment>

Similar to assembly, but each assortment item may only appear once per
assortment. When selling an assortment the assortment items are added to the
record together with the assortment, which is added with sellprice 0.

Technically an assortment doesn't have a sellprice, but rather the sellprice is
determined by the sum of the current assortment item prices when the assortment
is added to a record. This also means that price rules and customer discounts
will be applied to the assortment items.

Once the assortment items have been added they may be modified or deleted, just
as if they had been added manually, the individual assortment items aren't
linked to the assortment or the other assortment items in any way.

=back

=head1 URL ACTIONS

=over 4

=item C<action_add_part>

=item C<action_add_service>

=item C<action_add_assembly>

=item C<action_add_assortment>

=item C<action_add PART_TYPE>

An alternative to the action_add_$PART_TYPE actions, takes the mandatory
parameter part_type as an action. Example:

controller.pl?action=Part/add&part_type=service

065cf8d5 Geoffrey Richardson
=item C<action_add_from_record>

When adding new items to records they can be created on the fly if the entered
partnumber or description doesn't exist yet. After being asked what part type
the new item should have the user is redirected to the correct edit page.

Depending on whether the item was added from a sales or a purchase record, only
the relevant part classifications should be selectable for new item, so this
parameter is passed on via a hidden parts_classification_type in the new_item
template.

13fb6d81 Geoffrey Richardson
=item C<action_save>

Saves the current part and then reloads the edit page for the part.

=item C<action_use_as_new>

Takes the information from the current part, plus any modifications made on the
page, and creates a new edit page that is ready to be saved. The partnumber is
set empty, so a new partnumber from the number range will be used if the user
doesn't enter one manually.

Unsaved changes to the original part aren't updated.

The part type cannot be changed in this way.

=item C<action_delete>

Deletes the current part and then redirects to the main page, there is no
callback.

The delete button only appears if the part is 'orphaned', according to
SL::DB::Part orphaned.

The part can't be deleted if it appears in invoices, orders, delivery orders,
the inventory, or is part of an assembly or assortment.

If the part is deleted its relations prices, makdemodel, assembly,
assortment_items and translation are are also deleted via DELETE ON CASCADE.

Before this controller items that appeared in inventory didn't count as
orphaned and could be deleted and the inventory entries were also deleted, this
"feature" hasn't been implemented.

=item C<action_edit part.id>

Load and display a part for editing.

controller.pl?action=Part/edit&part.id=12345

Passing the part id is mandatory, and the parameter is "part.id", not "id".

=back

=head1 BUTTON ACTIONS

=over 4

=item C<history>

Opens a popup displaying all the history entries. Once a new history controller
is written the button could link there instead, with the part already selected.

=back

=head1 AJAX ACTIONS

=over 4

=item C<action_update_item_totals>

Is called whenever an element with the .recalc class loses focus, e.g. the qty
amount of an item changes. The sum of all sellprices and lastcosts is
calculated and the totals updated. Uses C<recalc_item_totals>.

=item C<action_add_assortment_item>

Adds a new assortment item from a part picker seleciton to the assortment item list

If the item already exists in the assortment the item isn't added and a Flash
error shown.

Rather than running kivi.Part.renumber_positions and kivi.Part.assembly_recalc
after adding each new item, add the new object to the item objects that were
already parsed, calculate totals via a dummy part then update the row and the
totals.

=item C<action_add_assembly_item>

Adds a new assembly item from a part picker seleciton to the assembly item list

If the item already exists in the assembly a flash info is generated, but the
item is added.

Rather than running kivi.Part.renumber_positions and kivi.Part.assembly_recalc
after adding each new item, add the new object to the item objects that were
already parsed, calculate totals via a dummy part then update the row and the
totals.

=item C<action_add_multi_assortment_items>

Parses the items to be added from the form generated by the multi input and
appends the html of the tr-rows to the assortment item table. Afterwards all
assortment items are renumbered and the sums recalculated via
kivi.Part.renumber_positions and kivi.Part.assortment_recalc.

=item C<action_add_multi_assembly_items>

Parses the items to be added from the form generated by the multi input and
appends the html of the tr-rows to the assembly item table. Afterwards all
assembly items are renumbered and the sums recalculated via
kivi.Part.renumber_positions and kivi.Part.assembly_recalc.

=item C<action_show_multi_items_dialog>

=item C<action_multi_items_update_result>

=item C<action_add_makemodel_row>

Add a new makemodel row with the vendor that was selected via the vendor
picker.

Checks the already existing makemodels and warns if a row with that vendor
already exists. Currently it is possible to have duplicate vendor rows.

=item C<action_reorder_items>

Sorts the item table for assembly or assortment items.

=item C<action_warehouse_changed>

=back

=head1 ACTIONS part picker

=over 4

=item C<action_ajax_autocomplete>

=item C<action_test_page>

=item C<action_part_picker_search>

=item C<action_part_picker_result>

=item C<action_show>

=back

=head1 FORM CHECKS

=over 2

=item C<check_form>

Calls some simple checks that test the submitted $::form for obvious errors.
Return 1 if all the tests were successfull, 0 as soon as one test fails.

Errors from the failed tests are stored as ClientJS actions in $self->js. In
some cases extra actions are taken, e.g. if the part description is missing the
basic data tab is selected and the description input field is focussed.

=back

=over 4

=item C<form_check_part_description_exists>

=item C<form_check_assortment_items_exist>

=item C<form_check_assortment_items_unique>

=item C<form_check_assembly_items_exist>

=item C<form_check_partnumber_is_unique>

=back

=head1 HELPER FUNCTIONS

=over 4

=item C<parse_form>

When submitting the form for saving, parses the transmitted form. Expects the
following data:

$::form->{part}
$::form->{makemodels}
$::form->{translations}
$::form->{prices}
$::form->{assemblies}
$::form->{assortments}

CVar data is currently stored directly in $::form, e.g. $::form->{cvar_size}.

=item C<recalc_item_totals %params>

Helper function for calculating the total lastcost and sellprice for assemblies
or assortments according to their items, which are parsed from the current
$::form.

Is called whenever the qty of an item is changed or items are deleted.

Takes two params:

* part_type : 'assortment' or 'assembly' (mandatory)

* price_type: 'lastcost' or 'sellprice', default is 'sellprice'

Depending on the price_type the lastcost sum or sellprice sum is returned.

Doesn't work for recursive items.

=back

=head1 GET SET INITS

There are get_set_inits for

* assembly items

* assortment items

* makemodels

which parse $::form and automatically create an array of objects.

These inits are used during saving and each time a new element is added.

=over 4

=item C<init_makemodels>

Parses $::form->{makemodels}, creates an array of makemodel objects and stores them in
$self->part->makemodels, ready to be saved.

Used for saving parts and adding new makemodel rows.

=item C<parse_add_items_to_objects PART_TYPE>

Parses the resulting form from either the part-picker submit or the multi-item
submit, and creates an arrayref of assortment_item or assembly objects, that
can be rendered via C<render_assortment_items_to_html> or
C<render_assembly_items_to_html>.

Mandatory param: part_type: assortment or assembly (the resulting html will differ)
Optional param: position (used for numbering and listrow class)

=item C<render_assortment_items_to_html ITEM_OBJECTS>

Takes an array_ref of assortment_items, and generates tables rows ready for
adding to the assortment table. Is used when a part is loaded, or whenever new
assortment items are added.

=item C<parse_form_makemodels>

Makemodels can't just be overwritten, because of the field "lastupdate", that
remembers when the lastcost for that vendor changed the last time.

So the original values are cloned and remembered, so we can compare if lastcost
was changed in $::form, and keep or update lastupdate.

lastcost isn't updated until the first time it was saved with a value, until
then it is empty.

Also a boolean "makemodel" needs to be written in parts, depending on whether
makemodel entries exist or not.

We still need init_makemodels for when we open the part for editing.

=back

=head1 TODO

=over 4

=item *

It should be possible to jump to the edit page in a specific tab

=item *

Support callbacks, e.g. creating a new part from within an order, and jumping
back to the order again afterwards.

=item *

Support units when adding assembly items or assortment items. Currently the
default unit of the item is always used.

=item *

Calculate sellprice and lastcost totals recursively, in case e.g. an assembly
consists of other assemblies.

=back

=head1 AUTHOR

G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>

=cut