X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f9676efea9ccfa01df2a57dca9c45cc8fde0d09e..22150c521fb5784c8c67c0eeaed8984c47859afe:/SL/DB/DeliveryOrder.pm diff --git a/SL/DB/DeliveryOrder.pm b/SL/DB/DeliveryOrder.pm index b5bdcb413..724a01d7b 100644 --- a/SL/DB/DeliveryOrder.pm +++ b/SL/DB/DeliveryOrder.pm @@ -4,6 +4,8 @@ use strict; 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); @@ -19,6 +21,8 @@ __PACKAGE__->meta->initialize; # methods +sub items { goto &orderitems; } + sub sales_order { my $self = shift; my %params = @_;