X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1a106c11e3f0e22b84e92d6f52c232b5b47d3d99..b672361a43b41cd12ec50b59e9ce842dc2692ac5:/SL/DO.pm?ds=inline

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;