From df2cb4e9ab3eb6b70a84e09fad5eb6a3a6360bfa Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 10 Jan 2012 13:28:39 +0100
Subject: [PATCH] Warensuche: Menge in Einkaufsrechnungen positiv anzeigen

Teilfix zu Bug 1549.
---
 SL/IC.pm | 7 +++++++
 1 file changed, 7 insertions(+)

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;
-- 
2.20.1