Revision e9d624e6
Von Frank Messerschmidt vor etwa 6 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 99 | 99 |
$direction |= 1 if $src_bin; |
| 100 | 100 |
$direction |= 2 if $dst_bin; |
| 101 | 101 |
|
| 102 |
my $transfer_type = $objectify->($transfer, 'transfer_type', 'SL::DB::TransferType', direction => $directions[$direction], |
|
| 103 |
description => $transfer->{transfer_type});
|
|
| 102 |
my $transfer_type_id; |
|
| 103 |
if ($transfer->{transfer_type_id}) {
|
|
| 104 |
$transfer_type_id = $transfer->{transfer_type_id};
|
|
| 105 |
} else {
|
|
| 106 |
my $transfer_type = $objectify->($transfer, 'transfer_type', 'SL::DB::TransferType', direction => $directions[$direction], |
|
| 107 |
description => $transfer->{transfer_type});
|
|
| 108 |
$transfer_type_id = $transfer_type->id; |
|
| 109 |
} |
|
| 104 | 110 |
|
| 105 | 111 |
my $stocktaking_qty = $transfer->{stocktaking_qty};
|
| 106 | 112 |
|
| 107 | 113 |
my %params = ( |
| 108 | 114 |
part => $part, |
| 109 | 115 |
employee => $employee, |
| 110 |
trans_type => $transfer_type,
|
|
| 116 |
trans_type_id => $transfer_type_id,
|
|
| 111 | 117 |
project => $project, |
| 112 | 118 |
trans_id => $trans_id, |
| 113 | 119 |
shippingdate => !$transfer->{shippingdate} || $transfer->{shippingdate} eq 'current_date'
|
Auch abrufbar als: Unified diff
Lager/Einlagern: Grund der Einlagerung wird ignoriert
- Abfrage der eindeutigen ID des Transfertypes statt der Bezeichnung hinzugefügt
- Abfrage nach der eindeutigen ID des Transfertyps erweitert:
- ist diese vorhanden so wird sie direkt verwendet
- ist sie nicht vorhanden so wird das Transferobjekt über den alten Weg erzeugt und die ID des Transfertyps daraus genommen
(letzteres tritt beim auslagern von Lieferscheinen auf)
implementiert TICKET #4482
(cherry picked from commit e98edcb3c81a18d52dd90b69c76bebeb45954bca)
(cherry-pick von odyn)