Revision 5268bd5d
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/IR.pm | ||
|---|---|---|
|
|
||
|
next if $payments_only;
|
||
|
|
||
|
# update lastcost
|
||
|
$query = qq|UPDATE parts SET lastcost = ? WHERE id = ?|;
|
||
|
do_query($form, $dbh, $query, $form->{"sellprice_$i"} / $basefactor, conv_i($form->{"id_$i"}));
|
||
|
# change lastcost for part and all assemblies and assortments recursively
|
||
|
my $a = SL::DB::Part->load_cached(conv_i($form->{"id_$i"}));
|
||
|
my $part_price_factor = $a->price_factor_id ? $a->price_factor->factor : 1;
|
||
|
my $new_lastcost = abs($fxsellprice * $form->{exchangerate} / $basefactor / $price_factor * $part_price_factor);
|
||
|
if ( abs($a->lastcost - $new_lastcost) >= 0.009 ) {
|
||
|
$a->update_attributes(lastcost => $new_lastcost);
|
||
|
$a->set_lastcost_assemblies_and_assortiments;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
next if $payments_only;
|
||
Auch abrufbar als: Unified diff
EK-Rechnung: Änderung EK-Preis Preisfaktor berücksichtigen auch bei keinem inventory_accno
Und Erzeugnisse/Sortimente auch updaten.
Und nur aktualisieren, wenn geändert.
Genau wie in dem if-Zweig, wo es ein inventroy_accno gibt.
commit 6b8e3b8f9763a6a92c713092e232d8157ea4e772
Author: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Fri Oct 13 15:06:27 2023 +0200