SL/DB/PurchaseInvoice.pm

   1 package SL::DB::PurchaseInvoice;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::PurchaseInvoice;
   6 use SL::DB::Manager::PurchaseInvoice;
   7
   8 for my $field (qw(transdate gldate datepaid duedate orddate quodate)) {
   9   __PACKAGE__->attr_date($field);
  10 }
  11
  12 __PACKAGE__->meta->add_relationship(invoiceitems => { type         => 'one to many',
  13                                                       class        => 'SL::DB::InvoiceItem',
  14                                                       column_map   => { id => 'trans_id' },
  15                                                       manager_args => { with_objects => [ 'part' ] }
  16                                                     },
  17                                    );
  18
  19 __PACKAGE__->meta->initialize;
  20
  21 1;