Revision 791090f3
Von Jan Büren vor mehr als 9 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 137 | 137 |
)->save; |
| 138 | 138 |
# Standardlagerplatz in Stammdaten gleich mitverschieben |
| 139 | 139 |
if (defined($transfer->{change_default_bin})){
|
| 140 |
my $part = SL::DB::Part->new(id => conv_i($transfer->{parts_id}))->load;
|
|
| 141 |
$part->update_attributes(warehouse_id => conv_i($transfer->{dst_warehouse_id}));
|
|
| 142 |
$part->update_attributes(bin_id => conv_i($transfer->{dst_bin_id}));
|
|
| 140 |
$part->update_attributes(warehouse_id => $dst_wh->id, bin_id => $dst_bin->id); |
|
| 143 | 141 |
} |
| 144 | 142 |
} |
| 145 | 143 |
|
Auch abrufbar als: Unified diff
Standardlagerplatz in Stammdaten beim Umlagern ändern
Scheinbar hat dies bisweilen immer nur bei gleichbleibenden Lagern funktioniert
(s.a. Ergänzung POD in Object.pm->update_attributes)
Ferner, sinnvollerweise das bestehende Part-Objekt verwenden und kein neues
erzeugen.