Workflow Lieferantenauftrag->Kreditorenbuchung: mini Performance-Optimierung

Später benötigte Relationen direkt mit laden.
Dank an Geoffrey.

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index bba2af4c09de4ff30e5a5c6d57f6e760c76cca70..ed4d864395c6968d8f6eab80e31a0ccc03d070f4 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -1189,7 +1189,7 @@ sub add_from_purchase_order {
   return if !$::form->{id};
 
   my $order_id = delete $::form->{id};
   return if !$::form->{id};
 
   my $order_id = delete $::form->{id};

-  my $order    = SL::DB::Order->new(id => $order_id)->load;
+  my $order    = SL::DB::Order->new(id => $order_id)->load(with => [ 'vendor', 'currency', 'payment_terms' ]);

 
   return if $order->type ne 'purchase_order';
 
 
   return if $order->type ne 'purchase_order';