X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/83b3eda1b37e1bd22ae4ea0192cf2b0d5975a0a8..df2cb4e9ab3eb6b70a84e09fad5eb6a3a6360bfa:/SL/IC.pm

diff --git a/SL/IC.pm b/SL/IC.pm
index 67fbba09c..9b224d62e 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1077,6 +1077,13 @@ sub all_parts {
 
   map { $_->{onhand} *= 1 } @{ $form->{parts} };
 
+  # fix qty sign in ap. those are saved negative
+  if ($bsooqr && $form->{bought}) {
+    for my $row (@{ $form->{parts} }) {
+      $row->{qty} *= -1 if $row->{module} eq 'ir';
+    }
+  }
+
   # post processing for assembly parts lists (bom)
   # for each part get the assembly parts and add them into the partlist.
   my @assemblies;