X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FPart.pm;h=ecdaeaabe4f24139766c2e77f030ea634fff216a;hb=284470c116a0f1a73f82797160b0170e55a58652;hp=952bce278ba93057f3ef3e4523b7aaab379253f6;hpb=8003c3b1db2dd73402977fcfe29653108794099c;p=kivitendo-erp.git diff --git a/SL/DB/Part.pm b/SL/DB/Part.pm index 952bce278..ecdaeaabe 100644 --- a/SL/DB/Part.pm +++ b/SL/DB/Part.pm @@ -21,16 +21,6 @@ __PACKAGE__->meta->add_relationships( class => 'SL::DB::Assembly', column_map => { id => 'id' }, }, - partsgroup => { - type => 'one to one', - class => 'SL::DB::PartsGroup', - column_map => { partsgroup_id => 'id' }, - }, - price_factor => { - type => 'one to one', - class => 'SL::DB::PriceFactor', - column_map => { price_factor_id => 'id' }, - }, prices => { type => 'one to many', class => 'SL::DB::Price', @@ -55,7 +45,7 @@ __PACKAGE__->before_save('_before_save_set_partnumber'); sub _before_save_set_partnumber { my ($self) = @_; - $self->create_trans_number if $self->partnumber eq ''; + $self->create_trans_number if !$self->partnumber; return 1; } @@ -107,7 +97,6 @@ sub orphaned { SL::DB::InvoiceItem SL::DB::OrderItem SL::DB::Inventory - SL::DB::RMAItem ); for my $class (@relations) { @@ -190,6 +179,29 @@ sub get_chart { return $charts->{$taxzone}->{$type}; } +# this is designed to ignore chargenumbers, expiration dates and just give a list of how much <-> where +sub get_simple_stock { + my ($self, %params) = @_; + + return [] unless $self->id; + + my $query = <<''; + SELECT sum(qty), warehouse_id, bin_id FROM inventory WHERE parts_id = ? + GROUP BY warehouse_id, bin_id + + my $stock_info = selectall_hashref_query($::form, $::form->get_standard_dbh, $query, $self->id); + [ map { bless $_, 'SL::DB::Part::SimpleStock'} @$stock_info ]; +} +# helper class to have bin/warehouse accessors in stock result +{ package SL::DB::Part::SimpleStock; + sub warehouse { require SL::DB::Warehouse; SL::DB::Manager::Warehouse->find_by_or_create(id => $_[0]->{warehouse_id}) } + sub bin { require SL::DB::Bin; SL::DB::Manager::Bin ->find_by_or_create(id => $_[0]->{bin_id}) } +} + +sub long_description { + join ' ', grep $_, map $_[0]->$_, qw(partnumber description); +} + 1; __END__