X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/20004cac8f656f67e86e63fdb85f6dc083cf83d7..f217d072d76183bc07723dcc29503b732bd2022d:/SL/DB/Part.pm diff --git a/SL/DB/Part.pm b/SL/DB/Part.pm index 9eb76df6a..b75bbb5e9 100644 --- a/SL/DB/Part.pm +++ b/SL/DB/Part.pm @@ -4,13 +4,14 @@ use strict; use Carp; use List::MoreUtils qw(any uniq); +use List::Util qw(sum); use Rose::DB::Object::Helpers qw(as_tree); use SL::Locale::String qw(t8); +use SL::Helper::Inventory; use SL::DBUtils; use SL::DB::MetaSetup::Part; use SL::DB::Manager::Part; -use SL::DB::Chart; use SL::DB::Helper::AttrHTML; use SL::DB::Helper::AttrSorted; use SL::DB::Helper::TransNumberGenerator; @@ -26,13 +27,12 @@ use SL::DB::Helper::DisplayableNamePreferences ( {name => 'ean', title => t8('EAN') }, ], ); -use List::Util qw(sum); __PACKAGE__->meta->add_relationships( assemblies => { type => 'one to many', class => 'SL::DB::Assembly', - manager_args => { sort_by => 'position, oid' }, + manager_args => { sort_by => 'position' }, column_map => { id => 'id' }, }, prices => { @@ -47,6 +47,11 @@ __PACKAGE__->meta->add_relationships( manager_args => { sort_by => 'sortorder' }, column_map => { id => 'parts_id' }, }, + businessmodels => { + type => 'one to many', + class => 'SL::DB::BusinessModel', + column_map => { id => 'parts_id' }, + }, customerprices => { type => 'one to many', class => 'SL::DB::PartCustomerPrice', @@ -61,6 +66,7 @@ __PACKAGE__->meta->add_relationships( type => 'one to many', class => 'SL::DB::AssortmentItem', column_map => { id => 'assortment_id' }, + manager_args => { sort_by => 'position' }, }, history_entries => { type => 'one to many', @@ -75,14 +81,31 @@ __PACKAGE__->meta->add_relationships( column_map => { id => 'part_id' }, manager_args => { with_objects => [ 'shop' ] }, }, + last_price_update => { + type => 'one to one', + class => 'SL::DB::PartsPriceHistory', + column_map => { id => 'part_id' }, + manager_args => { sort_by => 'valid_from DESC, id DESC', limit => 1 }, + }, + purchase_basket_item => { + type => 'one to one', + class => 'SL::DB::PurchaseBasketItem', + column_map => { id => 'part_id' }, + }, ); __PACKAGE__->meta->initialize; +use Rose::Object::MakeMethods::Generic ( + 'scalar --get_set_init' => [ qw(onhandqty stockqty get_open_ordered_qty) ], +); __PACKAGE__->attr_html('notes'); -__PACKAGE__->attr_sorted({ unsorted => 'makemodels', position => 'sortorder' }); +__PACKAGE__->attr_sorted({ unsorted => 'makemodels', position => 'sortorder' }); +__PACKAGE__->attr_sorted({ unsorted => 'customerprices', position => 'sortorder' }); +__PACKAGE__->attr_sorted('businessmodels'); __PACKAGE__->before_save('_before_save_set_partnumber'); +__PACKAGE__->before_save('_before_save_set_assembly_weight'); sub _before_save_set_partnumber { my ($self) = @_; @@ -91,6 +114,16 @@ sub _before_save_set_partnumber { return 1; } +sub _before_save_set_assembly_weight { + my ($self) = @_; + + if ( $self->part_type eq 'assembly' ) { + my $weight_sum = $self->items_weight_sum; + $self->weight($self->items_weight_sum) if $weight_sum; + } + return 1; +} + sub items { my ($self) = @_; @@ -110,7 +143,7 @@ sub items_checksum { # changed when saving return join(' ', sort map { $_->part->id } @{$self->items}); -}; +} sub validate { my ($self) = @_; @@ -120,9 +153,16 @@ sub validate { push @errors, $::locale->text('The unit is missing.') unless $self->unit; push @errors, $::locale->text('The buchungsgruppe is missing.') unless $self->buchungsgruppen_id or $self->buchungsgruppe; + if ( $::instance_conf->get_partsgroup_required + && ( !$self->partsgroup_id or ( $self->id && !$self->partsgroup_id && $self->partsgroup ) ) ) { + # when unsetting an existing partsgroup in the interface, $self->partsgroup_id will be undef but $self->partsgroup will still have a value + # this needs to be checked, as partsgroup dropdown has an empty value + push @errors, $::locale->text('The partsgroup is missing.'); + } + unless ( $self->id ) { push @errors, $::locale->text('The partnumber already exists.') if SL::DB::Manager::Part->get_all_count(where => [ partnumber => $self->partnumber ]); - }; + } if ($self->is_assortment && $self->orphaned && scalar @{$self->assortment_items} == 0) { # when assortment isn't orphaned form doesn't contain any items @@ -186,7 +226,7 @@ sub new_assortment { sub last_modification { my ($self) = @_; return $self->mtime // $self->itime; -}; +} sub used_in_record { my ($self) = @_; @@ -206,6 +246,7 @@ sub used_in_record { } return 0; } + sub orphaned { my ($self) = @_; die 'not an accessor' if @_ > 1; @@ -278,6 +319,7 @@ sub get_taxkey { sub get_chart { my ($self, %params) = @_; + require SL::DB::Chart; my $type = (any { $_ eq $params{type} } qw(income expense inventory)) ? $params{type} : croak("Invalid 'type' parameter '$params{type}'"); my $taxzone = $params{ defined($params{taxzone}) ? 'taxzone' : 'taxzone_id' } * 1; @@ -330,7 +372,7 @@ sub get_stock { my ($stock) = selectrow_query($::form, $self->db->dbh, $query, @values); return $stock || 0; # never return undef -}; +} # this is designed to ignore chargenumbers, expiration dates and just give a list of how much <-> where @@ -373,7 +415,7 @@ sub get_simple_stock_sql { LEFT JOIN warehouse w ON (i.warehouse_id = w.id) LEFT JOIN bin b ON (i.bin_id = b.id) WHERE parts_id = ? - GROUP BY w.description, b.description, p.unit, i.parts_id + GROUP BY w.description, w.sortkey, b.description, p.unit, i.parts_id HAVING SUM(qty) != 0 WINDOW pt AS (PARTITION BY i.parts_id ORDER BY w.sortkey, b.description, p.unit), wh AS (PARTITION by w.description ORDER BY w.sortkey, b.description, p.unit) @@ -417,7 +459,7 @@ select unnest(ids) SQL my $objs = SL::DB::Manager::Inventory->get_all( - query => [ id => [ \"$query" ] ], + query => [ id => [ \"$query" ] ], # make emacs happy "]] with_objects => [ 'parts', 'trans_type', 'bin', 'bin.warehouse' ], # prevent lazy loading in template sort_by => 'itime DESC', ); @@ -444,16 +486,16 @@ sub clone_and_reset_deep { my $clone = $self->clone_and_reset; # resets id and partnumber (primary key and unique constraint) $clone->makemodels( map { $_->clone_and_reset } @{$self->makemodels} ) if @{$self->makemodels}; $clone->translations( map { $_->clone_and_reset } @{$self->translations} ) if @{$self->translations}; - + $clone->custom_variables( map { $_->clone_and_reset } @{$self->custom_variables} ) if @{$self->custom_variables}; if ( $self->is_assortment ) { # use clone rather than reset_and_clone because the unique constraint would also remove parts_id $clone->assortment_items( map { $_->clone } @{$self->assortment_items} ); $_->assortment_id(undef) foreach @{ $clone->assortment_items } - }; + } if ( $self->is_assembly ) { $clone->assemblies( map { $_->clone_and_reset } @{$self->assemblies}); - }; + } if ( $self->prices ) { $clone->prices( map { $_->clone } @{$self->prices}); # pricegroup_id gets reset here because it is part of a unique contraint @@ -461,9 +503,9 @@ sub clone_and_reset_deep { foreach my $price ( @{$clone->prices} ) { $price->id(undef); $price->parts_id(undef); - }; - }; - }; + } + } + } return $clone; } @@ -488,7 +530,7 @@ sub item_diffs { @removals = grep { !exists( $comparison{$_} ) } @self_part_ids if @self_part_ids; return \@additions, \@removals; -}; +} sub items_sellprice_sum { my ($self, %params) = @_; @@ -509,7 +551,59 @@ sub items_lastcost_sum { return unless $self->is_assortment or $self->is_assembly; return unless $self->items; sum map { $_->linetotal_lastcost } @{$self->items}; -}; +} + +sub items_weight_sum { + my ($self) = @_; + + return unless $self->is_assembly; + return unless $self->items; + sum map { $_->linetotal_weight} @{$self->items}; +} + +sub set_lastcost_assemblies_and_assortiments { + my ($self) = @_; + + return 1 unless $self->id; # not saved yet + + require SL::DB::AssortmentItem; + require SL::DB::Assembly; + + # 1. check all + my $assortments = SL::DB::Manager::AssortmentItem->get_all(where => [parts_id => $self->id ]); + my $assemblies = SL::DB::Manager::Assembly->get_all( where => [parts_id => $self->id ]); + + foreach my $assembly (@{ $assemblies }) { + my $a = $assembly->assembly_part; + $a->update_attributes(lastcost => $a->items_lastcost_sum); + $a->set_lastcost_assemblies_and_assortiments; + } + foreach my $assortment (@{ $assortments }) { + my $a = $assortment->assortment; + $a->update_attributes(lastcost => $a->items_lastcost_sum); + $a->set_lastcost_assemblies_and_assortiments; + } + return 1; +} + +sub init_onhandqty{ + my ($self) = @_; + my $qty = SL::Helper::Inventory::get_onhand(part => $self->id) || 0; + return $qty; +} + +sub init_stockqty{ + my ($self) = @_; + my $qty = SL::Helper::Inventory::get_stock(part => $self->id) || 0; + return $qty; +} + +sub init_get_open_ordered_qty { + my ($self) = @_; + my $result = SL::DB::Manager::Part->get_open_ordered_qty($self->id); + + return $result; +} 1;