Gleiche Funktionen für ähnliche Objekttypen
use strict;
+use Carp;
+
use SL::DB::MetaSetup::DeliveryOrder;
use SL::DB::Manager::DeliveryOrder;
use SL::DB::Helper::LinkedRecords;
sub items { goto &invoiceitems; }
sub payment_term { goto &payment; }
+sub is_sales {
+ # For compatibility with Order, DeliveryOrder
+ croak 'not an accessor' if @_ > 1;
+ return 1;
+}
+
# it is assumed, that ordnumbers are unique here.
sub first_order_by_ordnumber {
my $self = shift;
use strict;
+use Carp;
+
use SL::DB::MetaSetup::PurchaseInvoice;
use SL::DB::Manager::PurchaseInvoice;
use SL::DB::Helper::LinkedRecords;
sub items { goto &invoiceitems; }
sub payment_term { goto &payment; }
+sub is_sales {
+ # For compatibility with Order, DeliveryOrder
+ croak 'not an accessor' if @_ > 1;
+ return 0;
+}
+
1;