SL::DB::Order: keinen Fehler werfen, wenn Typ noch nicht zu ermitteln.

Das ist der Fall, wenn noch kein Lieferant oder Kunde gesetzt ist.

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index ec12125..31f6ad4 100644 (file)
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -276,6 +276,8 @@ sub new_from {
 sub number {
   my $self = shift;
 
+  return if !$self->type;
+
   my %number_method = (
     sales_order       => 'ordnumber',
     sales_quotation   => 'quonumber',