From 3499dc6aa9809219ea3722149f1cab0b264a6b3e Mon Sep 17 00:00:00 2001 From: "G. Richardson" 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