Revision 4fcb6449
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| t/wh/transfer.t | ||
|---|---|---|
| 106 | 106 |
|
| 107 | 107 |
is $r4->{qty}, $r5->{qty} - 6.2, 'full object transfer back';
|
| 108 | 108 |
|
| 109 |
############################################# |
|
| 110 |
|
|
| 111 |
WH->transfer({
|
|
| 112 |
transfer_type => SL::DB::Manager::TransferType->find_by(description => 'transfer'), |
|
| 113 |
parts => $part, |
|
| 114 |
src_bin => $bin2, |
|
| 115 |
src_warehouse => $wh, |
|
| 116 |
dst_bin => $bin1, |
|
| 117 |
dst_warehouse => $wh, |
|
| 118 |
qty => 1, |
|
| 119 |
}, |
|
| 120 |
{
|
|
| 121 |
transfer_type => SL::DB::Manager::TransferType->find_by(description => 'transfer'), |
|
| 122 |
parts => $part, |
|
| 123 |
src_bin => $bin1, |
|
| 124 |
src_warehouse => $wh, |
|
| 125 |
dst_bin => $bin2, |
|
| 126 |
dst_warehouse => $wh, |
|
| 127 |
qty => 1, |
|
| 128 |
}); |
|
| 129 |
|
|
| 130 |
my $r6 = $report->(); |
|
| 131 |
|
|
| 132 |
is $r5->{qty}, $r6->{qty}, 'back and forth in one transaction';
|
|
| 133 |
|
|
| 109 | 134 |
done_testing; |
| 110 | 135 |
|
| 111 | 136 |
|
Auch abrufbar als: Unified diff
Mehr als eine Lagertransaktion auf einmal testen.