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);
# methods
+sub items { goto &orderitems; }
+
sub sales_order {
my $self = shift;
my %params = @_;