X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2a4583f30144fd4d2bcec2833f1ecaaa19a5ddf6..3c3073bf0643afc162c3d17b4a93b47b3a11044d:/SL/Controller/Order.pm?ds=inline

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index 88069f3c4..fe27d55c3 100644
--- a/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@ -1798,8 +1798,10 @@ sub pre_render {
   }
 
   if (any { $self->type eq $_ } (sales_order_type(), purchase_order_type())) {
-    # calculate shipped qtys here to prevent calling calculate for every item via the items method
-    SL::Helper::ShippedQty->new->calculate($self->order)->write_to_objects;
+    # Calculate shipped qtys here to prevent calling calculate for every item via the items method.
+    # Do not use write_to_objects to prevent order->delivered to be set, because this should be
+    # the value from db, which can be set manually or is set when linked delivery orders are saved.
+    SL::Helper::ShippedQty->new->calculate($self->order)->write_to(\@{$self->order->items});
   }
 
   if ($self->order->number && $::instance_conf->get_webdav) {