From 3499dc6aa9809219ea3722149f1cab0b264a6b3e Mon Sep 17 00:00:00 2001
From: "G. Richardson" <information@lx-office-hosting.de>
Date: Tue, 7 Feb 2012 14:38:55 +0100
Subject: [PATCH] Keine negativen Zahlen beim Update von lastcost in Stammdaten
 erlauben
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Kauft man einen Artikel ein wird beim speichern der Einkaufsrechnung
automatisch in den Stammdaten der EK-Preis für diesen Artikel zu dem Preis
gesetzt.

Da es im Einkauf keine Gutschrift gibt helfen sich manche Benutzer
damit, daß sie in der Einkaufsrechnung mit negativen Zahlen arbeiten.

Wenn man das macht wäre es prinzipiell besser mit negativer Menge statt
negativem Preis zu arbeiten, aber wenn man beim Preis eine negative Zahl
eingibt sollte in den Stammdaten kein negativer Preis  gespeichert werden,
deshalb wird der Betrag (abs) des Preises genommen.
---
 SL/IR.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SL/IR.pm b/SL/IR.pm
index 7f4389ffa..edf55f16a 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -207,9 +207,9 @@ sub post_invoice {
 
       next if $payments_only;
 
-      # update parts table
+      # update parts table by setting lastcost to current price, don't allow negative values by using abs
       $query = qq|UPDATE parts SET lastcost = ? WHERE id = ?|;
-      @values = ($form->{"sellprice_$i"}, conv_i($form->{"id_$i"}));
+      @values = (abs($form->{"sellprice_$i"}), conv_i($form->{"id_$i"}));
       do_query($form, $dbh, $query, @values);
 
       # check if we sold the item already and
-- 
2.20.1