X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0c564932ee0502911972f31f33a6041cfab5e98b..3f3b575b87cede02bbc8048b4b9e290f4597bed0:/SL/BackgroundJob/ConvertTimeRecordings.pm

diff --git a/SL/BackgroundJob/ConvertTimeRecordings.pm b/SL/BackgroundJob/ConvertTimeRecordings.pm
index b3ec878d0..ffc2bae2c 100644
--- a/SL/BackgroundJob/ConvertTimeRecordings.pm
+++ b/SL/BackgroundJob/ConvertTimeRecordings.pm
@@ -8,6 +8,7 @@ use SL::DB::DeliveryOrder;
 use SL::DB::Part;
 use SL::DB::Project;
 use SL::DB::TimeRecording;
+use SL::Helper::ShippedQty;
 use SL::Locale::String qw(t8);
 
 use DateTime;
@@ -210,7 +211,8 @@ sub convert_with_linking {
           }
         }
 
-        # Todo: reduce qty on related order
+        my $helper = SL::Helper::ShippedQty->new->calculate($related_order)->write_to_objects;
+        $related_order->update_attributes(delivered => $related_order->{delivered});
 
         1;
       })) {