SL/DB/Manager/Part.pm

   1 package SL::DB::Manager::Part;
   2
   3 use strict;
   4
   5 use SL::DB::Helpers::Manager;
   6 use base qw(SL::DB::Helpers::Manager);
   7
   8 use Carp;
   9 use SL::DBUtils;
  10
  11 sub object_class { 'SL::DB::Part' }
  12
  13 __PACKAGE__->make_manager_methods;
  14
  15 sub type_filter {
  16   my $class = shift;
  17   my $type  = lc(shift || '');
  18
  19   if ($type =~ m/^part/) {
  20     return (and => [ or                    => [ assembly => 0, assembly => undef ],
  21                      '!inventory_accno_id' => 0,
  22                      '!inventory_accno_id' => undef,
  23                    ]);
  24
  25   } elsif ($type =~ m/^service/) {
  26     return (and => [ or => [ assembly           => 0, assembly           => undef ],
  27                      or => [ inventory_accno_id => 0, inventory_accno_id => undef ],
  28                    ]);
  29
  30   } elsif ($type =~ m/^assembl/) {
  31     return (assembly => 1);
  32
  33   }
  34
  35   return ();
  36 }
  37
  38 sub get_ordered_qty {
  39   my $class    = shift;
  40   my @part_ids = @_;
  41
  42   return () unless @part_ids;
  43
  44   my $placeholders = join ',', ('?') x @part_ids;
  45   my $query        = <<SQL;
  46     SELECT oi.parts_id, SUM(oi.base_qty) AS qty
  47     FROM orderitems oi
  48     LEFT JOIN oe ON (oi.trans_id = oe.id)
  49     WHERE (oi.parts_id IN ($placeholders))
  50       AND (NOT COALESCE(oe.quotation, FALSE))
  51       AND (NOT COALESCE(oe.closed,    FALSE))
  52       AND (NOT COALESCE(oe.delivered, FALSE))
  53       AND (COALESCE(oe.vendor_id, 0) <> 0)
  54     GROUP BY oi.parts_id
  55 SQL
  56
  57   my %qty_by_id = map { $_->{parts_id} => $_->{qty} * 1 } @{ selectall_hashref_query($::form, $class->object_class->init_db->dbh, $query, @part_ids) };
  58   map { $qty_by_id{$_} ||= 0 } @part_ids;
  59
  60   return %qty_by_id;
  61 }
  62
  63 1;