Revision a908b2eb
Von Bernd Bleßmann vor etwa 2 Monaten hinzugefügt
| SL/Controller/Part.pm | ||
|---|---|---|
| 254 | 254 |
$self->part($oldpart->clone_and_reset_deep); |
| 255 | 255 |
$self->parse_form(use_as_new => 1); |
| 256 | 256 |
$self->part->partnumber(undef); |
| 257 |
|
|
| 258 |
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
|
|
| 259 |
# No right to edit prices -> remove prices for new part. |
|
| 260 |
$self->part->$_(undef) for qw(sellprice lastcost listprice); |
|
| 261 |
} |
|
| 262 |
|
|
| 257 | 263 |
$self->render_form(use_as_new => 1); |
| 258 | 264 |
} |
| 259 | 265 |
|
| ... | ... | |
| 1033 | 1039 |
|
| 1034 | 1040 |
my $params = delete($::form->{part}) || { };
|
| 1035 | 1041 |
|
| 1042 |
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
|
|
| 1043 |
# No right to set or change prices, so delete prices from params. |
|
| 1044 |
delete $params->{$_} for qw(sellprice_as_number lastcost_as_number listprice_as_number);
|
|
| 1045 |
|
|
| 1046 |
# Todo: pricegroup prices, makemodel prices, customer prices? |
|
| 1047 |
} |
|
| 1048 |
|
|
| 1036 | 1049 |
delete $params->{id};
|
| 1037 | 1050 |
$self->part->assign_attributes(%{ $params});
|
| 1038 | 1051 |
$self->part->bin_id(undef) unless $self->part->warehouse_id; |
Auch abrufbar als: Unified diff
Artikelstamm: Listen-, Verkaufs- und Einkaufspreis nicht ändern können, …
wenn kein Recht.
Preisfelder in der Maske sind nicht editierbar und Preise werden nicht
aus der Form geholt. Preise des vorhandenen Objekts werden nicht überschrieben.