SL/DB/Inventory.pm

   1 # This file has been auto-generated only because it didn't exist.
   2 # Feel free to modify it at will; it will not be overwritten automatically.
   3
   4 package SL::DB::Inventory;
   5
   6 use strict;
   7 use Carp;
   8 use DateTime;
   9
  10 use SL::DBUtils qw(selectrow_query);
  11 use SL::DB::MetaSetup::Inventory;
  12 use SL::DB::Manager::Inventory;
  13
  14 __PACKAGE__->meta->initialize;
  15
  16 __PACKAGE__->before_save(\&_before_save_create_trans_id);
  17 __PACKAGE__->before_save(\&_before_save_set_shippingdate);
  18 __PACKAGE__->before_save(\&_before_save_set_employee);
  19
  20 # part accessor is badly named
  21 sub part {
  22   goto &parts;
  23 }
  24
  25 sub new_from {
  26   my ($class, $obj) = @_;
  27
  28   if ('SL::DB::DeliveryOrderItemsStock' eq ref $obj) {
  29     return $class->new_from_delivery_order_stock($obj);
  30   }
  31
  32   croak "unknown obj type (@{[ ref $obj ]}) for SL::DB::Inventory::new_from";
  33 }
  34
  35 sub new_from_delivery_order_stock {
  36   my ($class, $stock) = @_;
  37
  38   my $project = $stock->delivery_order_item->effective_project;
  39
  40   return $class->new(
  41     delivery_order_items_stock_id => $stock->id,
  42     parts_id                      => $stock->delivery_order_item->parts_id,
  43     qty                           => $stock->unit_obj->convert_to($stock->qty => $stock->delivery_order_item->part->unit_obj),
  44     warehouse_id                  => $stock->warehouse_id,
  45     bin_id                        => $stock->bin_id,
  46     chargenumber                  => $stock->chargenumber,
  47     bestbefore                    => $stock->bestbefore,
  48     project_id                    => $project ? $project->id : undef,
  49     # trans_type - not set here, set in controller
  50   );
  51 }
  52
  53 sub _before_save_create_trans_id {
  54   my ($self, %params) = @_;
  55
  56   return 1 if $self->trans_id;
  57
  58   my ($trans_id) = selectrow_query($::form, SL::DB->client->dbh, qq|SELECT nextval('id')|);
  59
  60   $self->trans_id($trans_id);
  61
  62   return 1;
  63 }
  64
  65 sub _before_save_set_shippingdate {
  66   my ($self, %params) = @_;
  67
  68   return 1 if $self->shippingdate;
  69
  70   $self->shippingdate(DateTime->now);
  71
  72   return 1;
  73 }
  74
  75 sub _before_save_set_employee {
  76   my ($self, %params) = @_;
  77
  78   return 1 if $self->employee_id;
  79
  80   $self->employee(SL::DB::Manager::Employee->current);
  81
  82   return 1;
  83 }
  84 1;