Revision 16bd4205
Von Jan Büren vor fast 2 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 232 | 232 |
next if $payments_only; |
| 233 | 233 |
|
| 234 | 234 |
# update parts table by setting lastcost to current price, don't allow negative values by using abs |
| 235 |
# maybe allow only 2 decimal places -> rounding error with fx can be too huge for datev checks |
|
| 236 |
# @values = ($form->round_amount(abs($fxsellprice * $form->{exchangerate} / $basefactor), 2), conv_i($form->{"id_$i"}));
|
|
| 235 | 237 |
$query = qq|UPDATE parts SET lastcost = ? WHERE id = ?|; |
| 236 | 238 |
@values = (abs($fxsellprice * $form->{exchangerate} / $basefactor), conv_i($form->{"id_$i"}));
|
| 237 | 239 |
do_query($form, $dbh, $query, @values); |
Auch abrufbar als: Unified diff
Ggf. Dezimalstellen für lastcost update angeben, aktuell gibt es 5