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;
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',
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');
# changed when saving
return join(' ', sort map { $_->part->id } @{$self->items});
-};
+}
sub validate {
my ($self) = @_;
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
sub last_modification {
my ($self) = @_;
return $self->mtime // $self->itime;
-};
+}
sub used_in_record {
my ($self) = @_;
}
return 0;
}
+
sub orphaned {
my ($self) = @_;
die 'not an accessor' if @_ > 1;
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;
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
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',
);
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
foreach my $price ( @{$clone->prices} ) {
$price->id(undef);
$price->parts_id(undef);
- };
- };
- };
+ }
+ }
+ }
return $clone;
}
@removals = grep { !exists( $comparison{$_} ) } @self_part_ids if @self_part_ids;
return \@additions, \@removals;
-};
+}
sub items_sellprice_sum {
my ($self, %params) = @_;
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;
projects / mfinanz.git / blobdiff