Nur Verkaufsbelege in Rechnungen umwandeln

[mfinanz.git] / SL / DB / Order.pm

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index ebf0994423cdcd0cf1c30acbe6fe38b082cf6be5..573e4f5c5cbc67a8f34b9b8f4c092b5208598b3e 100644 (file)
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -101,6 +101,8 @@ sub convert_to {
 sub convert_to_invoice {
   my ($self, %params) = @_;
 
+  croak("Conversion to invoices is only supported for sales records") unless $self->customer_id;
+
   if (!$params{ar_id}) {
     my $chart = SL::DB::Manager::Chart->get_all(query   => [ SL::DB::Manager::Chart->link_filter('AR') ],
                                                 sort_by => 'id ASC',