Revision 5a923b79
Von Jan Büren vor mehr als 11 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 132 | 132 |
bin => $dst_bin->id, |
| 133 | 133 |
qty => $qty, |
| 134 | 134 |
)->save; |
| 135 |
} |
|
| 135 |
# Standardlagerplatz in Stammdaten gleich mitverschieben |
|
| 136 |
if (defined($transfer->{change_default_bin})){
|
|
| 137 |
my $part = SL::DB::Part->new(id => conv_i($transfer->{parts_id}))->load;
|
|
| 138 |
$part->update_attributes(warehouse_id => conv_i($transfer->{dst_warehouse_id}));
|
|
| 139 |
$part->update_attributes(bin_id => conv_i($transfer->{dst_bin_id}));
|
|
| 140 |
} |
|
| 141 |
} |
|
| 136 | 142 |
|
| 137 | 143 |
push @trans_ids, $trans_id; |
| 138 | 144 |
} |
| bin/mozilla/wh.pl | ||
|---|---|---|
| 282 | 282 |
} |
| 283 | 283 |
|
| 284 | 284 |
$transfer->{comment} = $form->{comment};
|
| 285 |
$transfer->{change_default_bin} = $form->{change_default_bin};
|
|
| 285 | 286 |
|
| 286 | 287 |
push @transfers, $transfer; |
| 287 | 288 |
|
| templates/webpages/wh/transfer_parts_selection.html | ||
|---|---|---|
| 56 | 56 |
<td>[% 'Optional comment' | $T8 %]:</td> |
| 57 | 57 |
<td><input name="comment" size="20"></td> |
| 58 | 58 |
</tr> |
| 59 |
<tr> |
|
| 60 |
<td>[% 'Change default bin for this parts' | $T8 %]:</td> |
|
| 61 |
<td><input type="checkbox" name="change_default_bin"<td> |
|
| 62 |
</tr> |
|
| 59 | 63 |
</table> |
| 60 | 64 |
</p> |
| 61 | 65 |
|
Auch abrufbar als: Unified diff
Standardlagerplatz direkt beim Umlagern ändern, falls entsprechend angehakt