X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fca2825c79e6740fd511a2f86df9cb1ff898bfdf..9ae7f1f9554c44bb7146be17c31acf224c249c7e:/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;