Keine negativen Zahlen beim Update von lastcost in Stammdaten erlauben

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.

diff --git a/SL/IR.pm b/SL/IR.pm
index 7f4389f..edf55f1 100644 (file)
--- 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