X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/61bd6288787a4bfaeaa93b3bbc211d52e11ff35d..a93f1e395694983593c65b35427a13d68e46d380:/SL/DB/Invoice.pm

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index b3adee734..f75a6cd65 100644
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -37,6 +37,12 @@ __PACKAGE__->meta->initialize;
 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;