Revision 0e7a8b0c
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/Controller/Part.pm | ||
|---|---|---|
| 139 | 139 |
@{ CVar->get_configs() };
|
| 140 | 140 |
|
| 141 | 141 |
$::form->{"cvar_" . $_->{name} . "_valid"} = 1 for @default_valid_configs;
|
| 142 |
} else {
|
|
| 143 |
$::form->{lastcost_modified} = $self->check_lastcost_modified;
|
|
| 142 | 144 |
} |
| 143 | 145 |
|
| 144 | 146 |
# $self->part has been loaded, parsed and validated without errors and is ready to be saved |
| ... | ... | |
| 860 | 862 |
|
| 861 | 863 |
} |
| 862 | 864 |
|
| 865 |
sub check_lastcost_modified {
|
|
| 866 |
my ($self) = @_; |
|
| 867 |
|
|
| 868 |
return abs($self->part->lastcost - $self->part->last_price_update->lastcost) < 0.009 ? undef : 1; |
|
| 869 |
} |
|
| 870 |
|
|
| 863 | 871 |
sub parse_form {
|
| 864 | 872 |
my ($self, %params) = @_; |
| 865 | 873 |
|
Auch abrufbar als: Unified diff
Einkaufspreis von Erzeugnissen/Sortimententen aktualisieren (rekursiv)
Falls sich ein einzelner Bestandteil verändert. Läuft über alle
weiter verbauten Teile durch Aufruf von Parts::after_save.
Benötigt einen boolean Parameter in $::form->{lastcost_modified}, damit
nicht bei jedem Speichern des Artikels ohne Veränderung des EK-Preises
die Rekursion losgetreten wird. Beachtet auch die Veränderungsroutine
innerhalb des EK-Rechnungscodes.