Revision 156a5d3b
Von Bernd Bleßmann vor 6 Tagen hinzugefügt
| SL/Controller/Part.pm | ||
|---|---|---|
| 253 | 253 |
$self->part($oldpart->clone_and_reset_deep); |
| 254 | 254 |
$self->parse_form(use_as_new => 1); |
| 255 | 255 |
$self->part->partnumber(undef); |
| 256 |
|
|
| 257 |
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
|
|
| 258 |
# No right to edit prices -> remove prices for new part. |
|
| 259 |
$self->part->$_(undef) for qw(sellprice lastcost listprice); |
|
| 260 |
} |
|
| 261 |
|
|
| 256 | 262 |
$self->render_form(use_as_new => 1); |
| 257 | 263 |
} |
| 258 | 264 |
|
| ... | ... | |
| 1030 | 1036 |
|
| 1031 | 1037 |
my $params = delete($::form->{part}) || { };
|
| 1032 | 1038 |
|
| 1039 |
if (!$::auth->assert('part_service_assembly_edit_prices', 'may_fail')) {
|
|
| 1040 |
# No right to set or change prices, so delete prices from params. |
|
| 1041 |
delete $params->{$_} for qw(sellprice_as_number lastcost_as_number listprice_as_number);
|
|
| 1042 |
|
|
| 1043 |
# Todo: pricegroup prices, makemodel prices, customer prices? |
|
| 1044 |
} |
|
| 1045 |
|
|
| 1033 | 1046 |
delete $params->{id};
|
| 1034 | 1047 |
$self->part->assign_attributes(%{ $params});
|
| 1035 | 1048 |
$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.