X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7525426386204abfcc6e49b481de7389ade44dc4..9e9a940e1361ef26a2cf2f8e40ac1bd901771fdc:/SL/DO.pm

diff --git a/SL/DO.pm b/SL/DO.pm
index 17d896f6e..5b5cf1d13 100644
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -1099,7 +1099,7 @@ sub get_shipped_qty {
   my $all_units = AM->retrieve_all_units();
 
   foreach my $entry (@{ $entries }) {
-    $entry->{qty} *= $all_units->{$entry->{unit}}->{factor} / $all_units->{$entry->{partunit}}->{factor};
+    $entry->{qty} *= AM->convert_unit($entry->{unit}, $entry->{partunit}, $all_units);
 
     if (!$ship{$entry->{parts_id}}) {
       $ship{$entry->{parts_id}} = $entry;