X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f01ed5d1c0d1bed1d04005e004a785c6cf047233..f217d072d76183bc07723dcc29503b732bd2022d:/SL/DB/Part.pm

diff --git a/SL/DB/Part.pm b/SL/DB/Part.pm
index 1ee4f26ee..b75bbb5e9 100644
--- a/SL/DB/Part.pm
+++ b/SL/DB/Part.pm
@@ -8,10 +8,10 @@ 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;
@@ -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',
@@ -80,15 +85,24 @@ __PACKAGE__->meta->add_relationships(
     type         => 'one to one',
     class        => 'SL::DB::PartsPriceHistory',
     column_map   => { id => 'part_id' },
-    manager_args => { sort_by => 'valid_from DESC', limit => 1 },
+    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 => 'customerprices', position => 'sortorder' });
+__PACKAGE__->attr_sorted('businessmodels');
 
 __PACKAGE__->before_save('_before_save_set_partnumber');
 __PACKAGE__->before_save('_before_save_set_assembly_weight');
@@ -129,7 +143,7 @@ sub items_checksum {
   # changed when saving
 
   return join(' ', sort map { $_->part->id } @{$self->items});
-};
+}
 
 sub validate {
   my ($self) = @_;
@@ -139,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
@@ -205,7 +226,7 @@ sub new_assortment {
 sub last_modification {
   my ($self) = @_;
   return $self->mtime // $self->itime;
-};
+}
 
 sub used_in_record {
   my ($self) = @_;
@@ -225,6 +246,7 @@ sub used_in_record {
   }
   return 0;
 }
+
 sub orphaned {
   my ($self) = @_;
   die 'not an accessor' if @_ > 1;
@@ -297,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;
@@ -349,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
@@ -436,7 +459,7 @@ select unnest(ids)
 SQL
 
   my $objs  = SL::DB::Manager::Inventory->get_all(
-    query        => [ id => [ \"$query" ] ],                           # make emacs happy "
+    query        => [ id => [ \"$query" ] ],                           # make emacs happy "]]
     with_objects => [ 'parts', 'trans_type', 'bin', 'bin.warehouse' ], # prevent lazy loading in template
     sort_by      => 'itime DESC',
   );
@@ -463,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
@@ -480,9 +503,9 @@ sub clone_and_reset_deep {
       foreach my $price ( @{$clone->prices} ) {
         $price->id(undef);
         $price->parts_id(undef);
-      };
-    };
-  };
+      }
+    }
+  }
 
   return $clone;
 }
@@ -507,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) = @_;
@@ -528,7 +551,7 @@ 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) = @_;
@@ -536,7 +559,51 @@ sub items_weight_sum {
   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;