-sub reset_state {
- my %params = @_;
-
- my ($part1, $part2, $unit);
-
- # SL::DB::Manager::AssortmentItem->delete_all(all => 1);
- # SL::DB::Manager::Part->delete_all(all => 1);
- my ($part1, $part2, $unit, $assortment_part, $assortment_1, $assortment_2);
-
- my $unit = SL::DB::Manager::Unit->find_by(name => 'Stck') || die "Can't find unit 'Stck'";
- $part1 = SL::DB::Part->new_part( partnumber => '7777',
- description => "assortment part 1",
- unit => $unit->name,
- sellprice => '3.33',
- lastcost => '2.22',
- )->save;
- $part2 = $part1->clone_and_reset($part1);
- $part2->partnumber( $part1->partnumber + 1 );
- $part2->description( "assortment part 2" );
- $part2->save;
-
- my $assortment_part = SL::DB::Part->new_assortment( partnumber => 'as1',
- description => 'assortment',
- sellprice => '0',
- unit => $unit->name);
- my $assortment_1 = SL::DB::AssortmentItem->new( parts_id => $part1->id, qty => 3, unit => $part1->unit, position => 1);
- my $assortment_2 = SL::DB::AssortmentItem->new( parts_id => $part2->id, qty => 3, unit => $part2->unit, position => 2);
- $assortment_part->add_assortment_items($assortment_1, $assortment_2);
- $assortment_part->save or die "Couldn't save assortment";
-
-};
-