Revision b36c1544
Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt
| t/wh/inventory.t | ||
|---|---|---|
|
"Comments for assembly with service productions are ok"
|
||
|
);
|
||
|
|
||
|
# check own allocations with more than one allocation per part
|
||
|
reset_db();
|
||
|
create_standard_stock();
|
||
|
|
||
|
set_stock(
|
||
|
part => $part1,
|
||
|
qty => 5,
|
||
|
bin => $bin1,
|
||
|
# no chargenumber
|
||
|
);
|
||
|
set_stock(
|
||
|
part => $part1,
|
||
|
qty => 5,
|
||
|
bin => $bin1,
|
||
|
chargenumber => 'CH1',
|
||
|
);
|
||
|
set_stock(
|
||
|
part => $part1,
|
||
|
qty => 2,
|
||
|
bin => $bin1,
|
||
|
chargenumber => 'CH2',
|
||
|
);
|
||
|
set_stock(
|
||
|
part => $part2,
|
||
|
qty => 6.34,
|
||
|
bin => $bin1,
|
||
|
);
|
||
|
|
||
|
my @alloc1_1 = SL::Helper::Inventory::allocate(part => $part1, qty => 5);
|
||
|
my @alloc1_2 = SL::Helper::Inventory::allocate(part => $part1, qty => 5, chargenumber => 'CH1');
|
||
|
my @alloc1_3 = SL::Helper::Inventory::allocate(part => $part1, qty => 2, chargenumber => 'CH2');
|
||
|
@alloc2 = SL::Helper::Inventory::allocate(part => $part2, qty => 6.34);
|
||
|
|
||
|
local $::instance_conf->data->{produce_assembly_transfer_service} = 0;
|
||
|
|
||
|
lives_ok {
|
||
|
SL::Helper::Inventory::produce_assembly(
|
||
|
part => $assembly_service,
|
||
|
qty => 1,
|
||
|
allocations => [ @alloc1_1, @alloc1_2, @alloc1_3, @alloc2 ],
|
||
|
|
||
|
# where to put it
|
||
|
bin => $bin1,
|
||
|
);
|
||
|
} 'no exception on produce_assembly with more than one own allocation per part';
|
||
|
|
||
|
is(SL::Helper::Inventory::get_stock(part => $assembly_service), "1.00000", 'produce with own allocations works');
|
||
|
is(SL::Helper::Inventory::get_stock(part => $part1), "0.00000", 'and consumes...');
|
||
|
is(SL::Helper::Inventory::get_stock(part => $part2), "0.00000", '..the materials');
|
||
|
|
||
|
|
||
|
|
||
|
# bestbefore tests
|
||
Auch abrufbar als: Unified diff
t:inventory: Test f. produce_assembly: mehrere Allokierungen für ein Bestandteil