SL/DB/DeliveryOrderItem.pm

   1 package SL::DB::DeliveryOrderItem;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::DeliveryOrderItem;
   6
   7 for my $field (qw(qty sellprice discount base_qty lastcost price_factor marge_price_factor)) {
   8   __PACKAGE__->attr_number($field, places => -2);
   9 }
  10
  11 __PACKAGE__->meta->make_manager_class;
  12
  13 # methods
  14
  15 sub part {
  16   # canonial alias for parts.
  17   return shift->parts;
  18 }
  19
  20 1;