use SL::DB::MetaSetup::DeliveryOrder;
use SL::DB::Manager::DeliveryOrder;
+use SL::DB::Helper::LinkedRecords;
+use SL::DB::Helper::TransNumberGenerator;
use SL::DB::Order;
use List::Util qw(first);
-for my $field (qw(transdate reqdate)) {
- __PACKAGE__->attr_date($field);
-}
-
__PACKAGE__->meta->add_relationship(orderitems => { type => 'one to many',
class => 'SL::DB::DeliveryOrderItem',
column_map => { id => 'trans_id' },
manager_args => { with_objects => [ 'part' ] }
},
+ shipto => { type => 'one to one',
+ class => 'SL::DB::Shipto',
+ column_map => { shipto_id => 'shipto_id' },
+ },
+ department => { type => 'one to one',
+ class => 'SL::DB::Department',
+ column_map => { department_id => 'id' },
+ },
);
__PACKAGE__->meta->initialize;
# methods
+sub items { goto &orderitems; }
+
sub sales_order {
my $self = shift;
my %params = @_;