|
package SL::DB::Manager::Part;
|
|
|
|
use strict;
|
|
|
|
use SL::DB::Helper::Manager;
|
|
use base qw(SL::DB::Helper::Manager);
|
|
|
|
use Carp;
|
|
use SL::DBUtils;
|
|
use SL::MoreCommon qw(listify);
|
|
|
|
sub object_class { 'SL::DB::Part' }
|
|
|
|
__PACKAGE__->make_manager_methods;
|
|
|
|
sub type_filter {
|
|
my ($class, $type) = @_;
|
|
|
|
return () unless $type;
|
|
|
|
my @types = listify($type);
|
|
my @filter;
|
|
|
|
for my $type (@types) {
|
|
if ($type =~ m/^part/) {
|
|
push @filter, (and => [ or => [ assembly => 0, assembly => undef ],
|
|
'!inventory_accno_id' => 0,
|
|
'!inventory_accno_id' => undef,
|
|
]);
|
|
} elsif ($type =~ m/^service/) {
|
|
push @filter, (and => [ or => [ assembly => 0, assembly => undef ],
|
|
or => [ inventory_accno_id => 0, inventory_accno_id => undef ],
|
|
]);
|
|
} elsif ($type =~ m/^assembl/) {
|
|
push @filter, (assembly => 1);
|
|
}
|
|
}
|
|
|
|
return @filter ? (or => \@filter) : ();
|
|
}
|
|
|
|
sub get_ordered_qty {
|
|
my $class = shift;
|
|
my @part_ids = @_;
|
|
|
|
return () unless @part_ids;
|
|
|
|
my $placeholders = join ',', ('?') x @part_ids;
|
|
my $query = <<SQL;
|
|
SELECT oi.parts_id, SUM(oi.base_qty) AS qty
|
|
FROM orderitems oi
|
|
LEFT JOIN oe ON (oi.trans_id = oe.id)
|
|
WHERE (oi.parts_id IN ($placeholders))
|
|
AND (NOT COALESCE(oe.quotation, FALSE))
|
|
AND (NOT COALESCE(oe.closed, FALSE))
|
|
AND (NOT COALESCE(oe.delivered, FALSE))
|
|
AND (COALESCE(oe.vendor_id, 0) <> 0)
|
|
GROUP BY oi.parts_id
|
|
SQL
|
|
|
|
my %qty_by_id = map { $_->{parts_id} => $_->{qty} * 1 } @{ selectall_hashref_query($::form, $class->object_class->init_db->dbh, $query, @part_ids) };
|
|
map { $qty_by_id{$_} ||= 0 } @part_ids;
|
|
|
|
return %qty_by_id;
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=encoding utf8
|
|
|
|
=head1 NAME
|
|
|
|
SL::DB::Manager::Part - RDBO manager for the C<parts> table
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=over 4
|
|
|
|
=item C<get_ordered_qty @part_ids>
|
|
|
|
For each of the given part IDs the ordered quantity is
|
|
calculated. This is done by summing over all open purchase orders.
|
|
|
|
Returns a hash with the part IDs being the keys and the ordered
|
|
quantities being the values.
|
|
|
|
=item C<type_filter @types>
|
|
|
|
Constructs a partial filter for matching any of the article types
|
|
given with C<@types>. The returned partial filter is suitable for a
|
|
Rose manager query.
|
|
|
|
Each type can be either 'C<part>', 'C<service>' or 'C<assembly>'
|
|
(their plurals are recognized as well). If multiple types are given
|
|
then they're combined with C<OR>.
|
|
|
|
=back
|
|
|
|
=head1 BUGS
|
|
|
|
Nothing here yet.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>,
|
|
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
|
|
|
|
=cut
|